TAO/tests/IDL_Test/old_constants.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    old_constants.idl
   5  *
   6  *  Tests of const IDL constructs
   7  *
   8  *
   9  *  @author Andy Gokhale <gokhale@dre.vanderbilt.edu>
  10  */
  11 //=============================================================================
  12
  13
  14 module OldConstants
  15 {
  16   const short l = 4;
  17
  18   enum N
  19   {
  20     zero,
  21     un,
  22     deux,
  23     trois
  24   };
  25
  26   exception E
  27   {
  28     short cause ;
  29   };
  30
  31   module M
  32   {
  33     const short l = 4;
  34
  35     enum N
  36     {
  37       zero,
  38       un,
  39       deux,
  40       trois
  41     };
  42
  43     exception E
  44     {
  45       short cause ;
  46     };
  47
  48     interface A
  49     {
  50       const short l = 4;
  51
  52       enum N
  53       {
  54         zero,
  55         un,
  56         deux,
  57         trois
  58       };
  59
  60       exception E
  61       {
  62         short cause ;
  63       };
  64
  65       N foo (in N x, out N y, inout N z);
  66     };
  67   };
  68 };
  69