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
|
// $Id$
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// be_union.cpp
//
// = DESCRIPTION
// Extension of class AST_Union that provides additional means for C++
// mapping.
//
// = AUTHOR
// Copyright 1994-1995 by Sun Microsystems, Inc.
// and
// Aniruddha Gokhale
//
// ============================================================================
#include "be_union.h"
#include "be_visitor.h"
#include "be_codegen.h"
#include "be_helper.h"
#include "be_extern.h"
#include "ast_union_branch.h"
#include "utl_identifier.h"
#include "idl_defines.h"
ACE_RCSID (be,
be_union,
"$Id$")
be_union::be_union (void)
{
// Always the case.
this->has_constructor (I_TRUE);
}
be_union::be_union (AST_ConcreteType *dt,
UTL_ScopedName *n,
idl_bool local,
idl_bool abstract)
: AST_Union (dt,
n,
local,
abstract),
AST_Structure (AST_Decl::NT_union,
n,
local,
abstract),
AST_Decl (AST_Decl::NT_union,
n),
UTL_Scope (AST_Decl::NT_union),
COMMON_Base (local,
abstract)
{
// Always the case.
this->has_constructor (I_TRUE);
}
void
be_union::redefine (AST_Structure *from)
{
be_union *bu = be_union::narrow_from_decl (from);
this->common_varout_gen_ = bu->common_varout_gen_;
AST_Union::redefine (from);
}
idl_bool
be_union::has_duplicate_case_labels (void)
{
for (UTL_ScopeActiveIterator si (this, UTL_Scope::IK_decls);
!si.is_done ();
si.next ())
{
AST_Decl *d = si.item ();
AST_UnionBranch *ub =
AST_UnionBranch::narrow_from_decl (d);
if (ub->label_list_length () > 1)
{
return I_TRUE;
}
}
return I_FALSE;
}
void
be_union::destroy (void)
{
// Call the destroy methods of our base classes.
be_scope::destroy ();
be_type::destroy ();
}
// Visitor method.
int
be_union::accept (be_visitor *visitor)
{
return visitor->visit_union (this);
}
// Narrowing.
IMPL_NARROW_METHODS3 (be_union, AST_Union, be_scope, be_type)
IMPL_NARROW_FROM_DECL (be_union)
IMPL_NARROW_FROM_SCOPE (be_union)
|