blob: fa2e4cb16074c3dbf840ba3a4dd289d47bc38d80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
// $Id$
// ============================================================================
//
// = LIBRARY
// TAO/tests/IDL_Test
//
// = FILENAME
// union.idl
//
// = DESCRIPTION
// This file contains examples of IDL code that has
// caused problems in the past for the TAO IDL
// compiler. This test is to make sure the problems
// stay fixed.
//
// = AUTHORS
// Jeff Parsons <parsons@cs.wustl.edu> and TAO users.
//
// ============================================================================
// Implicit default case
enum DataType
{
dtEmpty,
dtLong,
dtShort
};
union Data switch (DataType)
{
case dtLong: long longData;
case dtShort: short shortData;
// by default, empty union
};
// Explicit default case
module Necessary
{
// It is important to have a module, in which
// the following union is declared.
typedef long Result;
enum Kind
{
e_Result,
e_Unused
};
union WhichResult switch (Kind )
{
case e_Result: Result m_Result;
default: long m_Unused;
};
};
// Make sure that CORBA_Any::to_* is used everywhere.
module UnionDiscTest
{
union BooleanUnion switch (boolean)
{
case TRUE: string value;
};
union CharUnion switch (char)
{
case 'a': string value;
};
union WCharUnion switch (wchar)
{
case 23: string value;
};
};
// Nested unions
enum disc1
{
one,
two
};
enum disc2
{
a,
b
};
enum disc_outer
{
out1,
out2
};
union inner1 switch (disc1)
{
case one: short s;
case two: long l;
};
union inner2 switch (disc2)
{
case a: char c;
case b: long lng;
};
union outer switch (disc_outer)
{
case out1: inner1 first;
case out2: inner2 second;
};
module UnionTest3
{
enum ValChoice
{
intVal,
realVal
};
union ValType switch(ValChoice)
{
case intVal: long integerValue;
case realVal: double realValue;
};
struct UpType
{
ValType high;
ValType low;
};
struct DownType
{
ValType high;
ValType low;
};
enum IndChoice
{
up_Level,
down_Level
};
union IndType switch(IndChoice)
{
case up_Level: UpType up;
case down_Level: DownType down;
};
};
|
