TAO/tests/IDL_Test/nested_scope.idl

   1
   2 //=============================================================================
   3 /**
   4  *  @file    nested_scope.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 // Tests all the problem datatypes for repeating a scope
  18 // name after skipping one nesting level.
  19
  20 module skip
  21 {
  22   module hump
  23   {
  24     struct skip {short s;};
  25   };
  26 };
  27
  28 module u_skip
  29 {
  30   module u_hump
  31   {
  32     union u_skip switch (short)
  33     {
  34       case 0: short s;
  35     };
  36   };
  37 };
  38
  39 module e_skip
  40 {
  41   module e_hump
  42   {
  43     exception e_skip {};
  44   };
  45 };
  46
  47 module i_skip
  48 {
  49   module i_hump
  50   {
  51     interface i_skip {};
  52   };
  53 };
  54
  55 module pre_u_skip
  56 {
  57   module pre_u_hump
  58   {
  59     typedef sequence<long> pre_u_skip;
  60   };
  61 };
  62
  63 module pre_b_skip
  64 {
  65   module pre_b_hump
  66   {
  67     typedef sequence<long, 3> pre_b_skip;
  68   };
  69 };
  70
  71 module str_u_skip
  72 {
  73   module str_u_hump
  74   {
  75     typedef sequence<string> str_u_skip;
  76   };
  77 };
  78
  79 module str_b_skip
  80 {
  81   module str_b_hump
  82   {
  83     typedef sequence<string, 3> str_b_skip;
  84   };
  85 };
  86
  87 module wstr_u_skip
  88 {
  89   module wstr_u_hump
  90   {
  91     typedef sequence<wstring> wstr_u_skip;
  92   };
  93 };
  94
  95 module wstr_b_skip
  96 {
  97   module wstr_b_hump
  98   {
  99     typedef sequence<wstring, 3> wstr_b_skip;
 100   };
 101 };
 102
 103 interface bloo {};
 104
 105 module obj_u_skip
 106 {
 107   module obj_u_hump
 108   {
 109     typedef sequence<bloo> obj_u_skip;
 110   };
 111 };
 112
 113 module obj_b_skip
 114 {
 115   module obj_b_hump
 116   {
 117     typedef sequence<bloo> obj_b_skip;
 118   };
 119 };
 120
 121 module bug_1985_a
 122 {
 123   module b
 124   {
 125     interface something {};
 126   };
 127 };
 128
 129 module bug_1985_c
 130 {
 131   module d
 132   {
 133     interface something : bug_1985_a::b::something {};
 134   };
 135 };
 136
 137 // This one caused several problems - in the stub declaration of
 138 // the operation, and in the skeleton body's allocation of return type.
 139 module Negotiator
 140 {
 141   interface UAV_Negotiator {};
 142
 143   interface UAV_Negotiator_Factory : ::Negotiator::UAV_Negotiator
 144   {
 145     ::Negotiator::UAV_Negotiator make_negotiator (in string bitrate_sc);
 146   };
 147 };
 148
 149 // Caught some generation of arg helper template parameters not using
 150 // the qualifying '::' on scoped names.
 151
 152 module bug_2125
 153 {
 154   module Bar
 155   {
 156     enum Stuff {ONE, TWO};
 157   };
 158 };
 159
 160 module Wow
 161 {
 162   module bug_2125
 163   {
 164     interface MyInterface
 165     {
 166 // @@ (JP 06/04/07) I'm commenting out the line below, since
 167 // according to IDL scoping rules (CORBA 3.0.3, sections
 168 // 3.20.1 and 3.20.2), the module Wow::bug_2125 hides the
 169 // global module bug_2125 and so the lookup should fail.
 170 // Not removing the line completely in case someday we
 171 // extend IDL_Test to check for rejection of illegal IDL.
 172 //      void op1 (in bug_2125::Bar::Stuff fbs);
 173       void op2 (in ::bug_2125::Bar::Stuff fbs);
 174     };
 175   };
 176 };
 177
 178 // This will ensure that we always put the '::'
 179 // before the 'CORBA' on predefined types.
 180 module Company
 181 {
 182   module CORBA
 183   {
 184     typedef unsigned long LongU;
 185
 186     module Inner
 187     {
 188       struct Foo
 189       {
 190         boolean x;
 191       };
 192     };
 193   };
 194 };
 195