mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-28 23:53:16 +03:00
Code Issues Packages Projects Releases Wiki Activity

implementacao de dois buffer de 'yytext' para evitar bug

Browse Source 
no look ahead do yacc
This commit is contained in:
Waldemar Celes 1994-08-05 16:27:41 -03:00
parent 088cc3f380
commit be7aa3854b
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lex.c
View File

@ -1,5 +1,10 @@
char *rcs_lex = "$Id: lex.c,v 1.3 1993/12/28 16:42:29 roberto Exp celes $"; char *rcs_lex = "$Id: lex.c,v 2.1 1994/04/15 19:00:28 celes Exp celes $";
/*$Log: lex.c,v $ /*$Log: lex.c,v $
* Revision 2.1 1994/04/15 19:00:28 celes
* Retirar chamada da funcao lua_findsymbol associada a cada
* token NAME. A decisao de chamar lua_findsymbol ou lua_findconstant
* fica a cargo do modulo "lua.stx".
*
* Revision 1.3 1993/12/28 16:42:29 roberto * Revision 1.3 1993/12/28 16:42:29 roberto
* "include"s de string.h e stdlib.h para evitar warnings * "include"s de string.h e stdlib.h para evitar warnings
* *
@ -26,8 +31,9 @@ char *rcs_lex = "$Id: lex.c,v 1.3 1993/12/28 16:42:29 roberto Exp celes $";
#define save_and_next() { save(current); next(); } #define save_and_next() { save(current); next(); }
static int current; static int current;
static char yytext[256]; static char yytext[2][256];
static char *yytextLast; static char *yytextLast;
static int currentText = 0;
static Input input; static Input input;
@ -40,10 +46,11 @@ void lua_setinput (Input fn)
char *lua_lasttext (void) char *lua_lasttext (void)
{ {
*yytextLast = 0; *yytextLast = 0;
return yytext; return yytext[currentText];
} }
/* The reserved words must be listed in lexicographic order */
static struct static struct
{ {
char *name; char *name;
@ -69,7 +76,7 @@ static struct
#define RESERVEDSIZE (sizeof(reserved)/sizeof(reserved[0])) #define RESERVEDSIZE (sizeof(reserved)/sizeof(reserved[0]))
int findReserved (char *name) static int findReserved (char *name)
{ {
int l = 0; int l = 0;
int h = RESERVEDSIZE - 1; int h = RESERVEDSIZE - 1;
@ -90,9 +97,10 @@ int findReserved (char *name)
int yylex () int yylex ()
{ {
currentText = !currentText;
while (1) while (1)
{ {
yytextLast = yytext; yytextLast = yytext[currentText];
switch (current) switch (current)
{ {
case '\n': lua_linenumber++; case '\n': lua_linenumber++;
@ -106,12 +114,12 @@ int yylex ()
while (isalnum(current) || current == '_') while (isalnum(current) || current == '_')
save_and_next(); save_and_next();
*yytextLast = 0; *yytextLast = 0;
if (strcmp(yytext, "debug") == 0) if (strcmp(yytext[currentText], "debug") == 0)
{ {
yylval.vInt = 1; yylval.vInt = 1;
return DEBUG; return DEBUG;
} }
else if (strcmp(yytext, "nodebug") == 0) else if (strcmp(yytext[currentText], "nodebug") == 0)
{ {
yylval.vInt = 0; yylval.vInt = 0;
return DEBUG; return DEBUG;
@ -167,7 +175,7 @@ int yylex ()
} }
next(); /* skip the delimiter */ next(); /* skip the delimiter */
*yytextLast = 0; *yytextLast = 0;
yylval.vWord = lua_findconstant (yytext); yylval.vWord = lua_findconstant (yytext[currentText]);
return STRING; return STRING;
} }
@ -188,9 +196,9 @@ int yylex ()
int res; int res;
do { save_and_next(); } while (isalnum(current) || current == '_'); do { save_and_next(); } while (isalnum(current) || current == '_');
*yytextLast = 0; *yytextLast = 0;
res = findReserved(yytext); res = findReserved(yytext[currentText]);
if (res) return res; if (res) return res;
yylval.pChar = yytext; yylval.pChar = yytext[currentText];
return NAME; return NAME;
} }
@ -219,13 +227,13 @@ fraction: while (isdigit(current)) save_and_next();
do { save_and_next(); } while (isdigit(current)); do { save_and_next(); } while (isdigit(current));
} }
*yytextLast = 0; *yytextLast = 0;
yylval.vFloat = atof(yytext); yylval.vFloat = atof(yytext[currentText]);
return NUMBER; return NUMBER;
default: /* also end of file */ default: /* also end of file */
{ {
save_and_next(); save_and_next();
return *yytext; return yytext[currentText][0];
} }
} }
} }