Specification of package Corba.Server_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 Ada.Exceptions ;
with Corba.Context ;
with Corba.Nvlist ;
with Corba_Ios ;
with Corba.Iop ;
with Corba.Object ;
package Corba.Server_Request is
   type Object is private ;

   function Op_Name (Self : in Object) return Identifier ;

    Params must correspond to the operation
    (i.e. as prepared by Corba.Orb.Create_Operation_List)
   procedure Get_Params ( Self   : in Object ;
                          Params : in out Corba.Nvlist.Object ;
                          Ctx    : out Corba.Context.Object) ;

   procedure Set_Params ( Self   : in out Object ;
                          Params : in Corba.Nvlist.Object) ;

   procedure Set_Result ( Self   : in out Object ;
                          Result : in Any ) ;

   procedure Set_Exception ( Self   : in out Object ;
                             Id     : in Ada.Exceptions.Exception_Occurrence) ;

   procedure Send_Reply (Self : in Object) ;

   TGX: for use by the Object Adapter only
   procedure Create ( Self    : in out Object ;
                      Orb     : in Corba.Orb_Identity ;
                      Object  : in Corba.Object.Ref'class ;
                      Request : in Corba.Iop.Request_Header ;
                      Stream  : access Corba_Ios.Iop_Stream_Type ) ;
private
   type Object is
   record
      Orb        : Corba.Orb_Identity ;
      Request    : Corba.Iop.Request_Id ;
      Op_Name    : Identifier ;
      Index      : Corba_Ios.Stream_Element_Count ;
      Params_In  : Corba_Ios.Controlled_Stream ;
      Params_Out : Corba_Ios.Controlled_Stream ;
      Result     : Any ;
      Except     : Any ;
      Need_Rep   : Boolean ;
   end record ;
end Corba.Server_Request ;