diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp')
| -rw-r--r-- | TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp | 507 |
1 files changed, 504 insertions, 3 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp b/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp index 37bbb15f6a4..2e02eb36edc 100644 --- a/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp +++ b/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp @@ -18,9 +18,9 @@ // // ============================================================================ -#include "idl.h" -#include "idl_extern.h" -#include "be.h" +#include "idl.h" +#include "idl_extern.h" +#include "be.h" #include "be_visitor_union_branch.h" @@ -72,6 +72,86 @@ be_visitor_union_branch_cdr_op_cs::visit_union_branch (be_union_branch *node) int be_visitor_union_branch_cdr_op_cs::visit_array (be_array *node) { + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // for anonymous arrays, the type name has a _ prepended. We compute the + // fullname with or without the underscore and use it later on. + char fname [NAMEBUFSIZE]; // to hold the full and + + // save the node's local name and full name in a buffer for quick + // use later on + ACE_OS::memset (fname, '\0', NAMEBUFSIZE); + if (!this->ctx_->alias () // not a typedef + && node->is_child (this->ctx_->scope ())) + { + // for anonymous arrays ... + // we have to generate a name for us that has an underscore + // prepended to our local name. This needs to be inserted after + // the parents's name + if (node->is_nested ()) + { + be_decl *parent = + be_scope::narrow_from_scope (node->defined_in ())->decl (); + ACE_OS::sprintf (fname, "%s::_%s", parent->fullname (), + node->local_name ()->get_string ()); + } + else + { + ACE_OS::sprintf (fname, "_%s", node->fullname ()); + } + } + else + { + // typedefed node + ACE_OS::sprintf (fname, "%s", node->fullname ()); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << fname << " _tao_union_tmp;" << be_nl + << fname << "_forany " << be_idt_nl + << "_tao_union_helper (_tao_union_tmp);" << be_uidt_nl + << "result = strm >> _tao_union_helper;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () << "(" + << "_tao_union_tmp);" << be_uidt; + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << fname << "_forany " << be_idt_nl + << "_tao_union_tmp (_tao_union." + << f->local_name () << " ());" << be_uidt_nl + << "result = strm << _tao_union_tmp;"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // proceed further + break; + + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "bad sub state\n" + ), -1); + } + // if not a typedef and we are defined in the use scope, we must be defined if (!this->ctx_->alias () // not a typedef @@ -113,6 +193,49 @@ be_visitor_union_branch_cdr_op_cs::visit_array (be_array *node) int be_visitor_union_branch_cdr_op_cs::visit_enum (be_enum *node) { + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << "CORBA::Long _tao_union_tmp" + << ";" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () << " (" + << "_tao_union_tmp);" << be_uidt; + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "strm << _tao_union." << f->local_name () << " ();"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // proceed further + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_enum - " + "bad sub state\n" + ), -1); + } + if (node->node_type () != AST_Decl::NT_typedef // not a typedef && node->is_child (this->ctx_->scope ())) // node is defined inside the // structure @@ -147,9 +270,255 @@ be_visitor_union_branch_cdr_op_cs::visit_enum (be_enum *node) return 0; } +// visit interface type +int +be_visitor_union_branch_cdr_op_cs::visit_interface (be_interface *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_interface - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << node->name () << "_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp.in ());" << be_uidt; + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // nothing to be done because an interface cannit be declared inside a + // structure + break; + + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_interface - " + "bad sub state\n" + ), -1); + } + return 0; +} + +// visit interface forward type +int +be_visitor_union_branch_cdr_op_cs::visit_interface_fwd (be_interface_fwd *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_interface_fwd - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << node->name () << "_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp.in ());" << be_uidt; + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // nothing to be done because an interface cannit be declared inside a + // structure + break; + + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_interface_fwd - " + "bad sub state\n" + ), -1); + } + return 0; +} + +// visit predefined type +int +be_visitor_union_branch_cdr_op_cs::visit_predefined_type (be_predefined_type *node) +{ + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_predefined_type - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + + if (node->pt () == AST_PredefinedType::PT_pseudo) + *os << "result = strm >> _tao_union." + << f->local_name () << " ().out ();"; + else if (node->pt () == AST_PredefinedType::PT_char) + *os << "CORBA::Char _tao_union_tmp;" << be_nl + << "CORBA::Any::to_char _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << "(_tao_union_tmp);" << be_uidt; + else if (node->pt () == AST_PredefinedType::PT_wchar) + *os << "CORBA::WChar _tao_union_tmp;" << be_nl + << "CORBA::Any::to_wchar _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << "(_tao_union_tmp);" << be_uidt; + else if (node->pt () == AST_PredefinedType::PT_octet) + *os << "CORBA::Octet _tao_union_tmp;" << be_nl + << "CORBA::Any::to_octet _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << "(_tao_union_tmp);" << be_uidt; + else if (node->pt () == AST_PredefinedType::PT_boolean) + *os << "CORBA::Boolean _tao_union_tmp;" << be_nl + << "CORBA::Any::to_boolean _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << "(_tao_union_tmp);" << be_uidt; + else + *os << node->name () << " _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_uidt; + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + + *os << "result = "; + if (node->pt () == AST_PredefinedType::PT_pseudo) + *os << "strm << _tao_union." << f->local_name () << " ().in ();"; + else if (node->pt () == AST_PredefinedType::PT_char) + *os << "strm << CORBA::Any::from_char (_tao_union." + << f->local_name () << " ());"; + else if (node->pt () == AST_PredefinedType::PT_wchar) + *os << "strm << CORBA::Any::from_wchar (_tao_union." + << f->local_name () << " ());"; + else if (node->pt () == AST_PredefinedType::PT_octet) + *os << "strm << CORBA::Any::from_octet (_tao_union." + << f->local_name () << " ());"; + else if (node->pt () == AST_PredefinedType::PT_boolean) + *os << "strm << CORBA::Any::from_boolean (_tao_union." + << f->local_name () << " ());"; + else + *os << "strm << _tao_union." << f->local_name () << " ();"; + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // nothing to be done + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "bad sub state\n" + ), -1); + } + + return 0; +} + int be_visitor_union_branch_cdr_op_cs::visit_sequence (be_sequence *node) { + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_sequence - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << node->name () << " _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp);" << be_uidt; + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // proceed further + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_sequence - " + "bad sub state\n" + ), -1); + } + if (node->node_type () != AST_Decl::NT_typedef && node->is_child (this->ctx_->scope ())) // not a typedef AND @@ -186,10 +555,102 @@ be_visitor_union_branch_cdr_op_cs::visit_sequence (be_sequence *node) return 0; } +// visit string type +int +be_visitor_union_branch_cdr_op_cs::visit_string (be_string *) +{ + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_string - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << "CORBA::String_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp.out ();" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp);" << be_uidt; + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // nothing to be done + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "bad sub state\n" + ), -1); + } + + return 0; +} + // visit structure type int be_visitor_union_branch_cdr_op_cs::visit_structure (be_structure *node) { + TAO_OutStream *os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_structure - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << node->name () << " _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl + << "if (result)" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_uidt; + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // proceed further + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_structure - " + "bad sub state\n" + ), -1); + } + if (node->node_type () != AST_Decl::NT_typedef // not a typedef && node->is_child (this->ctx_->scope ())) // node is defined inside the // structure @@ -250,6 +711,46 @@ be_visitor_union_branch_cdr_op_cs::visit_typedef (be_typedef *node) int be_visitor_union_branch_cdr_op_cs::visit_union (be_union *node) { + TAO_OutStream *os; // output stream + os = this->ctx_->stream (); + + // retrieve the union_branch node + be_union_branch *f = this->ctx_->be_node_as_union_branch (); + if (!f) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_union - " + "cannot retrieve union_branch node\n" + ), -1); + } + + // check what is the code generations substate. Are we generating code for + // the in/out operators for our parent or for us? + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << "result = strm >> _tao_union." + << f->local_name () << " ();"; + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result = strm << _tao_union." + << f->local_name () << " ();"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // proceed further + break; + default: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_union - " + "bad sub state\n" + ), -1); + } + if (node->node_type () != AST_Decl::NT_typedef // not a typedef && node->is_child (this->ctx_->scope ())) // node is defined inside the // structure |