TAO/tests/IDL_Test/array.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    array.idl
   5  *
   6  *  This file contains examples of IDL code that has
   7  *  caused problems in the past for the TAO IDL
   8  *  compiler. This test is to make sure the problems
   9  *  stay fixed.
  10  *
  11  *
  12  *  @author Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
  13  */
  14 //=============================================================================
  15
  16
  17 // Multidimensional arrays - constant vigilance.
  18 typedef short TwoDArray[64][63];
  19
  20 typedef short ThreeDArray[64][63][62];
  21
  22 typedef short FourDArray[64][63][62][61];
  23
  24 // This problem is a combination of two others
  25 // that have long been fixed, but you never know...
  26
  27 typedef long inside_array[5];
  28
  29 struct wrap
  30   {
  31     inside_array member;
  32   };
  33
  34 typedef wrap outside_array[10];
  35 typedef octet oa1[22];
  36 typedef octet oa2[22];
  37
  38 // Test generation of Arg_Traits specialization for identical
  39 // arrays.
  40 interface array_args
  41 {
  42   void all_arrays (in oa1 arg1,
  43                    in oa2 arg2);
  44 };
  45
  46 // This should generate unique _var and _forany types, but
  47 // also generate TAO_String_Manager as the element type for both.
  48 module string_array
  49 {
  50   typedef string ArrayOfString[15];
  51   typedef string MyString;
  52   typedef MyString ArrayOfMyString[15];
  53 };
  54
  55 // Checks code generation for arrays and typedefs of arrays
  56 // when they are not declared globally or inside a module.
  57 interface testdata
  58 {
  59   typedef char Arraychar[2];
  60   typedef Arraychar ArrayDeChar;
  61
  62   struct struct2
  63   {
  64     Arraychar field_1;
  65     ArrayDeChar field_2;
  66   };
  67
  68   typedef sequence<Arraychar> ArraycharList;
  69   typedef sequence<Arraychar,10> BdArraycharList;
  70
  71   typedef sequence<ArrayDeChar> ArrayDeCharList;
  72   typedef sequence<ArrayDeChar,10> BdArrayDeCharList;
  73 };
  74
  75 // Tests for explicit conversion of slice pointer to the
  76 // corresponding forany class before using CDR or Any
  77 // operators. This is required because myvec2_slice and
  78 // myvec3_slice are the same type, so implicit conversion
  79 // from myvec2_slice (in the case below) could go to
  80 // myvec2_forany or myvec3_forany.
  81 module arraytest
  82 {
  83   typedef string myvec2[2];
  84   typedef string myvec3[3];
  85
  86   interface MyTest
  87   {
  88     void test_method (out myvec2 mystring);
  89   };
  90 };
  91
  92 // Caught the has_constructor() flag not being passed from the
  93 // element type to the array in the AST.
  94 module bug_2126
  95 {
  96   union FirstUnion switch (boolean)
  97   {
  98     case TRUE: long first_union_foo;
  99     case FALSE: long first_union_bar;
 100   };
 101
 102   typedef FirstUnion FirstUnionArray[2];
 103
 104   struct MyStruct
 105   {
 106     FirstUnionArray my_struct_foo;
 107   };
 108
 109   union SecondUnion switch (boolean)
 110   {
 111     case TRUE: MyStruct second_union_struct_member;
 112     case FALSE: long wibble;
 113   };
 114
 115   typedef FirstUnion BdFirstUnionArray[2];
 116
 117   struct BdMyStruct
 118   {
 119     BdFirstUnionArray my_struct_foo;
 120   };
 121
 122   union BdSecondUnion switch (boolean)
 123   {
 124     case TRUE: BdMyStruct second_union_struct_member;
 125     case FALSE: long wibble;
 126   };
 127 };
 128
 129 typedef long B41[2][3];
 130 typedef long B42[2];
 131 typedef long B43[4];
 132
 133 union B85 switch (long) {
 134   case 1: B42 b_85_1;
 135   case 2: B43 b_85_2;
 136   case 3: B41 b_85_3;
 137 };
 138