diff options
Diffstat (limited to 'TAO/TAO_IDL/util/utl_error.cpp')
| -rw-r--r-- | TAO/TAO_IDL/util/utl_error.cpp | 700 |
1 files changed, 0 insertions, 700 deletions
diff --git a/TAO/TAO_IDL/util/utl_error.cpp b/TAO/TAO_IDL/util/utl_error.cpp deleted file mode 100644 index bbc38947132..00000000000 --- a/TAO/TAO_IDL/util/utl_error.cpp +++ /dev/null @@ -1,700 +0,0 @@ -/* - -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. - - */ - -// utl_error.cc - Implementation of error reporting object for IDL -// compiler program - -#include "idl.h" -#include "idl_extern.h" - -/* - * Helper functions to do: - * - * - Convert an error code to an error string - * - Print out an error message header - * - Convert an ExprType to a string - */ - -// Convert an error code into a char * -static char * -error_string(UTL_Error::ErrorCode c) -{ - switch (c) { - case UTL_Error::EIDL_OK: - return GTDEVEL("all is fine "); - case UTL_Error::EIDL_SYNTAX_ERROR: - return ""; - case UTL_Error::EIDL_REDEF: - return GTDEVEL("illegal redefinition "); - case UTL_Error::EIDL_DEF_USE: - return GTDEVEL("redefinition after use, "); - case UTL_Error::EIDL_MULTIPLE_BRANCH: - return GTDEVEL("union with duplicate branch label "); - case UTL_Error::EIDL_COERCION_FAILURE: - return GTDEVEL("coercion failure "); - case UTL_Error::EIDL_SCOPE_CONFLICT: - return GTDEVEL("definition scope is different than fwd declare scope, "); - case UTL_Error::EIDL_ONEWAY_CONFLICT: - return GTDEVEL("oneway operation with OUT or INOUT parameters, "); - case UTL_Error::EIDL_DISC_TYPE: - return GTDEVEL("union with illegal discriminator type, "); - case UTL_Error::EIDL_LABEL_TYPE: - return GTDEVEL("label type incompatible with union discriminator type, "); - case UTL_Error::EIDL_ILLEGAL_ADD: - return GTDEVEL("illegal add operation, "); - case UTL_Error::EIDL_ILLEGAL_USE: - return GTDEVEL("illegal type used in expression, "); - case UTL_Error::EIDL_ILLEGAL_RAISES: - return GTDEVEL("error in raises(..) clause, "); - case UTL_Error::EIDL_ILLEGAL_CONTEXT: - return GTDEVEL("error in context(..) clause, "); - case UTL_Error::EIDL_CANT_INHERIT: - return GTDEVEL("cannot inherit from "); - case UTL_Error::EIDL_LOOKUP_ERROR: - return GTDEVEL("error in lookup of symbol: "); - case UTL_Error::EIDL_INHERIT_FWD_ERROR: - /* More intelligible message printed by error routine */ - return ""; - case UTL_Error::EIDL_CONSTANT_EXPECTED: - return GTDEVEL("constant expected: "); - case UTL_Error::EIDL_EVAL_ERROR: - return GTDEVEL("expression evaluation error: "); - case UTL_Error::EIDL_NAME_CASE_ERROR: - return GTDEVEL("identifier used with two differing spellings: "); - case UTL_Error::EIDL_ENUM_VAL_EXPECTED: - return GTDEVEL("enumerator expected: "); - case UTL_Error::EIDL_ENUM_VAL_NOT_FOUND: - return GTDEVEL("enumerator by this name not defined: "); - case UTL_Error::EIDL_AMBIGUOUS: - return GTDEVEL("ambiguous definition: "); - case UTL_Error::EIDL_DECL_NOT_DEFINED: - return GTDEVEL("forward declared but never defined: "); - case UTL_Error::EIDL_FWD_DECL_LOOKUP: - /* More intelligible message printed by error routine */ - return ""; - case UTL_Error::EIDL_RECURSIVE_TYPE: - return GTDEVEL("illegal recursive use of type: "); - case UTL_Error::EIDL_NONVOID_ONEWAY: - return GTDEVEL("non-void return type in oneway operation: "); - case UTL_Error::EIDL_REDEF_SCOPE: - return GTDEVEL("redefinition inside defining scope: "); - case UTL_Error::EIDL_NOT_A_TYPE: - return GTDEVEL("specified symbol is not a type: "); - case UTL_Error::EIDL_BACK_END: - return GTDEVEL("back end: "); - } - return NULL; -} - -// Print out an error message header on cerr -static void -idl_error_header(UTL_Error::ErrorCode c, long lineno, String *s) -{ - cerr << idl_global->prog_name() - << ": \"" - << (idl_global->read_from_stdin() ? "standard input" : s->get_string()) - << GTDEVEL("\", line ") - << ((lineno == -1) ? idl_global->lineno() : lineno) - << ": " - << error_string(c); -} - -// Convert the type of an AST_Expression to a char * -static char * -exprtype_to_string(AST_Expression::ExprType t) -{ - switch (t) { - case AST_Expression::EV_short: - return "short"; - case AST_Expression::EV_ushort: - return "unsigned short"; - case AST_Expression::EV_long: - return "long"; - case AST_Expression::EV_ulong: - return "unsigned long"; - case AST_Expression::EV_float: - return "float"; - case AST_Expression::EV_double: - return "double"; - case AST_Expression::EV_char: - return "char"; - case AST_Expression::EV_octet: - return "octet"; - case AST_Expression::EV_bool: - return "boolean"; - case AST_Expression::EV_string: - return "string"; - case AST_Expression::EV_any: - return "any"; - case AST_Expression::EV_void: - return "void"; - case AST_Expression::EV_none: - return "none"; - case AST_Expression::EV_longlong: - case AST_Expression::EV_ulonglong: - case AST_Expression::EV_longdouble: - case AST_Expression::EV_wchar: - case AST_Expression::EV_wstring: - return NULL; - } - return NULL; -} - -/* - * Convert a parse state into a possible error message - */ -static char * -parse_state_to_error_message(IDL_GlobalData::ParseState ps) -{ - switch (ps) { - case IDL_GlobalData::PS_NoState: - return GTDEVEL("Statement can not be parsed"); - case IDL_GlobalData::PS_TypeDeclSeen: - return GTDEVEL("Malformed typedef declaration"); - case IDL_GlobalData::PS_ConstDeclSeen: - return GTDEVEL("Malformed const declaration"); - case IDL_GlobalData::PS_ExceptDeclSeen: - return - GTDEVEL("Malformed exception declaration"); - case IDL_GlobalData::PS_InterfaceDeclSeen: - return - GTDEVEL("Malformed interface declaration"); - case IDL_GlobalData::PS_ModuleDeclSeen: - return GTDEVEL("Malformed module declaration"); - case IDL_GlobalData::PS_AttrDeclSeen: - return - GTDEVEL("Malformed attribute declaration"); - case IDL_GlobalData::PS_OpDeclSeen: - return - GTDEVEL("Malformed operation declaration"); - case IDL_GlobalData::PS_ModuleSeen: - return GTDEVEL("Missing module identifier following MODULE keyword"); - case IDL_GlobalData::PS_ModuleIDSeen: - return GTDEVEL("Missing '{' or illegal syntax following module identifier"); - case IDL_GlobalData::PS_ModuleSqSeen: - return GTDEVEL("Illegal syntax following module '{' opener"); - case IDL_GlobalData::PS_ModuleQsSeen: - return GTDEVEL("Illegal syntax following module '}' closer"); - case IDL_GlobalData::PS_ModuleBodySeen: - return GTDEVEL("Illegal syntax following module body statement(s)"); - case IDL_GlobalData::PS_InterfaceSeen: - return GTDEVEL("Missing interface identifier following INTERFACE keyword"); - case IDL_GlobalData::PS_InterfaceIDSeen: - return GTDEVEL("Illegal syntax following interface identifier"); - case IDL_GlobalData::PS_InheritSpecSeen: - return GTDEVEL("Missing '{' or illegal syntax following inheritance spec"); - case IDL_GlobalData::PS_ForwardDeclSeen: - return GTDEVEL("Missing ';' following forward interface declaration"); - case IDL_GlobalData::PS_InterfaceSqSeen: - return GTDEVEL("Illegal syntax following interface '{' opener"); - case IDL_GlobalData::PS_InterfaceQsSeen: - return GTDEVEL("Illegal syntax following interface '}' closer"); - case IDL_GlobalData::PS_InterfaceBodySeen: - return GTDEVEL("Illegal syntax following interface body statement(s)"); - case IDL_GlobalData::PS_InheritColonSeen: - return GTDEVEL("Illegal syntax following ':' starting inheritance list"); - case IDL_GlobalData::PS_SNListCommaSeen: - return GTDEVEL("Found illegal scoped name in scoped name list"); - case IDL_GlobalData::PS_ScopedNameSeen: - return GTDEVEL("Missing ',' following scoped name in scoped name list"); - case IDL_GlobalData::PS_SN_IDSeen: - return GTDEVEL("Illegal component in scoped name"); - case IDL_GlobalData::PS_ScopeDelimSeen: - return GTDEVEL("Illegal component in scoped name following '::'"); - case IDL_GlobalData::PS_ConstSeen: - return GTDEVEL("Missing type or illegal syntax following CONST keyword"); - case IDL_GlobalData::PS_ConstTypeSeen: - return GTDEVEL("Missing identifier or illegal syntax following const type"); - case IDL_GlobalData::PS_ConstIDSeen: - return GTDEVEL("Missing '=' or illegal syntax after const identifier"); - case IDL_GlobalData::PS_ConstAssignSeen: - return GTDEVEL("Missing value expr or illegal syntax following '='"); - case IDL_GlobalData::PS_ConstExprSeen: - return GTDEVEL("Missing ';' or illegal syntax following value expr in const"); - case IDL_GlobalData::PS_TypedefSeen: - return GTDEVEL("Missing type or illegal syntax following TYPEDEF keyword"); - case IDL_GlobalData::PS_TypeSpecSeen: - return GTDEVEL("Missing declarators or illegal syntax following type spec"); - case IDL_GlobalData::PS_DeclaratorsSeen: - return GTDEVEL("Illegal syntax following declarators in TYPEDEF declaration"); - case IDL_GlobalData::PS_StructSeen: - return GTDEVEL("Missing struct identifier following STRUCT keyword"); - case IDL_GlobalData::PS_StructIDSeen: - return GTDEVEL("Missing '{' or illegal syntax following struct identifier"); - case IDL_GlobalData::PS_StructSqSeen: - return GTDEVEL("Illegal syntax following struct '{' opener"); - case IDL_GlobalData::PS_StructQsSeen: - return GTDEVEL("Illegal syntax following struct '}' closer"); - case IDL_GlobalData::PS_StructBodySeen: - return GTDEVEL("Illegal syntax following struct body statement(s)"); - case IDL_GlobalData::PS_MemberTypeSeen: - return GTDEVEL("Illegal syntax of missing identifier following member type"); - case IDL_GlobalData::PS_MemberDeclsSeen: - return GTDEVEL("Illegal syntax following member declarator(s)"); - case IDL_GlobalData::PS_MemberDeclsCompleted: - return GTDEVEL("Missing ',' between member decls of same type(?)"); - case IDL_GlobalData::PS_UnionSeen: - return GTDEVEL("Missing identifier following UNION keyword"); - case IDL_GlobalData::PS_UnionIDSeen: - return GTDEVEL("Illegal syntax following union identifier"); - case IDL_GlobalData::PS_SwitchSeen: - return GTDEVEL("Illegal syntax following SWITCH keyword"); - case IDL_GlobalData::PS_SwitchOpenParSeen: - return GTDEVEL("Illegal syntax following '(' in switch in union"); - case IDL_GlobalData::PS_SwitchTypeSeen: - return GTDEVEL("Illegal syntax following type decl in switch in union"); - case IDL_GlobalData::PS_SwitchCloseParSeen: - return GTDEVEL("Missing union '{' opener"); - case IDL_GlobalData::PS_UnionSqSeen: - return GTDEVEL("Illegal syntax following union '{' opener"); - case IDL_GlobalData::PS_UnionQsSeen: - return GTDEVEL("Illegal syntax following union '}' closer"); - case IDL_GlobalData::PS_DefaultSeen: - return GTDEVEL("Illegal syntax or missing ':' following DEFAULT keyword"); - case IDL_GlobalData::PS_UnionLabelSeen: - return GTDEVEL("Illegal syntax following branch label in union"); - case IDL_GlobalData::PS_LabelColonSeen: - return GTDEVEL("Illegal syntax following ':' in branch label in union"); - case IDL_GlobalData::PS_LabelExprSeen: - return GTDEVEL("Illegal syntax following label expression in union"); - case IDL_GlobalData::PS_UnionElemSeen: - case IDL_GlobalData::PS_UnionElemCompleted: - return GTDEVEL("Illegal syntax following union element"); - case IDL_GlobalData::PS_CaseSeen: - return GTDEVEL("Illegal syntax following CASE keyword in union"); - case IDL_GlobalData::PS_UnionElemTypeSeen: - return GTDEVEL("Illegal syntax following type decl in union element"); - case IDL_GlobalData::PS_UnionElemDeclSeen: - return GTDEVEL("Illegal syntax following declarator in union element"); - case IDL_GlobalData::PS_UnionBodySeen: - return GTDEVEL("Illegal syntax following union body statement(s)"); - case IDL_GlobalData::PS_EnumSeen: - return GTDEVEL("Illegal syntax or missing identifier following ENUM keyword"); - case IDL_GlobalData::PS_EnumIDSeen: - return GTDEVEL("Illegal syntax or missing '{' following enum identifier"); - case IDL_GlobalData::PS_EnumSqSeen: - return GTDEVEL("Illegal syntax following enum '{' opener"); - case IDL_GlobalData::PS_EnumQsSeen: - return GTDEVEL("Illegal syntax following enum '}' closer"); - case IDL_GlobalData::PS_EnumBodySeen: - return GTDEVEL("Illegal syntax following enum body statement(s)"); - case IDL_GlobalData::PS_EnumCommaSeen: - return GTDEVEL("Illegal syntax or missing identifier following ',' in enum"); - case IDL_GlobalData::PS_SequenceSeen: - return GTDEVEL("Illegal syntax or missing '<' following SEQUENCE keyword"); - case IDL_GlobalData::PS_SequenceSqSeen: - return GTDEVEL("Illegal syntax or missing type following '<' in sequence"); - case IDL_GlobalData::PS_SequenceQsSeen: - return GTDEVEL("Illegal syntax following '>' in sequence"); - case IDL_GlobalData::PS_SequenceTypeSeen: - return GTDEVEL("Illegal syntax following sequence type declaration"); - case IDL_GlobalData::PS_SequenceCommaSeen: - return - GTDEVEL("Illegal syntax of missing size expr following ',' in sequence"); - case IDL_GlobalData::PS_SequenceExprSeen: - return - GTDEVEL("Illegal syntax or missing '>' following size expr in sequence"); - case IDL_GlobalData::PS_StringSeen: - return GTDEVEL("Illegal syntax or missing '<' following STRING keyword"); - case IDL_GlobalData::PS_StringSqSeen: - return GTDEVEL("Illegal syntax or missing size expr following '<' in string"); - case IDL_GlobalData::PS_StringQsSeen: - return GTDEVEL("Illegal syntax following '>' in string"); - case IDL_GlobalData::PS_StringExprSeen: - return GTDEVEL("Illegal syntax or missing '>' after size expr in string"); - case IDL_GlobalData::PS_StringCompleted: - return GTDEVEL("Illegal syntax after string declaration"); - case IDL_GlobalData::PS_ArrayIDSeen: - return GTDEVEL("Illegal syntax or missing dimensions after array identifier"); - case IDL_GlobalData::PS_ArrayCompleted: - return GTDEVEL("Illegal syntax after array declaration"); - case IDL_GlobalData::PS_DimSqSeen: - return - GTDEVEL("Illegal syntax or missing size expr after '[' in array declaration"); - case IDL_GlobalData::PS_DimQsSeen: - return GTDEVEL("Illegal syntax after ']' in array declaration"); - case IDL_GlobalData::PS_DimExprSeen: - return - GTDEVEL("Illegal syntax or missing ']' after size expr in array declaration"); - case IDL_GlobalData::PS_AttrROSeen: - return GTDEVEL("Illegal syntax after READONLY keyword"); - case IDL_GlobalData::PS_AttrSeen: - return GTDEVEL("Illegal syntax after ATTRIBUTE keyword"); - case IDL_GlobalData::PS_AttrTypeSeen: - return GTDEVEL("Illegal syntax after type in attribute declaration"); - case IDL_GlobalData::PS_AttrDeclsSeen: - return GTDEVEL("Illegal syntax after attribute declarators"); - case IDL_GlobalData::PS_AttrCompleted: - return GTDEVEL("Illegal syntax after attribute declaration"); - case IDL_GlobalData::PS_ExceptSeen: - return - GTDEVEL("Illegal syntax or missing identifier after EXCEPTION keyword"); - case IDL_GlobalData::PS_ExceptIDSeen: - return GTDEVEL("Illegal syntax or missing '{' after exception identifier"); - case IDL_GlobalData::PS_ExceptSqSeen: - return GTDEVEL("Illegal syntax after exception '{' opener"); - case IDL_GlobalData::PS_ExceptQsSeen: - return GTDEVEL("Illegal syntax after exception '}' closer"); - case IDL_GlobalData::PS_ExceptBodySeen: - return GTDEVEL("Illegal syntax after exception body statement(s)"); - case IDL_GlobalData::PS_OpAttrSeen: - return GTDEVEL("Illegal syntax or missing type after operation attribute"); - case IDL_GlobalData::PS_OpTypeSeen: - return GTDEVEL("Illegal syntax or missing identifier after operation type"); - case IDL_GlobalData::PS_OpIDSeen: - return GTDEVEL("Illegal syntax or missing '(' after operation identifier"); - case IDL_GlobalData::PS_OpParsCompleted: - return GTDEVEL("Illegal syntax after operation parameter list"); - case IDL_GlobalData::PS_OpRaiseCompleted: - return - GTDEVEL("Illegal syntax after optional RAISES in operation declaration"); - case IDL_GlobalData::PS_OpContextCompleted: - return - GTDEVEL("Illegal syntax after optional CONTEXT in operation declaration"); - case IDL_GlobalData::PS_OpCompleted: - return GTDEVEL("Illegal syntax after operation declaration"); - case IDL_GlobalData::PS_OpSqSeen: - return GTDEVEL("Illegal syntax after operation parameter list '(' opener"); - case IDL_GlobalData::PS_OpQsSeen: - return GTDEVEL("Illegal syntax after operation parameter list ')' closer"); - case IDL_GlobalData::PS_OpParCommaSeen: - return - GTDEVEL("Illegal syntax or missing direction in parameter declaration"); - case IDL_GlobalData::PS_OpParDirSeen: - return GTDEVEL("Illegal syntax or missing type in parameter declaration"); - case IDL_GlobalData::PS_OpParTypeSeen: - return - GTDEVEL("Illegal syntax or missing declarator in parameter declaration"); - case IDL_GlobalData::PS_OpParDeclSeen: - return GTDEVEL("Illegal syntax following parameter declarator"); - case IDL_GlobalData::PS_OpRaiseSeen: - return GTDEVEL("Illegal syntax or missing '(' after RAISES keyword"); - case IDL_GlobalData::PS_OpRaiseSqSeen: - return GTDEVEL("Illegal syntax after RAISES '(' opener"); - case IDL_GlobalData::PS_OpRaiseQsSeen: - return GTDEVEL("Illegal syntax after RAISES ')' closer"); - case IDL_GlobalData::PS_OpContextSeen: - return GTDEVEL("Illegal syntax or missing '(' after CONTEXT keyword"); - case IDL_GlobalData::PS_OpContextSqSeen: - return GTDEVEL("Illegal syntax after CONTEXT '(' opener"); - case IDL_GlobalData::PS_OpContextQsSeen: - return GTDEVEL("Illegal syntax after CONTEXT ')' closer"); - case IDL_GlobalData::PS_OpContextCommaSeen: - return - GTDEVEL("Illegal syntax after ',' in CONTEXT in operation declaration"); - case IDL_GlobalData::PS_DeclsCommaSeen: - return GTDEVEL("Illegal syntax after ',' in declarators list"); - case IDL_GlobalData::PS_DeclsDeclSeen: - return GTDEVEL("Illegal syntax after declarator in declarators list"); - - default: - return GTDEVEL("Some syntax error"); - } -} -/* - * Public methods - */ - -// Report error messages with various numbers of arguments - -void -UTL_Error::syntax_error(IDL_GlobalData::ParseState ps) -{ - idl_error_header(EIDL_SYNTAX_ERROR, - idl_global->lineno(), - idl_global->filename()); - cerr << parse_state_to_error_message(ps) << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -void -UTL_Error::error0(UTL_Error::ErrorCode c) -{ - idl_error_header(c, idl_global->lineno(), idl_global->filename()); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -void -UTL_Error::error1(UTL_Error::ErrorCode c, AST_Decl *d) -{ - idl_error_header(c, d->line(), d->file_name()); - d->name()->dump(cerr); cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -void -UTL_Error::error2(UTL_Error::ErrorCode c, AST_Decl *d1, AST_Decl *d2) -{ - idl_error_header(c, d1->line(), d1->file_name()); - d1->name()->dump(cerr); cerr << ", "; - d2->name()->dump(cerr); cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -void -UTL_Error::error3(UTL_Error::ErrorCode c, - AST_Decl *d1, - AST_Decl *d2, - AST_Decl *d3) -{ - idl_error_header(c, d1->line(), d1->file_name()); - d1->name()->dump(cerr); cerr << ", "; - d2->name()->dump(cerr); cerr << ", "; - d3->name()->dump(cerr); cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a failed coercion attempt -void -UTL_Error::coercion_error(AST_Expression *v, AST_Expression::ExprType t) -{ - idl_error_header(EIDL_COERCION_FAILURE, v->line(), v->file_name()); - v->dump(cerr); - cerr << GTDEVEL(" to ") << exprtype_to_string(t) << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a failed name lookup attempt -void -UTL_Error::lookup_error(UTL_ScopedName *n) -{ - idl_error_header(EIDL_LOOKUP_ERROR, - idl_global->lineno(), - idl_global->filename()); - n->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report an attempt to inherit from an interface which was only -// declared forward but not yet defined -void -UTL_Error::inheritance_fwd_error(UTL_ScopedName *n, AST_Interface *f) -{ - idl_error_header(EIDL_INHERIT_FWD_ERROR, f->line(), f->file_name()); - cerr << "interface "; - n->dump(cerr); - cerr << GTDEVEL(" cannot inherit from forward declared interface "); - f->local_name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report an attempt to inherit from something other than an interface -void -UTL_Error::inheritance_error(UTL_ScopedName *n, AST_Decl *d) -{ - idl_error_header(EIDL_CANT_INHERIT, d->line(), d->file_name()); - cerr << " interface "; - n->dump(cerr); - cerr << GTDEVEL(" attempts to inherit from "); - d->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report an error while evaluating an expression -void -UTL_Error::eval_error(AST_Expression *v) -{ - idl_error_header(EIDL_EVAL_ERROR, v->line(), v->file_name()); - v->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a situation where a constant was expected but we -// got something else. This may occur in a union when a label -// evaluates to a non-constant -void -UTL_Error::constant_expected(UTL_ScopedName *n, AST_Decl *d) -{ - idl_error_header(EIDL_CONSTANT_EXPECTED, d->line(), d->file_name()); - n->dump(cerr); - cerr << GTDEVEL(" bound to "); - d->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a situation where an enumerator was expected but we -// got something else. This may occur in a union with an enum -// discriminator where a label did not evaluate to a constant -// enumerator -void -UTL_Error::enum_val_expected(AST_Union *u, AST_UnionLabel *l) -{ - idl_error_header(EIDL_ENUM_VAL_EXPECTED, u->line(), u->file_name()); - cerr << " union " << u->local_name()->get_string() << ", "; - l->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a situation where an enumerator was received but we -// could not find it (by name) in an enum. This occurs when -// a union with an enum discriminator is being parsed, and a -// label evaluates to an enumerator which is not a member of -// the enum discriminator type -void -UTL_Error::enum_val_lookup_failure(AST_Union *u, - AST_Enum *e, - UTL_ScopedName *n) -{ - idl_error_header(EIDL_ENUM_VAL_NOT_FOUND, u->line(), u->file_name()); - cerr << " union " << u->local_name()->get_string() << ", "; - cerr << " enum " << e->local_name()->get_string() << ", "; - cerr << " enumerator "; - n->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report two or more spellings for an identifier -void -UTL_Error::name_case_error(char *b, char *n) -{ - idl_error_header(EIDL_NAME_CASE_ERROR, - idl_global->lineno(), - idl_global->filename()); - cerr << "\"" << b << GTDEVEL("\" and ") << "\"" << n << "\"\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report an ambiguous definition of a name -void -UTL_Error::ambiguous(UTL_Scope *s, AST_Decl *l, AST_Decl *d) -{ - idl_error_header(EIDL_AMBIGUOUS, d->line(), d->file_name()); - cerr << GTDEVEL(" scope: ") - << (ScopeAsDecl(s))->local_name()->get_string() - << ", "; - cerr << GTDEVEL(" collision: "); - d->name()->dump(cerr); - cerr << " vs. "; - l->name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a forward declared interface which was never defined -void -UTL_Error::fwd_decl_not_defined(AST_Interface *d) -{ - idl_error_header(EIDL_DECL_NOT_DEFINED, d->line(), d->file_name()); - cerr << "interface "; - d->local_name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report lookup in undefined forward declared but undefined interface -void -UTL_Error::fwd_decl_lookup(AST_Interface *d, UTL_ScopedName *n) -{ - idl_error_header(EIDL_FWD_DECL_LOOKUP, - idl_global->lineno(), - idl_global->filename()); - cerr << GTDEVEL("trying to look up "); - n->dump(cerr); - cerr << GTDEVEL(" in undefined forward declared interface "); - d->local_name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report a redefinition inside its own scope -void -UTL_Error::redefinition_in_scope(AST_Decl *d, AST_Decl *s) -{ - idl_error_header(EIDL_REDEF_SCOPE, d->line(), d->file_name()); - d->name()->dump(cerr); - cerr << ", "; - s->name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -// Report not a type error -void -UTL_Error::not_a_type(AST_Decl *d) -{ - idl_error_header(EIDL_NOT_A_TYPE, - idl_global->lineno(), - idl_global->filename()); - if (d == NULL || d->name() == NULL) - cerr << GTDEVEL("unknown symbol"); - else - d->name()->dump(cerr); - cerr << "\n"; - idl_global->set_err_count(idl_global->err_count() + 1); -} - -void -UTL_Error::back_end(long lineno, String *s) -{ - idl_error_header(EIDL_BACK_END, lineno, s); - idl_global->set_err_count(idl_global->err_count() + 1); -} |