diff options
Diffstat (limited to 'ACE/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp')
| -rw-r--r-- | ACE/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp | 1042 |
1 files changed, 1042 insertions, 0 deletions
diff --git a/ACE/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp b/ACE/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp new file mode 100644 index 00000000000..5552336939d --- /dev/null +++ b/ACE/TAO/TAO_IDL/be/be_visitor_union_branch/cdr_op_cs.cpp @@ -0,0 +1,1042 @@ +// +// $Id$ +// + +// ============================================================================ +// +// = LIBRARY +// TAO IDL +// +// = FILENAME +// union_branch_cdr_op_cs.cpp +// +// = DESCRIPTION +// Visitor generating code for Union_Branch in the client stubs file. +// +// = AUTHOR +// Aniruddha Gokhale +// +// ============================================================================ + +// ********************************************** +// Visitor for union_branch in the client stubs file. +// ********************************************** + +be_visitor_union_branch_cdr_op_cs::be_visitor_union_branch_cdr_op_cs ( + be_visitor_context *ctx + ) + : be_visitor_decl (ctx) +{ +} + +be_visitor_union_branch_cdr_op_cs::~be_visitor_union_branch_cdr_op_cs (void) +{ +} + +int +be_visitor_union_branch_cdr_op_cs::visit_union_branch (be_union_branch *node) +{ + be_type *bt = be_type::narrow_from_decl (node->field_type ()); + + if (!bt) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_union_branch - " + "Bad union_branch type\n"), + -1); + } + + this->ctx_->node (node); + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_union_branch - " + "codegen for union_branch type failed\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_array (be_array *node) +{ + // If not a typedef and we are defined in the use scope, we must be defined. + if (!this->ctx_->alias () + && node->is_child (this->ctx_->scope ()->decl ())) + { + be_visitor_context ctx (*this->ctx_); + ctx.node (node); + be_visitor_array_cdr_op_cs visitor (&ctx); + + if (node->accept (&visitor) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_array - " + "codegen failed\n"), + -1); + } + } + + 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_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 ()->decl ())) + { + // 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->full_name (), + node->local_name ()->get_string ()); + } + else + { + ACE_OS::sprintf (fname, + "_%s", + node->full_name ()); + } + } + else + { + // Typedefed node. + ACE_OS::sprintf (fname, "%s", node->full_name ()); + } + + // 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 _tao_union_helper (" + << be_idt << be_idt_nl + << "_tao_union_tmp" << be_uidt_nl + << ");" << be_uidt_nl + << "result = strm >> _tao_union_helper;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << be_uidt; + + return 0; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << fname << "_forany _tao_union_tmp (" << be_idt << be_idt_nl + << "_tao_union." + << f->local_name () << " ()" << be_uidt_nl + <<");" << be_uidt_nl + << "result = strm << _tao_union_tmp;"; + return 0; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // This is done in cdr_op_cs.cpp and hacked into *.i. + 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_enum (be_enum *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_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 << node->name () << " _tao_union_tmp =" << be_idt_nl + << "static_cast<" << node->name () << "> (0UL);" << be_uidt_nl + << "result = strm >> _tao_union_tmp;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << 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_enum - " + "bad sub state\n"), + -1); + } + + // Not a typedef and node is defined inside the union. Otherwise the cdr + // operator is generated elsewhere. + if (node->node_type () != AST_Decl::NT_typedef + && node->is_child (this->ctx_->scope ()->decl ())) + { + // Instantiate a visitor context with a copy of our context. This info + // will be modified based on what type of node we are visiting. + be_visitor_context ctx (*this->ctx_); + ctx.node (node); + be_visitor_enum_cdr_op_cs visitor (&ctx); + + if (visitor.visit_enum (node) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_enum - " + "codegen failed\n"), + -1); + } + } + + return 0; +} + +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: + if (node->is_local ()) + { + *os << "result = false;"; + } + else + { + *os << node->name () << "_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp.inout ();" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp.in ());" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << be_uidt; + } + + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + + *os << "result =" << be_idt_nl; + + if (f->is_abstract ()) + { + *os << "(strm << _tao_union." + << f->local_name () << " ());"; + } + else + { + *os << "TAO::Objref_Traits<" << node->name () << ">::marshal (" + << be_idt << be_idt_nl + << "_tao_union." << f->local_name () << " ()," << be_nl + << "strm" << be_uidt_nl + << ");" << be_uidt; + } + + *os << be_uidt; + + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // Nothing to be done because an interface cannot be declared inside a + // union. + 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; +} + +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: + if (node->is_local ()) + { + *os << "result = false;"; + } + else + { + *os << node->name () << "_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp.inout ();" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp.in ());" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << be_uidt; + } + + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "result =" << be_idt_nl + << "TAO::Objref_Traits<" << node->name () << ">::marshal (" + << be_idt << be_idt_nl + << "_tao_union." << f->local_name () << " ()," << be_nl + << "strm" << be_uidt_nl + << ");" << be_uidt << be_uidt; + break; + + case TAO_CodeGen::TAO_CDR_SCOPE: + // Nothing to be done because an interface cannot be forward declared + // inside a union. + 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; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_valuebox (be_valuebox *node) +{ + return this->emit_valuetype_common (node); +} + +int +be_visitor_union_branch_cdr_op_cs::visit_valuetype (be_valuetype *node) +{ + return this->emit_valuetype_common (node); +} + +int +be_visitor_union_branch_cdr_op_cs::visit_valuetype_fwd (be_valuetype_fwd *node) +{ + return this->emit_valuetype_common (node); +} + +int +be_visitor_union_branch_cdr_op_cs::emit_valuetype_common (be_type *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::" + "emit_valuetype_common - " + "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.inout ();" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp.in ());" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << 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 cannot be declared inside a + // union. + break; + + default: + // Error. + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "emit_valuetype_common - " + "bad sub state\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_predefined_type ( + be_predefined_type *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_predefined_type - " + "cannot retrieve union_branch node\n"), + -1); + } + + AST_PredefinedType::PredefinedType pt = node->pt (); + + // 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 (pt == AST_PredefinedType::PT_object + || pt == AST_PredefinedType::PT_abstract) + { + *os << "::CORBA::Object_var _tao_union_tmp;" << be_nl; + + *os << "result = strm >> _tao_union_tmp.out ();" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () << " (_tao_union_tmp.in ());"; + + } + else if (pt == AST_PredefinedType::PT_pseudo) + { + *os << "::CORBA::TypeCode_var _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp.out ();" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () << " (_tao_union_tmp.in ());"; + + } + else if (pt == AST_PredefinedType::PT_value) + { + *os << "::CORBA::ValueBase * _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () << " (_tao_union_tmp);"; + + } + else if (pt == AST_PredefinedType::PT_char) + { + *os << "::CORBA::Char _tao_union_tmp;" << be_nl + << "::ACE_InputCDR::to_char _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);"; + } + else if (pt == AST_PredefinedType::PT_wchar) + { + *os << "::CORBA::WChar _tao_union_tmp;" << be_nl + << "::ACE_InputCDR::to_wchar _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);"; + } + else if (pt == AST_PredefinedType::PT_octet) + { + *os << "::CORBA::Octet _tao_union_tmp;" << be_nl + << "::ACE_InputCDR::to_octet _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);"; + } + else if (pt == AST_PredefinedType::PT_boolean) + { + *os << "::CORBA::Boolean _tao_union_tmp;" << be_nl + << "::ACE_InputCDR::to_boolean _tao_union_helper " + << "(_tao_union_tmp);" << be_nl + << "result = strm >> _tao_union_helper;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);"; + } + else + { + *os << node->name () << " _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);"; + } + + *os << be_nl; + *os << "_tao_union._d (_tao_discriminant);" << be_uidt_nl; + *os << "}" << be_uidt; + + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + + *os << "result = "; + + if (pt == AST_PredefinedType::PT_pseudo + || pt == AST_PredefinedType::PT_object) + { + *os << "strm << _tao_union." << f->local_name () << " ();"; + } + else if (pt == AST_PredefinedType::PT_char) + { + *os << "strm << ::ACE_OutputCDR::from_char (_tao_union." + << f->local_name () << " ());"; + } + else if (pt == AST_PredefinedType::PT_wchar) + { + *os << "strm << ::ACE_OutputCDR::from_wchar (_tao_union." + << f->local_name () << " ());"; + } + else if (pt == AST_PredefinedType::PT_octet) + { + *os << "strm << ::ACE_OutputCDR::from_octet (_tao_union." + << f->local_name () << " ());"; + } + else if (pt == AST_PredefinedType::PT_boolean) + { + *os << "strm << ::ACE_OutputCDR::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) +{ + // If the sequence is defined in this scope, generate its CDR stream + // operators heree. + if (node->node_type () != AST_Decl::NT_typedef + && node->is_child (this->ctx_->scope ()->decl ())) + { + // Anonymous sequence + be_visitor_context ctx (*this->ctx_); + ctx.node (node); + be_visitor_sequence_cdr_op_cs visitor (&ctx); + + if (node->accept (&visitor) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_sequence - " + "codegen failed\n"), + -1); + } + } + + // Now generate the CDR stream operators for the sequence as a + // union branch. + + 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_ci::" + "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: + { + // If the typedef'd sequence is included from another + // file, node->name() won't work. The following works + // for all typedefs, external or not. + be_typedef *td = this->ctx_->alias (); + + if (td) + { + *os << td->name (); + } + else + { + *os << node->name (); + } + + *os << " _tao_union_tmp;" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << 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_ci::" + "visit_sequence - " + "bad sub state\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_string (be_string *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_ci::" + "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: + if (node->width () == (long) sizeof (char)) + { + *os << "::CORBA::String_var _tao_union_tmp;" << be_nl; + } + else + { + *os << "::CORBA::WString_var _tao_union_tmp;" << be_nl; + } + + if (node->max_size ()->ev ()->u.ulval != 0) + { + if (node->width () == (long) sizeof (char)) + { + *os << "result = strm >> ACE_InputCDR::to_string (" + << "_tao_union_tmp.out (), " + << node->max_size ()->ev ()->u.ulval << ");" + << be_nl << be_nl; + } + else + { + *os << "result = strm >> ACE_InputCDR::to_wstring (" + << "_tao_union_tmp.out (), " + << node->max_size ()->ev ()->u.ulval << ");" + << be_nl << be_nl; + } + } + else + { + *os << "result = strm >> _tao_union_tmp.out ();" << be_nl << be_nl; + } + + *os << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." + << f->local_name () << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << be_uidt; + + break; + + case TAO_CodeGen::TAO_CDR_OUTPUT: + if (node->max_size ()->ev ()->u.ulval != 0) + { + if (node->width () == (long) sizeof (char)) + { + *os << "result = strm << ACE_OutputCDR::from_string (" + << "_tao_union." << f->local_name () << " (), " + << node->max_size ()->ev ()->u.ulval << ");"; + } + else + { + *os << "result = strm << ACE_OutputCDR::from_wstring (" + << "_tao_union." << f->local_name () << " (), " + << node->max_size ()->ev ()->u.ulval << ");"; + } + } + else + { + *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_ci::" + "visit_array - " + "bad sub state\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_structure (be_structure *node) +{ + // If the structure is defined in this scope. generate its CDR + // stream operators here. + if (node->node_type () != AST_Decl::NT_typedef + && node->is_child (this->ctx_->scope ()->decl ())) + { + be_visitor_context ctx (*this->ctx_); + ctx.node (node); + be_visitor_structure_cdr_op_cs visitor (&ctx); + + if (node->accept (&visitor) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_struct - " + "codegen failed\n"), + -1); + } + } + + // How generate the CDR stream operators for the structure as + // a union branch. + + 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_ci::" + "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 << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << 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_ci::" + "visit_structure - " + "bad sub state\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_typedef (be_typedef *node) +{ + this->ctx_->alias (node); + + // The node to be visited in the base primitve type that gets typedefed. + be_type *bt = node->primitive_base_type (); + + if (!bt || (bt->accept (this) == -1)) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_public_ci::" + "visit_typedef - " + "Bad primitive type\n"), + -1); + } + + this->ctx_->alias (0); + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::visit_union (be_union *node) +{ + // If the union is defined in this scope, generate its CDR + // stream operators here. + if (node->node_type () != AST_Decl::NT_typedef + && node->is_child (this->ctx_->scope ()->decl ())) + { + be_visitor_context ctx (*this->ctx_); + ctx.node (node); + be_visitor_union_cdr_op_cs visitor (&ctx); + + if (node->accept (&visitor) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_union_branch_cdr_op_cs::" + "visit_union - " + "codegen failed\n"), + -1); + } + } + + // Now generate the CDR stream operators for the union as + // a union branch. + + 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_ci::" + "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 << node->name () << " _tao_union_tmp" + << ";" << be_nl + << "result = strm >> _tao_union_tmp;" << be_nl << be_nl + << "if (result)" << be_idt_nl + << "{" << be_idt_nl + << "_tao_union." << f->local_name () + << " (_tao_union_tmp);" << be_nl + << "_tao_union._d (_tao_discriminant);" << be_uidt_nl + << "}" << be_uidt_nl; + + 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_ci::" + "visit_union - " + "bad sub state\n"), + -1); + } + + return 0; +} + +int +be_visitor_union_branch_cdr_op_cs::explicit_default (void) +{ + be_union *bu = + be_union::narrow_from_decl (this->ctx_->scope ()->decl ()); + int def_index = bu->default_index (); + + if (def_index != -1) + { + be_union_branch *ub = + be_union_branch::narrow_from_decl (this->ctx_->node ()); + + int i = 0; + + // Instantiate a scope iterator. + for (UTL_ScopeActiveIterator si (bu, UTL_Scope::IK_decls); + !si.is_done (); + si.next ()) + { + be_union_branch *bub = 0; // union branch node + + AST_Decl *d = si.item (); + + if (!d->imported ()) + { + bub = be_union_branch::narrow_from_decl (d); + } + + if (bub == ub) + { + return (i == def_index); + } + else + { + ++i; + } + } + } + + return 0; +} |