diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_provides.cpp')
| -rw-r--r-- | TAO/TAO_IDL/be/be_provides.cpp | 257 |
1 files changed, 1 insertions, 256 deletions
diff --git a/TAO/TAO_IDL/be/be_provides.cpp b/TAO/TAO_IDL/be/be_provides.cpp index 938c66559b4..0d4fd18ff2f 100644 --- a/TAO/TAO_IDL/be/be_provides.cpp +++ b/TAO/TAO_IDL/be/be_provides.cpp @@ -46,171 +46,7 @@ be_provides::provides_type (void) const this->AST_Provides::provides_type ()); } -int -be_provides::gen_facet_svnt_tmpl_decl (TAO_OutStream &os) -{ - be_type *impl = - be_type::narrow_from_decl (this->provides_type ()); - - if (impl->is_local () || impl->svnt_hdr_facet_gen ()) - { - return 0; - } - - const char *lname = - impl->local_name ()->get_string (); - - be_decl *scope = - be_scope::narrow_from_scope (impl->defined_in ())->decl (); - ACE_CString suffix (scope->flat_name ()); - - if (suffix != "") - { - suffix = ACE_CString ("_") + suffix; - } - - os << be_nl_2 - << "namespace CIAO_FACET" << suffix.c_str () << be_nl - << "{" << be_idt_nl; - - bool is_intf = impl->node_type () == AST_Decl::NT_interface; - - os << "template <typename BASE, typename EXEC, typename CONTEXT>" << be_nl - << "class " << lname << "_Servant_T" << be_idt_nl - << ": public virtual ::CIAO::Facet_Servant_Base_T<BASE, EXEC, " - << "CONTEXT>" << be_uidt_nl << "{" << be_nl - << "public:" << be_idt_nl; - - AST_Decl *s = ScopeAsDecl (impl->defined_in ()); - ACE_CString sname_str (s->full_name ()); - - os << lname << "_Servant_T (" << be_idt_nl - << "typename EXEC::_ptr_type executor," << be_nl - << "::Components::CCMContext_ptr ctx);" << be_uidt_nl << be_nl; - - os << "virtual ~" << lname << "_Servant_T (void);"; - - if (is_intf) - { - be_interface *intf = - be_interface::narrow_from_decl (impl); - - be_global->in_facet_servant (true); - - int status = - intf->traverse_inheritance_graph ( - be_interface::op_attr_decl_helper, - &os); - - be_global->in_facet_servant (false); - - if (status == -1) - { - ACE_ERROR_RETURN ((LM_ERROR, - ACE_TEXT ("be_provides::gen_facet - ") - ACE_TEXT ("traverse_inheritance_graph()") - ACE_TEXT (" failed\n")), - -1); - } - } - - os << be_uidt_nl << "};" << be_nl << be_uidt_nl; - - os << "}"; - - impl->svnt_hdr_facet_gen (true); - return 0; -} - -int -be_provides::gen_facet_svnt_tmpl_defn (TAO_OutStream &os) -{ - be_type *impl = - be_type::narrow_from_decl (this->provides_type ()); - - if (impl->is_local () || impl->svnt_src_facet_gen ()) - { - return 0; - } - - const char *lname = - impl->local_name ()->get_string (); - - be_decl *scope = - be_scope::narrow_from_scope (impl->defined_in ())->decl (); - - ACE_CString sname_str (scope->full_name ()); - - const char *global = (sname_str == "" ? "" : "::"); - - ACE_CString suffix (scope->flat_name ()); - - if (suffix != "") - { - suffix = ACE_CString ("_") + suffix; - } - - os << be_nl_2 - << "namespace CIAO_FACET" << suffix.c_str () << be_nl - << "{" << be_idt_nl; - - os << "template <typename BASE, typename EXEC, typename CONTEXT>" << be_nl - << lname << "_Servant_T<BASE, EXEC, CONTEXT>::" - << lname << "_Servant_T (" << be_idt << be_idt_nl - << "typename EXEC::_ptr_type executor," << be_nl - << "::Components::CCMContext_ptr ctx)" << be_uidt_nl - << ": " << global << "CIAO::Facet_Servant_Base_T<BASE, EXEC, " - << "CONTEXT> (executor, ctx)" - << be_uidt_nl - << "{" << be_nl - << "}"; - - os << be_nl_2 << "template <typename BASE, typename EXEC, typename CONTEXT>" << be_nl - << lname << "_Servant_T<BASE, EXEC, CONTEXT>::~" - << lname << "_Servant_T (void)" << be_nl - << "{" << be_nl - << "}"; - - bool is_intf = impl->node_type () == AST_Decl::NT_interface; - - if (is_intf) - { - be_interface *op_scope = - be_interface::narrow_from_decl (impl); - - os << be_nl_2 - << "// All facet operations and attributes."; - - /// The overload of traverse_inheritance_graph() used here - /// doesn't automatically prime the queues. - op_scope->get_insert_queue ().reset (); - op_scope->get_del_queue ().reset (); - op_scope->get_insert_queue ().enqueue_tail (op_scope); - - be_facet_op_attr_defn_helper helper (op_scope); - - int status = - op_scope->traverse_inheritance_graph (helper, - &os, - false, - false); - - if (status == -1) - { - ACE_ERROR_RETURN ((LM_ERROR, - ACE_TEXT ("be_provides::") - ACE_TEXT ("gen_facet_svnt_defn - ") - ACE_TEXT ("traverse_inheritance_graph() ") - ACE_TEXT ("failed\n")), - -1); - } - } - - os << be_uidt_nl << "}"; - - impl->svnt_src_facet_gen (true); - return 0; -} +IMPL_NARROW_FROM_DECL (be_provides) int be_provides::accept (be_visitor *visitor) @@ -225,94 +61,3 @@ be_provides::destroy (void) this->be_field::destroy (); } -IMPL_NARROW_FROM_DECL (be_provides) - -// ******************************************** - -be_facet_op_attr_defn_helper::be_facet_op_attr_defn_helper ( - be_interface *op_scope) - : op_scope_ (op_scope) -{ -} - -int -be_facet_op_attr_defn_helper::emit (be_interface * /* derived_interface */, - TAO_OutStream *os, - be_interface *base_interface) -{ - AST_Decl::NodeType nt = base_interface->node_type (); - - if (nt == AST_Decl::NT_component || nt == AST_Decl::NT_connector) - { - return 0; - } - - be_visitor_context ctx; - ctx.stream (os); - ctx.state (TAO_CodeGen::TAO_ROOT_SVTS); - - for (UTL_ScopeActiveIterator i (base_interface, UTL_Scope::IK_decls); - !i.is_done (); - i.next ()) - { - AST_Decl *d = i.item (); - AST_Decl::NodeType nt = d->node_type (); - - switch (nt) - { - case AST_Decl::NT_op: - { - be_operation *op = - be_operation::narrow_from_decl (d); - - /// If AMI implied IDL was generated for the - /// original interface, we don't want those - /// extra operations in the facet servant. - if (op->is_sendc_ami ()) - { - continue; - } - - be_visitor_operation_svs v (&ctx); - v.scope (op_scope_); - - if (v.visit_operation (op) == -1) - { - ACE_ERROR_RETURN ((LM_ERROR, - ACE_TEXT ("be_facet_op_attr_defn_helper") - ACE_TEXT ("::emit - ") - ACE_TEXT ("visit_operation() failed\n")), - -1); - } - - break; - } - case AST_Decl::NT_attr: - { - be_attribute *attr = - be_attribute::narrow_from_decl (d); - - be_visitor_attribute v (&ctx); - v.op_scope (op_scope_); - - if (v.visit_attribute (attr) == -1) - { - ACE_ERROR_RETURN ((LM_ERROR, - ACE_TEXT ("be_facet_op_attr_defn_helper") - ACE_TEXT ("::emit - ") - ACE_TEXT ("visit_attribute() failed\n")), - -1); - } - - break; - } - default: - continue; - } - } - - return 0; -} - -// ******************************************** - |