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

new way to call functions, plus several small changes. This is 

a temporary version!
This commit is contained in:
Roberto Ierusalimschy 1994-11-02 18:30:53 -02:00
parent ae77864844
commit fbf887ec2b
4 changed files with 779 additions and 783 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lua.h
View File

@ -2,13 +2,29 @@
** LUA - Linguagem para Usuarios de Aplicacao ** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica ** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio ** TeCGraf - PUC-Rio
** $Id: lua.h,v 1.4 1994/08/24 15:29:02 celes Exp roberto $ ** $Id: lua.h,v 1.5 1994/11/01 17:54:31 roberto Exp $
*/ */
#ifndef lua_h #ifndef lua_h
#define lua_h #define lua_h
/* Private Part */
typedef enum
{
LUA_T_MARK,
LUA_T_NIL,
LUA_T_NUMBER,
LUA_T_STRING,
LUA_T_ARRAY,
LUA_T_FUNCTION,
LUA_T_CFUNCTION,
LUA_T_USERDATA
} Type;
/* Public Part */
typedef void (*lua_CFunction) (void); typedef void (*lua_CFunction) (void);
typedef struct Object *lua_Object; typedef struct Object *lua_Object;
@ -19,8 +35,7 @@ void lua_errorfunction (void (*fn) (char *s));
void lua_error (char *s); void lua_error (char *s);
int lua_dofile (char *filename); int lua_dofile (char *filename);
int lua_dostring (char *string); int lua_dostring (char *string);
int lua_call (char *functionname, int nparam); int lua_callfunction (lua_Object function);
int lua_callfunction (lua_Object function, int nparam);
lua_Object lua_getparam (int number); lua_Object lua_getparam (int number);
float lua_getnumber (lua_Object object); float lua_getnumber (lua_Object object);
@ -33,8 +48,6 @@ lua_Object lua_getfield (lua_Object object, char *field);
lua_Object lua_getindexed (lua_Object object, float index); lua_Object lua_getindexed (lua_Object object, float index);
lua_Object lua_getglobal (char *name); lua_Object lua_getglobal (char *name);
lua_Object lua_pop (void);
int lua_pushnil (void); int lua_pushnil (void);
int lua_pushnumber (float n); int lua_pushnumber (float n);
int lua_pushstring (char *s); int lua_pushstring (char *s);
@ -57,4 +70,10 @@ int lua_isfunction (lua_Object object);
int lua_iscfunction (lua_Object object); int lua_iscfunction (lua_Object object);
int lua_isuserdata (lua_Object object); int lua_isuserdata (lua_Object object);
/* for lua 1.1 */
#define lua_call(f) lua_callfunction(lua_getglobal(f))
#endif #endif

190
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 2.11 1994/10/21 19:00:12 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 2.12 1994/11/01 18:25:20 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -37,7 +37,6 @@ static int nlocalvar=0; /* number of local variables */
#define MAXFIELDS FIELDS_PER_FLUSH*2 #define MAXFIELDS FIELDS_PER_FLUSH*2
static Word fields[MAXFIELDS]; /* fieldnames to be flushed */ static Word fields[MAXFIELDS]; /* fieldnames to be flushed */
static int nfields=0; static int nfields=0;
static int ntemp; /* number of temporary var into stack */
static int err; /* flag to indicate error */ static int err; /* flag to indicate error */
/* Internal functions */ /* Internal functions */
@ -112,7 +111,6 @@ static void flush_record (int n)
code_byte(n); code_byte(n);
for (i=0; i<n; i++) for (i=0; i<n; i++)
code_word(fields[--nfields]); code_word(fields[--nfields]);
ntemp -= n;
} }
static void flush_list (int m, int n) static void flush_list (int m, int n)
@ -132,27 +130,15 @@ static void flush_list (int m, int n)
err = 1; err = 1;
} }
code_byte(n); code_byte(n);
ntemp-=n;
}
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) static void add_nlocalvar (int n)
{ {
if (ntemp+nlocalvar+MAXVAR+n < STACKGAP) if (MAX_TEMPS+nlocalvar+MAXVAR+n < STACKGAP)
nlocalvar += n; nlocalvar += n;
else else
{ {
lua_error ("too many local variables or expression too complicate"); lua_error ("too many local variables");
err = 1; err = 1;
} }
} }
@ -190,7 +176,6 @@ static void code_number (float f)
code_byte(PUSHFLOAT); code_byte(PUSHFLOAT);
code_float(f); code_float(f);
} }
incr_ntemp();
} }
static void init_function (void) static void init_function (void)
@ -235,8 +220,8 @@ static void init_function (void)
%token <vInt> DEBUG %token <vInt> DEBUG
%type <vLong> PrepJump %type <vLong> PrepJump
%type <vInt> expr, exprlist, exprlist1, varlist1, funcvalue %type <vInt> expr, exprlist, exprlist1, varlist1, funcParams, funcvalue
%type <vInt> fieldlist, localdeclist %type <vInt> fieldlist, localdeclist, decinit
%type <vInt> ffieldlist1 %type <vInt> ffieldlist1
%type <vInt> lfieldlist1 %type <vInt> lfieldlist1
%type <vLong> var, singlevar %type <vLong> var, singlevar
@ -290,8 +275,8 @@ function : FUNCTION NAME
END END
{ {
if (lua_debug) code_byte(RESET); if (lua_debug) code_byte(RESET);
code_byte(RETCODE); code_byte(nlocalvar); codereturn();
s_tag($<vWord>3) = T_FUNCTION; s_tag($<vWord>3) = LUA_T_FUNCTION;
s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte)); s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte));
if (s_bvalue($<vWord>3) == NULL) if (s_bvalue($<vWord>3) == NULL)
{ {
@ -330,7 +315,7 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
{ {
Byte *b; Byte *b;
if (lua_debug) code_byte(RESET); if (lua_debug) code_byte(RESET);
code_byte(RETCODE); code_byte(nlocalvar); codereturn();
b = calloc (pc, sizeof(Byte)); b = calloc (pc, sizeof(Byte));
if (b == NULL) if (b == NULL)
{ {
@ -362,7 +347,6 @@ statlist : /* empty */
; ;
stat : { stat : {
ntemp = 0;
if (lua_debug) if (lua_debug)
{ {
code_byte(SETLINE); code_word(lua_linenumber); code_byte(SETLINE); code_word(lua_linenumber);
@ -414,16 +398,18 @@ stat1 : IF expr1 THEN PrepJump block PrepJump elsepart END
{ {
{ {
int i; int i;
if ($3 == 0 || nvarbuffer != ntemp - $1 * 2) adjust_mult_assign(nvarbuffer, $3, $1 * 2 + nvarbuffer);
lua_codeadjust ($1 * 2 + nvarbuffer);
for (i=nvarbuffer-1; i>=0; i--) for (i=nvarbuffer-1; i>=0; i--)
lua_codestore (i); lua_codestore (i);
if ($1 > 1 || ($1 == 1 && varbuffer[0] != 0)) if ($1 > 1 || ($1 == 1 && varbuffer[0] != 0))
lua_codeadjust (0); lua_codeadjust (0);
} }
} }
| functioncall { lua_codeadjust (0); } | functioncall { code_byte(0); }
| LOCAL localdeclist decinit { add_nlocalvar($2); lua_codeadjust (0); } | LOCAL localdeclist decinit
{ add_nlocalvar($2);
adjust_mult_assign($2, $3, 0);
}
; ;
elsepart : /* empty */ elsepart : /* empty */
@ -448,7 +434,7 @@ elsepart : /* empty */
} }
; ;
block : {$<vInt>$ = nlocalvar;} statlist {ntemp = 0;} ret block : {$<vInt>$ = nlocalvar;} statlist ret
{ {
if (nlocalvar != $<vInt>1) if (nlocalvar != $<vInt>1)
{ {
@ -462,8 +448,9 @@ ret : /* empty */
| { if (lua_debug){code_byte(SETLINE);code_word(lua_linenumber);}} | { if (lua_debug){code_byte(SETLINE);code_word(lua_linenumber);}}
RETURN exprlist sc RETURN exprlist sc
{ {
if ($3 < 0) code_byte(MULT_RET);
if (lua_debug) code_byte(RESET); if (lua_debug) code_byte(RESET);
code_byte(RETCODE); code_byte(nlocalvar); codereturn();
} }
; ;
@ -474,22 +461,22 @@ PrepJump : /* empty */
code_word (0); code_word (0);
} }
expr1 : expr { if ($1 == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}} expr1 : expr { if ($1 == 0) code_byte(1); }
; ;
expr : '(' expr ')' { $$ = $2; } expr : '(' expr ')' { $$ = $2; }
| expr1 EQ expr1 { code_byte(EQOP); $$ = 1; ntemp--;} | expr1 EQ expr1 { code_byte(EQOP); $$ = 1; }
| expr1 '<' expr1 { code_byte(LTOP); $$ = 1; ntemp--;} | expr1 '<' expr1 { code_byte(LTOP); $$ = 1; }
| expr1 '>' expr1 { code_byte(LEOP); code_byte(NOTOP); $$ = 1; ntemp--;} | expr1 '>' expr1 { code_byte(LEOP); code_byte(NOTOP); $$ = 1; }
| expr1 NE expr1 { code_byte(EQOP); code_byte(NOTOP); $$ = 1; ntemp--;} | expr1 NE expr1 { code_byte(EQOP); code_byte(NOTOP); $$ = 1; }
| expr1 LE expr1 { code_byte(LEOP); $$ = 1; ntemp--;} | expr1 LE expr1 { code_byte(LEOP); $$ = 1; }
| expr1 GE expr1 { code_byte(LTOP); code_byte(NOTOP); $$ = 1; ntemp--;} | expr1 GE expr1 { code_byte(LTOP); code_byte(NOTOP); $$ = 1; }
| expr1 '+' expr1 { code_byte(ADDOP); $$ = 1; ntemp--;} | expr1 '+' expr1 { code_byte(ADDOP); $$ = 1; }
| expr1 '-' expr1 { code_byte(SUBOP); $$ = 1; ntemp--;} | expr1 '-' expr1 { code_byte(SUBOP); $$ = 1; }
| expr1 '*' expr1 { code_byte(MULTOP); $$ = 1; ntemp--;} | expr1 '*' expr1 { code_byte(MULTOP); $$ = 1; }
| expr1 '/' expr1 { code_byte(DIVOP); $$ = 1; ntemp--;} | expr1 '/' expr1 { code_byte(DIVOP); $$ = 1; }
| expr1 '^' expr1 { code_byte(POWOP); $$ = 1; ntemp--;} | expr1 '^' expr1 { code_byte(POWOP); $$ = 1; }
| expr1 CONC expr1 { code_byte(CONCOP); $$ = 1; ntemp--;} | expr1 CONC expr1 { code_byte(CONCOP); $$ = 1; }
| '+' expr1 %prec UNARY { $$ = 1; } | '+' expr1 %prec UNARY { $$ = 1; }
| '-' expr1 %prec UNARY { code_byte(MINUSOP); $$ = 1;} | '-' expr1 %prec UNARY { code_byte(MINUSOP); $$ = 1;}
| table { $$ = 1; } | table { $$ = 1; }
@ -500,9 +487,8 @@ expr : '(' expr ')' { $$ = $2; }
code_byte(PUSHSTRING); code_byte(PUSHSTRING);
code_word(lua_findconstant($1)); code_word(lua_findconstant($1));
$$ = 1; $$ = 1;
incr_ntemp();
} }
| NIL {code_byte(PUSHNIL); $$ = 1; incr_ntemp();} | NIL {code_byte(PUSHNIL); $$ = 1; }
| functioncall | functioncall
{ {
$$ = 0; $$ = 0;
@ -512,13 +498,13 @@ expr : '(' expr ')' { $$ = $2; }
} }
} }
| NOT expr1 { code_byte(NOTOP); $$ = 1;} | NOT expr1 { code_byte(NOTOP); $$ = 1;}
| expr1 AND PrepJump {code_byte(POP); ntemp--;} expr1 | expr1 AND PrepJump {code_byte(POP); } expr1
{ {
basepc[$3] = ONFJMP; basepc[$3] = ONFJMP;
code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1)); code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1));
$$ = 1; $$ = 1;
} }
| expr1 OR PrepJump {code_byte(POP); ntemp--;} expr1 | expr1 OR PrepJump {code_byte(POP); } expr1
{ {
basepc[$3] = ONTJMP; basepc[$3] = ONTJMP;
code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1)); code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1));
@ -537,33 +523,35 @@ table :
} }
; ;
functioncall : funcvalue funcParams { code_byte(CALLFUNC); ntemp = $1-1; } functioncall : funcvalue funcParams
{ code_byte(CALLFUNC); code_byte($1+$2); }
; ;
funcvalue : varexp
{ funcvalue : varexp { $$ = 0; }
$$ = ntemp; code_byte(PUSHMARK); incr_ntemp();
}
| varexp ':' NAME | varexp ':' NAME
{ {
code_byte(PUSHSTRING); code_byte(PUSHSTRING);
code_word(lua_findconstant($3)); code_word(lua_findconstant($3));
incr_ntemp(); code_byte(PUSHSELF);
$$ = ntemp-1; $$ = 1;
code_byte(PUSHMARKMET);
incr_ntemp();
} }
; ;
funcParams : '(' exprlist ')' funcParams : '(' exprlist ')'
| table { if ($2<0) { code_byte(1); $$ = -$2; } else $$ = $2; }
| table { $$ = 1; }
; ;
exprlist : /* empty */ { $$ = 1; } exprlist : /* empty */ { $$ = 0; }
| exprlist1 { $$ = $1; } | exprlist1 { $$ = $1; }
; ;
exprlist1 : expr { $$ = $1; } exprlist1 : expr { if ($1 == 0) $$ = -1; else $$ = 1; }
| exprlist1 ',' {if (!$1){lua_codeadjust (ntemp+1); incr_ntemp();}} | exprlist1 ',' { if ($1 < 0) code_byte(1); } expr
expr {$$ = $4;} {
int r = $1 < 0 ? -$1 : $1;
$$ = ($4 == 0) ? -(r+1) : r+1;
}
; ;
parlist : /* empty */ parlist : /* empty */
@ -641,7 +629,7 @@ var : singlevar { $$ = $1; }
| varexp '.' NAME | varexp '.' NAME
{ {
code_byte(PUSHSTRING); code_byte(PUSHSTRING);
code_word(lua_findconstant($3)); incr_ntemp(); code_word(lua_findconstant($3));
$$ = 0; /* indexed variable */ $$ = 0; /* indexed variable */
} }
; ;
@ -668,8 +656,8 @@ localdeclist : NAME {localvar[nlocalvar]=lua_findsymbol($1); $$ = 1;}
} }
; ;
decinit : /* empty */ decinit : /* empty */ { $$ = 0; }
| '=' exprlist1 | '=' exprlist1 { $$ = $2; }
; ;
setdebug : DEBUG {lua_debug = $1;} setdebug : DEBUG {lua_debug = $1;}
@ -698,7 +686,6 @@ static void lua_pushvar (long number)
{ {
code_byte(PUSHGLOBAL); code_byte(PUSHGLOBAL);
code_word(number-1); code_word(number-1);
incr_ntemp();
} }
else if (number < 0) /* local var */ else if (number < 0) /* local var */
{ {
@ -709,19 +696,50 @@ static void lua_pushvar (long number)
code_byte(PUSHLOCAL); code_byte(PUSHLOCAL);
code_byte(number); code_byte(number);
} }
incr_ntemp();
} }
else else
{ {
code_byte(PUSHINDEXED); code_byte(PUSHINDEXED);
ntemp--;
} }
} }
static void lua_codeadjust (int n) static void lua_codeadjust (int n)
{ {
code_byte(ADJUST); if (n+nlocalvar == 0)
code_byte(n + nlocalvar); code_byte(ADJUST0);
else
{
code_byte(ADJUST);
code_byte(n+nlocalvar);
}
}
static void codereturn (void)
{
if (nlocalvar == 0)
code_byte(RETCODE0);
else
{
code_byte(RETCODE);
code_byte(nlocalvar);
}
}
static void adjust_mult_assign (int vars, int exps, int temps)
{
if (exps < 0)
{
int r = vars - (-exps-1);
if (r >= 0)
code_byte(r);
else
{
code_byte(0);
lua_codeadjust(temps);
}
}
else if (vars != exps)
lua_codeadjust(temps);
} }
static void lua_codestore (int i) static void lua_codestore (int i)
@ -775,10 +793,9 @@ int yywrap (void)
/* /*
** Parse LUA code and execute global statement. ** Parse LUA code and returns global statements.
** Return 0 on success or 1 on error.
*/ */
int lua_parse (void) Byte *lua_parse (void)
{ {
Byte *init = initcode = (Byte *) calloc(CODE_BLOCK, sizeof(Byte)); Byte *init = initcode = (Byte *) calloc(CODE_BLOCK, sizeof(Byte));
maincode = 0; maincode = 0;
@ -786,18 +803,17 @@ int lua_parse (void)
if (init == NULL) if (init == NULL)
{ {
lua_error("not enough memory"); lua_error("not enough memory");
return 1; return NULL;
} }
err = 0; err = 0;
if (yyparse () || (err==1)) return 1; if (yyparse () || (err==1)) return NULL;
initcode[maincode++] = HALT; initcode[maincode++] = RETCODE0;
init = initcode; init = initcode;
#if LISTING #if LISTING
PrintCode(init,init+maincode); { static void PrintCode (Byte *code, Byte *end);
PrintCode(init,init+maincode); }
#endif #endif
if (lua_execute (init)) return 1; return init;
free(init);
return 0;
} }
@ -876,7 +892,6 @@ static void PrintCode (Byte *code, Byte *end)
} }
break; break;
case PUSHINDEXED: printf ("%d PUSHINDEXED\n", (p++)-code); break; case PUSHINDEXED: printf ("%d PUSHINDEXED\n", (p++)-code); break;
case PUSHMARK: printf ("%d PUSHMARK\n", (p++)-code); break;
case STORELOCAL0: case STORELOCAL1: case STORELOCAL2: case STORELOCAL3: case STORELOCAL0: case STORELOCAL1: case STORELOCAL2: case STORELOCAL3:
case STORELOCAL4: case STORELOCAL5: case STORELOCAL6: case STORELOCAL7: case STORELOCAL4: case STORELOCAL5: case STORELOCAL6: case STORELOCAL7:
case STORELOCAL8: case STORELOCAL9: case STORELOCAL8: case STORELOCAL9:
@ -896,6 +911,7 @@ static void PrintCode (Byte *code, Byte *end)
printf ("%d STOREGLOBAL %d\n", n, c.w); printf ("%d STOREGLOBAL %d\n", n, c.w);
} }
break; break;
case PUSHSELF: printf ("%d PUSHSELF\n", (p++)-code); break;
case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break; case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break;
case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(++p)); case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(++p));
p++; p++;
@ -912,6 +928,7 @@ static void PrintCode (Byte *code, Byte *end)
printf("%d STORERECORD %d\n", p-code, *(++p)); printf("%d STORERECORD %d\n", p-code, *(++p));
p += *p*sizeof(Word) + 1; p += *p*sizeof(Word) + 1;
break; break;
case ADJUST0: printf ("%d ADJUST0\n", (p++)-code); break;
case ADJUST: case ADJUST:
printf ("%d ADJUST %d\n", p-code, *(++p)); printf ("%d ADJUST %d\n", p-code, *(++p));
p++; p++;
@ -922,7 +939,7 @@ static void PrintCode (Byte *code, Byte *end)
int n = p-code; int n = p-code;
p++; p++;
get_word(c,p); get_word(c,p);
printf ("%d CREATEARRAY\n", n, c.w); printf ("%d CREATEARRAY %d\n", n, c.w);
break; break;
} }
case EQOP: printf ("%d EQOP\n", (p++)-code); break; case EQOP: printf ("%d EQOP\n", (p++)-code); break;
@ -990,16 +1007,19 @@ static void PrintCode (Byte *code, Byte *end)
} }
break; break;
case POP: printf ("%d POP\n", (p++)-code); break; case POP: printf ("%d POP\n", (p++)-code); break;
case CALLFUNC: printf ("%d CALLFUNC\n", (p++)-code); break; case CALLFUNC:
printf ("%d CALLFUNC %d %d\n", p-code, *(p+1), *(p+2));
p+=3;
break;
case RETCODE0: printf ("%d RETCODE0\n", (p++)-code); break;
case RETCODE: case RETCODE:
printf ("%d RETCODE %d\n", p-code, *(++p)); printf ("%d RETCODE %d\n", p-code, *(++p));
p++; p++;
break; break;
case HALT: printf ("%d HALT\n", (p++)-code); break;
case SETFUNCTION: case SETFUNCTION:
{ {
CodeCode c1; CodeCode c1;
CodeWord c1; CodeWord c2;
int n = p-code; int n = p-code;
p++; p++;
get_code(c1,p); get_code(c1,p);

1302
opcode.c
View File

File diff suppressed because it is too large Load Diff

41
opcode.h
View File

@ -1,11 +1,13 @@
/* /*
** TeCGraf - PUC-Rio ** TeCGraf - PUC-Rio
** $Id: opcode.h,v 2.3 1994/08/05 19:31:09 celes Exp celes $ ** $Id: opcode.h,v 2.4 1994/10/17 19:00:40 celes Exp roberto $
*/ */
#ifndef opcode_h #ifndef opcode_h
#define opcode_h #define opcode_h
#include "lua.h"
#ifndef STACKGAP #ifndef STACKGAP
#define STACKGAP 128 #define STACKGAP 128
#endif #endif
@ -16,6 +18,8 @@
#define FIELDS_PER_FLUSH 40 #define FIELDS_PER_FLUSH 40
#define MAX_TEMPS 20
typedef unsigned char Byte; typedef unsigned char Byte;
typedef unsigned short Word; typedef unsigned short Word;
@ -54,8 +58,7 @@ typedef enum
PUSHLOCAL, PUSHLOCAL,
PUSHGLOBAL, PUSHGLOBAL,
PUSHINDEXED, PUSHINDEXED,
PUSHMARK, PUSHSELF,
PUSHMARKMET,
STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4, STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4,
STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9, STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9,
STORELOCAL, STORELOCAL,
@ -65,6 +68,7 @@ typedef enum
STORELIST0, STORELIST0,
STORELIST, STORELIST,
STORERECORD, STORERECORD,
ADJUST0,
ADJUST, ADJUST,
CREATEARRAY, CREATEARRAY,
EQOP, EQOP,
@ -86,34 +90,25 @@ typedef enum
IFFUPJMP, IFFUPJMP,
POP, POP,
CALLFUNC, CALLFUNC,
RETCODE0,
RETCODE, RETCODE,
HALT,
SETFUNCTION, SETFUNCTION,
SETLINE, SETLINE,
RESET RESET
} OpCode; } OpCode;
typedef enum #define MULT_RET 255
{
T_MARK,
T_NIL,
T_NUMBER,
T_STRING,
T_ARRAY,
T_FUNCTION,
T_CFUNCTION,
T_USERDATA
} Type;
typedef void (*Cfunction) (void); typedef void (*Cfunction) (void);
typedef int (*Input) (void); typedef int (*Input) (void);
typedef union typedef union
{ {
Cfunction f; Cfunction f;
real n; real n;
char *s; char *s;
Byte *b; Byte *b;
struct Hash *a; struct Hash *a;
void *u; void *u;
} Value; } Value;
@ -157,18 +152,12 @@ typedef struct
/* Exported functions */ /* Exported functions */
int lua_execute (Byte *pc);
void lua_markstack (void);
char *lua_strdup (char *l); char *lua_strdup (char *l);
void lua_setinput (Input fn); /* from "lex.c" module */ void lua_setinput (Input fn); /* from "lex.c" module */
char *lua_lasttext (void); /* from "lex.c" module */ char *lua_lasttext (void); /* from "lex.c" module */
int lua_parse (void); /* from "lua.stx" module */ Byte *lua_parse (void); /* from "lua.stx" module */
void lua_type (void);
void lua_obj2number (void); void lua_obj2number (void);
void lua_print (void);
void lua_internaldofile (void);
void lua_internaldostring (void);
void lua_travstack (void (*fn)(Object *)); void lua_travstack (void (*fn)(Object *));
#endif #endif