TAO/tests/Any/Recursive/Test.idl

   1
   2 #include "tao/OctetSeq.pidl"
   3 #include "tao/StringSeq.pidl"
   4
   5 /// Put the interfaces in a module, to avoid global namespace pollution
   6 module Test
   7 {
   8   exception Recursive_Type_In_Any_Test_Failed {};
   9   exception Demarshaling_From_Any_Failed {};
  10
  11   struct RecursiveStruct;
  12   typedef sequence<RecursiveStruct> RecursiveStructSeq;
  13
  14   struct RecursiveStruct
  15   {
  16     RecursiveStructSeq recursive_structs;
  17     long i;
  18     RecursiveStructSeq recursive_structs_second;
  19   };
  20
  21   struct NestedRecursiveStruct;
  22   typedef sequence<NestedRecursiveStruct> NestedRecursiveStructSeq;
  23
  24   struct NestedRecursiveStruct
  25   {
  26     struct InnerStruct
  27     {
  28       NestedRecursiveStructSeq recursive_structs;
  29     }    ins;
  30     long i;
  31   };
  32
  33   // --------------------------
  34
  35   union RecursiveUnion;
  36   typedef sequence<RecursiveUnion> RecursiveUnionSeq;
  37
  38   union RecursiveUnion switch (short)
  39   {
  40   case 0:
  41     RecursiveUnionSeq recursive_unions;
  42   case 1:
  43     short a;
  44   case 2:
  45     RecursiveUnionSeq recursive_unions_second;
  46   default:
  47     long i;
  48   };
  49
  50   union RecursiveUnion2;
  51   typedef sequence<RecursiveUnion2> RecursiveUnionSeq2;
  52
  53   union RecursiveUnion2 switch (short)
  54   {
  55   case 0:
  56     struct Innerstruct3a
  57     {
  58       RecursiveUnionSeq2 recursive_unions;
  59     } insb;
  60   case 1:
  61     short a;
  62   case 2:
  63     struct Innerstruct3b
  64     {
  65       RecursiveUnionSeq2 recursive_unions_second;
  66     } insa;
  67   default:
  68     long i;
  69   };
  70
  71   struct RecursiveStruct3;
  72   typedef sequence<RecursiveStruct3> RecursiveStructSeq3;
  73
  74   union RecursiveUnion3 switch(short)
  75   {
  76           case 0: short a;
  77           case 1: RecursiveStructSeq3 b;
  78           case 2: RecursiveStructSeq3 c;
  79   };
  80   struct RecursiveStruct3
  81   {
  82           RecursiveUnion3 uni;
  83   };
  84
  85   union RecursiveUnionNoDefault;
  86   typedef sequence<RecursiveUnionNoDefault> RecursiveUnionSeqNoDefault;
  87
  88   union RecursiveUnionNoDefault switch (short)
  89   {
  90   case 0:
  91     RecursiveUnionSeqNoDefault recursive_unions;
  92   case 1:
  93     short a;
  94   case 2:
  95     RecursiveUnionSeqNoDefault recursive_unions_second;
  96   };
  97
  98   // --------------------------
  99
 100   // --------------------------
 101
 102   enum VSort {
 103     UNKNOWN_TYPE,
 104     RECURSIVE_TYPE,
 105     LONG_STYPE,
 106     BOOL_STYPE
 107   };
 108
 109   union VSortRecursiveUnion;
 110   typedef sequence<VSortRecursiveUnion> VSortRecursiveUnionSeq;
 111   union VSortRecursiveUnion switch (VSort)
 112   {
 113   case RECURSIVE_TYPE:
 114     VSortRecursiveUnionSeq recursive_unions;
 115   case LONG_STYPE:
 116     long i;
 117   };
 118
 119   // --------------------------
 120
 121   union EnumUnion switch (VSort)
 122   {
 123   case BOOL_STYPE:
 124     boolean a;
 125   case LONG_STYPE:
 126     long i;
 127   };
 128
 129   // --------------------------
 130
 131   valuetype IndirectlyRecursiveValuetype;
 132   typedef sequence<IndirectlyRecursiveValuetype>
 133     IndirectlyRecursiveValuetypeSeq;
 134
 135   valuetype IndirectlyRecursiveValuetype
 136   {
 137     public IndirectlyRecursiveValuetypeSeq recursive_valuetypes;
 138   };
 139
 140   // --------------------------
 141
 142   valuetype DirectlyRecursiveValuetype
 143   {
 144     public DirectlyRecursiveValuetype recursive_valuetype;
 145     public DirectlyRecursiveValuetype recursive_valuetype_second;
 146   };
 147
 148   // --------------------------
 149
 150   enum PositionEnum { unknownpos };
 151
 152   struct Position {
 153     PositionEnum type;
 154   };
 155   typedef CORBA::OctetSeq OctetSeq;
 156
 157   enum ValueSort {
 158     POSITION_TYPE,
 159     OCTET_SEQ_TYPE
 160   };
 161
 162   union NonRecursiveUnionWithEnum switch (ValueSort) {
 163   case POSITION_TYPE:
 164     Position position_val;
 165   case OCTET_SEQ_TYPE:
 166     OctetSeq octet_seq_val;
 167   };
 168
 169   // --------------------------
 170
 171   enum ValueSort2 {
 172     SYMBOL_TYPE2
 173   };
 174
 175   struct Symbol2 {
 176     string name;
 177   };
 178
 179   union NonRecursiveUnionWithStringStruct switch (ValueSort2) {
 180   case SYMBOL_TYPE2:
 181     Symbol2 symbol_val;
 182   };
 183
 184   /// Simple test interface.
 185   interface Hello
 186   {
 187     /// Return the any provided as the "in" argument.
 188     any get_any (in any the_any);
 189
 190     /// Shutdown the server ORB.
 191     oneway void shutdown ();
 192   };
 193
 194   valuetype Recursive2;
 195   typedef sequence<Recursive2> Recursive2Seq2;
 196
 197   valuetype Recursive2
 198   {
 199     public struct Innerstruct3a
 200     {
 201       Recursive2Seq2 recursive_unions;
 202     } insa;
 203     public short a;
 204     public struct Innerstruct3b
 205     {
 206       Recursive2Seq2 recursive_second;
 207     } insb;
 208   };
 209
 210   valuetype Recursive3;
 211   typedef sequence<Recursive3> RecursiveSeq3;
 212
 213   valuetype Recursive3
 214   {
 215     public RecursiveSeq3 seq1;
 216     public short a;
 217     public RecursiveSeq3 seq2;
 218   };
 219 };