DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦c24d9d694⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Lexical, seg_0491df, seg_049370

Derivation

└─⟦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, Source;

-- Module fonctionnel comprenant les fonctions necessaires pour
-- l analyse lexical d un fichier source scenario

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, Introduction, Animation_Generale,
                   Animation_Globale, Animation_Locale, Fin);

    subtype T_File is Text_Io.File_Type;
    Maxstring : constant Integer := 255;

--INIT
-- initalisation de l analyseur , le nom du fichier est passe en parametre.
    procedure Init (Nomf : String);

--GET_TOKEN
-- renvoie le token courant analyse
    function Get_Token return Token;

--GET_VALUE
-- renvoie la valeur courante analysee
    function Get_Value return String;

--AT_END
-- indique si l analyse lexicale est terminee
    function At_End return Boolean;

--NEXT
-- Avance d une unite lexicale
    procedure Next;

--GET_LINE
-- renvoie la ligne courante analysee
    function Get_Line return Natural;

--GET_COLUMN
-- renvoie la position colonne de l unite lexicale analysee
    function Get_Column return Natural;

--CLOSE
-- Finir l analyse lexicale
    procedure Close;
end Lexical;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=14 rec1=00 rec2=01 rec3=024
        [0x01] rec0=26 rec1=00 rec2=02 rec3=001
    tail 0x2174d6e76865b4844f609 0x42a00088462060003