Specification of package Corba.Principal

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 1996, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --


with Corba_Ios ;
package Corba.Principal is
   type Object is private;
   type User_Id is new Corba.Unsigned_Long ;
   type Group_Id is new Corba.Unsigned_Long ;
    implementations may add operations
   function Get_Principal return Object ;

   function Get_Principal return Corba_Ios.Controlled_Stream ;

   function User (Self : in Object) return User_Id ;

   function Group (Self : in Object) return Group_Id ;

   function Host_Name (Self : in Object) return Corba.String ;

   function To_Octets (Self : in Object) return Corba_Ios.Controlled_Stream ;

   function To_Object (Octets : in Corba_Ios.Controlled_Stream) return Object ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : out Object ) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in Object ) ;

private
   type Object is
   record
      User  : User_Id ;
      Group : Group_Id ;
      Host  : Corba.String ;
      Auth  : Corba_Ios.Controlled_Stream ;
   end record ;

end Corba.Principal;