DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦2eb0d6c4e⟧ TextFile

    Length: 1629 (0x65d)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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_Heure => new String'("h"),
        L_Materiel => new String'("materiel"),
        L_Minute => new String'("min"),
        L_Puis => new String'("puis"),
        L_Repeter => new String'("repeter"),
        L_Scene => new String'("scene"),
        L_Seconde => new String'("s"),
        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 S = The_Keywords (I).all then
                return I;
            end if;  
        end loop;  
        return L_Id;
    end Search_Token;
end Token;