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
|
// -*- C++ -*-
//=============================================================================
/**
* @file alias_typecode.cpp
*
* $Id$
*
* Alias (typedef) TypeCode generation visitor.
*
* @author Ossama Othman <ossama@dre.vanderbilt.edu>
*/
//=============================================================================
TAO::be_visitor_alias_typecode::be_visitor_alias_typecode (
be_visitor_context * ctx)
: be_visitor_typecode_defn (ctx)
{
}
int
TAO::be_visitor_alias_typecode::visit_typedef (be_typedef * node)
{
be_type * const base = be_type::narrow_from_decl (node->base_type ());
return this->common (node, base, "tk_alias");
}
int
TAO::be_visitor_alias_typecode::visit_valuebox (be_valuebox * node)
{
be_type * const base = be_type::narrow_from_decl (node->boxed_type ());
return this->common (node, base, "tk_value_box");
}
int
TAO::be_visitor_alias_typecode::common (be_type * node,
be_type * base,
const char * tctype)
{
TAO_OutStream & os = *this->ctx_->stream ();
os << be_nl_2
<< "// TAO_IDL - Generated from" << be_nl
<< "// " << __FILE__ << ":" << __LINE__ << be_nl_2;
this->ctx_->sub_state (TAO_CodeGen::TAO_TC_DEFN_TYPECODE_NESTED);
// Generate typecode for the base type, being careful to avoid doing
// so for a typedef since that could recursively cause multiple base
// type TypeCode definitions to be generated.
if (!base || (base->node_type () != AST_Decl::NT_typedef
&& base->accept (this) == -1))
{
ACE_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("(%N:%l) be_visitor_alias_typecode")
ACE_TEXT ("::common) - ")
ACE_TEXT ("failed to generate base typecode\n")),
-1);
}
// Generate the alias TypeCode instantiation.
os
<< "static TAO::TypeCode::Alias<char const *," << be_nl
<< " ::CORBA::TypeCode_ptr const *," << be_nl
<< " TAO::Null_RefCount_Policy>"
<< be_idt_nl
<< "_tao_tc_" << node->flat_name () << " (" << be_idt_nl
<< "::CORBA::" << tctype << "," << be_nl
<< "\"" << node->repoID () << "\"," << be_nl
<< "\"" << node->original_local_name () << "\"," << be_nl
<< "&";
if (this->gen_base_typecode_name (base) != 0)
ACE_ERROR_RETURN ((LM_ERROR,
ACE_TEXT ("(%N:%l) be_visitor_alias_typecode::")
ACE_TEXT ("common - problem generating base ")
ACE_TEXT ("TypeCode name.\n")),
-1);
os << ");" << be_uidt_nl
<< be_uidt_nl;
if (this->gen_typecode_ptr (node) != 0)
return -1;
return 0;
}
|