Mudancas para tornar lex.c um modulo independente dos outros

modulos de Lua

1 files changed, 34 insertions, 24 deletions

diff --git a/lex.c b/lex.c
index 080b488c..ee64d1c9 100644
--- a/lex.c
+++ b/lex.c
@@ -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 */
       {