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

⟦bdb39e8fa⟧ Ada Source

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

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, Unbounded_String;

package Lex_Inter is


    type Token is (Identifier, Unuseful, Unknown, Le, La, Les, Mon, Ma, Mes, Un,
                   Une, Des, De, Pour, Avec, Contre, Devant, Derriere, Dans,
                   Se, A, Au, Aux, Par, L, En, Sur, Vers, Autour, Pres, Sous);

    function Unuseful_Word_To_Token (A_Id : in String) return Token;
    procedure Init;
    procedure Prompt;
    function Get_Token return Token;
    function Get_Value return String;
    function Is_At_End return Boolean;
    procedure Next;
end Lex_Inter;

E3 Meta Data

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=13 rec1=00 rec2=01 rec3=000
        [0x01] rec0=01 rec1=00 rec2=02 rec3=001
    tail 0x21546b4c4865e585125cd 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 03 00 00 00 01 00 00 00 00 00 00 00 00  ┆                ┆