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

⟦55b1c4c58⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Lex, seg_0462f0, seg_0465bb, seg_04694e, seg_048410

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⟧

E3 Source Code



with Text_Io, File;
with Nos_Chaines;

package Lex is
    type Token is (L_Afficher, L_Ajouter, L_Creer, L_Decrire, L_Deplacer,
                   L_Detruire, L_Findujeu, L_Informer, L_Inventaire,
                   L_Joueur, L_Modifierdescription, L_Supprimer, L_Si,
                   L_Sinon, L_Finsi, L_Finjeu, L_Locales, L_Generales,
                   L_Initiales, L_Et, L_Ou, L_Alors, L_Communication,
                   L_Compteur, L_Objet, L_Lieu, L_Personnage, L_Scenario,
                   L_Contenu, L_Debutcommunication, L_Etat, L_Finlieu,
                   L_Finobjet, L_Finpersonnage, L_Fincompteur, L_Possession,
                   L_Position, L_Description, L_Definitionpreposition,
                   L_Definitionvariable, L_Definitionverbe, L_Direction,
                   L_Est, L_Dans, L_Positioncourante, L_Reliea,
                   L_Sera, L_Sortie, L_Valeur, L_Vers, L_Existe,
                   L_Fincommunication, L_Modulo, L_Non, L_Sens1, L_Sens2,


                   L_Colon, L_Coma, L_Equal, L_Great, L_Less,
                   L_Plus, L_Moins, L_Division, L_Multiplication,
                   L_Left_Bracket, L_Right_Bracket, L_Number, L_Id, L_Text,

                   L_Unk, L_Eof);


    procedure Open (Nomfichier : in String);
    procedure Next;
    function Get_Token return Token;
    function Next_Token return Token;
    function Get_Value return Nos_Chaines.String_Text;  
    function At_End return Boolean;
    function Get_Line return Positive;

end Lex;

E3 Meta Data

    nblk1=3
    nid=2
    hdr6=4
        [0x00] rec0=13 rec1=00 rec2=01 rec3=000
        [0x01] rec0=12 rec1=00 rec2=03 rec3=001
        [0x02] rec0=0b rec1=00 rec2=00 rec3=004
    tail 0x21542d45a86503f9bb902 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 03 00 00 00 01 00 00 00 00 00 00 00 00  ┆                ┆