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

ChangeLog 20000502-16:22 GMT+1

Browse Source
This commit is contained in:
Ryszard Glab
2000-05-02 14:15:31 +00:00
parent 975a6bfc7f
commit 7be838ea9e
2 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
20000502-16:22 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.l
* fixed syntax:
RETURN ++variable
20000502-16:07 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/hbpcode.c

18
harbour/source/compiler/harbour.l
View File

@@ -1107,13 +1107,29 @@ Separator {SpaceTab}
return IDENTIFIER;
}
}
<RETURN_>{Separator}*("+="|"-="|"->"|"++"|"--") { /* operators */
<RETURN_>{Separator}*("+="|"-="|"->") { /* operators */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
hb_comp_iState =IDENTIFIER;
unput( yytext[ yyleng-1 ] );
unput( yytext[ yyleng-2 ] );
return IDENTIFIER;
}
<RETURN_>{Separator}*("++"|"--") { /* operators */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
unput( yytext[ yyleng-1 ] );
unput( yytext[ yyleng-2 ] );
if( hb_comp_iState == LOOKUP )
{ /* it is the first item in the line */
hb_xfree( (void *) yylval.string );
hb_comp_iState = RETURN;
return RETURN;
}
else
{ /* there is another item in line already */
hb_comp_iState =IDENTIFIER;
return IDENTIFIER;
}
}
<RETURN_>{Separator}*("::") { /* SELF operator */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
hb_xfree( (void *) yylval.string );