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
|
//
// $Id$
//
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// typedef_cs.cpp
//
// = DESCRIPTION
// Visitor generating code for Typedef in the client stubs
//
// = AUTHOR
// Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
#include "be_visitor_typedef.h"
ACE_RCSID(be_visitor_typedef, typedef_cs, "$Id$")
// ******************************************************
// Typedef visitor for client stubs
// ******************************************************
be_visitor_typedef_cs::be_visitor_typedef_cs (be_visitor_context *ctx)
: be_visitor_typedef (ctx)
{
}
be_visitor_typedef_cs::~be_visitor_typedef_cs (void)
{
}
int
be_visitor_typedef_cs::visit_typedef (be_typedef *node)
{
// In general, we may have a chain of typedefs. i.e.,
// typedef sequence<long> X;
// typedef X Y;
// typedef Y Z; and so on
// The first time we will be in will be for node Z for which the code
// generation has to take place. However, it is not enough to just generate
// code that looks like -
// typedef Y Z;
// For different types (in this case we have a sequence), we will need
// typedefs for the _var and _out types for Z. If it had been an array, we
// will additionally have the _forany type as well as inlined *_alloc
// methods.
//
// Finally, we need to differentiate between the case where we were
// generating code for
// typedef sequence<long> X; and
// typedef Y Z; where Y was somehow aliased to the sequence. In the former
// case, we will need to generate all the code for sequence<long> or whatever
// the type maybe. In the latter, we just need typedefs for the type and all
// associated _var, _out, and other types.
be_type *bt; // base type
if (this->ctx_->tdef ())
{
// the fact that we are here indicates that we were generating code for a
// typedef node whose base type also happens to be another typedef-ed
// (i.e. an alias) node for another (possibly alias) node
this->ctx_->alias (node); // save this alias
// grab the most primitive base type in the chain to avoid recusrsively
// going thru this visit method
bt = node->primitive_base_type ();
if (!bt)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_typedef_ch::"
"visit_typedef - "
"bad primitive base type\n"
), -1);
}
// accept on this base type
if (bt->accept (this) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_typedef_ch::"
"visit_typedef - "
"failed to accept visitor\n"
), -1);
}
this->ctx_->alias (0);
}
else
{
// the context has not stored any "tdef" node. So we must be in here for
// the first time
this->ctx_->tdef (node); // save the typedef node
// grab the immediate base type node
bt = be_type::narrow_from_decl (node->base_type ());
if (!bt)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_typedef_ch::"
"visit_typedef - "
"bad base type\n"
), -1);
}
// accept on this base type
if (bt->accept (this) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_typedef_ch::"
"visit_typedef - "
"failed to accept visitor\n"
), -1);
}
if (!node->imported ())
{
// 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_DEFN);
visitor = tao_cg->make_visitor (&ctx);
if (!visitor || (node->accept (visitor) == -1))
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_typedef_cs::"
"visit_typedef - "
"TypeCode definition failed\n"
), -1);
}
}
this->ctx_->tdef (0);
}
return 0;
}
|
