opensources
/
lua
mirror of https://github.com/lua/lua.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

because lua_error does a longjmp, there is no need to a variable 

'err'.
lua_parse has a different interface, to allow the free of the main
block even if compilation fails.
small changes in the debug system.
v5-2
Roberto Ierusalimschy 30 years ago
parent
dabe09518f
commit
b8bfa9628d
1 changed files with 36 additions and 69 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 105
      lua.stx

105
lua.stx
View File

@ -1,6 +1,6 @@
%{
char *rcs_luastx = "$Id: lua.stx,v 3.2 1994/11/03 22:32:42 roberto Exp $";
char *rcs_luastx = "$Id: lua.stx,v 3.3 1994/11/06 15:35:04 roberto Exp roberto $";
#include <stdio.h>
#include <stdlib.h>
@ -12,7 +12,9 @@ char *rcs_luastx = "$Id: lua.stx,v 3.2 1994/11/03 22:32:42 roberto Exp $";
#include "table.h"
#include "lua.h"
#ifndef LISTING
#define LISTING 0
#endif
#ifndef CODE_BLOCK
#define CODE_BLOCK 256
@ -21,7 +23,7 @@ static Long maxcode;
static Long maxmain;
static Long maxcurr ;
static Byte *code = NULL;
static Byte *initcode;
static Byte **initcode;
static Byte *basepc;
static Long maincode;
static Long pc;
@ -37,7 +39,6 @@ static int nlocalvar=0; /* number of local variables */
#define MAXFIELDS FIELDS_PER_FLUSH*2
static Word fields[MAXFIELDS]; /* fieldnames to be flushed */
static int nfields=0;
static int err; /* flag to indicate error */
/* Internal functions */
@ -48,10 +49,7 @@ static void code_byte (Byte c)
maxcurr *= 2;
basepc = (Byte *)realloc(basepc, maxcurr*sizeof(Byte));
if (basepc == NULL)
{
lua_error ("not enough memory");
err = 1;
}
}
basepc[pc++] = c;
}
@ -97,10 +95,7 @@ static void push_field (Word name)
if (nfields < STACKGAP-1)
fields[nfields++] = name;
else
{
lua_error ("too many fields in a constructor");
err = 1;
}
}
static void flush_record (int n)
@ -125,10 +120,7 @@ static void flush_list (int m, int n)
code_byte(m);
}
else
{
lua_error ("list constructor too long");
err = 1;
}
code_byte(n);
}
@ -137,10 +129,7 @@ static void add_nlocalvar (int n)
if (MAX_TEMPS+nlocalvar+MAXVAR+n < STACKGAP)
nlocalvar += n;
else
{
lua_error ("too many local variables");
err = 1;
}
}
static void incr_nvarbuffer (void)
@ -148,10 +137,7 @@ static void incr_nvarbuffer (void)
if (nvarbuffer < MAXVAR-1)
nvarbuffer++;
else
{
lua_error ("variable buffer overflow");
err = 1;
}
}
static void code_number (float f)
@ -184,10 +170,7 @@ static void init_function (void)
{
code = (Byte *) calloc(CODE_BLOCK, sizeof(Byte));
if (code == NULL)
{
lua_error("not enough memory");
err = 1;
}
maxcode = CODE_BLOCK;
}
}
@ -242,12 +225,12 @@ static void init_function (void)
functionlist : /* empty */
| functionlist
{
pc=maincode; basepc=initcode; maxcurr=maxmain;
pc=maincode; basepc=*initcode; maxcurr=maxmain;
nlocalvar=0;
}
stat sc
{
maincode=pc; initcode=basepc; maxmain=maxcurr;
maincode=pc; *initcode=basepc; maxmain=maxcurr;
}
| functionlist function
| functionlist method
@ -266,7 +249,7 @@ function : FUNCTION NAME
if (lua_debug)
{
code_byte(SETFUNCTION);
code_code((Byte *)lua_file[lua_nfile-1]);
code_code((Byte *)strdup(lua_file[lua_nfile-1]));
code_word($<vWord>3);
}
lua_codeadjust (0);
@ -278,10 +261,7 @@ function : FUNCTION NAME
s_tag($<vWord>3) = LUA_T_FUNCTION;
s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte));
if (s_bvalue($<vWord>3) == NULL)
{
lua_error("not enough memory");
err = 1;
}
lua_error("not enough memory");
memcpy (s_bvalue($<vWord>3), basepc, pc*sizeof(Byte));
code = basepc; maxcode=maxcurr;
#if LISTING
@ -304,7 +284,7 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
if (lua_debug)
{
code_byte(SETFUNCTION);
code_code((Byte *)lua_file[lua_nfile-1]);
code_code((Byte *)strdup(lua_file[lua_nfile-1]));
code_word($<vWord>6);
}
lua_codeadjust (0);
@ -316,17 +296,14 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
codereturn();
b = calloc (pc, sizeof(Byte));
if (b == NULL)
{
lua_error("not enough memory");
err = 1;
}
lua_error("not enough memory");
memcpy (b, basepc, pc*sizeof(Byte));
code = basepc; maxcode=maxcurr;
#if LISTING
PrintCode(code,code+pc);
#endif
/* assign function to table field */
pc=maincode; basepc=initcode; maxcurr=maxmain;
pc=maincode; basepc=*initcode; maxcurr=maxmain;
nlocalvar=0;
lua_pushvar($<vWord>3+1);
@ -336,7 +313,7 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
code_code(b);
code_byte(STOREINDEXED0);
maincode=pc; initcode=basepc; maxmain=maxcurr;
maincode=pc; *initcode=basepc; maxmain=maxcurr;
}
;
@ -344,18 +321,13 @@ statlist : /* empty */
| statlist stat sc
;
stat : {
if (lua_debug)
{
code_byte(SETLINE); code_word(lua_linenumber);
}
}
stat1
stat : { codedebugline(); } stat1 ;
sc : /* empty */ | ';' ;
cond : { codedebugline(); } expr1 ;
stat1 : IF expr1 THEN PrepJump block PrepJump elsepart END
stat1 : IF cond THEN PrepJump block PrepJump elsepart END
{
{
Long elseinit = $6+sizeof(Word)+1;
@ -374,7 +346,7 @@ stat1 : IF expr1 THEN PrepJump block PrepJump elsepart END
}
}
| WHILE {$<vLong>$=pc;} expr1 DO PrepJump block PrepJump END
| WHILE {$<vLong>$=pc;} cond DO PrepJump block PrepJump END
{
basepc[$5] = IFFJMP;
@ -403,7 +375,7 @@ stat1 : IF expr1 THEN PrepJump block PrepJump elsepart END
lua_codeadjust (0);
}
}
| functioncall { code_byte(0); }
| functioncall { code_byte(0); }
| LOCAL localdeclist decinit
{ add_nlocalvar($2);
adjust_mult_assign($2, $3, 0);
@ -443,7 +415,7 @@ block : {$<vInt>$ = nlocalvar;} statlist ret
;
ret : /* empty */
| { if (lua_debug){code_byte(SETLINE);code_word(lua_linenumber);}}
| { codedebugline(); }
RETURN exprlist sc
{
if ($3 < 0) code_byte(MULT_RET);
@ -486,14 +458,7 @@ expr : '(' expr ')' { $$ = $2; }
$$ = 1;
}
| NIL {code_byte(PUSHNIL); $$ = 1; }
| functioncall
{
$$ = 0;
if (lua_debug)
{
code_byte(SETLINE); code_word(lua_linenumber);
}
}
| functioncall { $$ = 0; }
| NOT expr1 { code_byte(NOTOP); $$ = 1;}
| expr1 AND PrepJump {code_byte(POP); } expr1
{
@ -723,6 +688,15 @@ static void codereturn (void)
}
}
static void codedebugline (void)
{
if (lua_debug)
{
code_byte(SETLINE);
code_word(lua_linenumber);
}
}
static void adjust_mult_assign (int vars, int exps, int temps)
{
if (exps < 0)
@ -781,7 +755,6 @@ void yyerror (char *s)
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)
@ -791,27 +764,21 @@ int yywrap (void)
/*
** Parse LUA code and returns global statements.
** Parse LUA code.
*/
Byte *lua_parse (void)
void lua_parse (Byte **code)
{
Byte *init = initcode = (Byte *) calloc(CODE_BLOCK, sizeof(Byte));
initcode = code;
*initcode = (Byte *) calloc(CODE_BLOCK, sizeof(Byte));
maincode = 0;
maxmain = CODE_BLOCK;
if (init == NULL)
{
lua_error("not enough memory");
return NULL;
}
err = 0;
if (yyparse () || (err==1)) return NULL;
initcode[maincode++] = RETCODE0;
init = initcode;
if (*initcode == NULL) lua_error("not enough memory");
if (yyparse ()) lua_error("parse error");
(*initcode)[maincode++] = RETCODE0;
#if LISTING
{ static void PrintCode (Byte *code, Byte *end);
PrintCode(init,init+maincode); }
PrintCode(*initcode,*initcode+maincode); }
#endif
return init;
}

Write Preview
Loading…
Cancel
Save