TAO/tests/IDL_Test/old_union2.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    old_union2.idl
   5  *
   6  *  Further tests of union IDL constructs
   7  *
   8  *
   9  *  @author Andy Gokhale <gokhale@dre.vanderbilt.edu>
  10  */
  11 //=============================================================================
  12
  13
  14 module OldUnion2
  15 {
  16   enum FooDisc
  17   {
  18     FOO1,
  19     FOO2
  20   };
  21
  22   union Foo switch (FooDisc)
  23   {
  24     case FOO1: long x;
  25     case FOO2: string y;
  26   };
  27
  28   struct Bar
  29   {
  30     enum BarDisc
  31     {
  32       BAR1,
  33       BAR2
  34     } kind;
  35
  36     union Foo switch (BarDisc)
  37     {
  38       case BAR1: long x;
  39       case BAR2: long y;
  40     } addr;
  41   };
  42 };