DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦b1e4567ee⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Associations, pragma Module_Name 4 3578, pragma Subsystem Design_Facility, seg_028adf

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

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;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=00a
        [0x01] rec0=18 rec1=00 rec2=02 rec3=042
        [0x02] rec0=0e rec1=00 rec2=03 rec3=000
    tail 0x21521190a83c247b4ab0f 0x42a00088462065003