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

2000-08-02 14:10 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/compiler/harbour.l
     * Changed USUAL to ANYTYPE
This commit is contained in:
Ron Pinkas
2000-08-02 21:10:13 +00:00
parent 52ad519676
commit 1a7632b428
2 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-08-02 14:10 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.l
* Changed USUAL to ANYTYPE
2000-08-02 14:05 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.slx
* Changed VARIANT to ANYTYPE as it appear to be the prefered choice.

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

@@ -36,9 +36,9 @@
/* Compile using: flex -i -8 -oyylex.c harbour.l */
/* TODO: 4 character abbreviation for strong typing keywords should be added
/* TODO: 4 character abbreviation for strong typing keywords should be added
to be VO compatible [vszakats] */
/* TODO: VOID strong typing keyword should be added as a new type for NIL.
/* TODO: VOID strong typing keyword should be added as a new type for NIL.
[vszakats] */
#include <stdio.h>
@@ -127,8 +127,8 @@ Separator {SpaceTab}
' BEGIN STRING1;
\" BEGIN STRING2;
\[ {
if( (hb_comp_iState == OPERATOR) ||
\[ {
if( (hb_comp_iState == OPERATOR) ||
(hb_comp_iState == LSEPARATOR) ||
(hb_comp_iState == LARRAY) ||
(hb_comp_iState == IF) ||
@@ -388,7 +388,7 @@ Separator {SpaceTab}
/* ************************************************************************ */
%}
"decl"|"decla"|"declar"|"declare" {
"decl"|"decla"|"declar"|"declare" {
BEGIN DECLARE_;
yylval.string = hb_compIdentifierNew( hb_strupr( yytext ), TRUE );
}
@@ -408,14 +408,14 @@ Separator {SpaceTab}
hb_comp_iState = IDENTIFIER;
return IDENTIFIER;
}
<DECLARE_ID_>({Identifier}|{MacroTxt}){Separator}*[\n\,\[\:\;] { /* variable declaration */
BEGIN 0;
yyless(0);
hb_comp_iState = PRIVATE;
return PRIVATE;
}
<DECLARE_ID_>.|\n {
}
<DECLARE_ID_>.|\n {
BEGIN 0;
unput( yytext[ yyleng-1 ] );
hb_comp_iState = DECLARE;
@@ -508,7 +508,7 @@ Separator {SpaceTab}
<DO_>{Separator}+"while" { /* DO WHILE found -move it to WHILE state */
/* NOTE: we cannot decide here if it is DO WHILE <condition>
* or DO while [WITH <args>]
*/
*/
BEGIN 0;
hb_comp_iState =DO;
yyless( yyleng-5 );
@@ -1435,9 +1435,9 @@ Separator {SpaceTab}
"as logical" { return AS_LOGICAL; }
"as numeric" { return AS_NUMERIC; }
"as object" { return AS_OBJECT; }
"as usual" { return AS_VARIANT; }
"as anytype" { return AS_VARIANT; }
"as array of usual" { return AS_ARRAY; }
"as array of anytype" { return AS_ARRAY; }
"as array of array" { return AS_ARRAY_ARRAY; }
"as array of codeblock" { return AS_BLOCK_ARRAY; }
"as array of string" { return AS_CHARACTER_ARRAY; }