206 lines
7.2 KiB
C
206 lines
7.2 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:
|
|
*
|
|
* The exception is that if you link the Harbour Runtime Library (HRL)
|
|
* and/or the Harbour Virtual Machine (HVM) with other files to produce
|
|
* an executable, this does not by itself cause the resulting executable
|
|
* to be covered by the GNU General Public License. Your use of that
|
|
* executable is in no way restricted on account of linking the HRL
|
|
* and/or HVM code into it.
|
|
*
|
|
* 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 */
|
|
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 is out of reach: \'%s\'",
|
|
"Invalid numeric format '.'",
|
|
"Unterminated string: \'%s\'",
|
|
"Redefinition of predefined function %s: \'%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 structures",
|
|
"%s statement with no loop in sight",
|
|
"Syntax error: \'%s\' in: \'%s\'",
|
|
"Incomplete statement: %s",
|
|
"Incorrect number of arguments: %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",
|
|
"Memory allocation error",
|
|
"Memory reallocation error",
|
|
"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 this data type: \'%s\'",
|
|
"Invalid alias expression: \'%s\'",
|
|
"Invalid array index expression: \'%s\'",
|
|
"Bound error: \'%s\'",
|
|
"Macro of declared symbol: \'%s\'",
|
|
"Invalid selector in send: \'%s\'",
|
|
"ANNOUNCEd procedure \'%s\' must be a public symbol"
|
|
};
|
|
|
|
/* 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.
|
|
*/
|
|
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: \'Logical\'",
|
|
"3Incompatible operand type: \'%s\' expected: \'Numeric\'",
|
|
"3Incompatible operand types: \'%s\' and: \'%s\'",
|
|
"3Suspicious type in assignment to: \'%s\' expected: \'%s\'",
|
|
"3Suspicious operand type: \'UnKnown\' expected: \'%s\'",
|
|
"3Suspicious operand type: \'UnKnown\' expected: \'Logical\'",
|
|
"3Suspicious operand type: \'UnKnown\' expected: \'Numeric\'",
|
|
"0Meaningless use of expression: \'%s\'",
|
|
"2Unreachable code",
|
|
"1Redundant \'ANNOUNCE %s\' statement ignored"
|
|
};
|
|
|
|
void hb_compGenError( char * szErrors[], char cPrefix, int iError, char * szError1, char * szError2 )
|
|
{
|
|
if( hb_comp_files.pLast != NULL && hb_comp_files.pLast->szFileName != NULL )
|
|
printf( "\r%s(%i) ", hb_comp_files.pLast->szFileName, hb_comp_iLine + hb_pp_nEmptyStrings );
|
|
|
|
printf( "Error %c%04i ", cPrefix, iError );
|
|
printf( szErrors[ iError - 1 ], szError1, szError2 );
|
|
printf( "\n" );
|
|
|
|
hb_comp_iErrorCount++;
|
|
|
|
/* fatal error - exit immediately */
|
|
if( cPrefix == 'F' )
|
|
exit( EXIT_FAILURE );
|
|
}
|
|
|
|
void hb_compGenWarning( char * szWarnings[], char cPrefix, int iWarning, char * szWarning1, char * szWarning2)
|
|
{
|
|
char * szText = szWarnings[ iWarning - 1 ];
|
|
|
|
if( ( szText[ 0 ] - '0' ) <= hb_comp_iWarnings )
|
|
{
|
|
if( hb_comp_files.pLast != NULL && hb_comp_files.pLast->szFileName != NULL )
|
|
printf( "\r%s(%i) ", hb_comp_files.pLast->szFileName, hb_comp_iLine + hb_pp_nEmptyStrings );
|
|
printf( "Warning %c%04i ", cPrefix, iWarning );
|
|
printf( szText + 1, szWarning1, szWarning2 );
|
|
printf( "\n" );
|
|
|
|
hb_comp_bAnyWarning = TRUE; /* report warnings at exit */
|
|
}
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorLValue( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_LVALUE, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorType( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_TYPE, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorIndex( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_INDEX, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorBound( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_BOUND, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorSyntax( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_SYNTAX, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorAlias( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_INVALID_ALIAS, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compErrorStatic( char * szVarName, HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_ILLEGAL_INIT, szVarName, szDesc );
|
|
return pExpr;
|
|
}
|
|
|
|
void hb_compErrorDuplVar( char * szVarName )
|
|
{
|
|
hb_compGenError( hb_comp_szErrors, 'E', HB_COMP_ERR_VAR_DUPL, szVarName, NULL );
|
|
}
|
|
|
|
HB_EXPR_PTR hb_compWarnMeaningless( HB_EXPR_PTR pExpr )
|
|
{
|
|
char * szDesc = hb_compExprDescription( pExpr );
|
|
hb_compGenWarning( hb_comp_szWarnings, 'W', HB_COMP_WARN_MEANINGLESS, szDesc, NULL );
|
|
return pExpr;
|
|
}
|
|
|