TAO/tests/Bug_2804_Regression/Test.idl

   1
   2 #include "tao/OctetSeq.pidl"
   3
   4 /// Put the interfaces in a module, to avoid global namespace pollution
   5 module Test
   6 {
   7   exception Recursive_Type_In_Any_Test_Failed {};
   8   exception Demarshaling_From_Any_Failed {};
   9
  10   enum ValueSort3 {
  11     SYMBOL_TYPE,
  12     SYMBOL_SEQ_TYPE
  13   };
  14
  15   struct Symbol;
  16   typedef sequence<Symbol> SymbolSeq;
  17
  18   struct Symbol {
  19     SymbolSeq args;
  20   };
  21
  22   union NonRecursiveUnionWithStringStruct3 switch (ValueSort3) {
  23   case SYMBOL_TYPE:
  24     Symbol symbol_val;
  25   case SYMBOL_SEQ_TYPE:
  26     SymbolSeq symbol_seq_val;
  27   };
  28
  29   /// Simple test interface.
  30   interface Hello
  31   {
  32     /// Return the any provided as the "in" argument.
  33     any get_any (in any the_any);
  34
  35     /// Shutdown the server ORB.
  36     oneway void shutdown ();
  37   };
  38 };