17a72b54cf
* source/compiler/hbcomp.c
! Changed error messaged to go to stderr on non-Unix
platforms too. With this change the Harbour compiler
uses the same output on non-Unix platforms as on Unixes.
With Przemek's previous and now this change, the
compiler uses stdout/stderr in the standard way
(messages to stdout, warnings/errors to stderr),
instead of being more or less CA-Cl*pper compatible.
(in CA-Cl*pper startup msg plus some info went to
stderr and errors/warnings and some other progress
info went to stdout)
* source/compiler/hbusage.c
+ Added -f* switches to help screen.
* source/compiler/cmdcheck.c
! -r=<max> -> -r:<max>
* contrib/libct/screen2.c
* contrib/libct/cursor.c
* contrib/libct/ctstrfil.c
! Fixed MSVC warnings.
* contrib/libct/make_b32.bat
* contrib/libct/make_vc.bat
* contrib/htmllib/Makefile.bc
* Changed to not generate .ppo output on build.
* contrib/libct/make_b32.bat
* contrib/libct/make_vc.bat
- contrib/libct/makefile.bc
- contrib/libct/makefile.vc
+ contrib/libct/common.mak
+ contrib/maketpl.b32
+ contrib/maketpl.vc
+ contrib/maketpl.mak
+ Added BC/VC non-GNU generic make script for contribs.
+ Using the above generic make scripts to build LIBCT.
Notice BC/VC now uses one make file per contrib project
named common.mak. The two helper batch files are essentially
identical for BC and VC, and there is no reduancy or any
complexity in common.mak (they much resemble in content
to Makefile).
Notice that with this new system users have to call
make_[b32|vc].bat INSTALL in order to get the libs and
headers installed in the final lib/header destinations.
(This step was previously done automatically by the .bat
files in LIBCT - or maybe not in other contribs.)
The new scripts also have a generic CLEAN functionality.
; Thanks Marek Paliwoda for the generic make scripts.
1084 lines
35 KiB
C
1084 lines
35 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Compiler command line and HARBOURCMD/CLIPPERCMD checking
|
|
*
|
|
* 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/).
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* Copyright 2000 Ron Pinkas <Ron@Profit-Master.com>
|
|
* hb_compChkCompilerSwitch()
|
|
*
|
|
* Copyright 1999 Jose Lalin <dezac@corevia.com>
|
|
* hb_compChkEnvironVar()
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.hu>
|
|
* PackDateTime()
|
|
* hb_compChkDefineSwitch()
|
|
* hb_compChkDefines()
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
#include "hbcomp.h"
|
|
|
|
#if defined(HB_OS_WIN_32)
|
|
#include <windows.h>
|
|
#else
|
|
#include <time.h>
|
|
#endif
|
|
|
|
/* TODO: Add support for this compiler switches
|
|
-r -t || hb_getenv( "TMP" )
|
|
*/
|
|
|
|
|
|
/* NOTE: Making the date and time info to fit into 32 bits can only be done
|
|
in a "lossy" way, in practice that means it's not possible to unpack
|
|
the exact date/time info from the resulting ULONG. Since the year
|
|
is only stored in 6 bits, 1980 will result in the same bit pattern
|
|
as 2044. The purpose of this value is only used to *differenciate*
|
|
between the dates ( the exact dates are not significant ), so this
|
|
can be used here without problems. [vszakats] */
|
|
|
|
/* 76543210765432107654321076543210
|
|
|.......|.......|.......|.......
|
|
|____| Year 6 bits
|
|
|__| Month 4 bits
|
|
|___| Day 5 bits
|
|
|___| Hour 5 bits
|
|
|____| Minute 6 bits
|
|
|____| Second 6 bits */
|
|
|
|
static ULONG PackDateTime( void )
|
|
{
|
|
BYTE szString[4];
|
|
BYTE nValue;
|
|
|
|
#if defined(HB_OS_WIN_32)
|
|
SYSTEMTIME st;
|
|
|
|
GetLocalTime( &st );
|
|
|
|
nValue = ( BYTE ) ( ( st.wYear - 1980 ) & ( 2 ^ 6 ) ); /* 6 bits */
|
|
szString[0] = nValue << 2;
|
|
nValue = ( BYTE ) ( st.wMonth ); /* 4 bits */
|
|
szString[0] |= nValue >> 2;
|
|
szString[1] = nValue << 6;
|
|
nValue = ( BYTE ) ( st.wDay ); /* 5 bits */
|
|
szString[1] |= nValue << 1;
|
|
|
|
nValue = ( BYTE ) st.wHour; /* 5 bits */
|
|
szString[1] = nValue >> 4;
|
|
szString[2] = nValue << 4;
|
|
nValue = ( BYTE ) st.wMinute; /* 6 bits */
|
|
szString[2] |= nValue >> 2;
|
|
szString[3] = nValue << 6;
|
|
nValue = ( BYTE ) st.wSecond; /* 6 bits */
|
|
szString[3] |= nValue;
|
|
#else
|
|
time_t t;
|
|
struct tm *oTime;
|
|
|
|
#if defined( HB_OS_LINUX ) && !defined( __WATCOMC__ )
|
|
struct tm tm;
|
|
time( &t );
|
|
oTime = &tm;
|
|
localtime_r( &t, oTime );
|
|
#else
|
|
time( &t );
|
|
oTime = localtime( &t );
|
|
#endif
|
|
|
|
nValue = ( BYTE ) ( ( ( oTime->tm_year + 1900 ) - 1980 ) & ( 2 ^ 6 ) ); /* 6 bits */
|
|
szString[0] = nValue << 2;
|
|
nValue = ( BYTE ) ( oTime->tm_mon + 1 ); /* 4 bits */
|
|
szString[0] |= nValue >> 2;
|
|
szString[1] = nValue << 6;
|
|
nValue = ( BYTE ) ( oTime->tm_mday ); /* 5 bits */
|
|
szString[1] |= nValue << 1;
|
|
|
|
nValue = ( BYTE ) oTime->tm_hour; /* 5 bits */
|
|
szString[1] = nValue >> 4;
|
|
szString[2] = nValue << 4;
|
|
nValue = ( BYTE ) oTime->tm_min; /* 6 bits */
|
|
szString[2] |= nValue >> 2;
|
|
szString[3] = nValue << 6;
|
|
nValue = ( BYTE ) oTime->tm_sec; /* 6 bits */
|
|
szString[3] |= nValue;
|
|
#endif
|
|
|
|
return HB_MKLONG( szString[3], szString[2], szString[1], szString[0] );
|
|
}
|
|
|
|
static void hb_notSupportedInfo( HB_COMP_DECL, char *szSwitch )
|
|
{
|
|
char buffer[ 512 ];
|
|
|
|
snprintf( buffer, sizeof( buffer ),
|
|
"Not yet supported command line option: %s\n", szSwitch );
|
|
|
|
hb_compOutStd( HB_COMP_PARAM, buffer );
|
|
}
|
|
|
|
static void hb_compChkEnvironVar( HB_COMP_DECL, char *szSwitch )
|
|
{
|
|
if( szSwitch && !HB_COMP_PARAM->fExit )
|
|
{
|
|
char *s = szSwitch;
|
|
|
|
/* If szSwitch doesn't start with a HB_OSOPTSEP char
|
|
* show an error
|
|
*/
|
|
if( !HB_ISOPTSEP( *s ) )
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
else
|
|
{
|
|
s++;
|
|
switch( *s )
|
|
{
|
|
case 'a':
|
|
case 'A':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fAutoMemvarAssume = FALSE;
|
|
else
|
|
HB_COMP_PARAM->fAutoMemvarAssume = TRUE;
|
|
break;
|
|
|
|
case 'b':
|
|
case 'B':
|
|
{
|
|
unsigned int i = 0;
|
|
char *szOption = hb_strupr( hb_strdup( s ) );
|
|
|
|
while( i < strlen( szOption ) && !HB_ISOPTSEP( szOption[i] ) )
|
|
i++;
|
|
szOption[i] = '\0';
|
|
|
|
if( strcmp( szOption, "BUILD" ) == 0 )
|
|
HB_COMP_PARAM->fBuildInfo = TRUE;
|
|
else
|
|
{
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fDebugInfo = FALSE;
|
|
else
|
|
{
|
|
HB_COMP_PARAM->fDebugInfo = TRUE;
|
|
HB_COMP_PARAM->fLineNumbers = TRUE;
|
|
}
|
|
}
|
|
|
|
hb_xfree( szOption );
|
|
break;
|
|
}
|
|
|
|
case 'c':
|
|
case 'C':
|
|
{
|
|
unsigned int i = 0;
|
|
char *szOption = hb_strupr( hb_strdup( s ) );
|
|
|
|
while( i < strlen( szOption ) && !HB_ISOPTSEP( szOption[i] ) )
|
|
i++;
|
|
szOption[i] = '\0';
|
|
|
|
if( strcmp( szOption, "CREDITS" ) == 0 ||
|
|
strcmp( szOption, "CREDIT" ) == 0 || strcmp( szOption, "CREDI" ) == 0 || strcmp( szOption, "CRED" ) == 0 )
|
|
HB_COMP_PARAM->fCredits = TRUE;
|
|
else
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, szOption, NULL );
|
|
|
|
hb_xfree( szOption );
|
|
break;
|
|
}
|
|
|
|
case 'd':
|
|
case 'D':
|
|
/* NOTE: Ignore these -d switches will be processed separately */
|
|
break;
|
|
|
|
case 'e':
|
|
case 'E':
|
|
if( *( s + 1 ) == 's' || *( s + 1 ) == 'S' )
|
|
{
|
|
switch( *( s + 2 ) )
|
|
{
|
|
case '\0':
|
|
case '0':
|
|
HB_COMP_PARAM->iExitLevel = HB_EXITLEVEL_DEFAULT;
|
|
break;
|
|
|
|
case '1':
|
|
HB_COMP_PARAM->iExitLevel = HB_EXITLEVEL_SETEXIT;
|
|
break;
|
|
|
|
case '2':
|
|
HB_COMP_PARAM->iExitLevel = HB_EXITLEVEL_DELTARGET;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
}
|
|
}
|
|
else
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
|
|
break;
|
|
|
|
case 'g':
|
|
case 'G':
|
|
switch( *( s + 1 ) )
|
|
{
|
|
case 'c':
|
|
case 'C':
|
|
HB_COMP_PARAM->iLanguage = HB_LANG_C;
|
|
|
|
switch( *( s + 2 ) )
|
|
{
|
|
case '3':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_REALCODE;
|
|
break;
|
|
|
|
case '\0':
|
|
case '2':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_VERBOSE;
|
|
break;
|
|
|
|
case '1':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_NORMAL;
|
|
break;
|
|
|
|
case '0':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_COMPACT;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
}
|
|
break;
|
|
|
|
case 'o':
|
|
case 'O':
|
|
HB_COMP_PARAM->iLanguage = HB_LANG_OBJ_MODULE;
|
|
|
|
switch( *( s + 2 ) )
|
|
{
|
|
case '3':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_REALCODE;
|
|
break;
|
|
|
|
case '2':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_VERBOSE;
|
|
break;
|
|
|
|
case '1':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_NORMAL;
|
|
break;
|
|
|
|
case '\0':
|
|
case '0':
|
|
HB_COMP_PARAM->iGenCOutput = HB_COMPGENC_COMPACT;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
}
|
|
break;
|
|
|
|
case 'h':
|
|
case 'H':
|
|
HB_COMP_PARAM->iLanguage = HB_LANG_PORT_OBJ;
|
|
break;
|
|
|
|
case 'w':
|
|
case 'W':
|
|
HB_COMP_PARAM->iLanguage = HB_LANG_OBJ32;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_UNSUPPORTED_LANG, NULL, NULL );
|
|
break;
|
|
}
|
|
break;
|
|
|
|
/* NOTE:
|
|
h or H from HELP or help
|
|
*/
|
|
case 'h':
|
|
case 'H':
|
|
case '?':
|
|
break;
|
|
|
|
/* NOTE:
|
|
It already has support for several include files
|
|
*/
|
|
case 'i':
|
|
case 'I':
|
|
hb_pp_addSearchPath( HB_COMP_PARAM->pLex->pPP, s + 1, FALSE );
|
|
break;
|
|
|
|
case 'k':
|
|
case 'K':
|
|
{
|
|
int i = 1;
|
|
|
|
while( s[i] && !HB_COMP_PARAM->fExit )
|
|
{
|
|
switch( s[i++] )
|
|
{
|
|
case '?':
|
|
hb_compPrintLogo( HB_COMP_PARAM );
|
|
hb_compPrintModes( HB_COMP_PARAM );
|
|
HB_COMP_PARAM->fLogo = FALSE;
|
|
HB_COMP_PARAM->fQuiet = TRUE;
|
|
break;
|
|
|
|
case 'h':
|
|
/* default Harbour mode */
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_HARBOUR;
|
|
break;
|
|
|
|
case 'c':
|
|
/* clear all flags - minimal set of features */
|
|
HB_COMP_PARAM->supported &= HB_COMPFLAG_SHORTCUTS;
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_OPTJUMP;
|
|
break;
|
|
|
|
case 'x':
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_XBASE;
|
|
break;
|
|
|
|
case 'i':
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_HB_INLINE;
|
|
break;
|
|
|
|
case 'J':
|
|
HB_COMP_PARAM->supported &= ~HB_COMPFLAG_OPTJUMP;
|
|
break;
|
|
|
|
case 'M':
|
|
HB_COMP_PARAM->supported &= ~HB_COMPFLAG_MACROTEXT;
|
|
break;
|
|
|
|
case 'r':
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_RT_MACRO;
|
|
break;
|
|
|
|
case 's':
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_ARRSTR;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 'l':
|
|
case 'L':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fLineNumbers = TRUE;
|
|
else
|
|
HB_COMP_PARAM->fLineNumbers = FALSE;
|
|
break;
|
|
|
|
case 'm':
|
|
case 'M':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fAutoOpen = TRUE;
|
|
else
|
|
HB_COMP_PARAM->fAutoOpen = FALSE;
|
|
break;
|
|
|
|
case 'n':
|
|
case 'N':
|
|
/*
|
|
-n1 no start up procedure and no implicit start up procedure
|
|
*/
|
|
if( *( s + 1 ) == '1' )
|
|
{
|
|
HB_COMP_PARAM->fStartProc = FALSE;
|
|
HB_COMP_PARAM->fNoStartUp = TRUE;
|
|
}
|
|
/*
|
|
-n or -n0 no implicit start up procedure
|
|
*/
|
|
else if( ( *( s + 1 ) == '0' ) || ( *( s + 1 ) == '\0' ) )
|
|
HB_COMP_PARAM->fStartProc = FALSE;
|
|
/*
|
|
-n- ceates implicit start up procedure
|
|
*/
|
|
else if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fStartProc = TRUE;
|
|
else
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
break;
|
|
|
|
case 'o':
|
|
case 'O':
|
|
{
|
|
char *szPath = hb_strdup( s + 1 );
|
|
|
|
HB_COMP_PARAM->pOutPath = hb_fsFNameSplit( szPath );
|
|
hb_xfree( szPath );
|
|
break;
|
|
}
|
|
|
|
/* Added for preprocessor needs */
|
|
case 'p':
|
|
case 'P':
|
|
if( s[ 1 ] == '+' && s[ 2 ] == '\0' )
|
|
HB_COMP_PARAM->fPPT = TRUE;
|
|
else if( s[ 1 ] == '-' && s[ 2 ] == '\0' )
|
|
HB_COMP_PARAM->fPPO = FALSE;
|
|
else
|
|
{
|
|
if( HB_COMP_PARAM->pPpoPath )
|
|
{
|
|
HB_COMP_PARAM->pPpoPath = NULL;
|
|
hb_xfree( HB_COMP_PARAM->pPpoPath );
|
|
}
|
|
if( s[ 1 ] )
|
|
HB_COMP_PARAM->pPpoPath = hb_fsFNameSplit( s + 1 );
|
|
HB_COMP_PARAM->fPPO = TRUE;
|
|
}
|
|
break;
|
|
|
|
case 'q':
|
|
case 'Q':
|
|
switch( *( s + 1 ) )
|
|
{
|
|
case '2':
|
|
HB_COMP_PARAM->fFullQuiet = TRUE;
|
|
case '0':
|
|
HB_COMP_PARAM->fLogo = FALSE;
|
|
default:
|
|
HB_COMP_PARAM->fQuiet = TRUE;
|
|
}
|
|
break;
|
|
|
|
case 'r':
|
|
case 'R':
|
|
if( *( s + 1 ) == ':' )
|
|
{
|
|
int iOverflow;
|
|
int iCycles = ( int ) hb_strValInt( s + 2, &iOverflow );
|
|
|
|
if( !iOverflow && iCycles > 0 )
|
|
HB_COMP_PARAM->iMaxTransCycles = iCycles;
|
|
}
|
|
else
|
|
{
|
|
/* TODO: Implement this switch */
|
|
hb_notSupportedInfo( HB_COMP_PARAM, s );
|
|
}
|
|
break;
|
|
|
|
case 's':
|
|
case 'S':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fSyntaxCheckOnly = FALSE;
|
|
else
|
|
HB_COMP_PARAM->fSyntaxCheckOnly = TRUE;
|
|
break;
|
|
|
|
case 't':
|
|
case 'T':
|
|
/* TODO: Implement this switch */
|
|
hb_notSupportedInfo( HB_COMP_PARAM, s );
|
|
break;
|
|
|
|
case 'u':
|
|
case 'U':
|
|
if( s[1] && toupper( s[1] ) == 'N'
|
|
&& s[2] && toupper( s[2] ) == 'D' && s[3] && toupper( s[3] ) == 'E' && s[4] && toupper( s[4] ) == 'F' && s[5] == ':' )
|
|
{
|
|
/* NOTE: Ignore these -undef: switches will be processed separately */
|
|
break;
|
|
}
|
|
HB_COMP_PARAM->szStdCh = hb_strdup( s + 1 );
|
|
break;
|
|
|
|
case 'v':
|
|
case 'V':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->fForceMemvars = FALSE;
|
|
else
|
|
HB_COMP_PARAM->fForceMemvars = TRUE;
|
|
break;
|
|
|
|
case 'w':
|
|
case 'W':
|
|
HB_COMP_PARAM->iWarnings = 1;
|
|
if( s[1] )
|
|
{ /*there is -w<0,1,2,3> probably */
|
|
HB_COMP_PARAM->iWarnings = s[1] - '0';
|
|
if( HB_COMP_PARAM->iWarnings < 0 || HB_COMP_PARAM->iWarnings > 3 )
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
}
|
|
break;
|
|
|
|
case 'x':
|
|
case 'X':
|
|
{
|
|
unsigned int i = 1;
|
|
while( s[i] && !HB_ISOPTSEP( s[i] ) &&
|
|
i < sizeof( HB_COMP_PARAM->szPrefix ) - 1 )
|
|
{
|
|
++i;
|
|
}
|
|
if( i > 1 )
|
|
{
|
|
memcpy( HB_COMP_PARAM->szPrefix, s + 1, i - 1 );
|
|
HB_COMP_PARAM->szPrefix[ i - 1 ] = '_';
|
|
HB_COMP_PARAM->szPrefix[ i ] = '\0';
|
|
}
|
|
else
|
|
{
|
|
snprintf( HB_COMP_PARAM->szPrefix,
|
|
sizeof( HB_COMP_PARAM->szPrefix ),
|
|
"%08lX_", PackDateTime() );
|
|
}
|
|
break;
|
|
}
|
|
|
|
#ifdef YYDEBUG
|
|
case 'y':
|
|
case 'Y':
|
|
yydebug = TRUE;
|
|
break;
|
|
#endif
|
|
|
|
case 'z':
|
|
case 'Z':
|
|
if( *( s + 1 ) == '-' )
|
|
HB_COMP_PARAM->supported |= HB_COMPFLAG_SHORTCUTS;
|
|
else
|
|
HB_COMP_PARAM->supported &= ~HB_COMPFLAG_SHORTCUTS;
|
|
break;
|
|
|
|
default:
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, s, NULL );
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void hb_compChkCompilerSwitch( HB_COMP_DECL, int iArg, char *Args[] )
|
|
{
|
|
/* If iArg is passed check the command line options */
|
|
if( iArg )
|
|
{
|
|
int i;
|
|
|
|
/* Check all switches in command line
|
|
They start with an OS_OPT_DELIMITER char
|
|
*/
|
|
for( i = 0; i < iArg && !HB_COMP_PARAM->fExit; i++ )
|
|
{
|
|
if( !HB_ISOPTSEP( Args[i][0] ) )
|
|
continue;
|
|
|
|
if( Args[i][0] == '-' )
|
|
{
|
|
int j = 1;
|
|
char Switch[7];
|
|
|
|
Switch[0] = '-';
|
|
|
|
while( Args[i][j] && !HB_COMP_PARAM->fExit )
|
|
{
|
|
Switch[1] = Args[i][j];
|
|
|
|
if( Args[i][j + 1] == '-' )
|
|
{
|
|
Switch[2] = '-';
|
|
Switch[3] = '\0';
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
|
|
j += 2;
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
switch( Switch[1] )
|
|
{
|
|
case 'b':
|
|
case 'B':
|
|
if( Args[i][j + 1] && toupper( ( BYTE ) Args[i][j + 1] ) == 'U' &&
|
|
Args[i][j + 2] && toupper( ( BYTE ) Args[i][j + 2] ) == 'I' &&
|
|
Args[i][j + 3] && toupper( ( BYTE ) Args[i][j + 3] ) == 'L' &&
|
|
Args[i][j + 4] && toupper( ( BYTE ) Args[i][j + 4] ) == 'D' )
|
|
{
|
|
Switch[2] = 'U';
|
|
Switch[3] = 'I';
|
|
Switch[4] = 'L';
|
|
Switch[5] = 'D';
|
|
Switch[6] = '\0';
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
|
|
j += 5;
|
|
continue;
|
|
}
|
|
else if( !Args[i][j + 1] )
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
j += 1;
|
|
continue;
|
|
}
|
|
break;
|
|
|
|
case 'c':
|
|
case 'C':
|
|
if( Args[i][j + 1] && toupper( ( BYTE ) Args[i][j + 1] ) == 'R' &&
|
|
Args[i][j + 2] && toupper( ( BYTE ) Args[i][j + 2] ) == 'E' &&
|
|
Args[i][j + 3] && toupper( ( BYTE ) Args[i][j + 3] ) == 'D' )
|
|
{
|
|
Switch[2] = 'R';
|
|
Switch[3] = 'E';
|
|
Switch[4] = 'D';
|
|
Switch[5] = '\0';
|
|
|
|
j += 4;
|
|
|
|
if( Args[i][j] && toupper( ( BYTE ) Args[i][j] ) == 'I' )
|
|
{
|
|
j++;
|
|
if( Args[i][j] && toupper( ( BYTE ) Args[i][j] ) == 'T' )
|
|
{
|
|
j++;
|
|
if( Args[i][j] && toupper( ( BYTE ) Args[i][j] ) == 'S' )
|
|
{
|
|
j++;
|
|
}
|
|
}
|
|
}
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
}
|
|
else
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, ( char * ) Switch, NULL );
|
|
}
|
|
continue;
|
|
|
|
case 'd':
|
|
case 'D':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as part of #define and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case 'e':
|
|
case 'E':
|
|
if( toupper( ( BYTE ) Args[i][j + 1] ) == 'S' && isdigit( ( BYTE ) Args[i][j + 2] ) )
|
|
{
|
|
Switch[2] = 'S';
|
|
Switch[3] = Args[i][j + 2];
|
|
Switch[4] = '\0';
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
j += 3;
|
|
}
|
|
else
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, ( char * ) Switch, NULL );
|
|
}
|
|
continue;
|
|
|
|
case 'g':
|
|
case 'G':
|
|
/* Required argument */
|
|
Switch[2] = Args[i][j + 1];
|
|
if( Switch[2] )
|
|
{
|
|
if( isdigit( ( BYTE ) Args[i][j + 2] ) )
|
|
{
|
|
/* Optional argument */
|
|
Switch[3] = Args[i][j + 2];
|
|
Switch[4] = '\0';
|
|
j += 3;
|
|
}
|
|
else
|
|
{
|
|
/* No optional argument */
|
|
Switch[3] = '\0';
|
|
j += 2;
|
|
}
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
}
|
|
else
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, ( char * ) Switch, NULL );
|
|
continue;
|
|
|
|
case 'i':
|
|
case 'I':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as IncludePath and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case 'k':
|
|
case 'K':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as part of #define and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case 'n':
|
|
case 'N':
|
|
/* Required argument */
|
|
if( Args[i][j + 1] )
|
|
{
|
|
/* Optional argument */
|
|
Switch[2] = Args[i][j + 1];
|
|
Switch[3] = '\0';
|
|
j += 2;
|
|
}
|
|
else
|
|
{
|
|
/* No optional argument */
|
|
Switch[2] = '\0';
|
|
j += 1;
|
|
}
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
continue;
|
|
|
|
case 'o':
|
|
case 'O':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as OutputPath and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case 'p':
|
|
case 'P':
|
|
if( Args[i][j + 1] )
|
|
{
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as PPOPath and continue with next Args[]. */
|
|
j += strlen( Args[i] ) - 1;
|
|
}
|
|
else
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
j++;
|
|
}
|
|
continue;
|
|
|
|
case 'q':
|
|
case 'Q':
|
|
if( Args[i][j + 1] && isdigit( ( BYTE ) Args[i][j + 1] ) )
|
|
{
|
|
Switch[2] = Args[i][j + 1];
|
|
Switch[3] = '\0';
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
|
|
j += 2;
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
}
|
|
|
|
break;
|
|
|
|
case 'r':
|
|
case 'R':
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
j = strlen( Args[i] ) - 1;
|
|
break;
|
|
|
|
case 'u':
|
|
case 'U':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as part of .CH Path or "undef:<id>" and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case 'w':
|
|
case 'W':
|
|
if( Args[i][j + 1] && isdigit( ( BYTE ) Args[i][j + 1] ) )
|
|
{
|
|
Switch[2] = Args[i][j + 1];
|
|
Switch[3] = '\0';
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
|
|
j += 2;
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
Switch[2] = '\0';
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
}
|
|
|
|
break;
|
|
|
|
case 'x':
|
|
case 'X':
|
|
Args[i] += ( j - 1 );
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
/* Accept rest as INIT Symbol and continue with next Args[]. */
|
|
j = strlen( Args[i] );
|
|
continue;
|
|
|
|
case '-':
|
|
{
|
|
int l = ++j;
|
|
while( Args[i][j] && !HB_ISOPTSEP( Args[i][j] ) )
|
|
j++;
|
|
if( Args[i][l-1] == '-' && j-l == 7 &&
|
|
memcmp( &Args[i][l], "version", 7 ) == 0 )
|
|
{
|
|
HB_COMP_PARAM->fLogo = TRUE;
|
|
HB_COMP_PARAM->fQuiet = TRUE;
|
|
}
|
|
else
|
|
hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_BADOPTION, &Args[i][l], NULL );
|
|
if( Args[i][j] )
|
|
++j;
|
|
continue;
|
|
}
|
|
default:
|
|
Switch[2] = '\0';
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, ( char * ) Switch );
|
|
}
|
|
}
|
|
|
|
j++;
|
|
}
|
|
continue;
|
|
}
|
|
|
|
while( !HB_COMP_PARAM->fExit )
|
|
{
|
|
int j = 1;
|
|
|
|
while( Args[i][j] && !HB_ISOPTSEP( Args[i][j] ) )
|
|
j++;
|
|
|
|
if( Args[i][j] && Args[i][j] == '/' )
|
|
{
|
|
char cSep = Args[i][j];
|
|
|
|
Args[i][j] = 0;
|
|
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
|
|
Args[i] += j;
|
|
Args[i][0] = cSep;
|
|
}
|
|
else
|
|
{
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
/* Chech the environment variables */
|
|
{
|
|
/* NOTE: CLIPPERCMD enviroment variable
|
|
is overriden if HARBOURCMD exists
|
|
*/
|
|
char *szStrEnv = hb_getenv( "HARBOURCMD" );
|
|
|
|
if( !szStrEnv || szStrEnv[0] == '\0' )
|
|
{
|
|
if( szStrEnv )
|
|
hb_xfree( ( void * ) szStrEnv );
|
|
|
|
szStrEnv = hb_getenv( "CLIPPERCMD" );
|
|
}
|
|
|
|
if( szStrEnv )
|
|
{
|
|
char *szSwitch, *szPtr;
|
|
|
|
szPtr = szStrEnv;
|
|
while( *szPtr && !HB_COMP_PARAM->fExit )
|
|
{
|
|
while( *szPtr == ' ' )
|
|
++szPtr;
|
|
szSwitch = szPtr;
|
|
if( *szSwitch )
|
|
{
|
|
while( *++szPtr )
|
|
{
|
|
if( *szPtr == ' ' )
|
|
{
|
|
*szPtr++ = '\0';
|
|
break;
|
|
}
|
|
}
|
|
hb_compChkEnvironVar( HB_COMP_PARAM, szSwitch );
|
|
}
|
|
}
|
|
hb_xfree( ( void * ) szStrEnv );
|
|
}
|
|
}
|
|
}
|
|
|
|
void hb_compChkPaths( HB_COMP_DECL )
|
|
{
|
|
char *szInclude = hb_getenv( "INCLUDE" );
|
|
|
|
if( szInclude )
|
|
{
|
|
if( szInclude[0] != '\0' )
|
|
hb_pp_addSearchPath( HB_COMP_PARAM->pLex->pPP, szInclude, FALSE );
|
|
hb_xfree( ( void * ) szInclude );
|
|
}
|
|
}
|
|
|
|
static void hb_compChkDefineSwitch( HB_COMP_DECL, char *pszSwitch )
|
|
{
|
|
if( pszSwitch && HB_ISOPTSEP( pszSwitch[0] ) )
|
|
{
|
|
if( pszSwitch[1] == 'd' || pszSwitch[1] == 'D' )
|
|
{
|
|
char *szDefText = hb_strdup( pszSwitch + 2 ), *pAssign;
|
|
unsigned int i = 0;
|
|
|
|
while( i < strlen( szDefText ) && !HB_ISOPTSEP( szDefText[i] ) )
|
|
i++;
|
|
|
|
szDefText[i] = '\0';
|
|
if( szDefText )
|
|
{
|
|
pAssign = strchr( szDefText, '=' );
|
|
if( pAssign )
|
|
*pAssign++ = '\0';
|
|
hb_pp_addDefine( HB_COMP_PARAM->pLex->pPP, szDefText, pAssign );
|
|
}
|
|
hb_xfree( szDefText );
|
|
}
|
|
else if( pszSwitch[1] && toupper( pszSwitch[1] ) == 'U' &&
|
|
pszSwitch[2] && toupper( pszSwitch[2] ) == 'N' &&
|
|
pszSwitch[3] && toupper( pszSwitch[3] ) == 'D' &&
|
|
pszSwitch[4] && toupper( pszSwitch[4] ) == 'E' &&
|
|
pszSwitch[5] && toupper( pszSwitch[5] ) == 'F' &&
|
|
pszSwitch[6] == ':' )
|
|
{
|
|
char *szDefText = hb_strdup( pszSwitch + 7 );
|
|
unsigned int i = 0;
|
|
|
|
while( szDefText[i] && !HB_ISOPTSEP( szDefText[i] ) )
|
|
{
|
|
i++;
|
|
}
|
|
szDefText[i] = '\0';
|
|
|
|
if( szDefText[0] )
|
|
hb_pp_delDefine( HB_COMP_PARAM->pLex->pPP, szDefText );
|
|
hb_xfree( szDefText );
|
|
}
|
|
}
|
|
}
|
|
|
|
void hb_compChkDefines( HB_COMP_DECL, int iArg, char *Args[] )
|
|
{
|
|
/* Check the environment variables */
|
|
{
|
|
/* NOTE: CLIPPERCMD enviroment variable is overriden
|
|
if HARBOURCMD exists */
|
|
char *szStrEnv = hb_getenv( "HARBOURCMD" );
|
|
|
|
if( !szStrEnv || szStrEnv[0] == '\0' )
|
|
{
|
|
if( szStrEnv )
|
|
hb_xfree( ( void * ) szStrEnv );
|
|
|
|
szStrEnv = hb_getenv( "CLIPPERCMD" );
|
|
}
|
|
|
|
if( szStrEnv )
|
|
{
|
|
char *szSwitch, *szPtr;
|
|
|
|
szPtr = szStrEnv;
|
|
while( *szPtr && !HB_COMP_PARAM->fExit )
|
|
{
|
|
while( *szPtr == ' ' )
|
|
++szPtr;
|
|
szSwitch = szPtr;
|
|
if( *szSwitch )
|
|
{
|
|
while( *++szPtr )
|
|
{
|
|
if( *szPtr == ' ' )
|
|
{
|
|
*szPtr++ = '\0';
|
|
break;
|
|
}
|
|
}
|
|
hb_compChkDefineSwitch( HB_COMP_PARAM, szSwitch );
|
|
}
|
|
}
|
|
hb_xfree( ( void * ) szStrEnv );
|
|
}
|
|
}
|
|
|
|
/* Check the command line options */
|
|
{
|
|
int i;
|
|
|
|
/* Check all switches in command line They start with an OS_OPT_DELIMITER
|
|
char */
|
|
for( i = 0; i < iArg; i++ )
|
|
hb_compChkDefineSwitch( HB_COMP_PARAM, Args[i] );
|
|
}
|
|
}
|