TAO/tests/OBV/ValueBox/vb_basic.idl

   1 //=========================================================================
   2 // Valuebox of basic types
   3 //=========================================================================
   4
   5 // Valuebox of all basic types defined at outermost scope:
   6
   7 enum Color { red, orange, yellow, green, blue, indigo, violet };
   8
   9 valuetype VBshort      short;
  10 valuetype VBlong       long;
  11 valuetype VBlonglong   long long;
  12 valuetype VBushort     unsigned short;
  13 valuetype VBulong      unsigned long;
  14 valuetype VBulonglong  unsigned long long;
  15 valuetype VBchar       char;
  16 valuetype VBwchar      wchar;
  17 valuetype VBboolean    boolean;
  18 valuetype VBoctet      octet;
  19 valuetype VBfloat      float;
  20 valuetype VBdouble     double;
  21 valuetype VBlongdouble long double;
  22 valuetype VBenum       Color;
  23
  24 // Typedefs of basic types
  25 typedef short              TDshort;
  26 typedef long               TDlong;
  27 typedef long long          TDlonglong;
  28 typedef unsigned short     TDushort;
  29 typedef unsigned long      TDulong;
  30 typedef unsigned long long TDulonglong;
  31 typedef char               TDchar;
  32 typedef wchar              TDwchar;
  33 typedef boolean            TDboolean;
  34 typedef octet              TDoctet;
  35 typedef float              TDfloat;
  36 typedef double             TDdouble;
  37 typedef long double        TDlongdouble;
  38 typedef Color              TDenum;
  39
  40 // Value box of typedef of basic types
  41 valuetype VBTDshort      TDshort;
  42 valuetype VBTDlong       TDlong;
  43 valuetype VBTDlonglong   TDlonglong;
  44 valuetype VBTDushort     TDushort;
  45 valuetype VBTDulong      TDulong;
  46 valuetype VBTDulonglong  TDulonglong;
  47 valuetype VBTDchar       TDchar;
  48 valuetype VBTDwchar      TDwchar;
  49 valuetype VBTDboolean    TDboolean;
  50 valuetype VBTDoctet      TDoctet;
  51 valuetype VBTDfloat      TDfloat;
  52 valuetype VBTDdouble     TDdouble;
  53 valuetype VBTDlongdouble TDlongdouble;
  54 valuetype VBTDenum       TDenum;
  55
  56 // Any and typedef of any
  57 valuetype VBany  any;
  58 typedef any TDany;
  59 valuetype VBTDany TDany;
  60
  61 module vb_basic
  62 {
  63     // Valuebox defined within a module scope
  64     valuetype M_VBlong long;
  65
  66     interface Test
  67     {
  68         M_VBlong basic_op1(in M_VBlong  p1, inout M_VBlong  p2,
  69                            out M_VBlong  p3);
  70     };
  71 };
  72
  73 // Valuebox of an interface
  74 valuetype VBinterface    vb_basic::Test;