DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦71231c2bd⟧ TextFile

    Length: 1214 (0x4be)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Lex;
with Shownet_File;
with Intermediate_Code, Spectacle_Definition;
with Text_Io;  
with Error, Symbol, Binary_Tree, Scene;
procedure Test_Parse is  
    Ok : Boolean := True;
    T : Natural := 0;
    Ms : Scene.P_Scene;
begin  
    Error.Initialize;
    Symbol.Initialize;
    Lex.Open ("source_code");  
    Lex.Next;
    Shownet_File.Parse (Ok);
    Lex.Close;  
    if Error.Exist then
        Error.Display_In_Source ("source_code");
    end if;
    Symbol.Put;
    Text_Io.Put_Line ("");
    Binary_Tree.Put_Node (Symbol.Get_Start_Point ("Main"));
    Binary_Tree.Put_Node (Symbol.Get_Start_Point ("clignoter"));
    Binary_Tree.Put_Node (Symbol.Get_Start_Point ("clignoter_longtemps"));
    Binary_Tree.Put_Node (Symbol.Get_Start_Point ("Clignoter_diapo"));
    Binary_Tree.Put_Node (Symbol.Get_Start_Point ("Demo_diapo"));
    Text_Io.Put_Line ("**************");
    Intermediate_Code.Open ("object_code", Text_Io.Out_File);
    Spectacle_Definition.Generate (Symbol.Get_Start_Point ("main"), T);
    Intermediate_Code.Close;
    Intermediate_Code.Open ("code", Text_Io.In_File);
    Scene.Lire_Scene (Ms);
    Intermediate_Code.Close;
    Scene.Jouer_Scene (Ms);
    --Symbol.Put;
end Test_Parse;