|
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, seg_049bd9, seg_049c11, seg_049c23
└─⟦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 Moving_String;
package Lex is
package Visible is
type Token is (Quotation, Number, Id, Entier, Chaine, Anime, Entite,
Rencontre, De, Pas, Existe, Contenu, Issue, Actions,
Passees, Normal, Special, A, Appartient, Par, Pour,
Vaut, Vers, Suivante, Ordre, Heros, Lieu, Et,
Ou, Alors, Attributs, En, Issues, Erreur, Aide,
Message, Enumere, Lien, Verbes, Mots, Structure,
Cree, Lie, Itineraire, Groupe, Introduction,
Scenario, Quand, Global, Nom, Sinon, Si, Change,
Affiche, Ligne, Bouge, Positionne, Retire, Efface,
Termine, Va, Fin, Substract, Add, Closing_Bracket,
Multiply, Divide, Ampersand, Equal, Not_Equal, Less,
Greater, Greater_Equal, Less_Equal, Opening_Bracket,
Colon, Comma, Diese, Comments, Right_Sentence,
Wrong_Sentence, Unknown_Symbol, End_Of_Text);
end Visible;
use Visible;
procedure Initialize;
procedure Write_Error_File (Line : in String);
procedure Show_Error_File;
procedure Close;
function Get_Token return Token;
function Get_Lower_Case_Value return String;
function Get_Lower_Case_Value return Moving_String.Object;
function Get_Value return String;
function Is_At_End return Boolean;
procedure Next;
function Get_Line return Natural;
function Get_Column return Natural;
end Lex;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=12 rec1=00 rec2=01 rec3=056
[0x01] rec0=14 rec1=00 rec2=02 rec3=001
tail 0x2154736aa866197f66579 0x42a00088462060003