blob: 15dc7954f157ecaa36147855c8401892650436a0 (
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
|
//
// $Id$
//
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// valuetype_obv_cs.cpp
//
// = DESCRIPTION
// Visitor generating code for Valuetypes
// OBV_ class implementation
// (see C++ mapping OMG 20.17)
//
// = AUTHOR
// Torsten Kuepper <kuepper2@lfa.uni-wuppertal.de>,
// derived from interface_ch.cpp from Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
#include "be_visitor_valuetype.h"
ACE_RCSID(be_visitor_valuetype_obv_cs, valuetype_obv_cs, "$Id$")
// ******************************************************
// Valuetype visitor for OBV_ class implementation
// ******************************************************
be_visitor_valuetype_obv_cs::be_visitor_valuetype_obv_cs (be_visitor_context *ctx)
: be_visitor_scope (ctx)
{
}
be_visitor_valuetype_obv_cs::~be_visitor_valuetype_obv_cs (void)
{
}
// OBV_ class must be in OBV_ namespace
int
be_visitor_valuetype_obv_cs::visit_valuetype (be_valuetype *node)
{
// only visit non-abstract valuetype
if (node->is_abstract_valuetype ())
return 0;
TAO_OutStream *os = this->ctx_->stream ();
// OBV_ class has no accessors or modifiers if we are optimizing
// or the valuetype is abstract.
if (!(node->opt_accessor () || node->is_abstract_valuetype () ))
{
os->indent ();
*os << "CORBA::Boolean " << be_nl
<< node->full_obv_skel_name ()
<< "::_tao_marshal__" << node->flat_name ()
<< " (TAO_OutputCDR &strm)"
<< "{" << be_idt_nl
<< "return " << node->full_obv_skel_name ()
<< "::_tao_marshal_state (strm);" << be_nl
<< be_uidt_nl << "}\n";
*os << "CORBA::Boolean "
<< node->full_obv_skel_name ()
<< "::_tao_unmarshal__" << node->flat_name ()
<< " (TAO_InputCDR &strm)"
<< "{" << be_idt_nl
<< "return " << node->full_obv_skel_name ()
<< "::_tao_unmarshal_state (strm);" << be_nl
<< be_uidt_nl << "}\n";
if (this->visit_scope (node) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_valuetype_obv_cs::"
"visit_valuetype - "
"visit_scope failed\n"
), -1);
}
}
return 0;
}
int
be_visitor_valuetype_obv_cs::visit_field (be_field *node)
{
be_visitor_context *ctx = new be_visitor_context (*this->ctx_);
be_visitor_valuetype_field_cs *visitor =
new be_visitor_valuetype_field_cs (ctx);
visitor->in_obv_space_ = 1;
// visitor->setenclosings ("ACE_INLINE ");
if (visitor->visit_field (node) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_valuetype_obv_cs::"
"visit_field - "
"visit_field failed\n"
), -1);
}
delete visitor;
return 0;
}
|