|
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 Lex_Inter, seg_0443d1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io, Unbounded_String; package Lex_Inter is type Token is (Identifier, Unuseful, Unknown, Le, La, Les, Mon, Ma, Mes, Un, Une, Des, De, Pour, Avec, Contre, Devant, Derriere, Dans, Se, A, Au, Aux, Par, L, En, Sur, Vers, Autour, Pres, Sous); function Unuseful_Word_To_Token (A_Id : in String) return Token; procedure Init; procedure Prompt; function Get_Token return Token; function Get_Value return String; function Is_At_End return Boolean; procedure Next; end Lex_Inter;
nblk1=2 nid=2 hdr6=2 [0x00] rec0=13 rec1=00 rec2=01 rec3=000 [0x01] rec0=01 rec1=00 rec2=02 rec3=001 tail 0x2153ef522863672d12422 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 00 03 00 00 00 01 00 00 00 00 00 00 00 00 ┆ ┆