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

⟦bbe296809⟧ Ada Source

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

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 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, Itineraire, Erreur,
                       Message, Enumere, Structure, Cree, Mots, Lien, Lie,
                       Groupe, Verbes, Introduction, Scenario, Quand, Ailleurs,
                       Sinon, Si, Change, Affiche, Ligne, Bouge, Positionne,
                       Retire, Efface, Termine, Aide, Va, Fin, Substract, Add,
                       Closing_Bracket, Multiply, Divide, Ampersand, Equal,
                       Not_Equal, Less, Greater, Greater_Equal, Less_Equal,
                       Opening_Bracket, Colon, Comma, Comments, Right_Sentence,
                       Wrong_Sentence, Unknown_Symbol, End_Of_Text);
    end Visible;

    use Visible;

    procedure Initialize;
    function Get_Token return Token;
    function Get_Lower_Case_Value return String;
    function Get_Value return String;
    function Get_Value return Moving_String.Object;
    function Is_At_End return Boolean;
    procedure Next;  
    function Get_Sentence return String;
    function Get_Line return Natural;
    function Get_Column return Natural;
end Lex;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=12 rec1=00 rec2=01 rec3=00c
        [0x01] rec0=11 rec1=00 rec2=02 rec3=001
    tail 0x2153f36f6863b682a1d4d 0x42a00088462060003