blob: 945581974539a3e812b21c41254dfd456fac4391 (
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
|
//=============================================================================
/**
* @file discriminant_ch.cpp
*
* Visitor generating code for discriminant of the Union
*
* @author Aniruddha Gokhale
*/
//=============================================================================
#include "union.h"
be_visitor_union_discriminant_ch::be_visitor_union_discriminant_ch (
be_visitor_context *ctx)
: be_visitor_decl (ctx)
{
}
be_visitor_union_discriminant_ch::~be_visitor_union_discriminant_ch ()
{
}
int
be_visitor_union_discriminant_ch::visit_enum (be_enum *node)
{
// Get the enclosing union backend.
be_union *bu =
dynamic_cast<be_union*> (this->ctx_->node ());
be_type *bt = nullptr;
// Check if we are visiting this node via a visit to a typedef node.
if (this->ctx_->alias ())
{
bt = this->ctx_->alias ();
}
else
{
bt = node;
}
TAO_OutStream *os = this->ctx_->stream ();
// Not a typedef and bt is defined inside the union.
if (bt->node_type () != AST_Decl::NT_typedef
&& bt->is_child (bu))
{
// Instantiate a visitor context with a copy of our context. This info
// will be modified based on what type of node we are visiting.
be_visitor_context ctx (*this->ctx_);
ctx.node (node);
// First generate the enum declaration.
be_visitor_enum_ch visitor (&ctx);
if (node->accept (&visitor) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_union_discriminant_ch::"
"visit_enum - "
"codegen failed\n"),
-1);
}
}
TAO_INSERT_COMMENT (os);
// The set method.
*os << be_nl_2
<< "void _d (" << bt->nested_type_name (bu) << ");" << be_nl;
// The get method.
*os << bt->nested_type_name (bu) << " _d () const;";
return 0;
}
int
be_visitor_union_discriminant_ch::visit_predefined_type (be_predefined_type
*node)
{
// get the enclosing union backend.
be_union *bu =
dynamic_cast<be_union*> (this->ctx_->node ());
be_type *bt = nullptr;
// Check if we are visiting this node via a visit to a typedef node.
if (this->ctx_->alias ())
{
bt = this->ctx_->alias ();
}
else
{
bt = node;
}
TAO_OutStream *os = this->ctx_->stream ();
TAO_INSERT_COMMENT (os);
// The set method.
*os << be_nl_2
<< "void _d ( " << bt->nested_type_name (bu) << ");" << be_nl;
// The get method.
*os << bt->nested_type_name (bu) << " _d () const;";
return 0;
}
int
be_visitor_union_discriminant_ch::visit_typedef (be_typedef *node)
{
this->ctx_->alias (node);
// The node to be visited in the base primitve type that gets typedefed.
be_type *bt = node->primitive_base_type ();
if (!bt || (bt->accept (this) == -1))
{
ACE_ERROR_RETURN ((LM_ERROR,
"(%N:%l) be_visitor_union_discriminant_ch::"
"visit_typedef - "
"Bad primitive type\n"),
-1);
}
this->ctx_->alias (nullptr);
return 0;
}
|