TAO/orbsvcs/tests/InterfaceRepo/Bug_3495_Regression/Test.idl

   1
   2 module Test {
   3   typedef long ErrorType;
   4
   5   const ErrorType ErrorOne = 0;
   6   const ErrorType ErrorTwo = 10;
   7   const ErrorType ErrorThree = 100;
   8
   9   struct structOne
  10   {
  11     boolean first;
  12     union ErrorInfo switch (ErrorType)
  13     {
  14       case ErrorOne: string errorstring;
  15       case ErrorTwo: long errornumber;
  16     } second;
  17   };
  18
  19   struct structTwo
  20   {
  21     union ErrorInfo switch (ErrorType)
  22     {
  23       case ErrorThree: string failstring;
  24     } thisonly;
  25   };
  26
  27   exception exceptionOne
  28   {
  29     union ExceptionUnion switch (ErrorType)
  30     {
  31       case ErrorThree: string failstring;
  32     } exceptiononly;
  33   };
  34
  35   interface interfaceOne {
  36     void getstruct (out structOne tester) raises(exceptionOne);
  37   };
  38 };