TAO/tests/Bug_3919_Regression/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   enum MyAttRefValEnum {
  12     ArvAttribute,
  13     ArvInteger,
  14     ArvComposition
  15   };
  16
  17   // NOTE: the (deprecated) anonymous sequence type in the union
  18   //       is intentional; the IDL compiler generated different
  19   //       code for this case as compared to using a proper
  20   //       forward and typedef.
  21   struct MyAttRef {
  22     string attRefName;
  23     string attRefQualifier;
  24     union MyAttRefValue switch(MyAttRefValEnum) {
  25       case ArvAttribute:    string attrValue; //value of a simple attribute
  26       case ArvInteger:      long intValue; // just for testing
  27       case ArvComposition:  sequence <MyAttRef> compValue; //a composition by specifying a sequence of MyAttRef elements.
  28     } attRefValue;
  29   };
  30   typedef sequence <MyAttRef> MyAttRefSequence;
  31
  32   /// Simple test interface.
  33   interface Hello
  34   {
  35     /// Return the any provided as the "in" argument.
  36     any get_any (in any the_any);
  37
  38     /// Shutdown the server ORB.
  39     oneway void shutdown ();
  40   };
  41 };