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
163
164
165
166
167
168
169
170
171
172
|
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// be_constant.cpp
//
// = DESCRIPTION
// Extension of class AST_Constant that provides additional means for C++
// mapping.
//
// = AUTHOR
// Copyright 1994-1995 by Sun Microsystems, Inc.
// and
// Aniruddha Gokhale
//
// ============================================================================
#include "idl.h"
#include "idl_extern.h"
#include "be.h"
/*
* BE_Constant
*/
be_constant::be_constant (void)
{
}
be_constant::be_constant (AST_Expression::ExprType et,
AST_Expression *v,
UTL_ScopedName *n,
UTL_StrList *p)
: AST_Constant (et, v, n, p),
AST_Decl (AST_Decl::NT_const, n, p)
{
}
// ----------------------------------------
// CODE GENERATION METHODS
// ----------------------------------------
// Generates the client-side header information for the constant
int
be_constant::gen_client_header (void)
{
TAO_OutStream *ch; // output stream
// retrieve a singleton instance of the code generator
TAO_CodeGen *cg = TAO_CODEGEN::instance ();
cg->push (TAO_CodeGen::TAO_CONSTANT_CH);
ch = cg->client_header ();
// if we are defined in the outermost scope, then the value is assigned
// to us here itself, else it will be in the *.cpp file
ch->indent (); // start from whatever indentation level we were at
*ch << "static const " << this->exprtype_to_string () << " " << local_name ();
if (!this->is_nested ())
{
// We were defined at the outermost scope. So we put the value in the
// header itself
*ch << " = " << this->constant_value ();
}
*ch << ";\n\n";
cg->pop ();
return 0;
}
// Generates the client-side stubs for the constant
int
be_constant::gen_client_stubs (void)
{
TAO_OutStream *cs; // output stream
// retrieve a singleton instance of the code generator
TAO_CodeGen *cg = TAO_CODEGEN::instance ();
cg->push (TAO_CodeGen::TAO_CONSTANT_CS);
cs = cg->client_stubs ();
if (this->is_nested ())
{
// for those constants not defined in the outer most scope, they get
// assigned to their values in the
cs->indent (); // start from whatever indentation level we were at
*cs << "const " << this->exprtype_to_string () << " " << this->name ();
*cs << " = " << this->constant_value ();
*cs << ";\n\n";
}
cg->pop ();
return 0;
}
// Generates the server-side header information for the constant
int
be_constant::gen_server_header (void)
{
// nothing to be done
return 0;
}
// Generates the server-side skeletons for the constant
int
be_constant::gen_server_skeletons (void)
{
// nothing to be done
return 0;
}
// Generates the client-side inline information
int
be_constant::gen_client_inline (void)
{
// nothing to be done
return 0;
}
// Generates the server-side inline
int
be_constant::gen_server_inline (void)
{
// nothing to be done
return 0;
}
char *
be_constant::exprtype_to_string (void)
{
switch (this->et ())
{
case AST_Expression::EV_short:
return "CORBA::Short";
case AST_Expression::EV_ushort:
return "CORBA::UShort";
case AST_Expression::EV_long:
return "CORBA::Long";
case AST_Expression::EV_ulong:
return "CORBA::ULong";
case AST_Expression::EV_float:
return "CORBA::Float";
case AST_Expression::EV_double:
return "CORBA::Double";
case AST_Expression::EV_char:
return "CORBA::Char";
case AST_Expression::EV_octet:
return "CORBA::Octet";
case AST_Expression::EV_bool:
return "CORBA::Boolean";
case AST_Expression::EV_string:
return "char *const";
case AST_Expression::EV_any:
return "CORBA::Any";
case AST_Expression::EV_void:
return "void";
case AST_Expression::EV_none:
return "none";
case AST_Expression::EV_longlong:
case AST_Expression::EV_ulonglong:
case AST_Expression::EV_longdouble:
case AST_Expression::EV_wchar:
case AST_Expression::EV_wstring:
return NULL;
}
return NULL;
}
// Narrowing
IMPL_NARROW_METHODS2 (be_constant, AST_Constant, be_decl)
IMPL_NARROW_FROM_DECL (be_constant)
|
