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

ChangeLog 2000-08-10 17:33 UTC+0100

Browse Source
This commit is contained in:
Ryszard Glab
2000-08-10 15:29:07 +00:00
parent 1da448f2af
commit 7b71ae0103
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-08-10 17:33 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.l
* fixed DO DECLARE syntax
2000-08-10 11:50 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.l

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

@@ -359,8 +359,14 @@ Separator {SpaceTab}
%}
"decl"|"decla"|"declar"|"declare" {
BEGIN DECLARE_;
yylval.string = hb_compIdentifierNew( hb_strupr( yytext ), TRUE );
if( hb_comp_iState == DO )
{
hb_comp_iState = IDENTIFIER;
return IDENTIFIER;
}
else
BEGIN DECLARE_;
}
<DECLARE_>{Separator}+[_a-zA-Z] { /* an Identifier after DECLARE */
unput( yytext[ yyleng-1 ] );
@@ -403,9 +409,9 @@ Separator {SpaceTab}
/* ************************************************************************ */
%}
"opti"|"optio"|"option"|"optiona"|"optional" {
yylval.string = hb_compIdentifierNew( hb_strupr( yytext ), TRUE );
return OPTIONAL;
}
yylval.string = hb_compIdentifierNew( hb_strupr( yytext ), TRUE );
return OPTIONAL;
}
%{
/* ************************************************************************ */
%}