|
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, package Lexical, seg_035da4, seg_036cb6, seg_039005, seg_03906f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io;
with Standard_String;
package Lexical is
type Token is (L_Materiel, L_Debut, L_Fin, L_Fait, L_Discret, L_Temporel,
L_Acteurs, L_Est, L_Sur, L_Station, L_Scenario, L_Scene,
L_Dans, L_Repeter_Ad_Eternam, L_Faire, L_Repeter, L_Duree,
L_Premier, L_Fois, L_Toutes, L_Les, L_Pendant, L_De,
L_Vers, L_En, L_Experience, L_Effet, L_Enchainement,
L_Groupe, L_Hasard, L_Avec, L_Sans, L_Sub, L_Plus,
L_Equal, L_Star, L_Eof, L_D_Point, L_Point, L_Virgule,
L_Open, L_Close, L_Number, L_Temps, L_Unk, L_Id, L_Ok);
procedure Open (Name_File : String);
procedure Close_The_File;
function At_End return Boolean;
procedure Next;
function Get_Token return Token;
function Get_Value return Standard_String.Object;
function Get_Value return Integer;
function Keyword_To_Token (A_String : Standard_String.Object) return Token;
function Get_Line return Integer;
end Lexical;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=078
[0x01] rec0=04 rec1=00 rec2=02 rec3=001
tail 0x21732b2e884dd4fbd1645 0x42a00088462060003