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

⟦13ab68784⟧ Ada Source

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



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;

E3 Meta Data

    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 0x2174d6d50865b47517660 0x42a00088462060003