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

⟦973907482⟧ Ada Source

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

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



package Lex is
    type Token is (A, Activer, Alors, Attendre, Au, Avec, Based, Binaire,
                   Comment, Desactiver, Discret, En, Eof, Eq, Est, Evoluer,
                   Executer, Faire, Fin, Fixer, Fugitif, Great, Geq, Hour, Id,
                   Int, Leq, Less, Let, Materiel, Neq, Pour, Puis, Qui, Que,
                   Sait, Selon, Si, Sinon, Spectacle, Tant, Temporel, Temps,
                   Theatre, Unk, Utilise, '{', '}', '+', '*', '-', '(', ')');

    function Get_Value return String;
    function Get_Token return Token;
    function At_End return Boolean;
    procedure Open (Thename : String);
    procedure Close;
    procedure Next;


end Lex;

E3 Meta Data

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=16 rec1=00 rec2=01 rec3=000
        [0x01] rec0=03 rec1=00 rec2=02 rec3=001
    tail 0x2172775ac8485653a72d3 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 16 80 02 6e 3b 02 00 00 00 00 08 65 6e  ┆      n;      en┆