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

⟦009aff8d9⟧ Ada Source

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

Derivation

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

E3 Source Code



with Text_Io, Compiler_File;

package Lexical_Analyzer is

    type Tokens is
       (

        Less, Less_Equal, Different, Equal, More, More_Equal, Minus,
        Plus, Multiplication, Division, Terminator, Identifier,
        String_Of_Characters, Integer_Number, Complement_Or_Verbe,
        Left_Bracket, Right_Bracket, Left_Hook, Right_Hook,

        -- tokens de gestion

        Unknown,

        -- mots-clef du langage

        Sont, De, A, Et, Est, Avec, Comme, Dans, Familles, Heritage,
        Variables, Ensemble, Initialisations, Verbes, Complements,
        Complement1, Complement2, Vie, Devient, Vider, Ajouter, Retirer,
        Ecrire, Quitter, Si, Alors, Sinon, Fsi, Ou, Non, Entier, Chaine

        );

    Excep_Eof : exception;

    File_Does_Not_Exist : exception;
    A_File_Is_Already_Opened : exception;
    File_Has_Never_Been_Opened : exception;


    procedure Open (File_Name : String);
    procedure Close;
    procedure Next;
    function Get_Token return Tokens;
    function Get_Value return String;
    function Get_Position_In_Line return Natural;
    function Get_Line_In_File return Natural;

end Lexical_Analyzer;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=24 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=07 rec1=00 rec2=02 rec3=001
    tail 0x2154443b886538b0f0b22 0x42a00088462060003