mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-25 06:09:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Tratamento do token $debug e $nodebug

Browse Source
This commit is contained in:
Waldemar Celes 1993-12-22 19:39:15 -02:00
parent a4a3357c1c
commit 70b1eb4e8b
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lex.c
View File

@ -1,5 +1,8 @@
char *rcs_lex = "$Id$"; char *rcs_lex = "$Id: lex.c,v 1.1 1993/12/22 21:15:16 roberto Exp celes $";
/*$Log$*/ /*$Log: lex.c,v $
* Revision 1.1 1993/12/22 21:15:16 roberto
* Initial revision
**/
#include <ctype.h> #include <ctype.h>
#include <math.h> #include <math.h>
@ -84,17 +87,33 @@ int yylex ()
yytextLast = yytext; yytextLast = yytext;
switch (current) switch (current)
{ {
case 0: return 0;
case '\n': lua_linenumber++; case '\n': lua_linenumber++;
case ' ': case ' ':
case '\t': case '\t':
save_and_next(); next();
continue; continue;
case '$':
next();
while (isalnum(current) || current == '_')
save_and_next();
*yytextLast = 0;
if (strcmp(yytext, "debug") == 0)
{
yylval.vInt = 1;
return DEBUG;
}
else if (strcmp(yytext, "nodebug") == 0)
{
yylval.vInt = 0;
return DEBUG;
}
return WRONGTOKEN;
case '-': case '-':
save_and_next(); save_and_next();
if (current != '-') return '-'; if (current != '-') return '-';
do { save_and_next(); } while (current != '\n' && current != 0); do { next(); } while (current != '\n' && current != 0);
continue; continue;
case '<': case '<':
@ -195,11 +214,10 @@ fraction: while (isdigit(current)) save_and_next();
yylval.vFloat = atof(yytext); yylval.vFloat = atof(yytext);
return NUMBER; return NUMBER;
default: default: /* also end of file */
{ {
int temp = current;
save_and_next(); save_and_next();
return temp; return *yytext;
} }
} }
} }