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

ChangeLog 20000424-19:40 GMT+1

Browse Source
This commit is contained in:
Ryszard Glab
2000-04-24 17:33:06 +00:00
parent 2fb49392b4
commit cfbd3181c7
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
20000424-19:40 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.l
* fixed recognition of WHILE abbreviation (WHIL)
20000424-19:15 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/hbfix.c

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

@@ -370,6 +370,14 @@ Separator {SpaceTab}
hb_comp_iState =DO;
yyless( yyleng-5 );
}
<DO_>{Separator}+"whil" { /* DO WHILE found -move it to WHILE state */
/* NOTE: we cannot decide here if it is DO WHILE <condition>
* or DO while [WITH <args>]
*/
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
hb_comp_iState =DO;
yyless( yyleng-5 );
}
<DO_>{Separator}+[_a-zA-Z\&] { /* an identifier 'DO id WITH' or 'DO &id WITH' */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
unput( yytext[ yyleng-1 ] );
@@ -1172,7 +1180,7 @@ Separator {SpaceTab}
%{
/* ************************************************************************ */
%}
"while" BEGIN WHILE_;
"while"|"whil" BEGIN WHILE_;
<WHILE_>{Separator}*\n { /* end of line */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
unput( '\n' );