blob: 2f40e9fbbf9b8e2d80fcdb069a51cd7535183d5d (
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
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
|
//
// $Id$
//
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// constant_cs.cpp
//
// = DESCRIPTION
// Visitor for code generation of Constant code in the client stubs file.
//
// = AUTHOR
// Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
#include "be_visitor_constant.h"
ACE_RCSID(be_visitor_constant, constant_cs, "$Id$")
// ********************************************************************
// Visitor implementation for the Constant type
// This one for the client stubs file
// ********************************************************************
be_visitor_constant_cs::be_visitor_constant_cs (be_visitor_context *ctx)
: be_visitor_decl (ctx)
{
}
be_visitor_constant_cs::~be_visitor_constant_cs (void)
{
}
// visit the Constant_cs node and its scope
int
be_visitor_constant_cs::visit_constant (be_constant *node)
{
TAO_OutStream *os = this->ctx_->stream ();
if (!node->cli_stub_gen () && !node->imported ())
{
if (node->is_nested ())
{
if (node->defined_in ()->scope_node_type () == AST_Decl::NT_module)
{
*os << "TAO_NAMESPACE_TYPE (const "
<< node->exprtype_to_string () << ")" << be_nl;
be_module *module = be_module::narrow_from_scope (node->defined_in ());
if (!module || (this->gen_nested_namespace_begin (module) == -1))
{
ACE_ERROR_RETURN ((LM_ERROR,
"be_visitor_constant_cs::visit_constant - "
"Error parsing nested name\n"),
-1);
}
*os << "TAO_NAMESPACE_DEFINE (const "
<< node->exprtype_to_string () << ", "
<< node->local_name () << ", "
<< node->constant_value () << ")" << be_nl;
if (this->gen_nested_namespace_end (module) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"be_visitor_constant_cs::visit_constant - "
"Error parsing nested name\n"),
-1);
}
}
else
{
// for those constants not defined in the outer most scope, they get
// assigned to their values in the impl file
os->indent (); // start from whatever indentation level we were at
*os << "const " << node->exprtype_to_string () << " "
<< node->name () << " = " << node->constant_value ()
<< ";\n\n";
}
}
node->cli_stub_gen (I_TRUE);
}
return 0;
}
// the following needs to be done to deal with the most bizarre behavior of
// MSVC++ compiler
int
be_visitor_constant_cs::gen_nested_namespace_begin (be_module *node)
{
TAO_OutStream *os = this->ctx_->stream ();
UTL_IdListActiveIterator *i;
i = new UTL_IdListActiveIterator (node->name ());
while (!(i->is_done ()))
{
if (ACE_OS::strcmp (i->item ()->get_string (), "") != 0)
{
// leave the outermost root scope
*os << "TAO_NAMESPACE_BEGIN (" << i->item ()->get_string ()
<< ")" << be_nl;
}
i->next ();
}
delete i;
return 0;
}
// the following needs to be done to deal with the most bizarre behavior of
// MSVC++ compiler
int
be_visitor_constant_cs::gen_nested_namespace_end (be_module *node)
{
TAO_OutStream *os = this->ctx_->stream ();
UTL_IdListActiveIterator *i;
i = new UTL_IdListActiveIterator (node->name ());
while (!(i->is_done ()))
{
if (ACE_OS::strcmp (i->item ()->get_string (), "") != 0)
{
// leave the outermost root scope
*os << "TAO_NAMESPACE_END" << be_nl;
}
i->next ();
}
delete i;
return 0;
}
|
