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

    -- Process Identification 

    type Process_ID is private;

    Null_Process_ID : constant Process_ID;

    System_Process_ID : constant Process_ID;

    function Get_Process_ID
    	return Process_ID;

    function Get_Parent_Process_ID
    	return Process_ID;

    function Image (ID : Process_ID)
    	return Standard.String;

    function Value (Str : Standard.String )
    	return Process_ID ;

    -- Process Group Identification

    type Process_Group_ID is private;

    function Get_Process_Group_ID
    	return Process_Group_ID;

    procedure Set_Process_Group_ID
            (Process       : in     Process_ID
                           := Get_Process_ID;
             Process_Group : in     Process_Group_ID
                           := Get_Process_Group_ID);

    procedure Create_Process_Group 
            (Process       : in     Process_ID
             Process_Group :    out Process_Group_ID);

    procedure Create_Session (Session_Leader : out Process_Group_ID);

    function Image (ID : Process_Group_ID)
        return Standard.String;

    function Value (Str : Standard.String )
        return Process_Group_ID ;

    -- User Identification

    type User_ID is private;

    function Get_Real_User_ID
        return User_ID;

    function Get_Effective_User_ID
        return User_ID;

    procedure Set_User_ID (ID : in     User_ID);

    function Get_Login_Name
        return POSIX.POSIX_String;

    function Image (ID : User_ID)
        return Standard.String;

    function Value (Str : Standard.String)
        return User_ID ;

    -- User Group Identification

    type Group_ID is private;

    function Get_Real_Group_ID
        return Group_ID;

    function Get_Effective_Group_ID
        return Group_ID;

    procedure Set_Group_ID (ID : in     Group_ID);

    subtype Group_List_Index is positive range 1..POSIX.Groups_Maxima'Last;

    type Group_List is array (Group_List_Index range <>) of Group_ID;

    function Get_Groups
        return Group_List;

    function Image (ID : Group_ID)
        return Standard.String;

    function Value (Str : Standard.String)
        return Group_ID;

private
    type Process_ID is @P<implementation defined>;
    Null_Process_ID   : constant Process_ID := @P<implementation defined>;
    System_Process_ID : constant Process_ID := @P<implementation defined>;
    type Process_Group_ID is @P<implementation defined>;
    type User_ID is @P<implementation defined>;
    type Group_ID is @P<implementation defined>;
end POSIX_Process_Identification;