blob: bbbc1de88c0425e52be618beeb692782aa657b72 (
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
|
//=============================================================================
/**
* @file amh_rh_sh.cpp
*
* Specialized interface visitor for AMH-RH that generates code
* for RH interfaces in skeleton source files
*
* @author Darrell Brunsch <brunsch@cs.wustl.edu>
*/
//=============================================================================
#include "interface.h"
be_visitor_amh_rh_interface_sh::be_visitor_amh_rh_interface_sh (
be_visitor_context *ctx)
: be_visitor_interface_sh (ctx)
{
}
be_visitor_amh_rh_interface_sh::~be_visitor_amh_rh_interface_sh ()
{
}
int
be_visitor_amh_rh_interface_sh::visit_operation (be_operation *node)
{
be_visitor_amh_rh_operation_sh amh_rh_op (this->ctx_);
return amh_rh_op.visit_operation (node);
}
int
be_visitor_amh_rh_interface_sh::visit_interface (be_interface *node)
{
TAO_OutStream *os = this->ctx_->stream ();
// Generate the skeleton class name, use the AMH-node name as a
// basis, this is AMH_<InterfaceName>ResponseHandler...
ACE_CString rh_base_class_name = node->local_name ();
// ...and prepend either the "TAO_" prefix...
ACE_CString rh_skel_class_name = "TAO_";
if (!node->is_nested ())
{
// ...or the "POA_TAO_" prefix if we are in the global
// namespace....
rh_skel_class_name = "POA_TAO_";
}
TAO_INSERT_COMMENT (os);
rh_skel_class_name += rh_base_class_name.c_str ();
*os << "class " << rh_skel_class_name.c_str () << ";" << be_nl;
// Generate the _ptr declaration.
*os << "typedef " << rh_skel_class_name.c_str () << " *"
<< rh_skel_class_name.c_str()
<< "_ptr;" << be_nl_2;
ACE_CString inherit_client_parent = node->client_enclosing_scope ();
inherit_client_parent += rh_base_class_name;
ACE_CString inherit_tao_parent = "TAO_AMH_Response_Handler";
// Now generate the class definition
*os << "class " << be_global->skel_export_macro ()
<< " " << rh_skel_class_name.c_str () << be_idt_nl
<< ": public " << inherit_tao_parent.c_str () << "," << be_idt_nl
<< "public ::" << inherit_client_parent.c_str () << be_uidt << be_uidt;
*os << be_nl
<< "{" << be_nl
<< "public:" << be_idt_nl
<< rh_skel_class_name.c_str () << " () = default;" << be_nl
<< "virtual ~" << rh_skel_class_name.c_str () << " () = default;";
// Generate code for elements in the scope (e.g., operations).
if (this->visit_scope (node) == -1)
{
ACE_ERROR_RETURN ((LM_ERROR,
"be_visitor_interface_sh::"
"visit_interface - "
"codegen for scope failed\n"),
-1);
}
*os << be_uidt_nl
<< "};";
return 0;
}
|