------------------------------------------------------------------------
-- 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,
     POSIX_Process_Identification;
package POSIX_Group_Database is

    type Group_Database_Item is private;

    type Group_ID_List is private;

    -- operations to get information from a Group_Database_Item

    function Group_Name_Of (DB_Item : Group_Database_Item)
        return POSIX.POSIX_String;

    function Group_ID_Of (DB_Item : Group_Database_Item)
        return POSIX_Process_Identification.Group_ID;

    function Group_ID_List_Of (DB_Item : Group_Database_Item)
        return Group_ID_List;

    -- iterator over the Group_ID_List

    generic
        with procedure Action
                     (ID   : in     POSIX.POSIX_String;
		      Quit : in out Boolean);
    procedure For_Every_Member (List: in     Group_ID_List);

    function Length (Member_List : Group_ID_List)
        return Natural;

    -- operations to get a Group_Database_Item
    function Get_Group_Database_Item
            (GID : POSIX_Process_Identification.Group_ID)
        return Group_Database_Item;

    function Get_Group_Database_Item (Name : POSIX.POSIX_String)
        return Group_Database_Item;

private
    type Group_Database_Item is @p<implementation defined>;
    type Group_ID_List is @p<implementation defined>;
end POSIX_Group_Database;