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 ┃

⟦b15abb8b7⟧ TextFile

    Length: 887 (0x377)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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_Begin .. L_While;
    type    Keywords       is array (Keyword_Tokens) of P_String;

    The_Keywords : constant Keywords := (L_Begin  => new String'("BEGIN"),
                                         L_Do     => new String'("DO"),
                                         L_End    => new String'("END"),
                                         L_Repeat => new String'("REPEAT"),
                                         L_While  => new String'("WHILE"));

    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;