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

⟦ba348c33f⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Pragmas, pragma Module_Name 4 3574, pragma Subsystem Design_Facility, seg_001c7c

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 Pragmas is

    -- LRM 2.8
    -- This package provides operations on pragma elements

    -- Local Renamings:
    subtype Pragma_Usage is Ada_Program.Pragma_Usage;
    subtype Declaration  is Ada_Program.Declaration;
    -------------------------------------------------------------------

    function Is_Predefined (A_Pragma : Pragma_Usage) return Boolean;

    type Pragma_Kinds is new Natural;

    Unknown : constant Pragma_Kinds := 0;

    -- Predefined Pragmas
    -- LRM Annex B:

    Controlled   : constant Pragma_Kinds := 1;
    Elaborate    : constant Pragma_Kinds := 2;
    Inline       : constant Pragma_Kinds := 3;
    Interface    : constant Pragma_Kinds := 4;
    List         : constant Pragma_Kinds := 5;
    Memory_Size  : constant Pragma_Kinds := 6;
    Optimize     : constant Pragma_Kinds := 7;
    Pack         : constant Pragma_Kinds := 8;
    Page         : constant Pragma_Kinds := 9;
    Priority     : constant Pragma_Kinds := 10;
    Shared       : constant Pragma_Kinds := 11;
    Storage_Unit : constant Pragma_Kinds := 12;
    Suppress     : constant Pragma_Kinds := 13;
    System_Name  : constant Pragma_Kinds := 14;

    -- Implementation Defined Pragmas:

    Bias_Key             : constant Pragma_Kinds := 100;
    Closed_Private_Part  : constant Pragma_Kinds := 101;
    Disable_Deallocation : constant Pragma_Kinds := 102;
    Enable_Deallocation  : constant Pragma_Kinds := 103;
    Loaded_Main          : constant Pragma_Kinds := 104;
    Main                 : constant Pragma_Kinds := 105;
    Module_Name          : constant Pragma_Kinds := 106;
    Must_Be_Constrained  : constant Pragma_Kinds := 107;
    Open_Private_Part    : constant Pragma_Kinds := 108;
    Page_Limit           : constant Pragma_Kinds := 109;
    Private_Eyes_Only    : constant Pragma_Kinds := 110;
    Subsystem            : constant Pragma_Kinds := 111;

    function Kind (A_Pragma : Pragma_Usage) return Pragma_Kinds;


    function Name (A_Pragma : Pragma_Usage) return String;
    -- Returns the name of any pragma.

    function Arguments (A_Pragma : Pragma_Usage)
                       return Ada_Program.Element_Iterator;
    -- Returns a list of the arguments to a pragma.
    -- Pragma arguments take the same form as actual parameters
    -- to a procedure call.  The operations for manipulating parameters
    -- can be used to extract information from these elements.


    pragma Subsystem (Design_Facility, Closed);
    pragma Module_Name (4, 3574);
    pragma Bias_Key (109);
end Pragmas;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1f rec1=00 rec2=01 rec3=022
        [0x01] rec0=01 rec1=00 rec2=04 rec3=02a
        [0x02] rec0=17 rec1=00 rec2=02 rec3=00e
        [0x03] rec0=0f rec1=00 rec2=03 rec3=000
    tail 0x20100f74c7da18dcb6251 0x42a00088462065003