diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_visitor_array/serializer_op_cs.cpp')
-rw-r--r-- | TAO/TAO_IDL/be/be_visitor_array/serializer_op_cs.cpp | 1225 |
1 files changed, 1225 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_array/serializer_op_cs.cpp b/TAO/TAO_IDL/be/be_visitor_array/serializer_op_cs.cpp new file mode 100644 index 00000000000..d484a970a27 --- /dev/null +++ b/TAO/TAO_IDL/be/be_visitor_array/serializer_op_cs.cpp @@ -0,0 +1,1225 @@ +// +// $Id$ +// + +// ============================================================================ +// +// = LIBRARY +// TAO IDL +// +// = FILENAME +// serializer_op_cs.cpp +// +// = DESCRIPTION +// Visitor for code generation of Arrays for the +// TAO::DCPS::Serializer operators in the client stubs. +// +// = AUTHOR +// Scott Harris <harris_s@ociweb.com> based on code by +// Jeff Parsons <parsons@cs.wustl.edu> +// +// ============================================================================ + +ACE_RCSID (be_visitor_array, + serializer_op_cs, + "$Id$") + +// *************************************************************************** +// Array visitor for generating Serializer operator declarations in the client +// stubs file +// *************************************************************************** + +be_visitor_array_serializer_op_cs::be_visitor_array_serializer_op_cs ( + be_visitor_context *ctx + ) + : be_visitor_decl (ctx) +{ +} + +be_visitor_array_serializer_op_cs::~be_visitor_array_serializer_op_cs (void) +{ +} + +int +be_visitor_array_serializer_op_cs::visit_array (be_array *node) +{ + if (this->ctx_->alias ()) + { + // We are here because we are visiting base type + // of the array node which is itself an + // array, i.e., this is a case of array of array. + return this->visit_node (node); + } + + if (node->cli_stub_serializer_op_gen () + || node->imported () + || node->is_local ()) + { + return 0; + } + + // Retrieve the base type. + be_type *bt = be_type::narrow_from_decl (node->base_type ()); + AST_Decl::NodeType nt = bt->node_type (); + + if (!bt) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_array - " + "Bad base type\n"), + -1); + } + + // If we contain an anonymous sequence, + // generate code for the sequence here. + + if (nt == AST_Decl::NT_sequence) + { + if (this->gen_anonymous_base_type (bt, + TAO_CodeGen::TAO_ROOT_SERIALIZER_OP_CS) + == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_array - " + "gen_anonymous_base_type failed\n"), + -1); + } + } + + // If the array is an anonymous member and if its element type + // is a declaration (not a reference), we must generate code for + // the declaration. + if (this->ctx_->alias () == 0 // Not a typedef. + && bt->is_child (this->ctx_->scope ())) + { + int status = 0; + be_visitor_context ctx (*this->ctx_); + + switch (nt) + { + case AST_Decl::NT_enum: + { + be_visitor_enum_serializer_op_cs ec_visitor (&ctx); + status = bt->accept (&ec_visitor); + break; + } + case AST_Decl::NT_struct: + { + be_visitor_structure_serializer_op_cs sc_visitor (&ctx); + status = bt->accept (&sc_visitor); + break; + } + case AST_Decl::NT_union: + { + be_visitor_union_serializer_op_cs uc_visitor (&ctx); + status = bt->accept (&uc_visitor); + break; + } + default: + break; + } + + if (status == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_ch::" + "visit_array - " + "array base type codegen failed\n"), + -1); + } + } + + // For anonymous arrays, the type name has a _ prepended. We compute the + // full_name 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_->tdef ()) + { + ACE_OS::sprintf (fname, "%s", node->full_name ()); + } + else + { + // For anonymous arrays ... + // We have to generate a name for us that has an underscope 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 ()); + } + } + + // Generate the Serializer << and >> operator defns. + + TAO_OutStream *os = this->ctx_->stream (); + this->ctx_->node (node); + + *os << be_nl << be_nl << "// TAO_IDL - Generated from" << be_nl + << "// " << __FILE__ << ":" << __LINE__ << be_nl << be_nl; + + // Set the sub state as generating code for the size method + this->ctx_->sub_state (TAO_CodeGen::TAO_MAX_MARSHALED_SIZE); + *os << "size_t _dcps_max_marshaled_size (" << be_idt << be_idt_nl + << "const " << fname << "_forany &_tao_array" << be_uidt_nl + <<")" << be_uidt_nl + << "{" << be_idt_nl; + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_array_serializer_op_cs::" + "visit_array - " + "Base type codegen failed\n"), + -1); + } + + *os << "}" << be_nl << be_nl; + + // Set the sub state as generating code for the size method + this->ctx_->sub_state (TAO_CodeGen::TAO_IS_BOUNDED_SIZE); + *os << "CORBA::Boolean _tao_is_bounded_size (" << be_idt << be_idt_nl + << "const " << fname << "_forany &_tao_array" << be_uidt_nl + <<")" << be_uidt_nl + << "{" << be_idt_nl; + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_array_serializer_op_cs::" + "visit_array - " + "Base type codegen failed\n"), + -1); + } + + *os << "}" << be_nl << be_nl; + + // Set the sub state as generating code for the size method + this->ctx_->sub_state (TAO_CodeGen::TAO_FIND_SIZE); + *os << "size_t _dcps_find_size (" << be_idt << be_idt_nl + << "const " << fname << "_forany &_tao_array" << be_uidt_nl + <<")" << be_uidt_nl + << "{" << be_idt_nl; + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_array_serializer_op_cs::" + "visit_array - " + "Base type codegen failed\n"), + -1); + } + + *os << "}" << be_nl << be_nl; + + + // Set the sub state as generating code for the output operator. + this->ctx_->sub_state (TAO_CodeGen::TAO_CDR_OUTPUT); + *os << "CORBA::Boolean operator<< (" << be_idt << be_idt_nl + << "TAO::DCPS::Serializer &strm," << be_nl + << "const " << fname << "_forany &_tao_array" << be_uidt_nl + << ")" << be_uidt_nl + << "{" << be_idt_nl; + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_array_serializer_op_cs::" + "visit_array - " + "Base type codegen failed\n"), + -1); + } + + *os << "}" << be_nl << be_nl; + + this->ctx_->sub_state (TAO_CodeGen::TAO_CDR_INPUT); + *os << "CORBA::Boolean operator>> (" << be_idt << be_idt_nl + << "TAO::DCPS::Serializer &strm," << be_nl + << fname << "_forany &_tao_array" << be_uidt_nl + << ")" << be_uidt_nl + << "{" << be_idt_nl; + + if (bt->accept (this) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_array_serializer_op_cs::" + "visit_array - " + "Base type codegen failed\n"), + -1); + } + + *os << "}"; + + node->cli_stub_serializer_op_gen (1); + return 0; +} + +// Handle all the base types. + +int +be_visitor_array_serializer_op_cs::visit_enum (be_enum *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + unsigned long i; + + // Grab the array node. + be_array *array = this->ctx_->be_node_as_array (); + + if (!node) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array node\n"), + -1); + } + + // Check what is the code generation 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_IS_BOUNDED_SIZE: + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl + << "return true; // array of enum" << be_uidt_nl; + break; + case TAO_CodeGen::TAO_FIND_SIZE: + case TAO_CodeGen::TAO_MAX_MARSHALED_SIZE: + { + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "// array of enum = sizeof(CORBA::ULong) * array size" << be_nl + << "return _dcps_max_marshaled_size_ulong () * "; + + unsigned long ndims = array->n_dims (); + + // Generate a product of all the dimensions. This will be the total length + // of the "unfolded" single dimensional array. + for (i = 0; i < ndims; ++i) + { + // Retrieve the ith dimension value. + AST_Expression *expr = array->dims ()[i]; + + if ((expr == 0) || ((expr != 0) && (expr->ev () == 0))) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array dimension\n"), + -1); + } + + if (i != 0) + { + // Do not generate the multiplication operator the first time in. + *os << "*"; + } + + if (expr->ev ()->et == AST_Expression::EV_ulong) + { + // Generate a loop for each dimension. + *os << expr->ev ()->u.ulval; + } + else + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array dimension value\n"), + -1); + } + } + + *os << ";" << be_uidt_nl; + } + break; + + default: + return this->visit_node (node); + } + return 0; +} + +int +be_visitor_array_serializer_op_cs::visit_interface (be_interface *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_interface_fwd (be_interface_fwd *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_valuetype (be_valuetype *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_valuetype_fwd (be_valuetype_fwd *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_predefined_type (be_predefined_type *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + switch (node->pt ()) + { + case AST_PredefinedType::PT_pseudo: + case AST_PredefinedType::PT_object: + case AST_PredefinedType::PT_value: + case AST_PredefinedType::PT_any: + // Let the helper handle this. + return this->visit_node (node); + case AST_PredefinedType::PT_void: + // error + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "Bad primitive type\n"), + -1); + default: + // All other primitive types. Handle them as shown below. + break; + }; + + // We get here if the "type" of individual elements of the array is a + // primitive type. In this case, we treat the array as a single dimensional + // array (even though it was multi-dimensional), and pass the total length + // of the array as a cross product of the dimensions. + + unsigned long i; + + // Grab the array node. + be_array *array = this->ctx_->be_node_as_array (); + + if (!node) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array node\n"), + -1); + } + + // Check what is the code generation 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_IS_BOUNDED_SIZE: + // all predefined types are fixed size hence they are bounded. + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "return true;" << be_uidt_nl; + return 0; // all done - no need to get the array size + break; + + // all predefined types are fixed size so + // _dcps_find_size() = _dcps_max_marshaled_size + case TAO_CodeGen::TAO_FIND_SIZE: + case TAO_CodeGen::TAO_MAX_MARSHALED_SIZE: + switch (node->pt ()) + { + case AST_PredefinedType::PT_octet: + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "return (_dcps_max_marshaled_size_octet () *"; + break; + case AST_PredefinedType::PT_char: + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "return (_dcps_max_marshaled_size_char () *"; + break; + case AST_PredefinedType::PT_wchar: + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "return (_dcps_max_marshaled_size_wchar () *"; + break; + case AST_PredefinedType::PT_long: + case AST_PredefinedType::PT_ulong: + case AST_PredefinedType::PT_short: + case AST_PredefinedType::PT_ushort: + case AST_PredefinedType::PT_float: + case AST_PredefinedType::PT_double: + case AST_PredefinedType::PT_longlong: + case AST_PredefinedType::PT_ulonglong: + case AST_PredefinedType::PT_longdouble: + // array size = slice type size * length + // note: *(_tao_array.in ()) is the array's slice; hence base type + *os << "return (_dcps_max_marshaled_size (*(_tao_array.in ())) * "; + break; + break; + case AST_PredefinedType::PT_boolean: + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + *os << "return (_dcps_max_marshaled_size_boolean () *"; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad primitive type for _dcps_max_marshaled_size code gen\n"), + -1); + } + break; + + case TAO_CodeGen::TAO_CDR_INPUT: + case TAO_CodeGen::TAO_CDR_OUTPUT: + { + // We generate optimized code based on an optimized interface available from + // the Serializer class. These optimizations are applicable only to primitive + // types. + *os << " return strm."; + + // Based on our substate, we may be reading from a stream or writing into a + // stream. + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << "read_"; + break; + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "write_"; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad sub state\n"), + -1); + } + + // Determine what kind of array are we reading/writing. + switch (node->pt ()) + { + case AST_PredefinedType::PT_long: + *os << "long_array"; + break; + case AST_PredefinedType::PT_ulong: + *os << "ulong_array"; + break; + case AST_PredefinedType::PT_short: + *os << "short_array"; + break; + case AST_PredefinedType::PT_ushort: + *os << "ushort_array"; + break; + case AST_PredefinedType::PT_octet: + *os << "octet_array"; + break; + case AST_PredefinedType::PT_char: + *os << "char_array"; + break; + case AST_PredefinedType::PT_wchar: + *os << "wchar_array"; + break; + case AST_PredefinedType::PT_float: + *os << "float_array"; + break; + case AST_PredefinedType::PT_double: + *os << "double_array"; + break; + case AST_PredefinedType::PT_longlong: + *os << "longlong_array"; + break; + case AST_PredefinedType::PT_ulonglong: + *os << "ulonglong_array"; + break; + case AST_PredefinedType::PT_longdouble: + *os << "longdouble_array"; + break; + case AST_PredefinedType::PT_boolean: + *os << "boolean_array"; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad primitive type for optimized code gen\n"), + -1); + } + + // Handle special case to avoid compiler errors. + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << " (("; + break; + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << " ((const "; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad substate in context\n"), + -1); + } + + switch (node->pt ()) + { + case AST_PredefinedType::PT_long: + *os << "ACE_CDR::Long *)"; + break; + case AST_PredefinedType::PT_ulong: + *os << "ACE_CDR::ULong *)"; + break; + case AST_PredefinedType::PT_short: + *os << "ACE_CDR::Short *)"; + break; + case AST_PredefinedType::PT_ushort: + *os << "ACE_CDR::UShort *)"; + break; + case AST_PredefinedType::PT_octet: + *os << "ACE_CDR::Octet *)"; + break; + case AST_PredefinedType::PT_char: + *os << "ACE_CDR::Char *)"; + break; + case AST_PredefinedType::PT_wchar: + *os << "ACE_CDR::WChar *)"; + break; + case AST_PredefinedType::PT_float: + *os << "ACE_CDR::Float *)"; + break; + case AST_PredefinedType::PT_double: + *os << "ACE_CDR::Double *)"; + break; + case AST_PredefinedType::PT_longlong: + *os << "ACE_CDR::LongLong *)"; + break; + case AST_PredefinedType::PT_ulonglong: + *os << "ACE_CDR::ULongLong *)"; + break; + case AST_PredefinedType::PT_longdouble: + *os << "ACE_CDR::LongDouble *)"; + break; + case AST_PredefinedType::PT_boolean: + *os << "ACE_CDR::Boolean *)"; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad primitive type for optimized code gen\n"), + -1); + } + + // Handle special case to avoid compiler errors. + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_CDR_INPUT: + *os << " _tao_array.out (), "; + break; + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << "_tao_array.in (), "; + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad substate in context\n"), + -1); + } + } // end TAO_CDR_INPUT/OUTPUT specific code. + break; + case TAO_CodeGen::TAO_CDR_SCOPE: + // This is done in serializer_op_cs and hacked into *.i. + break; + default: + // Error. + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad sub state\n"), + -1); + } + + unsigned long ndims = array->n_dims (); + + // Generate a product of all the dimensions. This will be the total length + // of the "unfolded" single dimensional array. + for (i = 0; i < ndims; ++i) + { + // Retrieve the ith dimension value. + AST_Expression *expr = array->dims ()[i]; + + if ((expr == 0) || ((expr != 0) && (expr->ev () == 0))) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array dimension\n"), + -1); + } + + if (i != 0) + { + // Do not generate the multiplication operator the first time in. + *os << "*"; + } + + if (expr->ev ()->et == AST_Expression::EV_ulong) + { + // Generate a loop for each dimension. + *os << expr->ev ()->u.ulval; + } + else + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_predefined_type - " + "bad array dimension value\n"), + -1); + } + } + + *os << ");" << be_uidt_nl; + + return 0; +} + +int +be_visitor_array_serializer_op_cs::visit_sequence (be_sequence *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_string (be_string *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_structure (be_structure *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_op_cs::visit_union (be_union *node) +{ + return this->visit_node (node); +} + +int +be_visitor_array_serializer_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_array_serializer_op_cs::" + "visit_typedef - " + "Bad primitive type\n"), + -1); + } + + this->ctx_->alias (0); + return 0; +} + +// Helper. +int +be_visitor_array_serializer_op_cs::visit_node (be_type *bt) +{ + TAO_OutStream *os = this->ctx_->stream (); + unsigned long i; + be_array *node = this->ctx_->be_node_as_array (); + AST_Decl::NodeType nt = bt->node_type (); + + if (!node) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad array node\n"), + -1); + } + + unsigned long ndims = node->n_dims (); + + AST_Decl::NodeType bnt = bt->node_type (); + + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_IS_BOUNDED_SIZE: + switch (bnt) + { + case AST_Decl::NT_string: + case AST_Decl::NT_wstring: + { + be_string *str = + be_string::narrow_from_decl (bt); + + if (!str) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad string node\n"), + -1); + } + + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + if (0 == str->max_size ()->ev ()->u.ulval) + *os << "return false; // array of unbounded string"; + else + *os << "return true; // array of bounded string "; + } + break; + case AST_Decl::NT_array: + *os << "// use ULong instead of literal to avoid overload ambiguity" + << be_nl << "CORBA::ULong first = 0;" << be_nl + << "// must use forany instead of a slice to avoid overload ambiguity" + << be_nl + << bt->name () << "_var tmp_var (" + << bt->name () << "_dup (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[first]"; + } + + *os << "));" << be_nl; + *os << bt->name () << "_forany tmp (tmp_var.inout ());" << be_nl; + *os << "return _tao_is_bounded_size (tmp);"; + break; + default: + *os << "return _tao_is_bounded_size (*(_tao_array.in ()));"; + break; + } + *os << be_uidt_nl; + break; + case TAO_CodeGen::TAO_MAX_MARSHALED_SIZE: + { + switch (bnt) + { + case AST_Decl::NT_string: + case AST_Decl::NT_wstring: + { + be_string *str = + be_string::narrow_from_decl (bt); + + if (!str) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad string node\n"), + -1); + } + *os << "ACE_UNUSED_ARG(_tao_array);" << be_nl; + char buff[15]; + ACE_OS::sprintf(buff, "%d", str->max_size ()->ev ()->u.ulval); + *os << "return _dcps_max_marshaled_size_ulong () + (" << buff; + } + break; + case AST_Decl::NT_array: + *os << "// use ULong instead of literal to avoid overload ambiguity" + << be_nl << "CORBA::ULong first = 0;" << be_nl + << "// must use forany instead of a slice to avoid overload ambiguity" + << be_nl + << bt->name () << "_var tmp_var (" + << bt->name () << "_dup (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[first]"; + } + + *os << "));" << be_nl; + *os << bt->name () << "_forany tmp (tmp_var.inout ());" << be_nl; + *os << "return (_dcps_max_marshaled_size (tmp)"; + break; + default: + // array size = slice type size * length + // note: *(_tao_array.in ()) is the array's slice; hence base type + *os << "return (_dcps_max_marshaled_size (*(_tao_array.in ()))"; + break; + } + *os << " * "; + + //SHH - TBD - this array dim size code could be common + // Generate a product of all the dimensions. This will be the total length + // of the "unfolded" single dimensional array. + for (i = 0; i < ndims; ++i) + { + // Retrieve the ith dimension value. + AST_Expression *expr = node->dims ()[i]; + + if ((expr == 0) || ((expr != 0) && (expr->ev () == 0))) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad array dimension\n"), + -1); + } + + if (i != 0) + { + // Do not generate the multiplication operator the first time in. + *os << "*"; + } + + if (expr->ev ()->et == AST_Expression::EV_ulong) + { + // Generate a loop for each dimension. + *os << expr->ev ()->u.ulval; + } + else + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad array dimension value\n"), + -1); + } + } + + *os << ");" << be_uidt_nl; + + } + break; + case TAO_CodeGen::TAO_FIND_SIZE: + case TAO_CodeGen::TAO_CDR_INPUT: + case TAO_CodeGen::TAO_CDR_OUTPUT: + { + if (TAO_CodeGen::TAO_FIND_SIZE == this->ctx_->sub_state ()) + { + *os << "//iterate over the array to find the current size" << be_nl + << "size_t the_length = 0;" << be_nl; + } + else + { + // Initialize a boolean variable. + *os << "CORBA::Boolean _tao_marshal_flag = 1;" << be_nl; + } + + unsigned long ndims = node->n_dims (); + + // We get here if the "type" of individual elements of the array is not a + // primitive type. In this case, we are left with no other alternative but to + // encode/decode element by element. + + // generate nested loops for as many dimensions as there are + for (i = 0; i < ndims; ++i) + { + // Retrieve the ith dimension value. + AST_Expression *expr = node->dims ()[i]; + + if ((expr == 0) || ((expr != 0) && (expr->ev () == 0))) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad array dimension\n"), + -1); + } + + if (expr->ev ()->et == AST_Expression::EV_ulong) + { + // Generate a loop for each dimension. + *os << be_nl << "for (CORBA::ULong i" << i + << " = 0; i" << i << " < " + << expr->ev ()->u.ulval; + + if (TAO_CodeGen::TAO_FIND_SIZE != this->ctx_->sub_state ()) + *os << " && _tao_marshal_flag"; + + *os << "; i" << i + << "++)" << be_idt_nl + << "{" << be_idt; + } + else + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad array dimension value\n"), + -1); + } + } + + // @@ (JP) Need to factor out some of this into method call(s). + switch (this->ctx_->sub_state ()) + { + case TAO_CodeGen::TAO_FIND_SIZE: + { + *os << be_nl; + if (AST_Decl::NT_array == bnt) + { + *os << bt->name () << "_var tmp_var (" + << bt->name () << "_dup (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + *os << "));" << be_nl; + *os << bt->name () << "_forany tmp (tmp_var.inout ());" << be_nl; + *os << "the_length += _dcps_find_size (tmp);"; + } + else + { + if (AST_Decl::NT_string == bnt || + AST_Decl::NT_wstring == bnt ) + *os << "the_length += _dcps_max_marshaled_size_ulong() + " + << "ACE_OS::strlen(_tao_array"; + else + *os << "the_length += _dcps_find_size (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + if (AST_Decl::NT_string == bnt || + AST_Decl::NT_wstring == bnt ) + *os << ".in()"; + + *os << ");"; + } + } + break; + case TAO_CodeGen::TAO_CDR_INPUT: + *os << be_nl; + + // Handle the array of array case, where we need to pass the + // forany type. + if (nt == AST_Decl::NT_array) + { + *os << bt->name () << "_forany tmp (" + << bt->name () << "_alloc ());" << be_nl; + *os << "_tao_marshal_flag = (strm >> tmp);" << be_nl; + *os << bt->name () << "_copy (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + *os << ", tmp.in ());" << be_nl; + *os << bt->name () << "_free (tmp.inout ());"; + } + else + { + *os << "_tao_marshal_flag = (strm >> "; + *os << "_tao_array "; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + switch (bt->node_type ()) + { + // The following have a _var type and must be + // handled in a special way. + case AST_Decl::NT_string: + case AST_Decl::NT_wstring: + case AST_Decl::NT_valuetype: + case AST_Decl::NT_valuetype_fwd: + *os << ".out ()"; + break; + case AST_Decl::NT_pre_defined: + { + // We need to separately handle this case of pseudo + // objects because they have a _var type. + be_predefined_type *pt = + be_predefined_type::narrow_from_decl (bt); + + if (!pt) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad predefined type node\n"), + -1); + } + + AST_PredefinedType::PredefinedType pdt = pt->pt (); + + if (pdt == AST_PredefinedType::PT_pseudo + || pdt == AST_PredefinedType::PT_object) + { + *os << ".out ()"; + } + } + default: + break; + } + + *os << ");"; + } + + break; + case TAO_CodeGen::TAO_CDR_OUTPUT: + *os << be_nl; + + // Handle the array of array case, where we need to pass the + // forany type. + if (nt == AST_Decl::NT_array) + { + *os << bt->name () << "_var tmp_var (" + << bt->name () << "_dup (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + *os << "));" << be_nl; + *os << bt->name () << "_forany tmp (tmp_var.inout ());" << be_nl; + *os << "_tao_marshal_flag = (strm << tmp);"; + } + else if (nt == AST_Decl::NT_interface + || nt == AST_Decl::NT_interface_fwd) + { + *os << "_tao_marshal_flag = " << be_idt_nl; + + if (bt->is_defined ()) + { + *os << "_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + *os << ".in ()->marshal (strm);" << be_uidt; + } + else + { + + AST_Decl *parent = + ScopeAsDecl (bt->defined_in ()); + + if (parent != 0 && parent->node_type () != AST_Decl::NT_root) + { + *os << parent->name () << "::"; + } + + *os << "TAO::Objref_Traits<" << bt->name () << ">::" + << "tao_marshal (_tao_array"; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + *os << ".in (), strm);" << be_uidt; + } + } + else + { + *os << "_tao_marshal_flag = (strm << "; + *os << "_tao_array "; + + for (i = 0; i < ndims; ++i) + { + *os << "[i" << i << "]"; + } + + switch (bt->node_type ()) + { + // The following have a _var type and must be + // handled in a special way. + case AST_Decl::NT_string: + case AST_Decl::NT_wstring: + case AST_Decl::NT_valuetype: + case AST_Decl::NT_valuetype_fwd: + *os << ".in ()"; + break; + case AST_Decl::NT_pre_defined: + { + // We need to separately handle this case of pseudo + // objects because they have a _var type. + be_predefined_type *pt = + be_predefined_type::narrow_from_decl (bt); + + if (!pt) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad predefined type node\n"), + -1); + } + + AST_PredefinedType::PredefinedType pdt = pt->pt (); + + if (pdt == AST_PredefinedType::PT_pseudo + || pdt == AST_PredefinedType::PT_object) + { + *os << ".in ()"; + } + } + default: + break; + } + + *os << ");"; + } + + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node - " + "bad sub state\n"), + -1); + } + + for (i = 0; i < ndims; ++i) + { + // Decrement indentation as many times as the number of dimensions. + *os << be_uidt_nl << "}" << be_uidt; + } + + if (TAO_CodeGen::TAO_FIND_SIZE == this->ctx_->sub_state ()) + { + *os << be_nl << be_nl << "return the_length;" << be_uidt_nl; + } + else + { + *os << be_nl << be_nl << "return _tao_marshal_flag;" << be_uidt_nl; + } + + } // end INPUT/OUTPUT_CDR case + break; + default: + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_array_serializer_op_cs::" + "visit_node outter- " + "bad sub state\n"), + -1); + } // end outer switch + + return 0; +} |