mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Mudancas para tornar lex.c um modulo independente dos outros 

modulos de Lua
This commit is contained in:
Waldemar Celes 1994-09-26 13:21:52 -03:00
parent 24c962de43
commit 7cfb5ff41f
1 changed files with 34 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
lex.c
View File

@ -1,5 +1,8 @@
char *rcs_lex = "$Id: lex.c,v 2.4 1994/09/05 19:14:40 celes Exp lhf $";
char *rcs_lex = "$Id: lex.c,v 2.5 1994/09/22 12:44:00 lhf Exp celes $";
/*$Log: lex.c,v $
* Revision 2.5 1994/09/22 12:44:00 lhf
* added support for ugly tokens
*
* Revision 2.4 1994/09/05 19:14:40 celes
* escapes \' e \" em strings; correcao do escape \\
*
@ -27,13 +30,12 @@ char *rcs_lex = "$Id: lex.c,v 2.4 1994/09/05 19:14:40 celes Exp lhf $";
#include <ctype.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "opcode.h"
#include "hash.h"
#include "inout.h"
#include "table.h"
#include "y.tab.h"
#define lua_strcmp(a,b) (a[0]<b[0]?(-1):(a[0]>b[0]?(1):strcmp(a,b)))
@ -137,6 +139,9 @@ int yylex ()
while (1)
{
yytextLast = yytext[currentText];
#if 0
fprintf(stderr,"'%c' %d\n",current,current);
#endif
switch (current)
{
case '\n': lua_linenumber++;
@ -168,6 +173,11 @@ int yylex ()
do { next(); } while (current != '\n' && current != 0);
continue;
case '=':
save_and_next();
if (current != '=') return '=';
else { save_and_next(); return EQ; }
case '<':
save_and_next();
if (current != '=') return '<';
@ -213,7 +223,7 @@ int yylex ()
}
next(); /* skip the delimiter */
*yytextLast = 0;
yylval.vWord = lua_findconstant (yytext[currentText]);
yylval.pChar = yytext[currentText];
return STRING;
}
@ -268,26 +278,26 @@ fraction: while (isdigit(current)) save_and_next();
yylval.vFloat = atof(yytext[currentText]);
return NUMBER;
case U_and: return AND;
case U_do: return DO;
case U_else: return ELSE;
case U_elseif: return ELSEIF;
case U_end: return END;
case U_function: return FUNCTION;
case U_if: return IF;
case U_local: return LOCAL;
case U_nil: return NIL;
case U_not: return NOT;
case U_or: return OR;
case U_repeat: return REPEAT;
case U_return: return RETURN;
case U_then: return THEN;
case U_until: return UNTIL;
case U_while: return WHILE;
case U_le: return LE;
case U_ge: return GE;
case U_ne: return NE;
case U_sc: return CONC;
case U_and: next(); return AND;
case U_do: next(); return DO;
case U_else: next(); return ELSE;
case U_elseif: next(); return ELSEIF;
case U_end: next(); return END;
case U_function: next(); return FUNCTION;
case U_if: next(); return IF;
case U_local: next(); return LOCAL;
case U_nil: next(); return NIL;
case U_not: next(); return NOT;
case U_or: next(); return OR;
case U_repeat: next(); return REPEAT;
case U_return: next(); return RETURN;
case U_then: next(); return THEN;
case U_until: next(); return UNTIL;
case U_while: next(); return WHILE;
case U_le: next(); return LE;
case U_ge: next(); return GE;
case U_ne: next(); return NE;
case U_sc: next(); return CONC;
default: /* also end of file */
{