TAO/tests/IDL_Test/old_union.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    old_union.idl
   5  *
   6  *  Tests of union IDL constructs
   7  *
   8  *
   9  *  @author Andy Gokhale <gokhale@dre.vanderbilt.edu>
  10  */
  11 //=============================================================================
  12
  13
  14 module OldUnion
  15 {
  16   struct Bar
  17   {
  18     long b1;
  19     char b2;
  20   };
  21
  22   union Foo switch (long)
  23   {
  24     case 1: long x;
  25     case 2: Bar y;
  26     default: char z;
  27   };
  28
  29
  30   union Foo2 switch (char)
  31   {
  32     case 'a': long x;
  33     case 'b': Foo y;
  34   };
  35
  36   interface a
  37   {
  38     struct astruct
  39     {
  40       Foo2 a1;
  41       Foo  a2;
  42       Bar  a3;
  43     };
  44
  45     Foo2 opA (in astruct b);
  46   };
  47 };
  48