------------------------------------------------------------------------
-- These package specifications were extracted from IEEE Std 1003.5-1992,
-- IEEE Standard for Information Technology--POSIX Ada Language
-- Interfaces--Part 1: Binding System Application Program Interface,
-- copyright (c)1992 by the Institute of Electrical and Electronics
-- Engineers, Inc.  These package specifications represent only a portion
-- of the document and are not to be interpreteted as the approved
-- consensus standard.  The IEEE Std 1003.5-1992 must be used in
-- conjunction with these package specifications in order to claim
-- conformance.  The IEEE takes no responsibility for and will assume no
-- liability for damages resulting from the reader's misinpretation of
-- said information resulting from its out of context nature.  To order
-- copies of the IEEE Std 1003.5-1992, please contact the IEEE Service
-- Center at 445 Hoes Lane, PO Box 1331, Piscataway, NJ 08855-1331; via
-- phone at 1-800-678-IEEE, 908-981-1393; or via fax at 908-981-9667.
------------------------------------------------------------------------

with POSIX;
package POSIX_Process_Environment is

    -- Process Parameters

    function Argument_List
        return POSIX.POSIX_String_List;

    -- Environment Variables

    type Environment is limited private;

    procedure Copy_From_Current_Environment
            (Env : in out Environment);

    procedure Copy_To_Current_Environment
            (Env : in     Environment);

    procedure Copy_Environment
            (Source : in     Environment;
             Target : in out Environment);

    function Environment_Value_Of
            (Name      : POSIX.POSIX_String;
             Env       : Environment;
             Undefined : POSIX.POSIX_String := "" )
        return POSIX.POSIX_String;
    function Environment_Value_Of
            (Name      : POSIX.POSIX_String;
             Undefined : POSIX.POSIX_String := "" )
        return POSIX.POSIX_String;

    function Is_Environment_Variable
            (Name : POSIX.POSIX_String;
             Env  : Environment)
        return Boolean;
    function Is_Environment_Variable
            (Name : POSIX.POSIX_String)
        return Boolean;

    procedure Clear_Environment
            (Env: in out Environment);
    procedure Clear_Environment;

    procedure Set_Environment_Variable
            (Name  : in     POSIX.POSIX_String;
             Value : in     POSIX.POSIX_String;
             Env   : in out Environment);
    procedure Set_Environment_Variable
            (Name  : in     POSIX.POSIX_String;
             Value : in     POSIX.POSIX_String);

    procedure Delete_Environment_Variable
            (Name  : in     POSIX.POSIX_String;
             Env   : in out Environment);
    procedure Delete_Environment_Variable
            (Name  : in     POSIX.POSIX_String);

    function Length (Env : Environment)
        return Natural;
    function Length 
        return Natural;

    generic
        with procedure Action
                     (Name  : in     POSIX.POSIX_String;
                      Value : in     POSIX.POSIX_String;
                      Quit  : in out Boolean);
    procedure For_Every_Environment_Variable
            (Env : in     Environment);

    generic
        with procedure Action
                     (Name  : in     POSIX.POSIX_String;
                      Value : in     POSIX.POSIX_String;
                      Quit  : in out Boolean);
    procedure For_Every_Current_Environment_Variable;

    -- Process Working Directory

    procedure Change_Working_Directory
            (Directory_Name: in     POSIX.Pathname);

    function Get_Working_Directory
        return POSIX.Pathname;

private
    type Environment is @P<implementation defined>;
end POSIX_Process_Environment;