|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
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
└─⟦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