summaryrefslogtreecommitdiff
path: root/TAO/TAO_IDL/be/be_state_exception.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/TAO_IDL/be/be_state_exception.cpp')
-rw-r--r--TAO/TAO_IDL/be/be_state_exception.cpp409
1 files changed, 0 insertions, 409 deletions
diff --git a/TAO/TAO_IDL/be/be_state_exception.cpp b/TAO/TAO_IDL/be/be_state_exception.cpp
deleted file mode 100644
index 769104ffe65..00000000000
--- a/TAO/TAO_IDL/be/be_state_exception.cpp
+++ /dev/null
@@ -1,409 +0,0 @@
-// $Id$
-//
-// ============================================================================
-//
-// = LIBRARY
-// TAO IDL
-//
-// = FILENAME
-// be_state_exception.cpp
-//
-// = DESCRIPTION
-// state based code generation for exceptions.
-//
-// = AUTHOR
-// Aniruddha Gokhale
-//
-// ============================================================================
-
-#include "idl.h"
-#include "idl_extern.h"
-#include "be.h"
-
-be_state_exception::be_state_exception (void)
-{
-}
-
-// generate code for exception member
-int
-be_state_exception ::gen_code (be_type *bt, be_decl *d, be_type *type)
-{
- TAO_OutStream *os; // output stream
- TAO_CodeGen *cg = TAO_CODEGEN::instance ();
- be_field *f; // field node
- be_exception *bexcp; // enclosing exception node
-
- switch (cg->state ())
- {
- case TAO_CodeGen::TAO_EXCEPTION_CH: // used for defining members
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CH: // used for defining the
- // parameters to the special
- // constructor
- os = cg->client_header ();
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CI: // for generating inline functions for
- // specific anonymous types
- os = cg->client_inline ();
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CS: // for copy ctor and assignment op
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CS: // for the parameters of the
- // special constructor
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_ASSIGN_CS: // for assigning to members
- // inside the special ctor
- os = cg->client_stubs ();
- break;
- default:
- os = 0; // Force a seg fault. At least os will have a known value.
- }
-
- f = be_field::narrow_from_decl (d); // downcast to field node
- if (!f)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception.cpp - "
- "Bad field\n"),
- -1);
- }
-
- // retrieve the exception node
- bexcp = be_exception::narrow_from_scope (f->defined_in ());
- if (!bexcp)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception.cpp - "
- "Bad exception\n"),
- -1);
- }
-
- // pass the field node just incase it is needed to generate definition for
- // sequence
- cg->node (f);
-
- if (!type) // not a recursive call
- type = bt;
- else // recursively called thru a typedef. "type" will have the most primitive
- // base class of the typedef
- ACE_ASSERT (bt->node_type () == AST_Decl::NT_typedef);
-
- // generate code based on type.
- switch (type->node_type ())
- {
- case AST_Decl::NT_interface: // type is an obj reference
- {
- switch (cg->state ())
- {
- case TAO_CodeGen::TAO_EXCEPTION_CH:
- {
- os->indent (); // start from current indentation
- *os << bt->nested_type_name (bexcp, "_var") << " " << f->local_name
- () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_excp." <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CH:
- {
- *os << "const " << bt->nested_type_name (bexcp, "_ptr") << "&";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CS:
- {
- *os << "const " << bt->name () << "_ptr &_tao_" << f->local_name
- ();
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_ASSIGN_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_" <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CI:
- break;
- default:
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - unknown state\n"), -1);
- }
- } // end switch state
- } // end case interface
- break;
- case AST_Decl::NT_pre_defined: // type is predefined type
- {
- be_predefined_type *bpd = be_predefined_type::narrow_from_decl (type);
- if (!bpd)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - "
- "bad predefined type\n"), -1);
- }
- switch (cg->state ())
- {
- case TAO_CodeGen::TAO_EXCEPTION_CH:
- {
- switch (bpd->pt ())
- {
- case AST_PredefinedType::PT_pseudo:
- {
- os->indent (); // start from current indentation
- *os << bt->nested_type_name (bexcp, "_var") << " " <<
- f->local_name () << ";\n";
- }
- break;
- default:
- {
- os->indent (); // start from current indentation
- *os << bt->nested_type_name (bexcp) << " " << f->local_name
- () << ";\n";
- }
- } // end of switch state
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_excp." <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CH:
- {
- switch (bpd->pt ())
- {
- case AST_PredefinedType::PT_pseudo:
- {
- *os << "const " << bt->nested_type_name (bexcp, "_ptr") <<
- "&";
- }
- break;
- default:
- {
- *os << "const " << bt->nested_type_name (bexcp);
- }
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CS:
- {
- switch (bpd->pt ())
- {
- case AST_PredefinedType::PT_pseudo:
- {
- *os << "const " << bt->name () << "_ptr &_tao_" <<
- f->local_name ();
- }
- break;
- default:
- {
- *os << "const " << bt->name () << " _tao_" <<
- f->local_name ();
- }
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_ASSIGN_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_" <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CI:
- break;
- default:
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - unknown state\n"), -1);
- }
- } // end switch state
- }
- break;
- case AST_Decl::NT_string: // type is a string
- {
- switch (cg->state ())
- {
- case TAO_CodeGen::TAO_EXCEPTION_CH:
- {
- os->indent (); // start from current indentation
- if (bt->node_type () == AST_Decl::NT_typedef)
- {
- *os << bt->nested_type_name (bexcp, "_var") << " " <<
- f->local_name () << ";\n";
- }
- else
- {
- *os << "CORBA::String_var " << f->local_name () << ";\n";
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_excp." <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CH:
- {
- if (bt->node_type () == AST_Decl::NT_typedef)
- {
- *os << "const " << bt->nested_type_name (bexcp);
- }
- else
- {
- *os << "const char*";
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CS:
- {
- if (bt->node_type () == AST_Decl::NT_typedef)
- {
- *os << "const " << bt->name () << " _tao_" << f->local_name
- ();
- }
- else
- {
- *os << "const char* _tao_" << f->local_name ();
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_ASSIGN_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_" <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CI:
- break;
- default:
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - unknown state\n"), -1);
- }
- } // end switch state
- }
- break;
- // these are all anonymous types
- case AST_Decl::NT_array: // type is an array
- case AST_Decl::NT_sequence: // type is a sequence
- case AST_Decl::NT_enum: // type is an enum
- case AST_Decl::NT_union: // type is a union
- {
- switch (cg->state ())
- {
- case TAO_CodeGen::TAO_EXCEPTION_CH:
- {
- // We first need to generate code for this aggregate type. Check
- // if we are not called recursively thru a typedef
- if (bt->node_type () != AST_Decl::NT_typedef
- && !bt->imported ())
- if (bt->gen_client_header () == -1)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - "
- "error generating code for type\n"),
- -1);
- }
- os->indent ();
- *os << bt->nested_type_name (bexcp) << " " << f->local_name () <<
- ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CI:
- {
- // We first need to generate code for this aggregate type. Check
- // if we are not called recursively thru a typedef
- if (bt->node_type () != AST_Decl::NT_typedef
- && !bt->imported ())
- if (bt->gen_client_inline () == -1)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - "
- "error generating code for type\n"),
- -1);
- }
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CS:
- {
- // We first need to generate code for this aggregate type. Check
- // if we are not called recursively thru a typedef
- if (bt->node_type () != AST_Decl::NT_typedef
- && !bt->imported ())
- if (bt->gen_client_stubs () == -1)
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - "
- "error generating code for type\n"),
- -1);
- }
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_excp." <<
- f->local_name () << ";\n";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CH:
- {
- *os << "const " << bt->nested_type_name (bexcp) << "&";
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_CS:
- {
- *os << "const " << bt->name () << "&_tao_" << f->local_name ();
- }
- break;
- case TAO_CodeGen::TAO_EXCEPTION_CTOR_ASSIGN_CS:
- {
- // assign
- os->indent (); // start with current indentation
- *os << "this->" << f->local_name () << " = _tao_" <<
- f->local_name () << ";\n";
- }
- break;
- default:
- {
- ACE_ERROR_RETURN ((LM_ERROR,
- "(%N:%l) be_state_exception - unknown state\n"), -1);
- }
- } // end switch state
- }
- break;
- case AST_Decl::NT_except: // type is an exception
- {
- // XXXASG TODO: is this allowed ???
- }
- break;
- case AST_Decl::NT_typedef: // type is a typedef
- {
- be_type *temp;
- be_typedef *t = be_typedef::narrow_from_decl (bt);
-
- if (!t)
- return -1;
-
- temp = t->primitive_base_type ();
- // make a recursive call
- return this->gen_code (t, f, temp);
- } // end of switch
- //break; unreachable statement!
- }
- // the enclosing exception will be variable length if the field's type is
- // variable length
- bexcp->size_type (type->size_type ());
- return 0;
-}
View Lorry Controller Status