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

    type Permission is
	(Others_Execute, Others_Write, Others_Read,
	 Group_Execute,  Group_Write,  Group_Read,
	 Owner_Execute,  Owner_Write,  Owner_Read,
	 Set_Group_ID,   Set_User_Id);

    type Permission_Set is array (Permission) of Boolean;

    Owner_Permission_Set : constant Permission_Set 
                         := Permission_Set'(
          Owner_Read | Owner_Write | Owner_Execute => true,
          others => false);

    Group_Permission_Set : constant Permission_Set 
                         := Permission_Set'(
          Group_Read | Group_Write | Group_Execute => true,
          others => false);

    Others_Permission_Set : constant Permission_Set 
                          := Permission_Set'(
	  Others_Read | Others_Write | Others_Execute => true,
          Others => false);

    Access_Permission_Set : constant Permission_Set
                          := Permission_Set'(
          Owner_Read  | Owner_Write  | Owner_Execute => true,
          Group_Read  | Group_Write  | Group_Execute => true,
	  Others_Read | Others_Write | Others_Execute => true,
          Others => false);

    Set_Group_ID_Set : constant Permission_Set
                     := Permission_Set'(
          Set_Group_ID => true,
          others => false);

    Set_User_ID_Set : constant Permission_Set 
                    := Permission_Set'(
          Set_User_ID => true,
          others => false);

    -- POSIX Permission-oriented operations

    function Get_Allowed_Process_Permissions
    	return Permission_Set;

    procedure Set_Allowed_Process_Permissions
            (Permissions : in     Permission_Set);

    procedure Set_Allowed_Process_Permissions
	    (Permissions : in     Permission_Set;
	     Old_Perms   :    out Permission_Set);

end POSIX_Permissions;