|
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_040dc2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io, Source;
package Lexical is
type Token is (Comment, Nbr, Str, Id, Affect, Equ, Mul, Div, Crocho,
Crochf, Parnto, Parntf, Virgul, Inf, Infequ, Diffr, Sup,
Supequ, Plus, Moins, Point, Unk, Lexend, Jeu, Action,
Synonyme, Definition, Structure, Chaine, Booleen, Entier,
Enumere, Presentation, Objet, Avec, Init, Creer_Lien,
Echanger_Lien, Etat_Lien, Liste_Lien, Existe_Lien,
Detruire_Lien, Lie_Lien, Delie_Lien, Liaison, Lie, Delie,
Vrai, Faux, Connexion, Creer_Connexion, Existe_Connexion,
Etat_Connexion, Detruire_Connexion, Destination_Connexion,
Lie_Connexion, Delie_Connexion, Afficher, Pour, Entree,
Faire, Finpour, Si, Alors, Sinon, Finsi, Comp, Non,
Ou, Et, Animation_Globale, Animation_Locale, Fin);
subtype T_File is Text_Io.File_Type;
Maxstring : constant Integer := 80;
procedure Init (Nomf : String);
function Get_Token return Token;
function Get_Value return String;
function At_End return Boolean;
procedure Next;
function Get_Line return Natural;
function Get_Column return Natural;
procedure Close;
end Lexical;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=14 rec1=00 rec2=01 rec3=006
[0x01] rec0=0b rec1=00 rec2=02 rec3=001
tail 0x2153b87828612622ca9f2 0x42a00088462060003