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

ChangeLog 2003-10-20 13:45 UTC+0100 Ryszard Glab

Browse Source
This commit is contained in:
Ryszard Glab
2003-10-20 11:16:21 +00:00
parent 36a75f86b2
commit c6eea5cd0f
12 changed files with 88 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/include/hbexprc.c
View File

@@ -416,13 +416,14 @@ ULONG hb_compExprReduceList( HB_EXPR_PTR pExpr )
return ulCnt;
}
BOOL hb_compExprIsValidMacro( char * szText )
BOOL hb_compExprIsValidMacro( char * szText, BOOL *pbUseTextSubst )
{
char * pTmp = szText;
BOOL bTextSubst;
BOOL bMacroText = TRUE;
while( (( pTmp = strchr( pTmp, '&' ) ) != NULL) && bMacroText )
*pbUseTextSubst = FALSE; /* no valid macro expression */
while( ((pTmp = strchr( pTmp, '&' )) != NULL) && bMacroText )
{
/* Check if macro operator is used inside a string
* Macro operator is ignored if it is the last char or
@@ -464,6 +465,7 @@ BOOL hb_compExprIsValidMacro( char * szText )
*pTmp = cSave;
#endif
}
*pbUseTextSubst |= bTextSubst;
}
return bMacroText;