// ============================================================================
//
// = 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;
}

// Narrowing
IMPL_NARROW_METHODS2 (be_field, AST_Field, be_decl)
IMPL_NARROW_FROM_DECL (be_field)