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
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
//
// $Id$
//
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// interface_ch.cpp
//
// = DESCRIPTION
// Visitor generating code for Interfaces in the client header
//
// = AUTHOR
// Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
#include "be_visitor_interface.h"
ACE_RCSID(be_visitor_interface, interface_ch, "$Id$")
// ******************************************************
// Interface visitor for client header
// ******************************************************
be_visitor_interface_ch::be_visitor_interface_ch (be_visitor_context *ctx)
: be_visitor_interface (ctx)
{
}
be_visitor_interface_ch::~be_visitor_interface_ch (void)
{
}
int
be_visitor_interface_ch::visit_interface (be_interface *node)
{
TAO_OutStream *os; // output stream
long i; // loop index
if (!node->cli_hdr_gen () && !node->imported ()) // not already generated and
// not imported
{
os = this->ctx_->stream ();
// == STEP 1: generate the class name and class names we inherit ==
// generate the ifdefined macro for the _ptr type
os->gen_ifdef_macro (node->flatname (), "_ptr");
// the following two are required to be under the ifdef macro to avoid
// multiple declarations
os->indent (); // start with whatever indentation level we are at
// forward declaration
*os << "class " << node->local_name () << ";" << be_nl;
// generate the _ptr declaration
*os << "typedef " << node->local_name () << " *" << node->local_name ()
<< "_ptr;" << be_nl;
os->gen_endif ();
// generate the ifdefined macro for the var type
os->gen_ifdef_macro (node->flatname (), "_var");
// generate the _var declaration
if (node->gen_var_defn () == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_interface_ch::"
"visit_interface - "
"codegen for _var failed\n"), -1);
}
os->gen_endif ();
// generate the ifdef macro for the _out class
os->gen_ifdef_macro (node->flatname (), "_out");
// generate the _out declaration - ORBOS/97-05-15 pg 16-20 spec
if (node->gen_out_defn () == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_interface_ch::"
"visit_interface - "
"codegen for _out failed\n"), -1);
}
// generate the endif macro
os->gen_endif ();
// now the interface definition itself
os->gen_ifdef_macro (node->flatname ());
// now generate the class definition
os->indent ();
*os << "class " << idl_global->export_macro ()
<< " " << node->local_name ();
if (node->n_inherits () > 0) // node interface inherits from other
// interfaces
{
*os << ": ";
for (i = 0; i < node->n_inherits (); i++)
{
be_interface *inherited =
be_interface::narrow_from_decl (node->inherits ()[i]);
be_decl *scope = 0;
if (inherited->is_nested ())
{
// inherited node is used in the scope of "node" node
scope = be_scope::narrow_from_scope (node->defined_in ())
->decl ();
}
*os << "public virtual ";
*os << inherited->nested_type_name (scope); // dump the scoped name
if (i < node->n_inherits () - 1) // node is the case of multiple
// inheritance, so put a comma
{
*os << ", ";
}
} // end of for loop
*os << be_nl;
}
else
{
// we do not inherit from anybody, hence we do so from the base
// CORBA::Object class
// Generate code that uses the macro. This is required to deal with
// the MSVC++ insanity
*os << " : public virtual ACE_CORBA_1 (Object)" << be_nl;
}
// generate the body
*os << "{" << be_nl
<< "public:" << be_nl
// generate the _ptr_type and _var_type typedefs
// but we must protect against certain versions of g++
<< "#if !defined(__GNUC__) || __GNUC__ > 2 || __GNUC_MINOR__ >= 8"
<< be_idt_nl
<< "typedef " << node->local_name () << "_ptr _ptr_type;" << be_nl
<< "typedef " << node->local_name () << "_var _var_type;" << be_uidt_nl
<< "#endif /* __GNUC__ */\n" << be_idt_nl
// generate the static _duplicate, _narrow, and _nil operations
<< "// the static operations" << be_nl
<< "static " << node->local_name () << "_ptr " << "_duplicate ("
<< node->local_name () << "_ptr obj);" << be_nl
<< "static " << node->local_name () << "_ptr "
<< "_narrow (" << be_idt << be_idt_nl
<< "CORBA::Object_ptr obj," << be_nl
<< "CORBA::Environment &env = " << be_idt_nl
<< "CORBA::Environment::default_environment ()"
<< be_uidt << be_uidt_nl
<< ");" << be_uidt_nl
<< "static " << node->local_name () << "_ptr " << "_nil (void);\n\n";
// generate code for the interface definition by traversing thru the
// elements of its scope. We depend on the front-end to have made sure
// that only legal syntactic elements appear in our scope.
if (this->visit_scope (node) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_interface_ch::"
"visit_interface - "
"codegen for scope failed\n"), -1);
}
// the _is_a method
os->indent ();
*os << "virtual CORBA::Boolean _is_a (" << be_idt << be_idt_nl
<< "const CORBA::Char *type_id, " << be_nl
<< "CORBA::Environment &env = " << be_idt_nl
<< "CORBA::Environment::default_environment ()"
<< be_uidt << be_uidt_nl
<< ");" << be_uidt_nl
<< "virtual const char* "
<< "_interface_repository_id (void) const;" << be_uidt_nl;
// generate the "protected" constructor so that users cannot instantiate
// us
*os << "protected:" << be_idt_nl
<< node->local_name () << " (void); // default constructor" << be_nl
<< node->local_name ()
<< " (STUB_Object *objref, " << be_idt << be_idt_nl
<< "TAO_ServantBase *_tao_servant = 0, " << be_nl
<< "CORBA::Boolean _tao_collocated = 0" << be_uidt_nl
<< ");" << be_uidt_nl
<< "virtual ~" << node->local_name () << " (void);" << be_uidt_nl;
// private copy constructor and assignment operator. These are not
// allowed, hence they are private.
*os << "private:\n";
os->incr_indent ();
*os << node->local_name () << " (const " << node->local_name () << " &);"
<< be_nl
<< "void operator= (const " << node->local_name () << " &);\n";
os->decr_indent ();
*os << "};\n\n";
os->gen_endif ();
// by using a visitor to declare and define the TypeCode, we have the
// added advantage to conditionally not generate any code. This will be
// based on the command line options. This is still TO-DO
be_visitor *visitor;
be_visitor_context ctx (*this->ctx_);
ctx.state (TAO_CodeGen::TAO_TYPECODE_DECL);
visitor = tao_cg->make_visitor (&ctx);
if (!visitor || (node->accept (visitor) == -1))
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_interface_ch::"
"visit_interface - "
"TypeCode declaration failed\n"
), -1);
}
node->cli_hdr_gen (I_TRUE);
} // if !cli_hdr_gen
return 0;
}
|
