blob: b1331e90d756afa02ed8ee60dc75a305fe7717a0 (
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
137
138
139
140
141
142
143
144
145
146
147
148
149
|
//
// $Id$
//
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// operation.cpp
//
// = DESCRIPTION
// Visitor generating code for Operation in the stubs file.
//
// = AUTHOR
// Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
#include "be_visitor_operation.h"
ACE_RCSID(be_visitor_operation, operation, "$Id$")
// ************************************************************
// Generic Operation visitor
// ************************************************************
be_visitor_operation::be_visitor_operation (be_visitor_context *ctx)
: be_visitor_scope (ctx)
{
}
be_visitor_operation::~be_visitor_operation (void)
{
}
int
be_visitor_operation::void_return_type (be_type *bt)
{
// is the operation return type void?
if (bt->node_type () == AST_Decl::NT_pre_defined
&& (be_predefined_type::narrow_from_decl (bt)->pt ()
== AST_PredefinedType::PT_void))
return 1;
else
return 0;
}
int
be_visitor_operation::has_param_type (be_operation *node,
AST_Argument::Direction dir)
{
// proceed if the number of members in our scope is greater than 0
if (node->nmembers () > 0)
{
// initialize an iterator to iterate thru our scope
UTL_ScopeActiveIterator *si;
ACE_NEW_RETURN (si,
UTL_ScopeActiveIterator (node,
UTL_Scope::IK_decls),
0);
// continue until each element is visited
while (!si->is_done ())
{
be_argument *bd = be_argument::narrow_from_decl (si->item ());
if (bd && (bd->direction () == dir))
return 1;
si->next ();
} // end of while loop
delete si;
} // end of if
// not of the type we are looking for
return 0;
}
//Method to generate the throw specs for exceptions that are thrown by the
//operation
int
be_visitor_operation::gen_throw_spec (be_operation *node)
{
TAO_OutStream *os = this->ctx_->stream (); // grab the out stream
*os << be_idt_nl << "ACE_THROW_SPEC (("
<< be_idt_nl << "CORBA::SystemException";
if (node->exceptions ())
{
// initialize an iterator to iterate thru the exception list
UTL_ExceptlistActiveIterator *ei;
ACE_NEW_RETURN (ei,
UTL_ExceptlistActiveIterator (node->exceptions ()),
-1);
// continue until each element is visited
while (!ei->is_done ())
{
be_exception *excp = be_exception::narrow_from_decl (ei->item ());
if (excp == 0)
{
delete ei;
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_operation"
"gen_throw_spec - "
"bad exception node\n"), -1);
}
*os << "," << be_nl;
// allocator method
*os << excp->name ();
ei->next ();
} // end of while loop
delete ei;
} // end of if
*os << be_uidt_nl << "))"<< be_uidt;
return 0;
}
//Method that returns the appropriate CORBA::Environment variable
const char *
be_visitor_operation::gen_environment_var ()
{
static const char *ace_try_env_decl = "ACE_DECLARE_NEW_CORBA_ENV;";
static const char *null_env_decl = "";
// check if we are generating stubs/skeletons for true C++ exception support
if (idl_global->exception_support ())
{
return ace_try_env_decl;
}
else
{
return null_env_decl;
}
}
|
