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
|
//=============================================================================
/**
* @file cdr_op_cs.cpp
*
* Concrete visitor for valuetypes.
* This one provides code generation for the CDR operators.
*
* @author Boris Kolpackov <bosk@ipmce.ru> based on code from Torsten Kuepper <kuepper2@lfa.uni-wuppertal.de> based on code from Aniruddha Gokhale
*/
//=============================================================================
#include "valuetype.h"
be_visitor_valuetype_cdr_op_cs::be_visitor_valuetype_cdr_op_cs (
be_visitor_context *ctx
)
: be_visitor_valuetype (ctx)
{
}
be_visitor_valuetype_cdr_op_cs::~be_visitor_valuetype_cdr_op_cs ()
{
}
int
be_visitor_valuetype_cdr_op_cs::visit_valuetype (be_valuetype *node)
{
// Already generated and/or we are imported. Don't do anything.
if (node->cli_stub_cdr_op_gen ()
|| node->imported ()
|| ! node->is_defined ())
{
return 0;
}
// Generate helper functions implementation.
if (node->gen_helper_stubs () == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_valuetype_cdr_op_cs::"
"visit_valuetype - "
"codegen for helper functions failed\n"),
-1);
}
TAO_OutStream *os = this->ctx_->stream ();
node->cli_stub_cdr_op_gen (true);
if (this->visit_scope (node) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_valuetype_cdr_op_ci"
"::visit_valuetype - "
"codegen for scope failed\n"),
-1);
}
*os << be_nl_2 << "// TAO_IDL - Generated from" << be_nl
<< "// " << __FILE__ << ":" << __LINE__ << be_nl_2;
*os << be_global->core_versioning_begin () << be_nl;
// Set the sub state as generating code for the output operator.
this->ctx_->sub_state(TAO_CodeGen::TAO_CDR_OUTPUT);
*os << "::CORBA::Boolean" << be_nl
<< "operator<< (" << be_idt << be_idt_nl
<< "TAO_OutputCDR &strm," << be_nl
<< "const " << node->full_name ()
<< " *_tao_valuetype)" << be_uidt
<< be_uidt_nl
<< "{" << be_idt_nl;
*os << "return" << be_idt_nl
<< "::CORBA::ValueBase::_tao_marshal (" << be_idt << be_idt_nl
<< "strm," << be_nl
<< "_tao_valuetype," << be_nl
<< "reinterpret_cast<ptrdiff_t> (&"
<< node->full_name () << "::_downcast));"
<< be_uidt
<< be_uidt << be_uidt << be_uidt_nl
<< "}" << be_nl_2;
*os << "::CORBA::Boolean" << be_nl
<< "operator>> (" << be_idt << be_idt_nl
<< "TAO_InputCDR &strm," << be_nl
<< node->full_name ()
<< " *&_tao_valuetype)" << be_uidt
<< be_uidt_nl
<< "{" << be_idt_nl;
*os << "return " << node->full_name ()
<< "::_tao_unmarshal (strm, _tao_valuetype);"
<< be_uidt_nl
<< "}" << be_nl_2;
if (be_global->gen_ostream_operators ())
{
node->gen_ostream_operator (os, false);
}
*os << be_global->core_versioning_end () << be_nl;
if (!node->is_abstract ())
{
// Functions that marshal state.
be_visitor_context new_ctx (*this->ctx_);
be_visitor_valuetype_marshal_cs visitor (&new_ctx);
visitor.visit_valuetype (node);
}
return 0;
}
int
be_visitor_valuetype_cdr_op_cs::visit_eventtype (be_eventtype *node)
{
return this->visit_valuetype (node);
}
// @@@ (JP) The following three methods are a hack to get CDR
// operators generated for anonymous array and sequence
// valuetype members. This should be done like it is in structs,
// but part of that mechanism is used by valuetypes for
// generating code to marshal the state. Someday this should
// be untangled and made consistent.
int
be_visitor_valuetype_cdr_op_cs::visit_field (be_field *node)
{
be_type *bt = dynamic_cast<be_type*> (node->field_type ());
if (bt == nullptr)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_field_cdr_op_ci::"
"visit_field - "
"Bad field type\n"),
-1);
}
// Save the node.
this->ctx_->node (node);
if (bt->accept (this) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_valuetype_cdr_op_ci::"
"visit_field - "
"codegen for field type failed\n"),
-1);
}
return 0;
}
int
be_visitor_valuetype_cdr_op_cs::visit_sequence (be_sequence *node)
{
be_visitor_context ctx (*this->ctx_);
be_visitor_sequence_cdr_op_cs visitor (&ctx);
return node->accept (&visitor);
}
|
