Specification of package Corba.Mapping

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file ../orb.idl
with Corba_Ios ;
with Corba.Object ;
with Corba.Value.Box ;
with Corba.Idl_Sequence_Any ;
with Corba.Idl_Sequence_Boolean ;
with Corba.Idl_Sequence_Char ;
with Corba.Idl_Sequence_Wchar ;
with Corba.Idl_Sequence_Octet ;
with Corba.Idl_Sequence_Short ;
with Corba.Idl_Sequence_Unsigned_Short ;
with Corba.Idl_Sequence_Long ;
with Corba.Idl_Sequence_Unsigned_Long ;
with Corba.Idl_Sequence_Long_Long ;
with Corba.Idl_Sequence_Unsigned_Long_Long ;
with Corba.Idl_Sequence_Float ;
with Corba.Idl_Sequence_Double ;
with Corba.Idl_Sequence_String ;
with Corba.Idl_Sequence_Wide_String ;
package CORBA.Mapping is

   type String_Access is access all Corba.String ;
   use Corba ;
   package StringValue_Value_Box is new Corba.Value.Box (Corba.String,
      String_Access, "IDL:omg.org/CORBA/StringValue:1.0"
      , Iop_Read, Iop_Write) ; 
   type StringValue is new StringValue_Value_Box.Box_Ref with null record ;
   function Create (With_Value : in Corba.String) return StringValue ;
   function "+"
       (With_Value : in Corba.String) return StringValue renames Create ;

   type Wide_String_Access is access all Corba.Wide_String ;
   use Corba ;
   package WStringValue_Value_Box is new Corba.Value.Box (Corba.Wide_String,
      Wide_String_Access, "IDL:omg.org/CORBA/WStringValue:1.0"
      , Iop_Read, Iop_Write) ; 
   type WStringValue is new WStringValue_Value_Box.Box_Ref with null record ;
   function Create (With_Value : in Corba.Wide_String) return WStringValue ;
   function "+"
       (With_Value : in Corba.Wide_String) return WStringValue renames Create ;

   package Idl_Sequence_Any renames Corba.Idl_Sequence_Any ;

   type AnySeq is new Idl_Sequence_Any.Sequence ;
   Null_AnySeq : constant AnySeq :=
      AnySeq (Idl_Sequence_Any.Null_Sequence) ;

   package Idl_Sequence_Boolean renames Corba.Idl_Sequence_Boolean ;

   type BooleanSeq is new Idl_Sequence_Boolean.Sequence ;
   Null_BooleanSeq : constant BooleanSeq :=
      BooleanSeq (Idl_Sequence_Boolean.Null_Sequence) ;

   package Idl_Sequence_Char renames Corba.Idl_Sequence_Char ;

   type CharSeq is new Idl_Sequence_Char.Sequence ;
   Null_CharSeq : constant CharSeq :=
      CharSeq (Idl_Sequence_Char.Null_Sequence) ;

   package Idl_Sequence_Wchar renames Corba.Idl_Sequence_Wchar ;

   type WCharSeq is new Idl_Sequence_Wchar.Sequence ;
   Null_WCharSeq : constant WCharSeq :=
      WCharSeq (Idl_Sequence_Wchar.Null_Sequence) ;

   package Idl_Sequence_Octet renames Corba.Idl_Sequence_Octet ;

   type OctetSeq is new Idl_Sequence_Octet.Sequence ;
   Null_OctetSeq : constant OctetSeq :=
      OctetSeq (Idl_Sequence_Octet.Null_Sequence) ;

   package Idl_Sequence_Short renames Corba.Idl_Sequence_Short ;

   type ShortSeq is new Idl_Sequence_Short.Sequence ;
   Null_ShortSeq : constant ShortSeq :=
      ShortSeq (Idl_Sequence_Short.Null_Sequence) ;

   package Idl_Sequence_Unsigned_Short renames Corba.
      Idl_Sequence_Unsigned_Short ;

   type UShortSeq is new Idl_Sequence_Unsigned_Short.Sequence ;
   Null_UShortSeq : constant UShortSeq :=
      UShortSeq (Idl_Sequence_Unsigned_Short.Null_Sequence) ;

   package Idl_Sequence_Long renames Corba.Idl_Sequence_Long ;

   type LongSeq is new Idl_Sequence_Long.Sequence ;
   Null_LongSeq : constant LongSeq :=
      LongSeq (Idl_Sequence_Long.Null_Sequence) ;

   package Idl_Sequence_Unsigned_Long renames Corba.Idl_Sequence_Unsigned_Long ;

   type ULongSeq is new Idl_Sequence_Unsigned_Long.Sequence ;
   Null_ULongSeq : constant ULongSeq :=
      ULongSeq (Idl_Sequence_Unsigned_Long.Null_Sequence) ;

   package Idl_Sequence_Long_Long renames Corba.Idl_Sequence_Long_Long ;

   type LongLongSeq is new Idl_Sequence_Long_Long.Sequence ;
   Null_LongLongSeq : constant LongLongSeq :=
      LongLongSeq (Idl_Sequence_Long_Long.Null_Sequence) ;

   package Idl_Sequence_Unsigned_Long_Long renames Corba.
      Idl_Sequence_Unsigned_Long_Long ;

   type ULongLongSeq is new Idl_Sequence_Unsigned_Long_Long.Sequence ;
   Null_ULongLongSeq : constant ULongLongSeq :=
      ULongLongSeq (Idl_Sequence_Unsigned_Long_Long.Null_Sequence) ;

   package Idl_Sequence_Float renames Corba.Idl_Sequence_Float ;

   type FloatSeq is new Idl_Sequence_Float.Sequence ;
   Null_FloatSeq : constant FloatSeq :=
      FloatSeq (Idl_Sequence_Float.Null_Sequence) ;

   package Idl_Sequence_Double renames Corba.Idl_Sequence_Double ;

   type DoubleSeq is new Idl_Sequence_Double.Sequence ;
   Null_DoubleSeq : constant DoubleSeq :=
      DoubleSeq (Idl_Sequence_Double.Null_Sequence) ;

   package Idl_Sequence_String renames Corba.Idl_Sequence_String ;

   type StringSeq is new Idl_Sequence_String.Sequence ;
   Null_StringSeq : constant StringSeq :=
      StringSeq (Idl_Sequence_String.Null_Sequence) ;

   package Idl_Sequence_Wide_String renames Corba.Idl_Sequence_Wide_String ;

   type WStringSeq is new Idl_Sequence_Wide_String.Sequence ;
   Null_WStringSeq : constant WStringSeq :=
      WStringSeq (Idl_Sequence_Wide_String.Null_Sequence) ;

   Tgx_Service_Name : Corba.ObjectId := Corba.To_Corba_String
      ("orb") ;
end CORBA.Mapping;