lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 281db390e8c8bdb8423a21728a2d4ac703ac3f33
parent df8cf53cc95ed9620c7716bda287d6a602a3168e
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 14 Mar 1996 12:17:08 -0300

no more "ugly" programs.
no more comments with '#'.

Diffstat:
Mlex.c | 25++-----------------------
1 file changed, 2 insertions(+), 23 deletions(-)

diff --git a/lex.c b/lex.c @@ -1,4 +1,4 @@ -char *rcs_lex = "$Id: lex.c,v 2.28 1996/02/14 19:11:09 roberto Exp roberto $"; +char *rcs_lex = "$Id: lex.c,v 2.29 1996/02/26 22:35:51 roberto Exp roberto $"; #include <ctype.h> @@ -12,7 +12,6 @@ char *rcs_lex = "$Id: lex.c,v 2.28 1996/02/14 19:11:09 roberto Exp roberto $"; #include "inout.h" #include "luadebug.h" #include "parser.h" -#include "ugly.h" #define MINBUFF 260 @@ -143,9 +142,6 @@ int luaY_lex (void) while (1) { yytextLast = yytext; -#if 0 - fprintf(stderr,"'%c' %d\n",current,current); -#endif switch (current) { case EOF: @@ -177,8 +173,7 @@ int luaY_lex (void) case '-': save_and_next(); - if (current != '-') return '-'; /* else goes through */ - case '#': + if (current != '-') return '-'; do { next(); } while (current != '\n' && current != 0); continue; @@ -323,22 +318,6 @@ fraction: return NUMBER; } - case U_and: case U_do: case U_else: case U_elseif: case U_end: - case U_function: case U_if: case U_local: case U_nil: case U_not: - case U_or: case U_repeat: case U_return: case U_then: - case U_until: case U_while: - { - int old = current; - next(); - return reserved[old-U_and].token; - } - - case U_eq: next(); return EQ; - 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 */ { save_and_next();