384 lines
10 KiB
C
384 lines
10 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Preprocessor & Compiler integration module
|
|
*
|
|
* Copyright 1999 Alexander S.Kresin <alex@belacy.belgorod.su>
|
|
* 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, or (at your option)
|
|
* any later version.
|
|
*
|
|
* 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 software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries 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 Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* Avoid tracing in preprocessor/compiler.
|
|
*/
|
|
#if ! defined(HB_TRACE_UTILS)
|
|
#if defined(HB_TRACE_LEVEL)
|
|
#undef HB_TRACE_LEVEL
|
|
#endif
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "hbpp.h"
|
|
#include "hbcomp.h"
|
|
|
|
static int strncmp_nocase( char* s1, char* s2, int n );
|
|
|
|
extern BOOL hb_ppInsideTextBlock;
|
|
|
|
BOOL hb_pp_bInline = FALSE;
|
|
|
|
static char s_szLine[ HB_PP_STR_SIZE ];
|
|
static char s_szOutLine[ HB_PP_STR_SIZE ];
|
|
int hb_pp_LastOutLine = 1;
|
|
|
|
/*
|
|
BOOL bDebug = FALSE;
|
|
*/
|
|
|
|
extern void CloseInclude( void );
|
|
|
|
int hb_pp_Internal( FILE * handl_o, char * sOut )
|
|
{
|
|
PFILE pFile;
|
|
char * ptr, * ptrOut, * tmpPtr;
|
|
int lContinue;
|
|
int lens, rdlen;
|
|
int lLine = 0;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_pp_Internal(%p, %s)", handl_o, sOut));
|
|
|
|
while( TRUE )
|
|
{
|
|
pFile = hb_comp_files.pLast;
|
|
lens = lContinue = 0;
|
|
ptrOut = sOut;
|
|
while( ( rdlen = hb_pp_RdStr( pFile->handle, s_szLine + lens, HB_PP_STR_SIZE -
|
|
lens, lContinue, ( char * ) pFile->pBuffer, &( pFile->lenBuffer ),
|
|
&( pFile->iBuffer ) ) ) >= 0 )
|
|
{
|
|
lens += rdlen;
|
|
hb_comp_iLine ++;
|
|
|
|
if( lens >= HB_PP_STR_SIZE )
|
|
{
|
|
hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_BUFFER_OVERFLOW, NULL, NULL );
|
|
}
|
|
|
|
if( hb_pp_bInline )
|
|
{
|
|
break;
|
|
}
|
|
|
|
if( hb_ppInsideTextBlock )
|
|
{
|
|
char cQuote;
|
|
int i;
|
|
|
|
ptr = s_szLine;
|
|
HB_SKIPTABSPACES( ptr );
|
|
if( !strncmp_nocase( ptr,"ENDTEXT",7 ) && *(ptr+7) <= ' ' )
|
|
{
|
|
hb_ppInsideTextBlock = FALSE;
|
|
strcpy( s_szLine,"__TextRestore()" );
|
|
break;
|
|
}
|
|
|
|
if( !strchr( s_szLine,'\"' ) )
|
|
cQuote = '\"';
|
|
else if( !strchr( s_szLine,'\'' ) )
|
|
cQuote = '\'';
|
|
else
|
|
cQuote = '[';
|
|
|
|
s_szLine[ lens++ ] = ( cQuote == '[' )? ']':cQuote;
|
|
s_szLine[ lens++ ] = ')';
|
|
s_szLine[ lens ] = '\0';
|
|
for( i=lens;i>=0;i-- )
|
|
*( s_szLine+i+6 ) = *( s_szLine+i );
|
|
s_szLine[0] = 'Q'; s_szLine[1] = 'O'; s_szLine[2] = 'u';
|
|
s_szLine[3] = 't'; s_szLine[4] = '('; s_szLine[5] = cQuote;
|
|
break;
|
|
}
|
|
|
|
if( s_szLine[ lens - 1 ] == ';' )
|
|
{
|
|
lContinue = 1;
|
|
lens--;
|
|
lens--;
|
|
while( s_szLine[ lens ] == ' ' || s_szLine[ lens ] == '\t' ) lens--;
|
|
s_szLine[ ++lens ] = ' ';
|
|
s_szLine[ ++lens ] = '\0';
|
|
}
|
|
else
|
|
{
|
|
lContinue = 0;
|
|
lens = 0;
|
|
}
|
|
|
|
if( !lContinue )
|
|
{
|
|
if( *s_szLine != '\0' )
|
|
{
|
|
ptr = s_szLine;
|
|
HB_SKIPTABSPACES( ptr );
|
|
|
|
if( *ptr == '#' )
|
|
{
|
|
hb_pp_ParseDirective( ptr + 1 );
|
|
|
|
if( pFile != hb_comp_files.pLast )
|
|
{
|
|
pFile = ( PFILE ) ( ( PFILE ) hb_comp_files.pLast )->pPrev;
|
|
|
|
if( lLine )
|
|
sprintf( s_szLine, "#line %d \"%s\"\n", pFile->iLine, pFile->szFileName );
|
|
else
|
|
*s_szLine = '\0';
|
|
|
|
lLine = 0;
|
|
sprintf( s_szLine + strlen(s_szLine), "#line 1 \"%s\"", hb_comp_files.pLast->szFileName );
|
|
}
|
|
else
|
|
*s_szLine = '\0';
|
|
}
|
|
else
|
|
{
|
|
if( *ptr == '\0' )
|
|
{
|
|
if( hb_comp_files.iFiles == 1 )
|
|
*s_szLine = '\0';
|
|
else
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
if( hb_pp_nCondCompile == 0 || hb_pp_aCondCompile[ hb_pp_nCondCompile - 1 ] )
|
|
{
|
|
/* Ron Pinkas removed 2001-01-20
|
|
if( ( hb_pp_LastOutLine < hb_comp_iLine - 1 ) && hb_comp_files.iFiles == 1 && handl_o )
|
|
for( ; hb_pp_LastOutLine < hb_comp_iLine-1; hb_pp_LastOutLine++ )
|
|
hb_pp_WrStr( handl_o, "\n" );
|
|
hb_pp_LastOutLine = hb_comp_iLine;
|
|
*/
|
|
hb_pp_ParseExpression( ptr, s_szOutLine );
|
|
if( !strncmp( ptr,"text QOut;",10 ) )
|
|
{
|
|
/* printf( "\ntext QOut %d\n",strlen(ptr) ); */
|
|
memcpy( ptr, ptr+10, strlen(ptr)-9 );
|
|
hb_ppInsideTextBlock = TRUE;
|
|
}
|
|
}
|
|
else
|
|
*s_szLine = '\0';
|
|
}
|
|
}
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( rdlen < 0 )
|
|
{
|
|
if( hb_comp_files.iFiles == 1 )
|
|
return 0; /* we have reached the main EOF */
|
|
else
|
|
{
|
|
CloseInclude();
|
|
lLine = 1;
|
|
}
|
|
|
|
/* Ron Pinkas added 2000-06-22 */
|
|
s_szLine[0] = '\0';
|
|
break;
|
|
/* Ron Pinkas end 2000-06-22 */
|
|
}
|
|
|
|
if( *s_szLine ) break;
|
|
}
|
|
|
|
if( lLine )
|
|
{
|
|
if( hb_comp_files.iFiles == 1 )
|
|
hb_pp_LastOutLine = hb_comp_iLine;
|
|
|
|
sprintf( ptrOut, "#line %d \"%s\"", ( hb_comp_files.pLast->iLine ) , hb_comp_files.pLast->szFileName );
|
|
|
|
while( *ptrOut ) ptrOut++;
|
|
|
|
/* Ron Pinkas added 2000-06-14 */
|
|
tmpPtr = s_szLine;
|
|
HB_SKIPTABSPACES( tmpPtr );
|
|
|
|
/* Last Opened file ended without CR - adding CR to the #line directive. */
|
|
if( *tmpPtr != '\0' )
|
|
{
|
|
*ptrOut++ = '\n';
|
|
*ptrOut = '\0';
|
|
}
|
|
/* Ron Pinkas end 2000-06-14 */
|
|
}
|
|
else
|
|
{
|
|
/* Ron Pinkas added 2000-06-13 */
|
|
/* Ignore empty lines in #included files. */
|
|
/* Ron Pinkas removed 2001-01-20 */
|
|
#if 0
|
|
if( ( hb_pp_LastOutLine != hb_comp_iLine ) && hb_comp_files.iFiles == 1 && handl_o )
|
|
/* Ron Pinkas end 2000-06-13 */
|
|
for( ; hb_pp_LastOutLine < hb_comp_iLine; hb_pp_LastOutLine++ )
|
|
hb_pp_WrStr( handl_o, "\n" );
|
|
#endif
|
|
/* END Ron Pinkas removed 2001-01-20 */
|
|
}
|
|
|
|
lens = hb_pp_strocpy( ptrOut, s_szLine ) + ( ptrOut - sOut );
|
|
|
|
*( sOut + lens++ ) = '\n';
|
|
*( sOut + lens ) = '\0';
|
|
|
|
if( hb_comp_iLineINLINE && hb_pp_bInline == 0 )
|
|
{
|
|
hb_comp_iLine = hb_comp_iLinePRG + ( hb_comp_iLine - hb_comp_iLineINLINE );
|
|
#ifndef SIMPLEX
|
|
hb_comp_iLine++;
|
|
#endif
|
|
hb_comp_iLineINLINE = 0;
|
|
}
|
|
|
|
if( handl_o )
|
|
{
|
|
hb_pp_WrStr( handl_o, sOut );
|
|
}
|
|
|
|
#if 0
|
|
printf( "%d : %s\n", hb_comp_iLine, sOut );
|
|
#endif
|
|
|
|
return lens;
|
|
}
|
|
|
|
int hb_pp_ReadRules( void )
|
|
{
|
|
PFILE pFile;
|
|
char * ptr;
|
|
int lContinue;
|
|
int lens, rdlen;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_pp_ReadRules()"));
|
|
|
|
while( TRUE )
|
|
{
|
|
pFile = hb_comp_files.pLast;
|
|
lens = lContinue = 0;
|
|
while( ( rdlen = hb_pp_RdStr( pFile->handle, s_szLine + lens, HB_PP_STR_SIZE -
|
|
lens, lContinue, ( char * ) pFile->pBuffer, &( pFile->lenBuffer ),
|
|
&( pFile->iBuffer ) ) ) >= 0 )
|
|
{
|
|
lens += rdlen;
|
|
hb_comp_iLine++;
|
|
|
|
if( s_szLine[ lens - 1 ] == ';' )
|
|
{
|
|
lContinue = 1;
|
|
lens--;
|
|
lens--;
|
|
while( s_szLine[ lens ] == ' ' || s_szLine[ lens ] == '\t' ) lens--;
|
|
s_szLine[ ++lens ] = ' ';
|
|
s_szLine[ ++lens ] = '\0';
|
|
}
|
|
else
|
|
{
|
|
lContinue = 0;
|
|
lens = 0;
|
|
}
|
|
|
|
if( ! lContinue )
|
|
{
|
|
if( *s_szLine != '\0' )
|
|
{
|
|
ptr = s_szLine;
|
|
HB_SKIPTABSPACES( ptr );
|
|
|
|
if( *ptr == '#' )
|
|
{
|
|
hb_pp_ParseDirective( ptr + 1 );
|
|
}
|
|
|
|
*s_szLine = '\0';
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( rdlen < 0 )
|
|
{
|
|
if( hb_comp_files.iFiles == 1 )
|
|
{
|
|
return 0; /* we have reached the main EOF */
|
|
}
|
|
else
|
|
{
|
|
CloseInclude();
|
|
hb_pp_LastOutLine = hb_comp_iLine;
|
|
}
|
|
|
|
*s_szLine = '\0';
|
|
}
|
|
}
|
|
}
|
|
|
|
static int strncmp_nocase( char* s1, char* s2, int n )
|
|
{
|
|
int i;
|
|
for( i=0;i<n;i++,s1++,s2++ )
|
|
if( toupper(*s1) != *s2 )
|
|
return ( toupper(*s1) - *s2 );
|
|
return 0;
|
|
} |