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 - metrics - download
Index: B T

⟦fcfba604f⟧ TextFile

    Length: 2162 (0x872)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

separate (Token_Package)
procedure Label (This_Token : out Token; With_This_Class : in Token_Class) is
    -- constraints This_Token with With_This_Class

begin
    -- Label

    case With_This_Class is

        when Undefined =>
            This_Token.Content := (Class => Undefined);

        when Identifier =>
            This_Token.Content :=
               Actual_Token'(Class => Identifier,
                             String_Value => Variable_Token'
                                                (Length => 1, Content => " "));

        when Keyword =>
            This_Token.Content :=
               (Class => Keyword,
                String_Value => (Length => 1, Content => " "));

        when Numeric_Literal =>
            This_Token.Content :=
               (Class => Numeric_Literal,
                String_Value => (Length => 1, Content => " "));

        when Standard_String_Literal =>
            This_Token.Content :=
               (Class => Standard_String_Literal,
                String_Value => (Length => 1, Content => " "));

        when Alternate_String_Literal =>
            This_Token.Content :=
               (Class => Alternate_String_Literal,
                String_Value => (Length => 1, Content => " "));

        when Character_Literal =>
            This_Token.Content :=
               (Class => Character_Literal,
                String_Value => (Length => 1, Content => " "));

        when Punctuation =>
            This_Token.Content :=
               (Class => Punctuation,
                Enumeration_Value => Punctuation_Value'First);

        when Comment =>
            This_Token.Content := (Class => Comment);

        when Blank_Line =>
            This_Token.Content := (Class => Blank_Line);

        when New_Line =>
            This_Token.Content := (Class => New_Line);

        when End_Of_File =>
            This_Token.Content := (Class => End_Of_File);

        when Begin_Compilation_Unit =>
            This_Token.Content := (Class => Begin_Compilation_Unit);

        when End_Compilation_Unit =>
            This_Token.Content := (Class => End_Compilation_Unit);

    end case;

end Label;