Specification of package Corba.Intern

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2003, 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 ;
with Corba.Iop ;
with Corba.Impl ;
with Corba.AbstractBase ;

package Corba.Intern is
   type Request_Info is
   record
      Id        : Corba.Iop.Request_Id := 0 ;
      Size      : Corba_Ios.Stream_Element_Count := 0 ;
      Operation : Corba.Iop.String_Constant ;
      Response  : Boolean := True ;
      Wide      : Boolean := False ;  is there wide chars in request
      Mode      : Corba.Iop.Reception_Mode := Corba.Iop.Sync_Mode ;
      Handler   : Corba.AbstractBase.Ref ;
      Poller    : Corba.Impl.Object_Ptr ;
      Time_Out  : Unsigned_Long_Long := U_Zero ;
      Num_Pols  : Corba_Ios.Stream_Element_Count := 0 ;
      Policy    : Corba.Iop.Policy_Info ;
   end record ;

   Null_Request_Info : constant Request_Info :=
      ( Id        => 0,
        Size      => 0,
        Operation => null,
        Response  => True,
        Wide      => False,
        Mode      => Corba.Iop.Sync_Mode,
        Handler   => Corba.AbstractBase.Null_Ref,
        Poller    => null,
        Time_Out  => Corba.U_Zero,
        Num_Pols  => 0,
        Policy    => Corba.Iop.Null_Policy_Info ) ;

   type Reply_Info is
   record
      Id        : Corba.Iop.Request_Id := 0 ;
      Size      : Corba_Ios.Stream_Element_Count := 0 ;
      Status    : Corba.Iop.Reply_Status_Type := Corba.Iop.No_Exception ;
      Wide      : Boolean := False ;  is there wide chars in reply
   end record ;

   Null_Reply_Info : constant Reply_Info :=
      ( Id        => 0,
        Size      => 0,
        Status    => Corba.Iop.No_Exception,
        Wide      => False ) ;

   type Pending_Reply_Record ;
   type Pending_Reply is access all Pending_Reply_Record ;
   type Pending_Reply_Record is
   record
      Next     : Pending_Reply ;
      Id       : Corba.Iop.Request_Id := 0 ;
      Ready    : Boolean := False ;
      Canceled : Boolean := False ;
      Data     : Corba_Ios.Controlled_Stream ;
      Request  : Request_Info ;
   end record ;

   procedure Set_Poller ( Request : in out Request_Info ;
                          Poller  : in Corba.AbstractBase.Ref'class) ;

end Corba.Intern ;

List of definition uses