blob: 87da74c4b47217473f52035ec8161400af4339e2 (
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
|
// -*- C++ -*-
//=============================================================================
/**
* @file struct_typecode.cpp
*
* $Id$
*
* Structure TypeCode generation visitor.
*
* @author Ossama Othman <ossama@dre.vanderbilt.edu>
*/
//=============================================================================
#include <string>
TAO::be_visitor_struct_typecode::be_visitor_struct_typecode (
be_visitor_context * ctx,
bool is_exception)
: be_visitor_typecode_defn (ctx),
is_exception_ (is_exception)
{
}
int
TAO::be_visitor_struct_typecode::visit_structure (AST_Structure * node)
{
TAO_OutStream & os = *this->ctx_->stream ();
os << be_nl << be_nl
<< "// TAO_IDL - Generated from" << be_nl
<< "// " << __FILE__ << ":" << __LINE__ << be_nl << be_nl;
std::string const fields_name (std::string ("_tao_fields_")
+ node->flat_name ());
// Generate array containing struct field characteristics.
os << "static TAO::TypeCode::Struct_Field<char const *> const "
<< fields_name.c_str ()
<< "[] =" << be_idt_nl
<< "{" << be_idt_nl;
if (this->visit_members (node) != 0)
return -1;
os << be_uidt_nl
<< "};" << be_uidt_nl << be_nl;
// Generate the TypeCode instantiation.
os
<< "static TAO::TypeCode::Struct<char const *," << be_nl
<< " TAO::TypeCode::Struct_Field<char const *> const *," << be_nl
<< " CORBA::tk_"
<< (this->is_exception_ ? "except" : "struct") << "," << be_nl
<< " TAO::Null_RefCount_Policy>"
<< be_idt_nl
<< "_tao_tc_" << node->flat_name () << " (" << be_idt_nl
<< "\"" << node->repoID () << "\"," << be_nl
<< "\"" << node->original_local_name () << "\"," << be_nl
<< "_tao_fields_" << node->flat_name () << "," << be_nl
<< node->nfields () << ");" << be_uidt_nl
<< be_uidt_nl;
return
this->gen_typecode_ptr (be_type::narrow_from_decl (node));
}
int
TAO::be_visitor_struct_typecode::visit_members (AST_Structure * node)
{
AST_Field ** member_ptr = 0;
size_t const count = node->nfields ();
TAO_OutStream & os = *this->ctx_->stream ();
for (size_t i = 0; i < count; ++i)
{
node->field (member_ptr, i);
be_decl * const member_decl =
be_decl::narrow_from_decl (*member_ptr);
be_type * const member_type =
be_type::narrow_from_decl ((*member_ptr)->field_type ());
os << "{ "
<< "\"" << member_decl->original_local_name () << "\", "
<< "&" << member_type->tc_name ()
<< " }";
if (i < count - 1)
os << ",";
os << be_nl;
}
return 0;
}
|
