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

⟦7847fd40f⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Token, seg_0319cb

Derivation

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

with String_Utilities;

package body Token is
    type Pstring is access String;
    subtype Keyword_Token is Token.Object range L_Au .. L_Temps;
    type Keyword is array (Keyword_Token) of Pstring;
    The_Keywords : constant Keyword :=
       (L_Au => new String'("au"),
        L_Activer => new String'("activer"),
        L_Alors => new String'("alors"),
        L_Attendre => new String'("attendre"),
        L_Avec => new String'("avec"),
        L_Binaire => new String'("binaire"),
        L_Desactiver => new String'("desactiver"),
        L_Discret => new String'("discret"),
        L_En => new String'("en"),
        L_Est => new String'("est"),
        L_Experience => new String'("experience"),
        L_Faire => new String'("faire"),
        L_Fin => new String'("fin"),
        L_Fois => new String'("fois"),
        L_Fugitif => new String'("fugitif"),
        L_Materiel => new String'("materiel"),
        L_Puis => new String'("puis"),
        L_Repeter => new String'("repeter"),
        L_Scene => new String'("scene"),
        L_Si => new String'("si"),
        L_Spectacle => new String'("spectacle"),
        L_Station => new String'("station"),
        L_Temps => new String'("temps"),
        L_Temporel => new String'("temporel"));

    function Search_Token (S : String) return Token.Object is
    begin
        for I in Keyword_Token loop
            if String_Utilities.Equal (S, The_Keywords (I).all) then
                return I;
            end if;  
        end loop;  
        return L_Id;
    end Search_Token;

end Token;

    nblk1=3
    nid=3
    hdr6=4
        [0x00] rec0=1a rec1=00 rec2=01 rec3=010
        [0x01] rec0=13 rec1=00 rec2=02 rec3=000
        [0x02] rec0=0a rec1=00 rec2=03 rec3=000
    tail 0x2172bc8e884c14d48a668 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 03 00 00 00 6e 3b 03 00 00 00 00 00 00  ┆       n;       ┆