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

2000-06-20 08:45 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/pp/ppcore.c
     * Removed some /* reported as nested comments
This commit is contained in:
Ron Pinkas
2000-06-20 15:46:11 +00:00
parent 30c52f5d86
commit c002ff28ee
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-06-20 08:45 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>
* source/pp/ppcore.c
* Removed some /* reported as nested comments
2000-06-20 11:15 GMT+1 Antonio Linares <alinares@fivetech.com>
* include/hbclass.ch
* small fix for SETGET methods

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

@@ -995,7 +995,7 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine )
HB_SKIPTABSPACES( ptri );
if( ( *ptri == '\0' || ( *ptri != '=' &&
(!IsInStr(*ptri,":/*+-%^") || *(ptri+1) != '=') &&
(!IsInStr(*ptri,":/+*-%^") || *(ptri+1) != '=') &&
( *ptri != '-' || *(ptri+1) != '>' ) ) )
&& ( stcmd = ComSearch(sToken,NULL) ) != NULL )
{
@@ -1854,7 +1854,7 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez )
StBr2++;
State = STATE_BRACKET;
}
/* Ron Pinkas end 2000-06-17 */
Ron Pinkas end 2000-06-17 */
else if( **ptri == '{' )
{
StBr3++;
@@ -1934,10 +1934,10 @@ static BOOL isExpres( char * stroka )
printf( "Len1: %i Len2: %i RealExp: >%s< Last: %c\n", l1, l2, stroka - l2, ( stroka - l2 )[l1-1] );
*/
/* Ron Pinkas modified 2000-06-17 Expression can't be valid if last charcter is one of these: ":/*+-%^=(<>"
/* Ron Pinkas modified 2000-06-17 Expression can't be valid if last charcter is one of these: ":/+*-%^=(<>"
return ( l1 <= l2 );
*/
return ( l1 <= l2 && ! IsInStr( ( stroka - l2 )[l1-1], ":/*+-%^=(<>[{" ) );
return ( l1 <= l2 && ! IsInStr( ( stroka - l2 )[l1-1], ":/+*-%^=(<>[{" ) );
}
static BOOL TestOptional( char *ptr1, char *ptr2 )