80829934ea
* debian/changelog
* Synced with 1.0.1.
* source/pp/ppcore.c
! Minor typo in one PP error message. (sync 1.0.1)
* Cleaned ":" from all PP error/warning messages to be
friendly with Eclipse.
* source/compiler/hbgenerr.c
* Cleaned some more ":" chars from compiler error/warning
messages to be friendly with Eclipse.
; NOTE: Few more still remain. If you have an idea how to rephrase these, pls tell:
"Bound error: '%s'"
"Syntax error: '%s'"
"Syntax error: \"%s at '%s'\""
"Invalid lvalue: '%s'"
"Invalid use of '@' (pass by reference): '%s'"
"3Incompatible type in assignment to declared array element expected: '%s'"
"4Suspicious type in assignment to declared array element expected: '%s'"
* utils/hbmake/hbmake.prg
* Updated by large patch from Bill Robertson.
Adds several enhancements, fixes and optimizations
to the previous version.
* utils/hbdoc/hbdoc.prg
* utils/hbmake/hbmake.prg
* utils/hbrun/hbrun.prg
* Changed the way version number is shown.
* utils/hbmake/hbmake.prg
* Updated MT lib lists. (untested)
* make_b32.mak
* Minor sync with make_vc.mak.
* make_vc.mak
* Attempt to implement hbvmmt.lib just like in
make_b32.mak to make them synced.
270 lines
10 KiB
C
270 lines
10 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Compiler parse errors & warnings messages
|
|
*
|
|
* Copyright 1999 {list of individual authors and e-mail addresses}
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version, with one exception:
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
* their web site at http://www.gnu.org/).
|
|
*
|
|
*/
|
|
|
|
#include "hbcomp.h"
|
|
|
|
/* Table with parse errors */
|
|
const char * hb_comp_szErrors[] =
|
|
{
|
|
"Statement not allowed outside of procedure or function",
|
|
"Redefinition of procedure or function '%s'",
|
|
"Duplicate variable declaration '%s'",
|
|
"%s declaration follows executable statement",
|
|
"Outer codeblock variable '%s' is out of reach",
|
|
"Invalid numeric format '.'",
|
|
"Unterminated string '%s'",
|
|
"Redefinition of predefined function %s as '%s'",
|
|
"Illegal variable '%s' initializer '%s'",
|
|
"ENDIF does not match IF",
|
|
"ENDDO does not match WHILE",
|
|
"ENDCASE does not match DO CASE",
|
|
"NEXT does not match FOR",
|
|
"ELSE does not match IF",
|
|
"ELSEIF does not match IF",
|
|
"Syntax error: '%s'",
|
|
"Unclosed control structure '%s'",
|
|
"%s statement with no loop in sight",
|
|
"Syntax error '%s' in '%s'",
|
|
"Incomplete statement or unbalanced delimiters",
|
|
"Incorrect number of arguments in %s %s",
|
|
"Invalid lvalue: '%s'",
|
|
"Invalid use of '@' (pass by reference): '%s'",
|
|
"Formal parameters already declared",
|
|
"Invalid %s from within of SEQUENCE code",
|
|
"Unterminated array index",
|
|
"Could not allocate %s byte(s)",
|
|
"Could not reallocate %s byte(s)",
|
|
"Freeing a NULL memory pointer",
|
|
"Syntax error: \"%s at '%s'\"",
|
|
"Jump offset too long",
|
|
"Can't create output file '%s'",
|
|
"Can't create preprocessed output file '%s'",
|
|
"Bad command line option '%s'",
|
|
"Bad command line parameter '%s'",
|
|
"Invalid filename '%s'",
|
|
"Mayhem in CASE handler",
|
|
"Operation not supported for data type '%s'",
|
|
"Invalid alias expression '%s'",
|
|
"Invalid array index expression '%s'",
|
|
"Bound error: '%s'",
|
|
"Macro of declared symbol '%s'",
|
|
"Invalid selector '%s' in send",
|
|
"ANNOUNCEd procedure '%s' must be a public symbol",
|
|
"Jump PCode not found",
|
|
"CASE or OTHERWISE does not match DO CASE",
|
|
"Code block contains both macro and declared symbol references '%s'",
|
|
"GET contains complex macro",
|
|
"Unterminated inline block in function '%s'",
|
|
"Too many inline blocks %s",
|
|
"Inline C requires C output generation, use -gc[n]",
|
|
"Too many local variables [%s] or parameters [%s]",
|
|
"Too many enumerate variables in FOR EACH loop",
|
|
"Incorrect number of enumerate variables",
|
|
"CASE requires either numeric or string constant",
|
|
"String too long for SWITCH",
|
|
"Invalid date constant '%s'",
|
|
"Memory buffer overflow",
|
|
"Memory corruption detected",
|
|
"Implicit send operator with no WITH OBJECT in sight",
|
|
"Input buffer overflow",
|
|
"Unsupported output language option",
|
|
"String too long",
|
|
"Code block size too big",
|
|
"%s not declared with variable number of parameters",
|
|
"Can't find %s file",
|
|
"Invalid ALWAYS after %s in RECOVER code",
|
|
/* Some historical, funny sounding error messages from original CA-Cl*pper.
|
|
They serve no purpose whatsoever. [vszakats] */
|
|
"END wreaks terrible vengeance on control stack",
|
|
"Control level closure leaves gaping wound in control stack",
|
|
"Ford Maverick error number",
|
|
"Something terrible has happened"
|
|
};
|
|
|
|
/* Table with parse warnings */
|
|
/* NOTE: The first character stores the warning's level that triggers this
|
|
* warning. The warning's level is set by -w<n> command line option.
|
|
*/
|
|
const char * hb_comp_szWarnings[] =
|
|
{
|
|
"1Ambiguous reference '%s'",
|
|
"1Ambiguous reference, assuming memvar '%s'",
|
|
"2Variable '%s' declared but not used in function '%s'",
|
|
"2Codeblock parameter '%s' declared but not used in function '%s'",
|
|
"1RETURN statement with no return value in function",
|
|
"1Procedure returns value",
|
|
"1Function '%s' does not end with RETURN statement",
|
|
"3Incompatible type in assignment to '%s', expected '%s'",
|
|
"3Incompatible operand type '%s', expected '%s'",
|
|
"3Incompatible operand types '%s' and '%s'",
|
|
"4Suspicious type in assignment to '%s', expected '%s'",
|
|
"4Suspicious operand type 'unknown', expected '%s'",
|
|
"3Can't use array index with non-array",
|
|
"3Incompatible return type '%s', expected '%s'",
|
|
"4Suspicious return type '%s', expected '%s'",
|
|
"3Invalid number of parameters %s, expected %s",
|
|
"3Incompatible parameter '%s', expected '%s'",
|
|
"4Suspicious parameter '%s', expected '%s'",
|
|
"3Duplicate declaration of %s '%s'",
|
|
"3Function '%s' conflicting with its declaration",
|
|
"3Variable '%s' used but never initialized",
|
|
"3Value of Variable '%s' never used",
|
|
"3Incompatible type in assignment to declared array element expected: '%s'",
|
|
"4Suspicious type in assignment to declared array element expected: '%s'",
|
|
"3Class '%s' not known in declaration of '%s'",
|
|
"3Message '%s' not known in class '%s'",
|
|
"0Meaningless use of expression '%s'",
|
|
"2Unreachable code",
|
|
"1Redundant 'ANNOUNCE %s' statement ignored",
|
|
"0Duplicate variable '%s' in nested FOR loop",
|
|
"0Invalid variable '%s' for enumerator message"
|
|
};
|
|
|
|
static void hb_compDispMessage( HB_COMP_DECL, char cPrefix, int iValue,
|
|
const char * szText, const char * szPar1, const char * szPar2 )
|
|
{
|
|
char buffer[ 512 ];
|
|
|
|
if( HB_COMP_PARAM->currModule )
|
|
{
|
|
snprintf( buffer, sizeof( buffer ), "\r%s(%i) ",
|
|
HB_COMP_PARAM->currModule, HB_COMP_PARAM->currLine );
|
|
hb_compOutErr( HB_COMP_PARAM, buffer );
|
|
}
|
|
|
|
snprintf( buffer, sizeof( buffer ), "%s %c%04i ",
|
|
cPrefix == 'W' ? "Warning" : "Error", cPrefix, iValue );
|
|
hb_compOutErr( HB_COMP_PARAM, buffer );
|
|
snprintf( buffer, sizeof( buffer ), szText, szPar1, szPar2 );
|
|
hb_compOutErr( HB_COMP_PARAM, buffer );
|
|
hb_compOutErr( HB_COMP_PARAM, "\n" );
|
|
}
|
|
|
|
void hb_compGenError( HB_COMP_DECL, const char * szErrors[], char cPrefix, int iError, const char * szError1, const char * szError2 )
|
|
{
|
|
if( !HB_COMP_PARAM->fExit && ( cPrefix == 'F' || !HB_COMP_PARAM->fError ) )
|
|
{
|
|
PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast;
|
|
|
|
hb_compDispMessage( HB_COMP_PARAM, cPrefix, iError,
|
|
szErrors[ iError - 1 ], szError1, szError2 );
|
|
|
|
HB_COMP_PARAM->iErrorCount++;
|
|
HB_COMP_PARAM->fError = TRUE;
|
|
while( pFunc )
|
|
{
|
|
pFunc->bError = TRUE;
|
|
pFunc = pFunc->pOwner;
|
|
}
|
|
/* fatal error - exit immediately */
|
|
if( cPrefix == 'F' )
|
|
HB_COMP_PARAM->fExit = TRUE;
|
|
}
|
|
}
|
|
|
|
void hb_compGenWarning( HB_COMP_DECL, const char * szWarnings[], char cPrefix, int iWarning, const char * szWarning1, const char * szWarning2)
|
|
{
|
|
const char * szText = szWarnings[ iWarning - 1 ];
|
|
|
|
if( !HB_COMP_PARAM->fExit && ( ( int ) ( szText[ 0 ] - '0' ) <= HB_COMP_PARAM->iWarnings ) )
|
|
{
|
|
hb_compDispMessage( HB_COMP_PARAM, cPrefix, iWarning,
|
|
szText + 1, szWarning1, szWarning2 );
|
|
|
|
HB_COMP_PARAM->fAnyWarning = TRUE; /* report warnings at exit */
|
|
}
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorLValue( HB_COMP_DECL, HB_EXPR_PTR pExpr )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_LVALUE, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorIndex( HB_COMP_DECL, HB_EXPR_PTR pExpr )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_INDEX, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorBound( HB_COMP_DECL, HB_EXPR_PTR pExpr )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_BOUND, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorAlias( HB_COMP_DECL, HB_EXPR_PTR pExpr )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_ALIAS, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorStatic( HB_COMP_DECL, const char * szVarName, HB_EXPR_PTR pExpr )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_ILLEGAL_INIT, szVarName, szDesc );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compWarnMeaningless( HB_COMP_DECL, HB_EXPR_PTR pExpr )
|
|
{
|
|
if( !HB_COMP_PARAM->fMeaningful )
|
|
{
|
|
const char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_MEANINGLESS, szDesc, NULL );
|
|
}
|
|
return pExpr;
|
|
}
|
|
|
|
void hb_compErrorCodeblock( HB_COMP_DECL, const char * szBlock )
|
|
{
|
|
BOOL fError = HB_COMP_PARAM->fError;
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_BLOCK, szBlock, NULL );
|
|
HB_COMP_PARAM->fError = fError; /* restore error flag for this line */
|
|
}
|
|
|
|
void hb_compErrorMacro( HB_COMP_DECL, const char *szText )
|
|
{
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_BAD_MACRO, szText, NULL );
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorRefer( HB_COMP_DECL, HB_EXPR_PTR pExpr, const char * szDesc )
|
|
{
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_REFER, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
void hb_compErrorVParams( HB_COMP_DECL, const char * szFuncOrBlock )
|
|
{
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_NOT_VPARAMS, szFuncOrBlock, NULL );
|
|
}
|