|
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_Analyzer, seg_03fb0e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io, Compiler_File; package Lexical_Analyzer is type Tokens is ( Less, Less_Equal, Different, Equal, More, More_Equal, Minus, Plus, Multiplication, Division, Terminator, Identifier, String_Of_Characters, Integer_Number, Complement_Or_Verbe, Left_Bracket, Right_Bracket, -- tokens de gestion Unknown, -- mots-clef du langage Sont, De, A, Et, Est, Avec, Comme, Dans, Familles, Heritage, Variables, Ensemble, Initialisations, Verbes, Complements, Complement1, Complement2, Vie, Devient, Vider, Ajouter, Retirer, Ecrire, Quitter, Si, Alors, Sinon, Fsi, Ou, Non, Entier, Chaine ); Excep_Eof : exception; procedure Open (File_Name : String); procedure Close; procedure Next; function Get_Token return Tokens; function Get_Value return String; function Get_Position_In_Line return Natural; function Get_Line_In_File return Natural; end Lexical_Analyzer;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=24 rec1=00 rec2=01 rec3=01e [0x01] rec0=03 rec1=00 rec2=02 rec3=001 tail 0x2153995bc860b5f8d89d7 0x42a00088462060003