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

2000-09-19 10:40 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/pp/ppcore.c
     ! Corrected JFL previous change, which commented a fix that solved problem with code like "@&Row,...".
       This fix will address both the #xtranslate @@ => ... as well as the previous needed fix.
This commit is contained in:
Ron Pinkas
2000-09-20 01:06:35 +00:00
parent 97f459c7d3
commit d645d71997
2 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-09-19 10:40 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/pp/ppcore.c
! Corrected JFL previous change, which commented a fix that solved problem with code like "@&Row,...".
This fix will address both the #xtranslate @@ => ... as well as the previous needed fix.
2000-09-20 00:52 UTC+0200 JFL (mafact) <jfl@mafact.com>
* source/pp/ppcore.c
corrected #command @@ => ...

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

@@ -2528,20 +2528,14 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
case ';':
bNewLine = TRUE;
break;
/* JFL 2000-09-19 */
/* Supressed this code wich avoid the use of #command @@ => ...
/* I'm not sure what it was intended for ... so I let it here commented */
/* case '@':
if( bNewLine && sBuffer[ *iBuffer ] != ' ' && sBuffer[ *iBuffer ] != '\t' )
case '@':
if( bNewLine && ( sBuffer[ *iBuffer ] == '&' || sBuffer[ *iBuffer ] == '-' ) )
{
buffer[readed++] = cha;
s_prevchar = cha;
cha = ' ';
}
break;
*/
/* Ron Pinkas end 2000-06-01 */
}
if( cha != ' ' && cha != ';' ) s_prevchar = cha;