|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Parse, seg_038e74
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1e rec1=00 rec2=01 rec3=020
[0x01] rec0=08 rec1=00 rec2=02 rec3=001
tail 0x21531e6e684e86969c35e 0x42a00088462060003