Specification of package Corba.Portableserver.Current

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997                 === --
 ==================================================== --
with Corba.Object ;
with Corba.Current ;
with Ada.Exceptions ;
with Corba.Portableserver.Poa ;
package Corba.PortableServer.Current is

   type Ref is new CORBA.Current.Ref with null record;

   NoContext : exception;
   type NoContext_Members is new Corba.Idl_Exception_Members with null record;

   NoContext_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/PortableServer/Current/NoContext:1.0") ;

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

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

   procedure Get_Members (X  : in Ada.Exceptions.Exception_Occurrence ;
                          To : out NoContext_Members) ;

   function Get_POA ( Self : in Ref) return Corba.PortableServer.POA.Ref ;

   function Get_Object_Id ( Self : in Ref) return ObjectId ;

   function Get_Servant ( Self : in Ref) return Servant ;

   function Get_Reference ( Self : in Ref) return Corba.Object.Ref ;

   procedure Get_Reference ( Self   : in Ref ;
                             Result : in out Corba.Object.Ref'class) ;

   function Get_Sender_Url ( Self : in Ref) return Corba.String ;

   Null_Ref : constant Ref := (CORBA.Current.Null_Ref with null record);

end Corba.PortableServer.Current;