DataMuseum.dk

top - download

    Length: 2483 (0x9b3)
    Types: TextFile
    Names: »V«

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦c84a2ac9b⟧ 
                └─⟦this⟧ 

TextFile

with Ada_Program;
package Associations is

    --
    --    The use of this system is subject to the software license terms and
    --    conditions agreed upon between Rational and the Customer.
    --
    --               Copyright 1987, 1988, 1989, 1990 by Rational.
    --
    --                          RESTRICTED RIGHTS LEGEND
    --
    --    Use, duplication, or disclosure by the Government is subject to
    --    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
    --    Technical Data and Computer Software clause at 52.227-7013.
    --
    --
    --                Rational
    --                3320 Scott Boulevard
    --                Santa Clara, California 95054
    --
    --   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
    --   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
    --   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
    --   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
    --   1976.  CREATED 1987, 1988, 1989, 1990.  ALL RIGHTS RESERVED.
    --


    -- LRM 3.7.2, 6.4.1 and 12.3
    -- This package provides operations on argument associations,
    -- generic associations and parameter associations.

    -- Local Renamings:
    subtype Association is Ada_Program.Association;
    subtype Identifier_Definition is Ada_Program.Identifier_Definition;
    subtype Name_Expression is Ada_Program.Expression;
    -------------------------------------------------------------------

    type Association_Kinds is (Named_Association,  
                               Positional_Association,  
                               Defaulted,  
                               Not_An_Association);

    function Association_Kind
                (An_Association : Association) return Association_Kinds;
    -- Returns the kind of an association.

    function Formal_Parameter (An_Association : Association)
                              return Identifier_Definition;
    -- Returns the identifier of the formal name for the given
    -- association.  This function tries hard to return an identifier
    -- definition.  However, in the case of a pragma argument, only a
    -- reference can be returned.

    function Actual_Parameter
                (An_Association : Association) return Name_Expression;
    -- Returns the actual name or expression for the given association.

    pragma Subsystem (Design_Facility, Closed);
    pragma Module_Name (4, 3578);
    pragma Bias_Key (27);
end Associations;