diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_produce.cpp')
| -rw-r--r-- | TAO/TAO_IDL/be/be_produce.cpp | 217 |
1 files changed, 0 insertions, 217 deletions
diff --git a/TAO/TAO_IDL/be/be_produce.cpp b/TAO/TAO_IDL/be/be_produce.cpp deleted file mode 100644 index 05e45759458..00000000000 --- a/TAO/TAO_IDL/be/be_produce.cpp +++ /dev/null @@ -1,217 +0,0 @@ -// $Id$ - -/* - -COPYRIGHT - -Copyright 1992, 1993, 1994 Sun Microsystems, Inc. Printed in the United -States of America. All Rights Reserved. - -This product is protected by copyright and distributed under the following -license restricting its use. - -The Interface Definition Language Compiler Front End (CFE) is made -available for your use provided that you include this license and copyright -notice on all media and documentation and the software program in which -this product is incorporated in whole or part. You may copy and extend -functionality (but may not remove functionality) of the Interface -Definition Language CFE without charge, but you are not authorized to -license or distribute it to anyone else except as part of a product or -program developed by you or with the express written consent of Sun -Microsystems, Inc. ("Sun"). - -The names of Sun Microsystems, Inc. and any of its subsidiaries or -affiliates may not be used in advertising or publicity pertaining to -distribution of Interface Definition Language CFE as permitted herein. - -This license is effective until terminated by Sun for failure to comply -with this license. Upon termination, you shall destroy or return all code -and documentation for the Interface Definition Language CFE. - -INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF -ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS -FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF -DEALING, USAGE OR TRADE PRACTICE. - -INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT -ANY OBLIGATION ON THE PART OF Sun OR ANY OF ITS SUBSIDIARIES OR AFFILIATES -TO ASSIST IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT. - -SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH -RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY -INTERFACE DEFINITION LANGUAGE CFE OR ANY PART THEREOF. - -IN NO EVENT WILL SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR -ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL -DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - -Use, duplication, or disclosure by the government is subject to -restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in -Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR -52.227-19. - -Sun, Sun Microsystems and the Sun logo are trademarks or registered -trademarks of Sun Microsystems, Inc. - -SunSoft, Inc. -2550 Garcia Avenue -Mountain View, California 94043 - -NOTE: - -SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are -trademarks or registered trademarks of Sun Microsystems, Inc. - - */ - -// BE_produce.cc - Produce the work of the BE - does nothing in the -// dummy BE - -#include "idl.h" -#include "idl_extern.h" -#include "be.h" - -#include "be_interpretive.h" - -ACE_RCSID(be, be_produce, "$Id$") - -/* - * Do the work of this BE. This is the starting point for code generation. - */ - -void -BE_produce() -{ - be_root *root; // root of the AST made up of BE nodes - be_visitor *visitor; // visitor for root - be_visitor_context ctx; // context information for the visitor root - - // XXXASG - Here is where we will have a choice of what to initialize i.e., - // whether we want a visitor generating "interpetive" or "compiled" form of - // stubs/skeletons - // TODO - to do this elegantly. - // right now we just force it to be the interpretive one. - tao_cg->visitor_factory (new TAO_Interpretive_Visitor_Factory); - - // get the root node and narro wit down to be the back-end root node - AST_Decl *d = idl_global->root (); - root = be_root::narrow_from_decl (d); - if (!root) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "No Root\n")); - BE_abort(); - } - - // Code generation involves six steps because of the six files that we - // generate. - - // (1) generate client header - // instantiate a visitor context - ctx.state (TAO_CodeGen::TAO_ROOT_CH); // set the codegen state - // get a root visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the client header - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "client header for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; - - // (2) generate client inline - // set the context information - ctx.reset (); - ctx.state (TAO_CodeGen::TAO_ROOT_CI); - // create a visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the client inline file - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "client inline for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; - - - // (3) generate client stubs - ctx.reset (); - ctx.state (TAO_CodeGen::TAO_ROOT_CS); - // create a visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the client stubs - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "client stubs for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; - - // (4) generate server header - ctx.reset (); - ctx.state (TAO_CodeGen::TAO_ROOT_SH); - // create a visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the server header file - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "server header for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; - - // (5) generate server inline - ctx.reset (); - ctx.state (TAO_CodeGen::TAO_ROOT_SI); - // create a visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the server inline file - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "server inline for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; - - // (6) generate server skeletons - ctx.reset (); - ctx.state (TAO_CodeGen::TAO_ROOT_SS); - // create a visitor - visitor = tao_cg->make_visitor (&ctx); - // generate code for the server skeletons - if (root->accept (visitor) == -1) - { - ACE_ERROR ((LM_ERROR, - "(%N:%l) be_produce - " - "server skeletons for Root failed\n")); - BE_abort(); - } - // it is our responsibility to free up the visitor - delete visitor; -} - -/* - * Abort this run of the BE - */ -void -BE_abort() -{ - cerr << "Fatal Error" << endl; - exit (1); -} |