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

⟦930458979⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Posix_Process_Environment, seg_0213ed

Derivation

└─⟦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