DataMuseum.dk

top - download

    Length: 2210 (0x8a2)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with String_Utilities;
package body Token is

    type P_String is access String;

    subtype Keyword_Tokens is Token.Object range L_Acteur .. L_Theatre;
    type    Keywords       is array (Keyword_Tokens) of P_String;

    The_Keywords : constant Keywords :=
       (L_Acteur       => new String'("ACTEUR"),
        L_Activer      => new String'("ACTIVER"),
        L_Appel_Effet  => new String'("APPEL_EFFET"),
        L_Attendre     => new String'("ATTENDRE"),
        L_Binaire      => new String'("BINAIRE"),
        L_Changer      => new String'("CHANGER"),
        L_Collection   => new String'("COLLECTION"),
        L_Constitue    => new String'("CONSTITUE"),
        L_Dans         => new String'("DANS"),
        L_Debut        => new String'("DEBUT"),
        L_Desact       => new String'("DESACTIVER"),
        L_Discret      => new String'("DISCRET"),
        L_Effet        => new String'("EFFET"),
        L_Est          => new String'("EST"),
        L_Evoluer      => new String'("EVOLUER"),
        L_Exp          => new String'("EXPERIENCE"),
        L_Faire        => new String'("FAIRE"),
        L_Fin          => new String'("FIN"),
        L_Fois         => new String'("FOIS"),
        L_Fugitif      => new String'("FUGITIF"),
        L_Lancer_Scene => new String'("LANCER_SCENE"),
        L_Materiel     => new String'("MATERIEL"),
        L_Parmi        => new String'("PARMI"),
        L_Pour         => new String'("POUR"),
        L_Puis         => new String'("PUIS"),
        L_Repeter      => new String'("REPETER"),
        L_Repres       => new String'("REPRESENTATION"),
        L_Scene        => new String'("SCENE"),
        L_Spectacle    => new String'("SPECTACLE"),
        L_Station      => new String'("STATION"),
        L_Tantque      => new String'("TANTQUE"),
        L_Temporel     => new String'("TEMPOREL"),
        L_Theatre      => new String'("THEATRE"));

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

end Token;