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

split to 'ugly.h'.

This commit is contained in:
Waldemar Celes 1994-10-18 15:34:34 -02:00
parent 3386e3c1fb
commit f84abc6799
1 changed files with 7 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lex.c
View File

@ -1,5 +1,9 @@
char *rcs_lex = "$Id: lex.c,v 2.6 1994/09/26 16:21:52 celes Exp celes $"; char *rcs_lex = "$Id: lex.c,v 2.7 1994/10/17 19:01:53 celes Exp celes $";
/*$Log: lex.c,v $ /*$Log: lex.c,v $
* Revision 2.7 1994/10/17 19:01:53 celes
* new algorithm for reading floats.
* files end with EOF, instead of 0.
*
* Revision 2.6 1994/09/26 16:21:52 celes * Revision 2.6 1994/09/26 16:21:52 celes
* Mudancas para tornar lex.c um modulo independente dos outros * Mudancas para tornar lex.c um modulo independente dos outros
* modulos de Lua * modulos de Lua
@ -41,6 +45,7 @@ char *rcs_lex = "$Id: lex.c,v 2.6 1994/09/26 16:21:52 celes Exp celes $";
#include "opcode.h" #include "opcode.h"
#include "inout.h" #include "inout.h"
#include "y.tab.h" #include "y.tab.h"
#include "ugly.h"
#define lua_strcmp(a,b) (a[0]<b[0]?(-1):(a[0]>b[0]?(1):strcmp(a,b))) #define lua_strcmp(a,b) (a[0]<b[0]?(-1):(a[0]>b[0]?(1):strcmp(a,b)))
@ -91,29 +96,6 @@ static struct
{"until", UNTIL}, {"until", UNTIL},
{"while", WHILE} }; {"while", WHILE} };
enum
{
U_and=128,
U_do,
U_else,
U_elseif,
U_end,
U_function,
U_if,
U_local,
U_nil,
U_not,
U_or,
U_repeat,
U_return,
U_then,
U_until,
U_while,
U_le = '<'+128,
U_ge = '>'+128,
U_ne = '~'+128,
U_sc = '.'+128
};
#define RESERVEDSIZE (sizeof(reserved)/sizeof(reserved[0])) #define RESERVEDSIZE (sizeof(reserved)/sizeof(reserved[0]))
@ -315,6 +297,7 @@ fraction:
case U_then: next(); return THEN; case U_then: next(); return THEN;
case U_until: next(); return UNTIL; case U_until: next(); return UNTIL;
case U_while: next(); return WHILE; case U_while: next(); return WHILE;
case U_eq: next(); return EQ;
case U_le: next(); return LE; case U_le: next(); return LE;
case U_ge: next(); return GE; case U_ge: next(); return GE;
case U_ne: next(); return NE; case U_ne: next(); return NE;