fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2000-06-04 09:40 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/pp/ppcore.c
     * Changed case of '@' in hb_pp_RdStr() to only add missing space when in the begining of a new line.
This commit is contained in:
Ron Pinkas
2000-06-04 16:42:03 +00:00
parent 20ca34280c
commit 9309b9f3c5
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-06-04 09:40 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>
* source/pp/ppcore.c
* Changed case of '@' in hb_pp_RdStr() to only add missing space when in the begining of a new line.
2000-06-04 09:20 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
*utils/hbdoc/hbdoc.prg
*Added code to support .CHM source code generation

12
harbour/source/pp/ppcore.c
View File

@@ -2119,6 +2119,10 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
int State = 0;
char cha, cLast = '\0', symbLast = '\0';
/* Ron Pinkas Begin 2000-06-04 */
BOOL bNewLine = TRUE;
/* Ron Pinkas End */
HB_TRACE(HB_TR_DEBUG, ("hb_pp_RdStr(%p, %s, %d, %d, %s, %p, %p)", handl_i, buffer, maxlen, lDropSpaces, sBuffer, lenBuffer, iBuffer));
if( *lenBuffer == 0 ) return -1;
@@ -2136,6 +2140,9 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
{
if( s_ParseState == STATE_COMMENT && symbLast == ';' )
buffer[readed++] = ';';
/* Ron Pinkas Begin 2000-06-04 */
bNewLine = TRUE;
/* Ron Pinkas End */
break;
}
if( maxlen > 0 )
@@ -2184,7 +2191,7 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
/* Ron Pinkas Begin 2000-06-01 */
case '@':
if( sBuffer[ *iBuffer ] != ' ' && sBuffer[ *iBuffer ] != '\t' )
if( bNewLine && sBuffer[ *iBuffer ] != ' ' && sBuffer[ *iBuffer ] != '\t' )
{
buffer[readed++] = cha;
s_prevchar = cha;
@@ -2194,6 +2201,9 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
/* Ron Pinkas End */
}
if( cha != ' ' && cha != ';' ) s_prevchar = cha;
/* Ron Pinkas Begin 2000-06-04 */
if( cha != ' ' && cha != '\t' ) bNewLine = FALSE;
/* Ron Pinkas End */
}
if( cha != ' ' && cha != '\t' ) State = 1;
if( lDropSpaces && State ) lDropSpaces = 0;