Specification of package Corba.Request

 ========================================================================= --
 ===                                                                   === --
 ===                 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.Iop ;
with Corba.Nvlist ;
with Corba.Context ;
package Corba.Request is
    type Object is private;
    I Status add_arg ( 
    I     in Identifier   name,            // argument name
    I     in TypeCode     arg_type,        // argument datatype
    I     in void         *value,          // argument value to be added
    I     in long         len,             // length/count of argument value
    I     in Flags        arg_flags        // argument flags
    I     );
    procedure Add_Arg ( Self : in out Object;
                        Arg : in Namedvalue;
                        Result : out Status);
    I Status invoke ( 
    I     in Flags  invoke_flags   // invocation flags
    I     );
    procedure Invoke ( Self : in out Object;
                       Invoke_Flags : in Flags;
                       Result : out Status);
    I Status delete ( );
    procedure Delete (Self : in out Object; Result : out Status);
    I Status send ( 
    I     in Flags                 invoke_flags    // invocation flags
    I     );
    procedure Send ( Self : in out Object;
                     Invoke_Flags : in Flags;
                     Result : out Status);
    I Status get_response ( 
    I     in Flags                 response_flags  // response flags
    I     );
    procedure Get_Response ( Self : in out Object;
                             Response_Flags : in Flags;
                             Result : out Status);
    I };
   type Request_Exception_Members is new Corba.Idl_Exception_Members with
   record
      Info : Any;
   end record;

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

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

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

   Request_Exception : exception;
private
   type Object is
   record
      Orb       : Corba.Orb_Identity ;
      Id        : Corba.Iop.Request_Id ;
      Expected  : Corba.Boolean ;
      Key       : Corba_Ios.Controlled_Stream ;
      Operation : Corba.Identifier;
      Context   : Corba.Context.Object ;
      Args      : Corba.Nvlist.Object ;
      Req_Flags : Corba.Flags ;
      Result    : Corba.Access_Namedvalue ;
   end record ;
end Corba.Request;