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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
// $Id$
#include "AnyC.h"
#include "ace/Get_Opt.h"
const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
int
parse_args (int argc, ACE_TCHAR *argv[])
{
ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
int c;
while ((c = get_opts ()) != -1)
switch (c)
{
case 'k':
ior = get_opts.optarg;
break;
case '?':
default:
ACE_ERROR_RETURN ((LM_ERROR,
"usage: %s "
"-k <ior> "
"\n",
argv [0]),
-1);
}
// Indicates successful parsing of the command line
return 0;
}
int
ACE_TMAIN(int argc, ACE_TCHAR *argv[])
{
try
{
ACE_DEBUG ((LM_DEBUG, "(%P|%t) client - test started.\n"));
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv);
if (parse_args (argc, argv) != 0)
return 1;
// Create and register factories.
OBV_AnyTest::VA_init *va_factory = 0;
ACE_NEW_RETURN (va_factory,
OBV_AnyTest::VA_init,
1); // supplied by mapping
orb->register_value_factory (va_factory->tao_repository_id (),
va_factory);
va_factory->_remove_ref (); // release ownership
OBV_AnyTest::VB_init *vb_factory = 0;
ACE_NEW_RETURN (vb_factory,
OBV_AnyTest::VB_init,
1); // supplied by mapping
orb->register_value_factory (vb_factory->tao_repository_id (),
vb_factory);
vb_factory->_remove_ref (); // release ownership
// Do local test
OBV_AnyTest::VA_var va1, va2;
ACE_NEW_RETURN (va1.inout (), OBV_OBV_AnyTest::VA, 1);
ACE_NEW_RETURN (va2.inout (), OBV_OBV_AnyTest::VA, 1);
const CORBA::ULong magic = 3145;
va1->id (magic);
va2->id (magic);
CORBA::Any a1, a2;
// Test both copying and non-copying version of operator<<=
a1 <<= va1.in ();
OBV_AnyTest::VA *pva = va2._retn();
a2 <<= &pva;
OBV_AnyTest::VA* dst = 0;
if (!(a1 >>= dst) || dst->id () != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test failed.\n"),
1);
}
if (!(a2 >>= dst) || dst->id () != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test failed.\n"),
1);
}
// It should be possible to extract to a base type
OBV_AnyTest::VB_var vb1;
ACE_NEW_RETURN (vb1.inout (), OBV_OBV_AnyTest::VB, 1);
vb1->id (magic);
a1 <<= vb1.in ();
CORBA::ValueBase_var target;
if (!(a1 >>= CORBA::Any::to_value(target.out())))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - base extraction test failed.\n"),
1);
}
dst = OBV_AnyTest::VA::_downcast(target.in());
if (dst == 0 || dst->id() != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - base extraction test failed.\n"),
1);
}
// Now do remote test
CORBA::Object_var tmp =
orb->string_to_object(ior);
OBV_AnyTest::Test_var test =
OBV_AnyTest::Test::_narrow(tmp.in ());
if (CORBA::is_nil (test.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil OBV_AnyTest::Test reference <%s>\n",
ior),
1);
}
// STEP 1.
CORBA::Any_var result = test->get_something (
0);
if (!(result.inout () >>= dst) || dst->id () != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test 1 failed.\n"),
1);
}
// STEP 2.
OBV_AnyTest::VB* dst_vb = 0;
result = test->get_something (
1);
if (!(result.inout () >>= dst_vb) || dst_vb->id () != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test 2 failed.\n"),
1);
}
// STEP 3. A sanity check demonstrating base-type pointer to
// derived type allowed.
OBV_AnyTest::VA_var dst_va = test->get_vb();
if (dst_va->id () != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test 3 failed.\n"),
1);
}
#if !defined (TAO_HAS_OPTIMIZED_VALUETYPE_MARSHALING)
// @@ There's still a problem here with the optimized valuetype
// marshaling and passing values through anys. The problem is
// that while the Any in fact contains all of the required type
// information, there is no way to share that with the
// ValueBase::_tao_unmarshal_pre() which needs the type info in
// order to select the appropriate value factory.
// STEP 4. get a VB, but extract to a VA*.
result = test->get_something (
1);
if (!(result.inout () >>= CORBA::Any::to_value(target.out())))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test 4 extraction failed.\n"),
1);
}
dst_va = OBV_AnyTest::VA::_downcast(target._retn());
if (dst_va == 0 || dst_va->id() != magic)
{
ACE_ERROR_RETURN ((LM_DEBUG,
"(%P|%t) client - test 4 failed.\n"),
1);
}
#endif /* TAO_HAS_OPTIMIZED_VALUETYPE_MARSHALING */
test->shutdown ();
orb->destroy ();
ACE_DEBUG ((LM_DEBUG, "(%P|%t) client - test finished.\n"));
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception ("Exception caught in client:");
return 1;
}
return 0;
}
|