Specification of package Messaging.Exceptionholder

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file except.idl
with Corba_Ios ;
with Corba.Value ;
with Corba.Idl_Sequence_Octet ;

pragma Elaborate_All (Corba.Value) ;
package Messaging.ExceptionHolder is

   type Value_Ref is new Corba.Value.Base with null record;


   -----------------------------
    Methods of this valuetype --
   -----------------------------

   procedure raise_exception
      ( Self : in Value_Ref) ;

   type marshaled_exception_Sequence is new Corba.Idl_Sequence_Octet
      .Sequence ;
   Null_marshaled_exception : constant marshaled_exception_Sequence :=
      marshaled_exception_Sequence (Corba.Idl_Sequence_Octet.Null_Sequence) ;

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

   Null_Value_Ref : constant Value_Ref := (Corba.Value.Base
       with null record);

   ExceptionHolder_R_Id : constant Corba.RepositoryId :=
      Corba.To_Corba_String ("IDL:Messaging/ExceptionHolder:1.0") ;
end Messaging.ExceptionHolder;

List of definition uses