|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1214 (0x4be)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
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;