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

⟦a710b1754⟧ TextFile

    Length: 2235 (0x8bb)
    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 (Find_Unit.Build_Ada_Compilation_Unit)
procedure Subprogram (Current_Unit : in out
                         Compilation_Unit.Ada_Compilation_Unit) is
    --==============================================================
    -- This procedure builds the next part of the grammar for an   =
    -- Ada compilation unit. Based on the next token, we will      =
    -- complete different productions. At present, we are parsing  =
    -- either a subprogram specification, subprogram body, or a    =
    -- generic subprogram instantiation. This subprogram will      =
    -- just get the first keyword token (either 'procedure' or     =
    -- 'function') and then invoke Subprogram_Or_Instantiation.    =
    -- The grammar :                                               =
    --     <Subprogram> =                                          =
    --       'PROCEDURE' <Subprogram_Or_Instantiation> |           =
    --       'FUNCTION' <Function_Or_Instantiation>                =
    --                                                             =
    -- written  by  GER  with  help  from  b2  and  JM             =
    -- May 1985  at EVB Software Engineering                       =
    --==============================================================

    Current_Token : Token_Package.Token;
    -- Holds the current token

begin
    -- Subprogram

    -- Get the next significant token and see if it is 'procedure'
    -- or 'function'

    Get_Next_Significant_Token (Significant_Token => Current_Token,
                                Current_Unit => Current_Unit);

    case Token_Package.Value_Of (Current_Token) is
        when Token_Package.Procedure_Token =>
            Compilation_Unit.Add_Token_To_Compilation_Unit
               (Token_To_Add => Current_Token, Unit_To_Add_To => Current_Unit);
            Procedure_Or_Instantiation (Current_Unit => Current_Unit);
        when Token_Package.Function_Token =>
            Compilation_Unit.Add_Token_To_Compilation_Unit
               (Token_To_Add => Current_Token, Unit_To_Add_To => Current_Unit);
            Function_Or_Instantiation (Current_Unit => Current_Unit);
        when others =>
            raise Build_Syntax_Error;
    end case;

end Subprogram;