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
|
// $Id$
// ============================================================================
//
// = LIBRARY
// TAO IDL
//
// = FILENAME
// be_structure.cpp
//
// = DESCRIPTION
// Extension of class AST_Structure that provides additional means for C++
// mapping.
//
// = AUTHOR
// Copyright 1994-1995 by Sun Microsystems, Inc.
// and
// Aniruddha Gokhale
//
// ============================================================================
#include "be_structure.h"
#include "be_codegen.h"
#include "be_helper.h"
#include "be_visitor.h"
#include "be_extern.h"
#include "ast_field.h"
#include "utl_identifier.h"
#include "idl_defines.h"
#include "global_extern.h"
ACE_RCSID (be,
be_structure,
"$Id$")
be_structure::be_structure (void)
: COMMON_Base (),
AST_Decl (),
AST_Type (),
AST_ConcreteType (),
UTL_Scope (),
AST_Structure (),
be_scope (),
be_decl (),
be_type ()
{
}
be_structure::be_structure (UTL_ScopedName *n,
bool local,
bool abstract)
: COMMON_Base (local,
abstract),
AST_Decl (AST_Decl::NT_struct,
n),
AST_Type (AST_Decl::NT_struct,
n),
AST_ConcreteType (AST_Decl::NT_struct,
n),
UTL_Scope (AST_Decl::NT_struct),
AST_Structure (n,
local,
abstract),
be_scope (AST_Decl::NT_struct),
be_decl (AST_Decl::NT_struct,
n),
be_type (AST_Decl::NT_struct,
n)
{
if (!this->imported ())
{
idl_global->aggregate_seen_ = true;
}
}
void
be_structure::redefine (AST_Structure *from)
{
be_structure *bs = be_structure::narrow_from_decl (from);
this->common_varout_gen_ = bs->common_varout_gen_;
AST_Structure::redefine (from);
}
void
be_structure::destroy (void)
{
// Call the destroy methods of our base classes.
this->be_scope::destroy ();
this->be_type::destroy ();
this->AST_Structure::destroy ();
}
int
be_structure::accept (be_visitor *visitor)
{
return visitor->visit_structure (this);
}
AST_Field *
be_structure::be_add_field (AST_Field *f)
{
return this->fe_add_field (f);
}
// Narrowing.
IMPL_NARROW_METHODS3 (be_structure, AST_Structure, be_scope, be_type)
IMPL_NARROW_FROM_DECL (be_structure)
IMPL_NARROW_FROM_SCOPE (be_structure)
|
