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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-08-09 07:59:32 +00:00
parent ca14c60c01
commit 4681708b37
2 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,5 +1,10 @@
19990809-03:47 EDT Paul Tucker <ptucker@sympatico.ca>
* source/compiler/harbour.l
+ added DECLARE statement - treated as PRIVATE
(Don't recall the exact rules for DECLARE)
19990809-03:23 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/filesys.c
* source/rtl/filesys.c"source/rtl/filesys"
* hb_fsLock implimented for msvc
19990809-07:40 GMT+1 Victor Szel <info@szelvesz.hu>

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

@@ -115,7 +115,7 @@ Separator {SpaceTab}
%x STRING1 STRING2 STRING3
%x NEXT_ BREAK_ CASE_ DO_ WHILE_ WITH_ END_ EXIT_ EXTERNAL_ FIELD_
%x FOR_ FUNCTION_ IIF_ IF_ IN_ INIT_ LOCAL_ LOOP_
%x FOR_ FUNCTION_ IIF_ IF_ IN_ INIT_ LOCAL_ LOOP_ DECLARE_
%x MEMVAR_ PARAM_ PRIVATE_ PUBLIC_
%s INDEX
@@ -315,6 +315,12 @@ Separator {SpaceTab}
%{
/* ************************************************************************ */
%}
"decl"("are"|"ar"|"a")? { BEGIN PRIVATE_;
yylval.string = yy_strupr( yy_strdup( yytext ) );
}
%{
/* ************************************************************************ */
%}
"do" BEGIN DO_;
<DO_>{Separator}+"case" { /* DO CASE statement */
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
@@ -894,10 +900,10 @@ Separator {SpaceTab}
%{
/* ************************************************************************ */
%}
"priv"|"priva"|"privat"|"private" { BEGIN PRIVATE_;
"priv"("ate"|"at"|"a")? { BEGIN PRIVATE_;
yylval.string = yy_strupr( yy_strdup( yytext ) );
}
<PRIVATE_>{Separator}+[_a-zA-Z] { /* an identifier after PRIVATE */
<PRIVATE_>{Separator}+[_a-zA-Z] { /* an Identifier after PRIVATE */
unput( yytext[ yyleng-1 ] );
if( i_INDEX_STATE ) BEGIN INDEX; else BEGIN 0;
if( _iState == LOOKUP )
@@ -926,7 +932,7 @@ Separator {SpaceTab}
%{
/* ************************************************************************ */
%}
"publ"|"publi"|"public" { BEGIN PUBLIC_;
"publ"("ic"|"i")? { BEGIN PUBLIC_;
yylval.string = yy_strupr( yy_strdup( yytext ) );
}
<PUBLIC_>{Separator}+[_a-zA-Z] { /* an identifier after PUBLIC */