diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_field.cpp')
-rw-r--r-- | TAO/TAO_IDL/be/be_field.cpp | 210 |
1 files changed, 0 insertions, 210 deletions
diff --git a/TAO/TAO_IDL/be/be_field.cpp b/TAO/TAO_IDL/be/be_field.cpp deleted file mode 100644 index 0511fd4c909..00000000000 --- a/TAO/TAO_IDL/be/be_field.cpp +++ /dev/null @@ -1,210 +0,0 @@ -// ============================================================================ -// -// = LIBRARY -// TAO IDL -// -// = FILENAME -// be_field.cpp -// -// = DESCRIPTION -// Extension of class AST_Field that provides additional means for C++ -// mapping. -// -// = AUTHOR -// Copyright 1994-1995 by Sun Microsystems, Inc. -// and -// Aniruddha Gokhale -// -// ============================================================================ - -#include "idl.h" -#include "idl_extern.h" -#include "be.h" - -/* - * BE_Field - */ -be_field::be_field (void) -{ -} -be_field::be_field (AST_Type *ft, UTL_ScopedName *n, UTL_StrList *p) - : AST_Field (ft, n, p), - AST_Decl (AST_Decl::NT_field, n, p) -{ -} - -// ---------------------------------------- -// CODE GENERATION METHODS -// ---------------------------------------- - -// Generates the client-side header information for the field -int -be_field::gen_client_header (void) -{ - be_type *bt; // the field type - be_state *s; // code generation state - - // retrieve a singleton instance of the code generator - TAO_CodeGen *cg = TAO_CODEGEN::instance (); - - // retrieve field type - bt = be_type::narrow_from_decl (this->field_type ()); - - // make the state based object. The state has been set by the enclosing - // parent structure - s = cg->make_state (); - if (!s || !bt || (s->gen_code (bt, this) == -1)) - { - ACE_ERROR_RETURN ((LM_ERROR, - "(%N:%l) be_field::gen_client_header -" - "codegen failed\n"), -1); - } - return 0; -} - -// Generates the client-side stubs for the field -int -be_field::gen_client_stubs (void) -{ - be_type *bt; // the field type - be_state *s; // code generation state - - // retrieve a singleton instance of the code generator - TAO_CodeGen *cg = TAO_CODEGEN::instance (); - - // retrieve field type - bt = be_type::narrow_from_decl (this->field_type ()); - - // make the state based object. The state has been set by the enclosing - // parent structure - s = cg->make_state (); - if (!s || !bt || (s->gen_code (bt, this) == -1)) - { - ACE_ERROR_RETURN ((LM_ERROR, - "(%N:%l) be_field::gen_client_stubs -" - "codegen failed\n"), -1); - } - return 0; -} - -// Generates the client-side inline information -int -be_field::gen_client_inline (void) -{ - be_type *bt; // the field type - be_state *s; // code generation state - - // retrieve a singleton instance of the code generator - TAO_CodeGen *cg = TAO_CODEGEN::instance (); - - // retrieve field type - bt = be_type::narrow_from_decl (this->field_type ()); - - // make the state based object. The state has been set by the enclosing - // parent structure - s = cg->make_state (); - if (!s || !bt || (s->gen_code (bt, this) == -1)) - { - ACE_ERROR_RETURN ((LM_ERROR, - "(%N:%l) be_field::gen_client_inline -" - "codegen failed\n"), -1); - } - return 0; -} - -// Generates the server-side header information for the field -int -be_field::gen_server_header (void) -{ - // nothing to be done - return 0; -} - -// Generates the server-side skeletons for the field -int -be_field::gen_server_skeletons (void) -{ - // nothing to be done - return 0; -} - -// Generates the server-side inline -int -be_field::gen_server_inline (void) -{ - // nothing to be done - return 0; -} - -int -be_field::gen_encapsulation (void) -{ - TAO_OutStream *cs; // output stream - TAO_CodeGen *cg = TAO_CODEGEN::instance (); - be_type *bt; // our type node - long i, arrlen; - long *arr; // an array holding string names converted to array of longs - - cs = cg->client_stubs (); - cs->indent (); // start from whatever indentation level we were at - - // generate name - *cs << (ACE_OS::strlen (this->local_name ()->get_string ())+1) << ", "; - (void)this->tc_name2long(this->local_name ()->get_string (), arr, arrlen); - for (i=0; i < arrlen; i++) - { - cs->print ("0x%x, ", arr[i]); - } - *cs << " // name = " << this->local_name () << "\n"; - - // hand over code generation to our type node - bt = be_type::narrow_from_decl (this->field_type ()); - return bt->gen_typecode (); -} - -long -be_field::tc_encap_len (void) -{ - if (this->encap_len_ == -1) // not computed yet - { - be_type *bt; - - // struct member is represented as the "name" followed by the typecode - - this->encap_len_ = this->name_encap_len (); // for name - - // add to this, the size of our typecode - bt = be_type::narrow_from_decl (this->field_type ()); - this->encap_len_ += bt->tc_size (); // note that we must add typecode - // size of the type - } - return this->encap_len_; -} - -// compute the size type of the node in question -int -be_field::compute_size_type (void) -{ - be_type *type = be_type::narrow_from_decl (this->field_type ()); - if (!type) - { - ACE_ERROR_RETURN ((LM_ERROR, - "(%N:%l) be_field::compute_size_type - " - "bad field type\n"), -1); - } - - // our size type is the same as our type - this->size_type (type->size_type ()); // as a side effect will also update - // the size type of parent - return 0; -} - -int -be_field::accept (be_visitor *visitor) -{ - return visitor->visit_field (this); -} - -// Narrowing -IMPL_NARROW_METHODS2 (be_field, AST_Field, be_decl) -IMPL_NARROW_FROM_DECL (be_field) |