|
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 Syntst, seg_0479bc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with String_Table, Actions, Directions, Objets, Pnjs, Int_Lib, Error, Lex,
Parse, Text_Io, Bounded_String, Token_Pkg, Struct_Component, Pieces, Monde;
procedure Syntst is
Ok : Boolean := True;
Verb_Table, Direction_Table : String_Table.I_Table (1 .. 50);
Object_Table : String_Table.I_Table (1 .. 100);
Pnj_Table : String_Table.I_Table (1 .. 10);
Tab : Int_Lib.I_Result;
Index : Natural;
begin
Parse.Start (Ok);
if not Ok then
Error.Image;
else
Verb_Table := Actions.Table;
Direction_Table := Directions.Table;
Object_Table := Objets.Table;
Pnj_Table := Pnjs.Table;
String_Table.Complete (Object_Table, Pnj_Table);
Text_Io.Put_Line ("Pas de probleme.");
Text_Io.Put_Line ("Table des Verbes :");
String_Table.Image (Verb_Table);
Text_Io.Put_Line ("Table des Directions :");
String_Table.Image (Direction_Table);
Text_Io.Put_Line ("Table des Objets :");
String_Table.Image (Object_Table);
Struct_Component.Image (Pieces.Liste);
Struct_Component.Image (Pnjs.Liste);
for I in 1 .. 10 loop
Int_Lib.Interpretor (Verb_Table, Object_Table,
Direction_Table, Tab);
Index := 1;
while Token_Pkg.Token'Image (Tab (Index).Token) /= "T_END" loop
Text_Io.Put (Token_Pkg.Token'Image (Tab (Index).Token));
Text_Io.Put (" - index : ");
Text_Io.Put (Natural'Image (Tab (Index).Index));
Text_Io.New_Line;
Index := Index + 1;
end loop;
end loop;
end if;
end Syntst;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1b rec1=00 rec2=01 rec3=02a
[0x01] rec0=12 rec1=00 rec2=02 rec3=001
tail 0x21544a5a0865478284cdc 0x42a00088462060003