|
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: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Posix_Process_Environment, seg_0213ed
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Posix; package Posix_Process_Environment is -- Process Arguments function Command return Posix.Posix_String; function Parameter_List return Posix.Posix_String_List; -- Environment Variables type Environment is limited private; procedure Get_Current_Environment (Env : in out Environment); function Environment_Value_Of (Name : in Posix.Posix_String; Env : in Environment) return Posix.Posix_String; function Environment_Value_Of (Name : in Posix.Posix_String) return Posix.Posix_String; function Environment_Variable_Defined (Name : in Posix.Posix_String; Env : in Environment) return Boolean; function Environment_Variable_Defined (Name : in Posix.Posix_String) return Boolean; procedure Clear_Environment (Env : in out Environment); procedure Clear_Environment; procedure Set_Environment_Value (Name : in Posix.Posix_String; Value : in Posix.Posix_String); procedure Set_Environment_Value (Name : in Posix.Posix_String; Value : in Posix.Posix_String; Env : in out Environment); procedure Unset_Environment_Value (Name : in Posix.Posix_String); procedure Unset_Environment_Value (Name : in Posix.Posix_String; Env : in out Environment); function Length (Env : Environment) return Natural; function Length return Natural; generic with procedure Action (Name : in Posix.Posix_String; Value : in Posix.Posix_String); procedure For_Every_Environment_Variable (Env : in Environment); generic with procedure Action (Name : in Posix.Posix_String; Value : in Posix.Posix_String); procedure For_Every_Current_Environment_Variable; Undefined_Environment_Variable : exception; -- Process Working Directory procedure Change_Working_Directory (Directory_Name : Posix.Posix_String); function Get_Current_Working_Directory return Posix.Posix_String; private type Environment is new Boolean; -- RCF MOD end Posix_Process_Environment;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=24 rec1=00 rec2=01 rec3=026 [0x01] rec0=18 rec1=00 rec2=02 rec3=064 [0x02] rec0=0f rec1=00 rec2=03 rec3=000 tail 0x2151cbd24838d73ab3e94 0x42a00088462060003