LUA YACC syntax and semantics

lua.stx

@@ -0,0 +1,771 @@
+%{
+
+char *rcs_luastx = "$Id: $";
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "opcode.h"
+#include "hash.h"
+#include "inout.h"
+#include "table.h"
+#include "lua.h"
+
+#ifndef ALIGNMENT
+#define ALIGNMENT	(sizeof(void *))
+#endif
+
+#ifndef MAXCODE
+#define MAXCODE 1024
+#endif
+static long   buffer[MAXCODE];
+static Byte  *code = (Byte *)buffer;
+static long   mainbuffer[MAXCODE];
+static Byte  *maincode = (Byte *)mainbuffer;
+static Byte  *basepc;
+static Byte  *pc;
+
+#define MAXVAR 32
+static long    varbuffer[MAXVAR];
+static Byte    nvarbuffer=0;	     /* number of variables at a list */
+
+static Word    localvar[STACKGAP];
+static Byte    nlocalvar=0;	     /* number of local variables */
+static int     ntemp;		     /* number of temporary var into stack */
+static int     err;		     /* flag to indicate error */
+
+/* Internal functions */
+#define align(n)  align_n(sizeof(n))
+
+static void code_byte (Byte c)
+{
+ if (pc-basepc>MAXCODE-1)
+ {
+  lua_error ("code buffer overflow");
+  err = 1;
+ }
+ *pc++ = c;
+}
+
+static void code_word (Word n)
+{
+ if (pc-basepc>MAXCODE-sizeof(Word))
+ {
+  lua_error ("code buffer overflow");
+  err = 1;
+ }
+ *((Word *)pc) = n;
+ pc += sizeof(Word);
+}
+
+static void code_float (float n)
+{
+ if (pc-basepc>MAXCODE-sizeof(float))
+ {
+  lua_error ("code buffer overflow");
+  err = 1;
+ }
+ *((float *)pc) = n;
+ pc += sizeof(float);
+}
+
+static void incr_ntemp (void)
+{
+ if (ntemp+nlocalvar+MAXVAR+1 < STACKGAP)
+  ntemp++;
+ else
+ {
+  lua_error ("stack overflow");
+  err = 1;
+ }
+}
+
+static void add_nlocalvar (int n)
+{
+ if (ntemp+nlocalvar+MAXVAR+n < STACKGAP)
+  nlocalvar += n;
+ else
+ {
+  lua_error ("too many local variables or expression too complicate");
+  err = 1;
+ }
+}
+
+static void incr_nvarbuffer (void)
+{
+ if (nvarbuffer < MAXVAR-1)
+  nvarbuffer++;
+ else
+ {
+  lua_error ("variable buffer overflow");
+  err = 1;
+ }
+}
+
+static void align_n (unsigned size)
+{
+ if (size > ALIGNMENT) size = ALIGNMENT;
+ while (((pc+1-code)%size) != 0)	/* +1 to include BYTECODE */
+  code_byte (NOP);
+}
+
+static void code_number (float f)
+{ int i = f;
+  if (f == i)  /* f has an integer value */
+  {
+   if (i <= 2) code_byte(PUSH0 + i);
+   else if (i <= 255)
+   {
+    code_byte(PUSHBYTE);
+    code_byte(i);
+   }
+   else
+   {
+    align(Word);
+    code_byte(PUSHWORD);
+    code_word(i);
+   }
+  }
+  else
+  {
+   align(float);
+   code_byte(PUSHFLOAT);
+   code_float(f);
+  }
+  incr_ntemp();
+}
+
+%}
+
+
+%union 
+{
+ int   vInt;
+ long  vLong;
+ float vFloat;
+ Word  vWord;
+ Byte *pByte;
+}
+
+%start functionlist
+
+%token NIL
+%token IF THEN ELSE ELSEIF WHILE DO REPEAT UNTIL END
+%token RETURN
+%token LOCAL
+%token <vFloat> NUMBER
+%token <vWord>  FUNCTION NAME STRING
+%token <vInt>   DEBUG
+
+%type <pByte> PrepJump
+%type <vInt>  expr, exprlist, exprlist1, varlist1, typeconstructor
+%type <vInt>  fieldlist, localdeclist
+%type <vInt>  ffieldlist, ffieldlist1
+%type <vInt>  lfieldlist, lfieldlist1
+%type <vLong> var, objectname
+
+
+%left AND OR
+%left '=' NE '>' '<' LE GE
+%left CONC
+%left '+' '-'
+%left '*' '/'
+%left UNARY NOT
+
+
+%% /* beginning of rules section */
+
+
+functionlist : /* empty */
+	     | functionlist {pc=basepc=maincode; nlocalvar=0;} stat sc {maincode=pc;}
+	     | functionlist function
+	     | functionlist setdebug
+	     ;
+	     
+function     : FUNCTION NAME {pc=basepc=code; nlocalvar=0;} '(' parlist ')' 
+	       {
+	        if (lua_debug)
+		{
+		 align(Word);
+	         code_byte(SETFUNCTION); 
+                 code_word($1);
+		 code_word($2);
+		}
+	        lua_codeadjust (0);
+	       }
+               block
+               END 	 
+	       { 
+                if (lua_debug) code_byte(RESET); 
+	        code_byte(RETCODE); code_byte(nlocalvar);
+	        s_tag($2) = T_FUNCTION;
+	        s_bvalue($2) = calloc (pc-code, sizeof(Byte));
+	        memcpy (s_bvalue($2), code, (pc-code)*sizeof(Byte));
+	       }
+	       ;
+
+statlist : /* empty */
+	 | statlist stat sc
+	 ;
+
+stat	 : {
+            ntemp = 0; 
+            if (lua_debug)
+            {
+             align(Word); code_byte(SETLINE); code_word(lua_linenumber);
+            }
+	   }
+	   stat1
+		
+sc	 : /* empty */ | ';' ;
+
+
+stat1  : IF expr1 THEN PrepJump block PrepJump elsepart END
+       {
+        {
+	 Byte *elseinit = $6 + sizeof(Word)+1;
+	 if (pc - elseinit == 0)		/* no else */
+	 {
+	  pc -= sizeof(Word)+1;
+	 /* if (*(pc-1) == NOP) --pc; */
+	  elseinit = pc;
+	 }
+	 else
+	 {
+	  *($6) = JMP;
+	  *((Word *)($6+1)) = pc - elseinit;
+	 }
+	 *($4) = IFFJMP;
+	 *((Word *)($4+1)) = elseinit - ($4 + sizeof(Word)+1);
+	}
+       }
+     
+       | WHILE {$<pByte>$ = pc;} expr1 DO PrepJump block PrepJump END
+     	
+       {
+        *($5) = IFFJMP;
+        *((Word *)($5+1)) = pc - ($5 + sizeof(Word)+1);
+        
+        *($7) = UPJMP;
+        *((Word *)($7+1)) = pc - $<pByte>2;
+       }
+     
+       | REPEAT {$<pByte>$ = pc;} block UNTIL expr1 PrepJump
+     	
+       {
+        *($6) = IFFUPJMP;
+        *((Word *)($6+1)) = pc - $<pByte>2;
+       }
+
+
+       | varlist1 '=' exprlist1
+       {
+        {
+         int i;
+         if ($3 == 0 || nvarbuffer != ntemp - $1 * 2)
+	  lua_codeadjust ($1 * 2 + nvarbuffer);
+	 for (i=nvarbuffer-1; i>=0; i--)
+	  lua_codestore (i);
+	 if ($1 > 1 || ($1 == 1 && varbuffer[0] != 0))
+	  lua_codeadjust (0);
+	}
+       } 
+       | functioncall			{ lua_codeadjust (0); }
+       | typeconstructor                { lua_codeadjust (0); }
+       | LOCAL localdeclist decinit   { add_nlocalvar($2); lua_codeadjust (0); }
+       ;
+
+elsepart : /* empty */
+	 | ELSE block
+         | ELSEIF expr1 THEN PrepJump block PrepJump elsepart
+         {
+          {
+  	   Byte *elseinit = $6 + sizeof(Word)+1;
+  	   if (pc - elseinit == 0)		/* no else */
+  	   {
+  	    pc -= sizeof(Word)+1;
+  	    /* if (*(pc-1) == NOP) --pc; */
+	    elseinit = pc;
+	   }
+	   else
+	   {
+	    *($6) = JMP;
+	    *((Word *)($6+1)) = pc - elseinit;
+	   }
+	   *($4) = IFFJMP;
+	   *((Word *)($4+1)) = elseinit - ($4 + sizeof(Word)+1);
+	  }  
+         }   
+         ;
+     
+block    : {$<vInt>$ = nlocalvar;} statlist {ntemp = 0;} ret 
+         {
+	  if (nlocalvar != $<vInt>1)
+	  {
+           nlocalvar = $<vInt>1;
+	   lua_codeadjust (0);
+	  }
+         }
+         ;
+
+ret	: /* empty */
+        | { if (lua_debug){align(Word);code_byte(SETLINE);code_word(lua_linenumber);}}
+          RETURN  exprlist sc 	
+          { 
+           if (lua_debug) code_byte(RESET); 
+           code_byte(RETCODE); code_byte(nlocalvar);
+          }
+	;
+
+PrepJump : /* empty */
+	 { 
+          align(Word); 
+	  $$ = pc;
+	  code_byte(0);		/* open space */
+	  code_word (0);
+         }
+	   
+expr1	 : expr { if ($1 == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}}
+	 ;
+				
+expr :	'(' expr ')'    { $$ = $2; }
+     |	expr1 '=' expr1	{ code_byte(EQOP);   $$ = 1; ntemp--;}
+     |	expr1 '<' expr1	{ code_byte(LTOP);   $$ = 1; ntemp--;}
+     |	expr1 '>' expr1	{ code_byte(LEOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 NE  expr1	{ code_byte(EQOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 LE  expr1	{ code_byte(LEOP);   $$ = 1; ntemp--;}
+     |	expr1 GE  expr1	{ code_byte(LTOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 '+' expr1 { code_byte(ADDOP);  $$ = 1; ntemp--;}
+     |	expr1 '-' expr1 { code_byte(SUBOP);  $$ = 1; ntemp--;}
+     |	expr1 '*' expr1 { code_byte(MULTOP); $$ = 1; ntemp--;}
+     |	expr1 '/' expr1 { code_byte(DIVOP);  $$ = 1; ntemp--;}
+     |	expr1 CONC expr1 { code_byte(CONCOP);  $$ = 1; ntemp--;}
+     |	'+' expr1 %prec UNARY	{ $$ = 1; }
+     |	'-' expr1 %prec UNARY	{ code_byte(MINUSOP); $$ = 1;}
+     | typeconstructor { $$ = $1; }
+     |  '@' '(' dimension ')'
+     { 
+      code_byte(CREATEARRAY);
+      $$ = 1;
+     }
+     |	var             { lua_pushvar ($1); $$ = 1;}
+     |	NUMBER          { code_number($1); $$ = 1; }
+     |	STRING
+     {
+      align(Word);
+      code_byte(PUSHSTRING);
+      code_word($1);
+      $$ = 1;
+      incr_ntemp();
+     }
+     |	NIL		{code_byte(PUSHNIL); $$ = 1; incr_ntemp();}
+     |	functioncall
+     {
+      $$ = 0;
+      if (lua_debug)
+      {
+       align(Word); code_byte(SETLINE); code_word(lua_linenumber);
+      }
+     }
+     |	NOT expr1	{ code_byte(NOTOP);  $$ = 1;}
+     |	expr1 AND PrepJump {code_byte(POP); ntemp--;} expr1
+     { 
+      *($3) = ONFJMP;
+      *((Word *)($3+1)) = pc - ($3 + sizeof(Word)+1);
+      $$ = 1;
+     }
+     |	expr1 OR PrepJump {code_byte(POP); ntemp--;} expr1	
+     { 
+      *($3) = ONTJMP;
+      *((Word *)($3+1)) = pc - ($3 + sizeof(Word)+1);
+      $$ = 1;
+     }
+     ;
+
+typeconstructor: '@'  
+     {
+      code_byte(PUSHBYTE);
+      $<pByte>$ = pc; code_byte(0);
+      incr_ntemp();
+      code_byte(CREATEARRAY);
+     }
+      objectname fieldlist 
+     {
+      *($<pByte>2) = $4; 
+      if ($3 < 0)	/* there is no function to be called */
+      {
+       $$ = 1;
+      }
+      else
+      {
+       lua_pushvar ($3+1);
+       code_byte(PUSHMARK);
+       incr_ntemp();
+       code_byte(PUSHOBJECT);
+       incr_ntemp();
+       code_byte(CALLFUNC); 
+       ntemp -= 4;
+       $$ = 0;
+       if (lua_debug)
+       {
+        align(Word); code_byte(SETLINE); code_word(lua_linenumber);
+       }
+      }
+     }
+         ;
+
+dimension    : /* empty */	{ code_byte(PUSHNIL); incr_ntemp();}
+	     | expr1
+	     ;
+	     
+functioncall : functionvalue  {code_byte(PUSHMARK); $<vInt>$ = ntemp; incr_ntemp();}
+                '(' exprlist ')' { code_byte(CALLFUNC); ntemp = $<vInt>2-1;}
+
+functionvalue : var {lua_pushvar ($1); } 
+	      ;
+		
+exprlist  :	/* empty */		{ $$ = 1; }
+	  |	exprlist1		{ $$ = $1; }
+	  ;
+		
+exprlist1 :	expr			{ $$ = $1; }
+	  |	exprlist1 ',' {if (!$1){lua_codeadjust (ntemp+1); incr_ntemp();}} 
+                 expr {$$ = $4;}
+	  ;
+
+parlist  :	/* empty */
+	  |	parlist1
+	  ;
+		
+parlist1 :	NAME		  {localvar[nlocalvar]=$1; add_nlocalvar(1);}
+	  |	parlist1 ',' NAME {localvar[nlocalvar]=$3; add_nlocalvar(1);}
+	  ;
+		
+objectname :	/* empty */ 	{$$=-1;}
+	   |	NAME		{$$=$1;}
+	   ;
+	   
+fieldlist  : '{' ffieldlist '}'  { $$ = $2; }
+           | '[' lfieldlist ']'  { $$ = $2; }
+	   ;
+
+ffieldlist : /* empty */   { $$ = 0; }
+           | ffieldlist1   { $$ = $1; }
+           ;
+
+ffieldlist1 : ffield			{$$=1;}
+	   | ffieldlist1 ',' ffield	{$$=$1+1;}
+	   ; 
+
+ffield      : NAME 
+           {
+            align(Word); 
+            code_byte(PUSHSTRING);
+	    code_word(lua_findconstant (s_name($1)));
+            incr_ntemp();
+	   }
+            '=' expr1
+	   {
+	    code_byte(STOREFIELD);
+	    ntemp-=2;
+	   }
+           ;
+
+lfieldlist : /* empty */   { $$ = 0; }
+           | lfieldlist1   { $$ = $1; }
+           ;
+
+lfieldlist1 : { code_number(1); } lfield  {$$=1;}
+	    | lfieldlist1 ',' { code_number($1+1); } lfield
+              {$$=$1+1;}
+            ;
+
+lfield      : expr1
+	   {
+	    code_byte(STOREFIELD);
+	    ntemp-=2;
+	   }
+           ;
+		
+varlist1  :	var			
+	  {
+	   nvarbuffer = 0; 
+           varbuffer[nvarbuffer] = $1; incr_nvarbuffer();
+	   $$ = ($1 == 0) ? 1 : 0;
+	  }
+	  |	varlist1 ',' var	
+	  { 
+           varbuffer[nvarbuffer] = $3; incr_nvarbuffer();
+	   $$ = ($3 == 0) ? $1 + 1 : $1;
+	  }
+	  ;
+		
+var	  :	NAME
+	  { 
+	   int local = lua_localname ($1);
+	   if (local == -1)	/* global var */
+	    $$ = $1 + 1;		/* return positive value */
+           else
+	    $$ = -(local+1);		/* return negative value */
+	  }
+	  
+	  |	var {lua_pushvar ($1);} '[' expr1 ']' 
+	  {
+	   $$ = 0;		/* indexed variable */
+	  }
+	  |	var {lua_pushvar ($1);} '.' NAME
+	  {
+	   align(Word);
+	   code_byte(PUSHSTRING);
+	   code_word(lua_findconstant (s_name($4))); incr_ntemp();
+	   $$ = 0;		/* indexed variable */
+	  }
+	  ;
+		
+localdeclist	  : NAME {localvar[nlocalvar]=$1; $$ = 1;}
+     	  | localdeclist ',' NAME {localvar[nlocalvar+$1]=$3; $$ = $1+1;}
+	  ;
+		
+decinit	  : /* empty */
+	  | '=' exprlist1
+	  ;
+	  
+setdebug  : DEBUG {lua_debug = $1;}
+
+%%
+
+/*
+** Search a local name and if find return its index. If do not find return -1
+*/
+static int lua_localname (Word n)
+{
+ int i;
+ for (i=nlocalvar-1; i >= 0; i--)
+  if (n == localvar[i]) return i;	/* local var */
+ return -1;		        /* global var */
+}
+
+/*
+** Push a variable given a number. If number is positive, push global variable
+** indexed by (number -1). If negative, push local indexed by ABS(number)-1.
+** Otherwise, if zero, push indexed variable (record).
+*/
+static void lua_pushvar (long number)
+{ 
+ if (number > 0)	/* global var */
+ {
+  align(Word);
+  code_byte(PUSHGLOBAL);
+  code_word(number-1);
+  incr_ntemp();
+ }
+ else if (number < 0)	/* local var */
+ {
+  number = (-number) - 1;
+  if (number < 10) code_byte(PUSHLOCAL0 + number);
+  else
+  {
+   code_byte(PUSHLOCAL);
+   code_byte(number);
+  }
+  incr_ntemp();
+ }
+ else
+ {
+  code_byte(PUSHINDEXED);
+  ntemp--;
+ }
+}
+
+static void lua_codeadjust (int n)
+{
+ code_byte(ADJUST);
+ code_byte(n + nlocalvar);
+}
+
+static void lua_codestore (int i)
+{
+ if (varbuffer[i] > 0)		/* global var */
+ {
+  align(Word);
+  code_byte(STOREGLOBAL);
+  code_word(varbuffer[i]-1);
+ }
+ else if (varbuffer[i] < 0)      /* local var */
+ {
+  int number = (-varbuffer[i]) - 1;
+  if (number < 10) code_byte(STORELOCAL0 + number);
+  else
+  {
+   code_byte(STORELOCAL);
+   code_byte(number);
+  }
+ }
+ else				  /* indexed var */
+ {
+  int j;
+  int upper=0;     	/* number of indexed variables upper */
+  int param;		/* number of itens until indexed expression */
+  for (j=i+1; j <nvarbuffer; j++)
+   if (varbuffer[j] == 0) upper++;
+  param = upper*2 + i;
+  if (param == 0)
+   code_byte(STOREINDEXED0);
+  else
+  {
+   code_byte(STOREINDEXED);
+   code_byte(param);
+  }
+ }
+}
+
+void yyerror (char *s)
+{
+ static char msg[256];
+ sprintf (msg,"%s near \"%s\" at line %d in file \"%s\"",
+          s, lua_lasttext (), lua_linenumber, lua_filename());
+ lua_error (msg);
+ err = 1;
+}
+
+int yywrap (void)
+{
+ return 1;
+}
+
+
+/*
+** Parse LUA code and execute global statement.
+** Return 0 on success or 1 on error.
+*/
+int lua_parse (void)
+{
+ Byte *initcode = maincode;
+ err = 0;
+ if (yyparse () || (err==1)) return 1;
+ *maincode++ = HALT;
+ if (lua_execute (initcode)) return 1;
+ maincode = initcode;
+ return 0;
+}
+
+
+#if 0
+
+static void PrintCode (void)
+{
+ Byte *p = code;
+ printf ("\n\nCODE\n");
+ while (p != pc)
+ {
+  switch ((OpCode)*p)
+  {
+   case NOP:		printf ("%d    NOP\n", (p++)-code); break;
+   case PUSHNIL:	printf ("%d    PUSHNIL\n", (p++)-code); break;
+   case PUSH0: case PUSH1: case PUSH2:
+    			printf ("%d    PUSH%c\n", p-code, *p-PUSH0+'0');
+    			p++;
+   			break;
+   case PUSHBYTE:
+    			printf ("%d    PUSHBYTE   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case PUSHWORD:
+    			printf ("%d    PUSHWORD   %d\n", p-code, *((Word *)(p+1)));
+    			p += 1 + sizeof(Word);
+   			break;
+   case PUSHFLOAT:
+    			printf ("%d    PUSHFLOAT  %f\n", p-code, *((float *)(p+1)));
+    			p += 1 + sizeof(float);
+   			break;
+   case PUSHSTRING:
+    			printf ("%d    PUSHSTRING   %d\n", p-code, *((Word *)(p+1)));
+    			p += 1 + sizeof(Word);
+   			break;
+   case PUSHLOCAL0: case PUSHLOCAL1: case PUSHLOCAL2: case PUSHLOCAL3:
+   case PUSHLOCAL4: case PUSHLOCAL5: case PUSHLOCAL6: case PUSHLOCAL7:
+   case PUSHLOCAL8: case PUSHLOCAL9:
+    			printf ("%d    PUSHLOCAL%c\n", p-code, *p-PUSHLOCAL0+'0');
+    			p++;
+   			break;
+   case PUSHLOCAL:	printf ("%d    PUSHLOCAL   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case PUSHGLOBAL:
+    			printf ("%d    PUSHGLOBAL   %d\n", p-code, *((Word *)(p+1)));
+    			p += 1 + sizeof(Word);
+   			break;
+   case PUSHINDEXED:    printf ("%d    PUSHINDEXED\n", (p++)-code); break;
+   case PUSHMARK:       printf ("%d    PUSHMARK\n", (p++)-code); break;
+   case PUSHOBJECT:     printf ("%d    PUSHOBJECT\n", (p++)-code); break;
+   case STORELOCAL0: case STORELOCAL1: case STORELOCAL2: case STORELOCAL3:
+   case STORELOCAL4: case STORELOCAL5: case STORELOCAL6: case STORELOCAL7:
+   case STORELOCAL8: case STORELOCAL9:
+    			printf ("%d    STORELOCAL%c\n", p-code, *p-STORELOCAL0+'0');
+    			p++;
+   			break;
+   case STORELOCAL:
+    			printf ("%d    STORELOCAK   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case STOREGLOBAL:
+    			printf ("%d    STOREGLOBAL   %d\n", p-code, *((Word *)(p+1)));
+    			p += 1 + sizeof(Word);
+   			break;
+   case STOREINDEXED0:  printf ("%d    STOREINDEXED0\n", (p++)-code); break;
+   case STOREINDEXED:   printf ("%d    STOREINDEXED   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case STOREFIELD:     printf ("%d    STOREFIELD\n", (p++)-code); break;
+   case ADJUST:
+    			printf ("%d    ADJUST   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case CREATEARRAY:	printf ("%d    CREATEARRAY\n", (p++)-code); break;
+   case EQOP:       	printf ("%d    EQOP\n", (p++)-code); break;
+   case LTOP:       	printf ("%d    LTOP\n", (p++)-code); break;
+   case LEOP:       	printf ("%d    LEOP\n", (p++)-code); break;
+   case ADDOP:       	printf ("%d    ADDOP\n", (p++)-code); break;
+   case SUBOP:       	printf ("%d    SUBOP\n", (p++)-code); break;
+   case MULTOP:      	printf ("%d    MULTOP\n", (p++)-code); break;
+   case DIVOP:       	printf ("%d    DIVOP\n", (p++)-code); break;
+   case CONCOP:       	printf ("%d    CONCOP\n", (p++)-code); break;
+   case MINUSOP:       	printf ("%d    MINUSOP\n", (p++)-code); break;
+   case NOTOP:       	printf ("%d    NOTOP\n", (p++)-code); break;
+   case ONTJMP:	   
+    			printf ("%d    ONTJMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case ONFJMP:	   
+    			printf ("%d    ONFJMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case JMP:	   
+    			printf ("%d    JMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case UPJMP:
+    			printf ("%d    UPJMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case IFFJMP:
+    			printf ("%d    IFFJMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case IFFUPJMP:
+    			printf ("%d    IFFUPJMP  %d\n", p-code, *((Word *)(p+1)));
+    			p += sizeof(Word) + 1;
+   			break;
+   case POP:       	printf ("%d    POP\n", (p++)-code); break;
+   case CALLFUNC:	printf ("%d    CALLFUNC\n", (p++)-code); break;
+   case RETCODE:
+    			printf ("%d    RETCODE   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   default:		printf ("%d    Cannot happen\n", (p++)-code); break;
+  }
+ }
+}
+#endif
+

y_tab.c

@@ -1,1639 +0,0 @@
-# line 2 "lua.stx"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "opcode.h"
-#include "hash.h"
-#include "inout.h"
-#include "table.h"
-#include "lua.h"
-
-#ifndef ALIGNMENT
-#define ALIGNMENT	(sizeof(void *))
-#endif
-
-#ifndef MAXCODE
-#define MAXCODE 1024
-#endif
-static long   buffer[MAXCODE];
-static Byte  *code = (Byte *)buffer;
-static long   mainbuffer[MAXCODE];
-static Byte  *maincode = (Byte *)mainbuffer;
-static Byte  *basepc;
-static Byte  *pc;
-
-#define MAXVAR 32
-static long    varbuffer[MAXVAR];
-static Byte    nvarbuffer=0;	     /* number of variables at a list */
-
-static Word    localvar[STACKGAP];
-static Byte    nlocalvar=0;	     /* number of local variables */
-static int     ntemp;		     /* number of temporary var into stack */
-static int     err;		     /* flag to indicate error */
-
-/* Internal functions */
-#define align(n)  align_n(sizeof(n))
-
-static void code_byte (Byte c)
-{
- if (pc-basepc>MAXCODE-1)
- {
-  lua_error ("code buffer overflow");
-  err = 1;
- }
- *pc++ = c;
-}
-
-static void code_word (Word n)
-{
- if (pc-basepc>MAXCODE-sizeof(Word))
- {
-  lua_error ("code buffer overflow");
-  err = 1;
- }
- *((Word *)pc) = n;
- pc += sizeof(Word);
-}
-
-static void code_float (float n)
-{
- if (pc-basepc>MAXCODE-sizeof(float))
- {
-  lua_error ("code buffer overflow");
-  err = 1;
- }
- *((float *)pc) = n;
- pc += sizeof(float);
-}
-
-static void incr_ntemp (void)
-{
- if (ntemp+nlocalvar+MAXVAR+1 < STACKGAP)
-  ntemp++;
- else
- {
-  lua_error ("stack overflow");
-  err = 1;
- }
-}
-
-static void incr_nlocalvar (void)
-{
- if (ntemp+nlocalvar+MAXVAR+1 < STACKGAP)
-  nlocalvar++;
- else
- {
-  lua_error ("too many local variables or expression too complicate");
-  err = 1;
- }
-}
-
-static void incr_nvarbuffer (void)
-{
- if (nvarbuffer < MAXVAR-1)
-  nvarbuffer++;
- else
- {
-  lua_error ("variable buffer overflow");
-  err = 1;
- }
-}
-
-static void align_n (unsigned size)
-{
- if (size > ALIGNMENT) size = ALIGNMENT;
- while (((pc+1-code)%size) != 0)	/* +1 to include BYTECODE */
-  code_byte (NOP);
-}
-
-static void code_number (float f)
-{ int i = f;
-  if (f == i)  /* f has an integer value */
-  {
-   if (i <= 2) code_byte(PUSH0 + i);
-   else if (i <= 255)
-   {
-    code_byte(PUSHBYTE);
-    code_byte(i);
-   }
-   else
-   {
-    align(Word);
-    code_byte(PUSHWORD);
-    code_word(i);
-   }
-  }
-  else
-  {
-   align(float);
-   code_byte(PUSHFLOAT);
-   code_float(f);
-  }
-  incr_ntemp();
-}
-
-
-# line 140 "lua.stx"
-typedef union  
-{
- int   vInt;
- long  vLong;
- float vFloat;
- Word  vWord;
- Byte *pByte;
-} YYSTYPE;
-# define NIL 257
-# define IF 258
-# define THEN 259
-# define ELSE 260
-# define ELSEIF 261
-# define WHILE 262
-# define DO 263
-# define REPEAT 264
-# define UNTIL 265
-# define END 266
-# define RETURN 267
-# define LOCAL 268
-# define NUMBER 269
-# define FUNCTION 270
-# define NAME 271
-# define STRING 272
-# define DEBUG 273
-# define NOT 274
-# define AND 275
-# define OR 276
-# define NE 277
-# define LE 278
-# define GE 279
-# define CONC 280
-# define UNARY 281
-#define yyclearin yychar = -1
-#define yyerrok yyerrflag = 0
-extern int yychar;
-extern int yyerrflag;
-#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 150
-#endif
-YYSTYPE yylval, yyval;
-# define YYERRCODE 256
-
-# line 530 "lua.stx"
-
-
-/*
-** Search a local name and if find return its index. If do not find return -1
-*/
-static int lua_localname (Word n)
-{
- int i;
- for (i=nlocalvar-1; i >= 0; i--)
-  if (n == localvar[i]) return i;	/* local var */
- return -1;		        /* global var */
-}
-
-/*
-** Push a variable given a number. If number is positive, push global variable
-** indexed by (number -1). If negative, push local indexed by ABS(number)-1.
-** Otherwise, if zero, push indexed variable (record).
-*/
-static void lua_pushvar (long number)
-{ 
- if (number > 0)	/* global var */
- {
-  align(Word);
-  code_byte(PUSHGLOBAL);
-  code_word(number-1);
-  incr_ntemp();
- }
- else if (number < 0)	/* local var */
- {
-  number = (-number) - 1;
-  if (number < 10) code_byte(PUSHLOCAL0 + number);
-  else
-  {
-   code_byte(PUSHLOCAL);
-   code_byte(number);
-  }
-  incr_ntemp();
- }
- else
- {
-  code_byte(PUSHINDEXED);
-  ntemp--;
- }
-}
-
-static void lua_codeadjust (int n)
-{
- code_byte(ADJUST);
- code_byte(n + nlocalvar);
-}
-
-static void lua_codestore (int i)
-{
- if (varbuffer[i] > 0)		/* global var */
- {
-  align(Word);
-  code_byte(STOREGLOBAL);
-  code_word(varbuffer[i]-1);
- }
- else if (varbuffer[i] < 0)      /* local var */
- {
-  int number = (-varbuffer[i]) - 1;
-  if (number < 10) code_byte(STORELOCAL0 + number);
-  else
-  {
-   code_byte(STORELOCAL);
-   code_byte(number);
-  }
- }
- else				  /* indexed var */
- {
-  int j;
-  int upper=0;     	/* number of indexed variables upper */
-  int param;		/* number of itens until indexed expression */
-  for (j=i+1; j <nvarbuffer; j++)
-   if (varbuffer[j] == 0) upper++;
-  param = upper*2 + i;
-  if (param == 0)
-   code_byte(STOREINDEXED0);
-  else
-  {
-   code_byte(STOREINDEXED);
-   code_byte(param);
-  }
- }
-}
-
-void yyerror (char *s)
-{
- static char msg[256];
- sprintf (msg,"%s near \"%s\" at line %d in file \"%s\"",
-          s, lua_lasttext (), lua_linenumber, lua_filename());
- lua_error (msg);
- err = 1;
-}
-
-int yywrap (void)
-{
- return 1;
-}
-
-
-/*
-** Parse LUA code and execute global statement.
-** Return 0 on success or 1 on error.
-*/
-int lua_parse (void)
-{
- Byte *initcode = maincode;
- err = 0;
- if (yyparse () || (err==1)) return 1;
- *maincode++ = HALT;
- if (lua_execute (initcode)) return 1;
- maincode = initcode;
- return 0;
-}
-
-
-#if 0
-
-static void PrintCode (void)
-{
- Byte *p = code;
- printf ("\n\nCODE\n");
- while (p != pc)
- {
-  switch ((OpCode)*p)
-  {
-   case NOP:		printf ("%d    NOP\n", (p++)-code); break;
-   case PUSHNIL:	printf ("%d    PUSHNIL\n", (p++)-code); break;
-   case PUSH0: case PUSH1: case PUSH2:
-    			printf ("%d    PUSH%c\n", p-code, *p-PUSH0+'0');
-    			p++;
-   			break;
-   case PUSHBYTE:
-    			printf ("%d    PUSHBYTE   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   case PUSHWORD:
-    			printf ("%d    PUSHWORD   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
-   			break;
-   case PUSHFLOAT:
-    			printf ("%d    PUSHFLOAT  %f\n", p-code, *((float *)(p+1)));
-    			p += 1 + sizeof(float);
-   			break;
-   case PUSHSTRING:
-    			printf ("%d    PUSHSTRING   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
-   			break;
-   case PUSHLOCAL0: case PUSHLOCAL1: case PUSHLOCAL2: case PUSHLOCAL3:
-   case PUSHLOCAL4: case PUSHLOCAL5: case PUSHLOCAL6: case PUSHLOCAL7:
-   case PUSHLOCAL8: case PUSHLOCAL9:
-    			printf ("%d    PUSHLOCAL%c\n", p-code, *p-PUSHLOCAL0+'0');
-    			p++;
-   			break;
-   case PUSHLOCAL:	printf ("%d    PUSHLOCAL   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   case PUSHGLOBAL:
-    			printf ("%d    PUSHGLOBAL   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
-   			break;
-   case PUSHINDEXED:    printf ("%d    PUSHINDEXED\n", (p++)-code); break;
-   case PUSHMARK:       printf ("%d    PUSHMARK\n", (p++)-code); break;
-   case PUSHOBJECT:     printf ("%d    PUSHOBJECT\n", (p++)-code); break;
-   case STORELOCAL0: case STORELOCAL1: case STORELOCAL2: case STORELOCAL3:
-   case STORELOCAL4: case STORELOCAL5: case STORELOCAL6: case STORELOCAL7:
-   case STORELOCAL8: case STORELOCAL9:
-    			printf ("%d    STORELOCAL%c\n", p-code, *p-STORELOCAL0+'0');
-    			p++;
-   			break;
-   case STORELOCAL:
-    			printf ("%d    STORELOCAK   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   case STOREGLOBAL:
-    			printf ("%d    STOREGLOBAL   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
-   			break;
-   case STOREINDEXED0:  printf ("%d    STOREINDEXED0\n", (p++)-code); break;
-   case STOREINDEXED:   printf ("%d    STOREINDEXED   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   case STOREFIELD:     printf ("%d    STOREFIELD\n", (p++)-code); break;
-   case ADJUST:
-    			printf ("%d    ADJUST   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   case CREATEARRAY:	printf ("%d    CREATEARRAY\n", (p++)-code); break;
-   case EQOP:       	printf ("%d    EQOP\n", (p++)-code); break;
-   case LTOP:       	printf ("%d    LTOP\n", (p++)-code); break;
-   case LEOP:       	printf ("%d    LEOP\n", (p++)-code); break;
-   case ADDOP:       	printf ("%d    ADDOP\n", (p++)-code); break;
-   case SUBOP:       	printf ("%d    SUBOP\n", (p++)-code); break;
-   case MULTOP:      	printf ("%d    MULTOP\n", (p++)-code); break;
-   case DIVOP:       	printf ("%d    DIVOP\n", (p++)-code); break;
-   case CONCOP:       	printf ("%d    CONCOP\n", (p++)-code); break;
-   case MINUSOP:       	printf ("%d    MINUSOP\n", (p++)-code); break;
-   case NOTOP:       	printf ("%d    NOTOP\n", (p++)-code); break;
-   case ONTJMP:	   
-    			printf ("%d    ONTJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case ONFJMP:	   
-    			printf ("%d    ONFJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case JMP:	   
-    			printf ("%d    JMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case UPJMP:
-    			printf ("%d    UPJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case IFFJMP:
-    			printf ("%d    IFFJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case IFFUPJMP:
-    			printf ("%d    IFFUPJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
-   			break;
-   case POP:       	printf ("%d    POP\n", (p++)-code); break;
-   case CALLFUNC:	printf ("%d    CALLFUNC\n", (p++)-code); break;
-   case RETCODE:
-    			printf ("%d    RETCODE   %d\n", p-code, *(++p));
-    			p++;
-   			break;
-   default:		printf ("%d    Cannot happen\n", (p++)-code); break;
-  }
- }
-}
-#endif
-
-int yyexca[] ={
--1, 1,
-	0, -1,
-	-2, 2,
--1, 19,
-	40, 65,
-	91, 95,
-	46, 97,
-	-2, 92,
--1, 29,
-	40, 65,
-	91, 95,
-	46, 97,
-	-2, 51,
--1, 70,
-	275, 33,
-	276, 33,
-	61, 33,
-	277, 33,
-	62, 33,
-	60, 33,
-	278, 33,
-	279, 33,
-	280, 33,
-	43, 33,
-	45, 33,
-	42, 33,
-	47, 33,
-	-2, 68,
--1, 71,
-	91, 95,
-	46, 97,
-	-2, 93,
--1, 102,
-	260, 27,
-	261, 27,
-	265, 27,
-	266, 27,
-	267, 27,
-	-2, 11,
--1, 117,
-	93, 85,
-	-2, 87,
--1, 122,
-	267, 30,
-	-2, 29,
--1, 145,
-	275, 33,
-	276, 33,
-	61, 33,
-	277, 33,
-	62, 33,
-	60, 33,
-	278, 33,
-	279, 33,
-	280, 33,
-	43, 33,
-	45, 33,
-	42, 33,
-	47, 33,
-	-2, 70,
-	};
-# define YYNPROD 105
-# define YYLAST 318
-int yyact[]={
-
-    54,    52,   136,    53,    13,    55,    54,    52,    14,    53,
-    15,    55,     5,   166,    18,     6,   129,    21,    47,    46,
-    48,   107,   104,    97,    47,    46,    48,    54,    52,    80,
-    53,    21,    55,    54,    52,    40,    53,     9,    55,    54,
-    52,   158,    53,   160,    55,    47,    46,    48,   159,   101,
-    81,    47,    46,    48,    10,    54,    52,   126,    53,    67,
-    55,    54,    52,    60,    53,   155,    55,   148,   149,   135,
-   147,   108,   150,    47,    46,    48,    73,    23,    75,    47,
-    46,    48,     7,    25,    38,   153,    26,   164,    27,   117,
-    61,    62,    74,    11,    76,    54,    24,   127,    65,    66,
-    55,    37,   154,   151,   103,   111,    72,    28,    93,    94,
-    82,    83,    84,    85,    86,    87,    88,    89,    90,    91,
-    92,   116,    59,    77,    54,    52,   118,    53,    99,    55,
-   110,    95,    64,    44,    70,   109,    29,    33,   105,   106,
-    42,   112,    41,   165,   139,    19,    17,   152,    79,   123,
-    43,   119,    20,   114,   113,    98,    63,   144,   143,   122,
-    68,    39,    36,   130,    35,   120,    12,     8,   102,   125,
-   128,   141,    78,    69,    70,    71,   142,   131,   132,   140,
-    22,   124,     4,     3,     2,   121,    96,   138,   146,   137,
-   134,   157,   133,   115,    16,     1,     0,     0,     0,     0,
-     0,     0,     0,   156,     0,     0,     0,     0,   161,     0,
-     0,     0,     0,   162,     0,     0,     0,   168,     0,   172,
-   145,   163,   171,     0,   174,     0,     0,     0,   169,   156,
-   167,   170,   173,    57,    58,    49,    50,    51,    56,    57,
-    58,    49,    50,    51,    56,   175,     0,     0,   100,     0,
-    45,     0,     0,     0,     0,    70,     0,     0,     0,     0,
-    57,    58,    49,    50,    51,    56,    57,    58,    49,    50,
-    51,    56,     0,     0,     0,     0,     0,    56,     0,     0,
-     0,     0,     0,     0,     0,     0,     0,     0,    57,    58,
-    49,    50,    51,    56,     0,     0,    49,    50,    51,    56,
-    32,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-     0,     0,    30,     0,    21,    31,     0,    34 };
-int yypact[]={
-
- -1000,  -258, -1000, -1000, -1000,  -234, -1000,    34,  -254, -1000,
- -1000, -1000, -1000,    43, -1000, -1000,    40, -1000,  -236, -1000,
- -1000, -1000,    93,    -9, -1000,    43,    43,    43,    92, -1000,
- -1000, -1000, -1000, -1000,    43,    43, -1000,    43,  -240,    62,
-    31,   -13,    48,    83,  -242, -1000,    43,    43,    43,    43,
-    43,    43,    43,    43,    43,    43,    43, -1000, -1000,    90,
-    13, -1000, -1000,  -248,    43,    19,   -15,  -216, -1000,    60,
- -1000, -1000,  -249, -1000, -1000,    43,  -250,    43,    89,    61,
- -1000, -1000,    -3,    -3,    -3,    -3,    -3,    -3,    53,    53,
- -1000, -1000,    82, -1000, -1000, -1000,    -2, -1000,    85,    13,
- -1000,    43, -1000, -1000,    31,    43,   -36, -1000,    56,    60,
- -1000,  -255, -1000,    43,    43, -1000,  -269, -1000, -1000, -1000,
-    13,    34, -1000,    43, -1000,    13, -1000, -1000, -1000, -1000,
-  -193,    19,    19,   -53,    59, -1000, -1000,    -8,    58,    43,
- -1000, -1000, -1000, -1000,  -226, -1000,  -218,  -223, -1000,    43,
- -1000,  -269,    26, -1000, -1000, -1000,    13,  -253,    43, -1000,
- -1000, -1000,   -42, -1000,    43,    43, -1000,    34, -1000,    13,
- -1000, -1000, -1000, -1000,  -193, -1000 };
-int yypgo[]={
-
-     0,   195,    50,    96,    71,   135,   194,   193,   192,   190,
-   189,   187,   136,   186,   184,    82,    54,   183,   182,   180,
-   172,   170,    59,   168,   167,   166,    63,    70,   164,   162,
-   137,   161,   160,   159,   158,   157,   156,   155,   154,   153,
-   152,   150,   149,   148,    69,   147,   144,    65,   143,   142,
-   140,    76,   138 };
-int yyr1[]={
-
-     0,     1,    14,     1,     1,     1,    19,    21,    17,    23,
-    23,    24,    15,    16,    16,    25,    28,    25,    29,    25,
-    25,    25,    25,    27,    27,    27,    32,    33,    22,    34,
-    35,    34,     2,    26,     3,     3,     3,     3,     3,     3,
-     3,     3,     3,     3,     3,     3,     3,     3,    36,     3,
-     3,     3,     3,     3,     3,     3,     3,    38,     3,    39,
-     3,    37,    37,    41,    30,    40,     4,     4,     5,    42,
-     5,    20,    20,    43,    43,    13,    13,     7,     7,     8,
-     8,     9,     9,    45,    44,    10,    10,    46,    11,    48,
-    11,    47,     6,     6,    12,    49,    12,    50,    12,    31,
-    31,    51,    52,    51,    18 };
-int yyr2[]={
-
-     0,     0,     1,     9,     4,     4,     1,     1,    19,     0,
-     6,     1,     4,     0,     2,    17,     1,    17,     1,    13,
-     7,     3,     4,     0,     4,    15,     1,     1,     9,     0,
-     1,     9,     1,     3,     7,     7,     7,     7,     7,     7,
-     7,     7,     7,     7,     7,     7,     5,     5,     1,     9,
-     9,     3,     3,     3,     3,     3,     5,     1,    11,     1,
-    11,     1,     2,     1,    11,     3,     1,     3,     3,     1,
-     9,     0,     2,     3,     7,     1,     3,     7,     7,     1,
-     3,     3,     7,     1,     9,     1,     3,     1,     5,     1,
-     9,     3,     3,     7,     3,     1,    11,     1,     9,     5,
-     9,     1,     1,     6,     3 };
-int yychk[]={
-
- -1000,    -1,   -14,   -17,   -18,   270,   273,   -15,   -24,   271,
-   -16,    59,   -25,   258,   262,   264,    -6,   -30,   268,   -12,
-   -40,   271,   -19,   -26,    -3,    40,    43,    45,    64,   -12,
-   269,   272,   257,   -30,   274,   -28,   -29,    61,    44,   -31,
-   271,   -49,   -50,   -41,    40,   259,    61,    60,    62,   277,
-   278,   279,    43,    45,    42,    47,   280,   275,   276,    -3,
-   -26,   -26,   -26,   -36,    40,   -26,   -26,   -22,   -32,    -5,
-    -3,   -12,    44,   -51,    61,    91,    46,    40,   -20,   -43,
-   271,    -2,   -26,   -26,   -26,   -26,   -26,   -26,   -26,   -26,
-   -26,   -26,   -26,    -2,    -2,    41,   -13,   271,   -37,   -26,
-   263,   265,   -23,    44,   271,   -52,   -26,   271,    -4,    -5,
-    41,    44,   -22,   -38,   -39,    -7,   123,    91,    41,    -2,
-   -26,   -15,   -33,   -42,   -51,   -26,    93,    41,   -21,   271,
-    -2,   -26,   -26,    -8,    -9,   -44,   271,   -10,   -11,   -46,
-   -22,    -2,   -16,   -34,   -35,    -3,   -22,   -27,   260,   261,
-   125,    44,   -45,    93,    44,   -47,   -26,    -2,   267,   266,
-   266,   -22,   -26,   -44,    61,   -48,   266,    -4,   259,   -26,
-   -47,   -16,    -2,   -22,    -2,   -27 };
-int yydef[]={
-
-     1,    -2,    11,     4,     5,     0,   104,    13,     0,     6,
-     3,    14,    12,     0,    16,    18,     0,    21,     0,    -2,
-    63,    94,     0,     0,    33,     0,     0,     0,    48,    -2,
-    52,    53,    54,    55,     0,     0,    26,     0,     0,    22,
-   101,     0,     0,     0,    71,    32,     0,     0,     0,     0,
-     0,     0,     0,     0,     0,     0,     0,    32,    32,    33,
-     0,    46,    47,    75,    61,    56,     0,     0,     9,    20,
-    -2,    -2,     0,    99,   102,     0,     0,    66,     0,    72,
-    73,    26,    35,    36,    37,    38,    39,    40,    41,    42,
-    43,    44,    45,    57,    59,    34,     0,    76,     0,    62,
-    32,     0,    -2,    69,   101,     0,     0,    98,     0,    67,
-     7,     0,    32,     0,     0,    49,    79,    -2,    50,    26,
-    32,    13,    -2,     0,   100,   103,    96,    64,    26,    74,
-    23,    58,    60,     0,    80,    81,    83,     0,    86,     0,
-    32,    19,    10,    28,     0,    -2,     0,     0,    26,     0,
-    77,     0,     0,    78,    89,    88,    91,     0,    66,     8,
-    15,    24,     0,    82,     0,     0,    17,    13,    32,    84,
-    90,    31,    26,    32,    23,    25 };
-typedef struct { char *t_name; int t_val; } yytoktype;
-#ifndef YYDEBUG
-#	define YYDEBUG	0	/* don't allow debugging */
-#endif
-
-#if YYDEBUG
-
-yytoktype yytoks[] =
-{
-	"NIL",	257,
-	"IF",	258,
-	"THEN",	259,
-	"ELSE",	260,
-	"ELSEIF",	261,
-	"WHILE",	262,
-	"DO",	263,
-	"REPEAT",	264,
-	"UNTIL",	265,
-	"END",	266,
-	"RETURN",	267,
-	"LOCAL",	268,
-	"NUMBER",	269,
-	"FUNCTION",	270,
-	"NAME",	271,
-	"STRING",	272,
-	"DEBUG",	273,
-	"NOT",	274,
-	"AND",	275,
-	"OR",	276,
-	"=",	61,
-	"NE",	277,
-	">",	62,
-	"<",	60,
-	"LE",	278,
-	"GE",	279,
-	"CONC",	280,
-	"+",	43,
-	"-",	45,
-	"*",	42,
-	"/",	47,
-	"%",	37,
-	"UNARY",	281,
-	"-unknown-",	-1	/* ends search */
-};
-
-char * yyreds[] =
-{
-	"-no such reduction-",
-	"functionlist : /* empty */",
-	"functionlist : functionlist",
-	"functionlist : functionlist stat sc",
-	"functionlist : functionlist function",
-	"functionlist : functionlist setdebug",
-	"function : FUNCTION NAME",
-	"function : FUNCTION NAME '(' parlist ')'",
-	"function : FUNCTION NAME '(' parlist ')' block END",
-	"statlist : /* empty */",
-	"statlist : statlist stat sc",
-	"stat : /* empty */",
-	"stat : stat1",
-	"sc : /* empty */",
-	"sc : ';'",
-	"stat1 : IF expr1 THEN PrepJump block PrepJump elsepart END",
-	"stat1 : WHILE",
-	"stat1 : WHILE expr1 DO PrepJump block PrepJump END",
-	"stat1 : REPEAT",
-	"stat1 : REPEAT block UNTIL expr1 PrepJump",
-	"stat1 : varlist1 '=' exprlist1",
-	"stat1 : functioncall",
-	"stat1 : LOCAL declist",
-	"elsepart : /* empty */",
-	"elsepart : ELSE block",
-	"elsepart : ELSEIF expr1 THEN PrepJump block PrepJump elsepart",
-	"block : /* empty */",
-	"block : statlist",
-	"block : statlist ret",
-	"ret : /* empty */",
-	"ret : /* empty */",
-	"ret : RETURN exprlist sc",
-	"PrepJump : /* empty */",
-	"expr1 : expr",
-	"expr : '(' expr ')'",
-	"expr : expr1 '=' expr1",
-	"expr : expr1 '<' expr1",
-	"expr : expr1 '>' expr1",
-	"expr : expr1 NE expr1",
-	"expr : expr1 LE expr1",
-	"expr : expr1 GE expr1",
-	"expr : expr1 '+' expr1",
-	"expr : expr1 '-' expr1",
-	"expr : expr1 '*' expr1",
-	"expr : expr1 '/' expr1",
-	"expr : expr1 CONC expr1",
-	"expr : '+' expr1",
-	"expr : '-' expr1",
-	"expr : '@'",
-	"expr : '@' objectname fieldlist",
-	"expr : '@' '(' dimension ')'",
-	"expr : var",
-	"expr : NUMBER",
-	"expr : STRING",
-	"expr : NIL",
-	"expr : functioncall",
-	"expr : NOT expr1",
-	"expr : expr1 AND PrepJump",
-	"expr : expr1 AND PrepJump expr1",
-	"expr : expr1 OR PrepJump",
-	"expr : expr1 OR PrepJump expr1",
-	"dimension : /* empty */",
-	"dimension : expr1",
-	"functioncall : functionvalue",
-	"functioncall : functionvalue '(' exprlist ')'",
-	"functionvalue : var",
-	"exprlist : /* empty */",
-	"exprlist : exprlist1",
-	"exprlist1 : expr",
-	"exprlist1 : exprlist1 ','",
-	"exprlist1 : exprlist1 ',' expr",
-	"parlist : /* empty */",
-	"parlist : parlist1",
-	"parlist1 : NAME",
-	"parlist1 : parlist1 ',' NAME",
-	"objectname : /* empty */",
-	"objectname : NAME",
-	"fieldlist : '{' ffieldlist '}'",
-	"fieldlist : '[' lfieldlist ']'",
-	"ffieldlist : /* empty */",
-	"ffieldlist : ffieldlist1",
-	"ffieldlist1 : ffield",
-	"ffieldlist1 : ffieldlist1 ',' ffield",
-	"ffield : NAME",
-	"ffield : NAME '=' expr1",
-	"lfieldlist : /* empty */",
-	"lfieldlist : lfieldlist1",
-	"lfieldlist1 : /* empty */",
-	"lfieldlist1 : lfield",
-	"lfieldlist1 : lfieldlist1 ','",
-	"lfieldlist1 : lfieldlist1 ',' lfield",
-	"lfield : expr1",
-	"varlist1 : var",
-	"varlist1 : varlist1 ',' var",
-	"var : NAME",
-	"var : var",
-	"var : var '[' expr1 ']'",
-	"var : var",
-	"var : var '.' NAME",
-	"declist : NAME init",
-	"declist : declist ',' NAME init",
-	"init : /* empty */",
-	"init : '='",
-	"init : '=' expr1",
-	"setdebug : DEBUG",
-};
-#endif /* YYDEBUG */
-#line 1 "/usr/lib/yaccpar"
-/*	@(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10	*/
-
-/*
-** Skeleton parser driver for yacc output
-*/
-
-/*
-** yacc user known macros and defines
-*/
-#define YYERROR		goto yyerrlab
-#define YYACCEPT	{ free(yys); free(yyv); return(0); }
-#define YYABORT		{ free(yys); free(yyv); return(1); }
-#define YYBACKUP( newtoken, newvalue )\
-{\
-	if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
-	{\
-		yyerror( "syntax error - cannot backup" );\
-		goto yyerrlab;\
-	}\
-	yychar = newtoken;\
-	yystate = *yyps;\
-	yylval = newvalue;\
-	goto yynewstate;\
-}
-#define YYRECOVERING()	(!!yyerrflag)
-#ifndef YYDEBUG
-#	define YYDEBUG	1	/* make debugging available */
-#endif
-
-/*
-** user known globals
-*/
-int yydebug;			/* set to 1 to get debugging */
-
-/*
-** driver internal defines
-*/
-#define YYFLAG		(-1000)
-
-/*
-** static variables used by the parser
-*/
-static YYSTYPE *yyv;			/* value stack */
-static int *yys;			/* state stack */
-
-static YYSTYPE *yypv;			/* top of value stack */
-static int *yyps;			/* top of state stack */
-
-static int yystate;			/* current state */
-static int yytmp;			/* extra var (lasts between blocks) */
-
-int yynerrs;			/* number of errors */
-
-int yyerrflag;			/* error recovery flag */
-int yychar;			/* current input token number */
-
-
-/*
-** yyparse - return 0 if worked, 1 if syntax error not recovered from
-*/
-int
-yyparse()
-{
-	register YYSTYPE *yypvt;	/* top of value stack for $vars */
-	unsigned yymaxdepth = YYMAXDEPTH;
-
-	/*
-	** Initialize externals - yyparse may be called more than once
-	*/
-	yyv = (YYSTYPE*)malloc(yymaxdepth*sizeof(YYSTYPE));
-	yys = (int*)malloc(yymaxdepth*sizeof(int));
-	if (!yyv || !yys)
-	{
-		yyerror( "out of memory" );
-		return(1);
-	}
-	yypv = &yyv[-1];
-	yyps = &yys[-1];
-	yystate = 0;
-	yytmp = 0;
-	yynerrs = 0;
-	yyerrflag = 0;
-	yychar = -1;
-
-	goto yystack;
-	{
-		register YYSTYPE *yy_pv;	/* top of value stack */
-		register int *yy_ps;		/* top of state stack */
-		register int yy_state;		/* current state */
-		register int  yy_n;		/* internal state number info */
-
-		/*
-		** get globals into registers.
-		** branch to here only if YYBACKUP was called.
-		*/
-	yynewstate:
-		yy_pv = yypv;
-		yy_ps = yyps;
-		yy_state = yystate;
-		goto yy_newstate;
-
-		/*
-		** get globals into registers.
-		** either we just started, or we just finished a reduction
-		*/
-	yystack:
-		yy_pv = yypv;
-		yy_ps = yyps;
-		yy_state = yystate;
-
-		/*
-		** top of for (;;) loop while no reductions done
-		*/
-	yy_stack:
-		/*
-		** put a state and value onto the stacks
-		*/
-#if YYDEBUG
-		/*
-		** if debugging, look up token value in list of value vs.
-		** name pairs.  0 and negative (-1) are special values.
-		** Note: linear search is used since time is not a real
-		** consideration while debugging.
-		*/
-		if ( yydebug )
-		{
-			register int yy_i;
-
-			(void)printf( "State %d, token ", yy_state );
-			if ( yychar == 0 )
-				(void)printf( "end-of-file\n" );
-			else if ( yychar < 0 )
-				(void)printf( "-none-\n" );
-			else
-			{
-				for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
-					yy_i++ )
-				{
-					if ( yytoks[yy_i].t_val == yychar )
-						break;
-				}
-				(void)printf( "%s\n", yytoks[yy_i].t_name );
-			}
-		}
-#endif /* YYDEBUG */
-		if ( ++yy_ps >= &yys[ yymaxdepth ] )	/* room on stack? */
-		{
-			/*
-			** reallocate and recover.  Note that pointers
-			** have to be reset, or bad things will happen
-			*/
-			int yyps_index = (yy_ps - yys);
-			int yypv_index = (yy_pv - yyv);
-			int yypvt_index = (yypvt - yyv);
-			yymaxdepth += YYMAXDEPTH;
-			yyv = (YYSTYPE*)realloc((char*)yyv,
-				yymaxdepth * sizeof(YYSTYPE));
-			yys = (int*)realloc((char*)yys,
-				yymaxdepth * sizeof(int));
-			if (!yyv || !yys)
-			{
-				yyerror( "yacc stack overflow" );
-				return(1);
-			}
-			yy_ps = yys + yyps_index;
-			yy_pv = yyv + yypv_index;
-			yypvt = yyv + yypvt_index;
-		}
-		*yy_ps = yy_state;
-		*++yy_pv = yyval;
-
-		/*
-		** we have a new state - find out what to do
-		*/
-	yy_newstate:
-		if ( ( yy_n = yypact[ yy_state ] ) <= YYFLAG )
-			goto yydefault;		/* simple state */
-#if YYDEBUG
-		/*
-		** if debugging, need to mark whether new token grabbed
-		*/
-		yytmp = yychar < 0;
-#endif
-		if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
-			yychar = 0;		/* reached EOF */
-#if YYDEBUG
-		if ( yydebug && yytmp )
-		{
-			register int yy_i;
-
-			(void)printf( "Received token " );
-			if ( yychar == 0 )
-				(void)printf( "end-of-file\n" );
-			else if ( yychar < 0 )
-				(void)printf( "-none-\n" );
-			else
-			{
-				for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
-					yy_i++ )
-				{
-					if ( yytoks[yy_i].t_val == yychar )
-						break;
-				}
-				(void)printf( "%s\n", yytoks[yy_i].t_name );
-			}
-		}
-#endif /* YYDEBUG */
-		if ( ( ( yy_n += yychar ) < 0 ) || ( yy_n >= YYLAST ) )
-			goto yydefault;
-		if ( yychk[ yy_n = yyact[ yy_n ] ] == yychar )	/*valid shift*/
-		{
-			yychar = -1;
-			yyval = yylval;
-			yy_state = yy_n;
-			if ( yyerrflag > 0 )
-				yyerrflag--;
-			goto yy_stack;
-		}
-
-	yydefault:
-		if ( ( yy_n = yydef[ yy_state ] ) == -2 )
-		{
-#if YYDEBUG
-			yytmp = yychar < 0;
-#endif
-			if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
-				yychar = 0;		/* reached EOF */
-#if YYDEBUG
-			if ( yydebug && yytmp )
-			{
-				register int yy_i;
-
-				(void)printf( "Received token " );
-				if ( yychar == 0 )
-					(void)printf( "end-of-file\n" );
-				else if ( yychar < 0 )
-					(void)printf( "-none-\n" );
-				else
-				{
-					for ( yy_i = 0;
-						yytoks[yy_i].t_val >= 0;
-						yy_i++ )
-					{
-						if ( yytoks[yy_i].t_val
-							== yychar )
-						{
-							break;
-						}
-					}
-					(void)printf( "%s\n", yytoks[yy_i].t_name );
-				}
-			}
-#endif /* YYDEBUG */
-			/*
-			** look through exception table
-			*/
-			{
-				register int *yyxi = yyexca;
-
-				while ( ( *yyxi != -1 ) ||
-					( yyxi[1] != yy_state ) )
-				{
-					yyxi += 2;
-				}
-				while ( ( *(yyxi += 2) >= 0 ) &&
-					( *yyxi != yychar ) )
-					;
-				if ( ( yy_n = yyxi[1] ) < 0 )
-					YYACCEPT;
-			}
-		}
-
-		/*
-		** check for syntax error
-		*/
-		if ( yy_n == 0 )	/* have an error */
-		{
-			/* no worry about speed here! */
-			switch ( yyerrflag )
-			{
-			case 0:		/* new error */
-				yyerror( "syntax error" );
-				goto skip_init;
-			yyerrlab:
-				/*
-				** get globals into registers.
-				** we have a user generated syntax type error
-				*/
-				yy_pv = yypv;
-				yy_ps = yyps;
-				yy_state = yystate;
-				yynerrs++;
-			skip_init:
-			case 1:
-			case 2:		/* incompletely recovered error */
-					/* try again... */
-				yyerrflag = 3;
-				/*
-				** find state where "error" is a legal
-				** shift action
-				*/
-				while ( yy_ps >= yys )
-				{
-					yy_n = yypact[ *yy_ps ] + YYERRCODE;
-					if ( yy_n >= 0 && yy_n < YYLAST &&
-						yychk[yyact[yy_n]] == YYERRCODE)					{
-						/*
-						** simulate shift of "error"
-						*/
-						yy_state = yyact[ yy_n ];
-						goto yy_stack;
-					}
-					/*
-					** current state has no shift on
-					** "error", pop stack
-					*/
-#if YYDEBUG
-#	define _POP_ "Error recovery pops state %d, uncovers state %d\n"
-					if ( yydebug )
-						(void)printf( _POP_, *yy_ps,
-							yy_ps[-1] );
-#	undef _POP_
-#endif
-					yy_ps--;
-					yy_pv--;
-				}
-				/*
-				** there is no state on stack with "error" as
-				** a valid shift.  give up.
-				*/
-				YYABORT;
-			case 3:		/* no shift yet; eat a token */
-#if YYDEBUG
-				/*
-				** if debugging, look up token in list of
-				** pairs.  0 and negative shouldn't occur,
-				** but since timing doesn't matter when
-				** debugging, it doesn't hurt to leave the
-				** tests here.
-				*/
-				if ( yydebug )
-				{
-					register int yy_i;
-
-					(void)printf( "Error recovery discards " );
-					if ( yychar == 0 )
-						(void)printf( "token end-of-file\n" );
-					else if ( yychar < 0 )
-						(void)printf( "token -none-\n" );
-					else
-					{
-						for ( yy_i = 0;
-							yytoks[yy_i].t_val >= 0;
-							yy_i++ )
-						{
-							if ( yytoks[yy_i].t_val
-								== yychar )
-							{
-								break;
-							}
-						}
-						(void)printf( "token %s\n",
-							yytoks[yy_i].t_name );
-					}
-				}
-#endif /* YYDEBUG */
-				if ( yychar == 0 )	/* reached EOF. quit */
-					YYABORT;
-				yychar = -1;
-				goto yy_newstate;
-			}
-		}/* end if ( yy_n == 0 ) */
-		/*
-		** reduction by production yy_n
-		** put stack tops, etc. so things right after switch
-		*/
-#if YYDEBUG
-		/*
-		** if debugging, print the string that is the user's
-		** specification of the reduction which is just about
-		** to be done.
-		*/
-		if ( yydebug )
-			(void)printf( "Reduce by (%d) \"%s\"\n",
-				yy_n, yyreds[ yy_n ] );
-#endif
-		yytmp = yy_n;			/* value to switch over */
-		yypvt = yy_pv;			/* $vars top of value stack */
-		/*
-		** Look in goto table for next state
-		** Sorry about using yy_state here as temporary
-		** register variable, but why not, if it works...
-		** If yyr2[ yy_n ] doesn't have the low order bit
-		** set, then there is no action to be done for
-		** this reduction.  So, no saving & unsaving of
-		** registers done.  The only difference between the
-		** code just after the if and the body of the if is
-		** the goto yy_stack in the body.  This way the test
-		** can be made before the choice of what to do is needed.
-		*/
-		{
-			/* length of production doubled with extra bit */
-			register int yy_len = yyr2[ yy_n ];
-
-			if ( !( yy_len & 01 ) )
-			{
-				yy_len >>= 1;
-				yyval = ( yy_pv -= yy_len )[1];	/* $$ = $1 */
-				yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
-					*( yy_ps -= yy_len ) + 1;
-				if ( yy_state >= YYLAST ||
-					yychk[ yy_state =
-					yyact[ yy_state ] ] != -yy_n )
-				{
-					yy_state = yyact[ yypgo[ yy_n ] ];
-				}
-				goto yy_stack;
-			}
-			yy_len >>= 1;
-			yyval = ( yy_pv -= yy_len )[1];	/* $$ = $1 */
-			yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
-				*( yy_ps -= yy_len ) + 1;
-			if ( yy_state >= YYLAST ||
-				yychk[ yy_state = yyact[ yy_state ] ] != -yy_n )
-			{
-				yy_state = yyact[ yypgo[ yy_n ] ];
-			}
-		}
-					/* save until reenter driver code */
-		yystate = yy_state;
-		yyps = yy_ps;
-		yypv = yy_pv;
-	}
-	/*
-	** code supplied by user is placed in this switch
-	*/
-	switch( yytmp )
-	{
-		
-case 2:
-# line 179 "lua.stx"
-{pc=basepc=maincode; nlocalvar=0;} break;
-case 3:
-# line 179 "lua.stx"
-{maincode=pc;} break;
-case 6:
-# line 184 "lua.stx"
-{pc=basepc=code; nlocalvar=0;} break;
-case 7:
-# line 185 "lua.stx"
-{
-	        if (lua_debug)
-		{
-		 align(Word);
-	         code_byte(SETFUNCTION); 
-                 code_word(yypvt[-5].vWord);
-		 code_word(yypvt[-4].vWord);
-		}
-	        lua_codeadjust (0);
-	       } break;
-case 8:
-# line 197 "lua.stx"
-{ 
-                if (lua_debug) code_byte(RESET); 
-	        code_byte(RETCODE); code_byte(nlocalvar);
-	        s_tag(yypvt[-7].vWord) = T_FUNCTION;
-	        s_bvalue(yypvt[-7].vWord) = calloc (pc-code, sizeof(Byte));
-	        memcpy (s_bvalue(yypvt[-7].vWord), code, (pc-code)*sizeof(Byte));
-	       } break;
-case 11:
-# line 210 "lua.stx"
-{
-            ntemp = 0; 
-            if (lua_debug)
-            {
-             align(Word); code_byte(SETLINE); code_word(lua_linenumber);
-            }
-	   } break;
-case 15:
-# line 223 "lua.stx"
-{
-        {
-	 Byte *elseinit = yypvt[-2].pByte + sizeof(Word)+1;
-	 if (pc - elseinit == 0)		/* no else */
-	 {
-	  pc -= sizeof(Word)+1;
-	 /* if (*(pc-1) == NOP) --pc; */
-	  elseinit = pc;
-	 }
-	 else
-	 {
-	  *(yypvt[-2].pByte) = JMP;
-	  *((Word *)(yypvt[-2].pByte+1)) = pc - elseinit;
-	 }
-	 *(yypvt[-4].pByte) = IFFJMP;
-	 *((Word *)(yypvt[-4].pByte+1)) = elseinit - (yypvt[-4].pByte + sizeof(Word)+1);
-	}
-       } break;
-case 16:
-# line 242 "lua.stx"
-{yyval.pByte = pc;} break;
-case 17:
-# line 244 "lua.stx"
-{
-        *(yypvt[-3].pByte) = IFFJMP;
-        *((Word *)(yypvt[-3].pByte+1)) = pc - (yypvt[-3].pByte + sizeof(Word)+1);
-        
-        *(yypvt[-1].pByte) = UPJMP;
-        *((Word *)(yypvt[-1].pByte+1)) = pc - yypvt[-6].pByte;
-       } break;
-case 18:
-# line 252 "lua.stx"
-{yyval.pByte = pc;} break;
-case 19:
-# line 254 "lua.stx"
-{
-        *(yypvt[-0].pByte) = IFFUPJMP;
-        *((Word *)(yypvt[-0].pByte+1)) = pc - yypvt[-4].pByte;
-       } break;
-case 20:
-# line 261 "lua.stx"
-{
-        {
-         int i;
-         if (yypvt[-0].vInt == 0 || nvarbuffer != ntemp - yypvt[-2].vInt * 2)
-	  lua_codeadjust (yypvt[-2].vInt * 2 + nvarbuffer);
-	 for (i=nvarbuffer-1; i>=0; i--)
-	  lua_codestore (i);
-	 if (yypvt[-2].vInt > 1 || (yypvt[-2].vInt == 1 && varbuffer[0] != 0))
-	  lua_codeadjust (0);
-	}
-       } break;
-case 21:
-# line 272 "lua.stx"
-{ lua_codeadjust (0); } break;
-case 25:
-# line 279 "lua.stx"
-{
-          {
-  	   Byte *elseinit = yypvt[-1].pByte + sizeof(Word)+1;
-  	   if (pc - elseinit == 0)		/* no else */
-  	   {
-  	    pc -= sizeof(Word)+1;
-  	    /* if (*(pc-1) == NOP) --pc; */
-	    elseinit = pc;
-	   }
-	   else
-	   {
-	    *(yypvt[-1].pByte) = JMP;
-	    *((Word *)(yypvt[-1].pByte+1)) = pc - elseinit;
-	   }
-	   *(yypvt[-3].pByte) = IFFJMP;
-	   *((Word *)(yypvt[-3].pByte+1)) = elseinit - (yypvt[-3].pByte + sizeof(Word)+1);
-	  }  
-         } break;
-case 26:
-# line 299 "lua.stx"
-{yyval.vInt = nlocalvar;} break;
-case 27:
-# line 299 "lua.stx"
-{ntemp = 0;} break;
-case 28:
-# line 300 "lua.stx"
-{
-	  if (nlocalvar != yypvt[-3].vInt)
-	  {
-           nlocalvar = yypvt[-3].vInt;
-	   lua_codeadjust (0);
-	  }
-         } break;
-case 30:
-# line 310 "lua.stx"
-{ if (lua_debug){align(Word);code_byte(SETLINE);code_word(lua_linenumber);}} break;
-case 31:
-# line 312 "lua.stx"
-{ 
-           if (lua_debug) code_byte(RESET); 
-           code_byte(RETCODE); code_byte(nlocalvar);
-          } break;
-case 32:
-# line 319 "lua.stx"
-{ 
-          align(Word); 
-	  yyval.pByte = pc;
-	  code_byte(0);		/* open space */
-	  code_word (0);
-         } break;
-case 33:
-# line 326 "lua.stx"
-{ if (yypvt[-0].vInt == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}} break;
-case 34:
-# line 329 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
-case 35:
-# line 330 "lua.stx"
-{ code_byte(EQOP);   yyval.vInt = 1; ntemp--;} break;
-case 36:
-# line 331 "lua.stx"
-{ code_byte(LTOP);   yyval.vInt = 1; ntemp--;} break;
-case 37:
-# line 332 "lua.stx"
-{ code_byte(LEOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
-case 38:
-# line 333 "lua.stx"
-{ code_byte(EQOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
-case 39:
-# line 334 "lua.stx"
-{ code_byte(LEOP);   yyval.vInt = 1; ntemp--;} break;
-case 40:
-# line 335 "lua.stx"
-{ code_byte(LTOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
-case 41:
-# line 336 "lua.stx"
-{ code_byte(ADDOP);  yyval.vInt = 1; ntemp--;} break;
-case 42:
-# line 337 "lua.stx"
-{ code_byte(SUBOP);  yyval.vInt = 1; ntemp--;} break;
-case 43:
-# line 338 "lua.stx"
-{ code_byte(MULTOP); yyval.vInt = 1; ntemp--;} break;
-case 44:
-# line 339 "lua.stx"
-{ code_byte(DIVOP);  yyval.vInt = 1; ntemp--;} break;
-case 45:
-# line 340 "lua.stx"
-{ code_byte(CONCOP);  yyval.vInt = 1; ntemp--;} break;
-case 46:
-# line 341 "lua.stx"
-{ yyval.vInt = 1; } break;
-case 47:
-# line 342 "lua.stx"
-{ code_byte(MINUSOP); yyval.vInt = 1;} break;
-case 48:
-# line 344 "lua.stx"
-{
-      code_byte(PUSHBYTE);
-      yyval.pByte = pc; code_byte(0);
-      incr_ntemp();
-      code_byte(CREATEARRAY);
-     } break;
-case 49:
-# line 351 "lua.stx"
-{
-      *(yypvt[-2].pByte) = yypvt[-0].vInt; 
-      if (yypvt[-1].vLong < 0)	/* there is no function to be called */
-      {
-       yyval.vInt = 1;
-      }
-      else
-      {
-       lua_pushvar (yypvt[-1].vLong+1);
-       code_byte(PUSHMARK);
-       incr_ntemp();
-       code_byte(PUSHOBJECT);
-       incr_ntemp();
-       code_byte(CALLFUNC); 
-       ntemp -= 4;
-       yyval.vInt = 0;
-       if (lua_debug)
-       {
-        align(Word); code_byte(SETLINE); code_word(lua_linenumber);
-       }
-      }
-     } break;
-case 50:
-# line 374 "lua.stx"
-{ 
-      code_byte(CREATEARRAY);
-      yyval.vInt = 1;
-     } break;
-case 51:
-# line 378 "lua.stx"
-{ lua_pushvar (yypvt[-0].vLong); yyval.vInt = 1;} break;
-case 52:
-# line 379 "lua.stx"
-{ code_number(yypvt[-0].vFloat); yyval.vInt = 1; } break;
-case 53:
-# line 381 "lua.stx"
-{
-      align(Word);
-      code_byte(PUSHSTRING);
-      code_word(yypvt[-0].vWord);
-      yyval.vInt = 1;
-      incr_ntemp();
-     } break;
-case 54:
-# line 388 "lua.stx"
-{code_byte(PUSHNIL); yyval.vInt = 1; incr_ntemp();} break;
-case 55:
-# line 390 "lua.stx"
-{
-      yyval.vInt = 0;
-      if (lua_debug)
-      {
-       align(Word); code_byte(SETLINE); code_word(lua_linenumber);
-      }
-     } break;
-case 56:
-# line 397 "lua.stx"
-{ code_byte(NOTOP);  yyval.vInt = 1;} break;
-case 57:
-# line 398 "lua.stx"
-{code_byte(POP); ntemp--;} break;
-case 58:
-# line 399 "lua.stx"
-{ 
-      *(yypvt[-2].pByte) = ONFJMP;
-      *((Word *)(yypvt[-2].pByte+1)) = pc - (yypvt[-2].pByte + sizeof(Word)+1);
-      yyval.vInt = 1;
-     } break;
-case 59:
-# line 404 "lua.stx"
-{code_byte(POP); ntemp--;} break;
-case 60:
-# line 405 "lua.stx"
-{ 
-      *(yypvt[-2].pByte) = ONTJMP;
-      *((Word *)(yypvt[-2].pByte+1)) = pc - (yypvt[-2].pByte + sizeof(Word)+1);
-      yyval.vInt = 1;
-     } break;
-case 61:
-# line 412 "lua.stx"
-{ code_byte(PUSHNIL); incr_ntemp();} break;
-case 63:
-# line 416 "lua.stx"
-{code_byte(PUSHMARK); yyval.vInt = ntemp; incr_ntemp();} break;
-case 64:
-# line 417 "lua.stx"
-{ code_byte(CALLFUNC); ntemp = yypvt[-3].vInt-1;} break;
-case 65:
-# line 419 "lua.stx"
-{lua_pushvar (yypvt[-0].vLong); } break;
-case 66:
-# line 422 "lua.stx"
-{ yyval.vInt = 1; } break;
-case 67:
-# line 423 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
-case 68:
-# line 426 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
-case 69:
-# line 427 "lua.stx"
-{if (!yypvt[-1].vInt){lua_codeadjust (ntemp+1); incr_ntemp();}} break;
-case 70:
-# line 428 "lua.stx"
-{yyval.vInt = yypvt[-0].vInt;} break;
-case 73:
-# line 435 "lua.stx"
-{localvar[nlocalvar]=yypvt[-0].vWord; incr_nlocalvar();} break;
-case 74:
-# line 436 "lua.stx"
-{localvar[nlocalvar]=yypvt[-0].vWord; incr_nlocalvar();} break;
-case 75:
-# line 439 "lua.stx"
-{yyval.vLong=-1;} break;
-case 76:
-# line 440 "lua.stx"
-{yyval.vLong=yypvt[-0].vWord;} break;
-case 77:
-# line 443 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
-case 78:
-# line 444 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
-case 79:
-# line 447 "lua.stx"
-{ yyval.vInt = 0; } break;
-case 80:
-# line 448 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
-case 81:
-# line 451 "lua.stx"
-{yyval.vInt=1;} break;
-case 82:
-# line 452 "lua.stx"
-{yyval.vInt=yypvt[-2].vInt+1;} break;
-case 83:
-# line 456 "lua.stx"
-{
-            align(Word); 
-            code_byte(PUSHSTRING);
-	    code_word(lua_findconstant (s_name(yypvt[-0].vWord)));
-            incr_ntemp();
-	   } break;
-case 84:
-# line 463 "lua.stx"
-{
-	    code_byte(STOREFIELD);
-	    ntemp-=2;
-	   } break;
-case 85:
-# line 469 "lua.stx"
-{ yyval.vInt = 0; } break;
-case 86:
-# line 470 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
-case 87:
-# line 473 "lua.stx"
-{ code_number(1); } break;
-case 88:
-# line 473 "lua.stx"
-{yyval.vInt=1;} break;
-case 89:
-# line 474 "lua.stx"
-{ code_number(yypvt[-1].vInt+1); } break;
-case 90:
-# line 475 "lua.stx"
-{yyval.vInt=yypvt[-3].vInt+1;} break;
-case 91:
-# line 479 "lua.stx"
-{
-	    code_byte(STOREFIELD);
-	    ntemp-=2;
-	   } break;
-case 92:
-# line 486 "lua.stx"
-{
-	   nvarbuffer = 0; 
-           varbuffer[nvarbuffer] = yypvt[-0].vLong; incr_nvarbuffer();
-	   yyval.vInt = (yypvt[-0].vLong == 0) ? 1 : 0;
-	  } break;
-case 93:
-# line 492 "lua.stx"
-{ 
-           varbuffer[nvarbuffer] = yypvt[-0].vLong; incr_nvarbuffer();
-	   yyval.vInt = (yypvt[-0].vLong == 0) ? yypvt[-2].vInt + 1 : yypvt[-2].vInt;
-	  } break;
-case 94:
-# line 499 "lua.stx"
-{ 
-	   int local = lua_localname (yypvt[-0].vWord);
-	   if (local == -1)	/* global var */
-	    yyval.vLong = yypvt[-0].vWord + 1;		/* return positive value */
-           else
-	    yyval.vLong = -(local+1);		/* return negative value */
-	  } break;
-case 95:
-# line 507 "lua.stx"
-{lua_pushvar (yypvt[-0].vLong);} break;
-case 96:
-# line 508 "lua.stx"
-{
-	   yyval.vLong = 0;		/* indexed variable */
-	  } break;
-case 97:
-# line 511 "lua.stx"
-{lua_pushvar (yypvt[-0].vLong);} break;
-case 98:
-# line 512 "lua.stx"
-{
-	   align(Word);
-	   code_byte(PUSHSTRING);
-	   code_word(lua_findconstant (s_name(yypvt[-0].vWord))); incr_ntemp();
-	   yyval.vLong = 0;		/* indexed variable */
-	  } break;
-case 99:
-# line 520 "lua.stx"
-{localvar[nlocalvar]=yypvt[-1].vWord; incr_nlocalvar();} break;
-case 100:
-# line 521 "lua.stx"
-{localvar[nlocalvar]=yypvt[-1].vWord; incr_nlocalvar();} break;
-case 101:
-# line 524 "lua.stx"
-{ code_byte(PUSHNIL); } break;
-case 102:
-# line 525 "lua.stx"
-{ntemp = 0;} break;
-case 104:
-# line 528 "lua.stx"
-{lua_debug = yypvt[-0].vInt;} break;
-	}
-	goto yystack;		/* reset registers in driver code */
-}

y_tab.h

@@ -1,35 +0,0 @@
-
-typedef union  
-{
- int   vInt;
- long  vLong;
- float vFloat;
- Word  vWord;
- Byte *pByte;
-} YYSTYPE;
-extern YYSTYPE yylval;
-# define NIL 257
-# define IF 258
-# define THEN 259
-# define ELSE 260
-# define ELSEIF 261
-# define WHILE 262
-# define DO 263
-# define REPEAT 264
-# define UNTIL 265
-# define END 266
-# define RETURN 267
-# define LOCAL 268
-# define NUMBER 269
-# define FUNCTION 270
-# define NAME 271
-# define STRING 272
-# define DEBUG 273
-# define NOT 274
-# define AND 275
-# define OR 276
-# define NE 277
-# define LE 278
-# define GE 279
-# define CONC 280
-# define UNARY 281