| 0,0 → 1,144 |
|---|
| /* |
| ** opcode.h |
| ** TeCGraf - PUC-Rio |
| ** 16 Apr 92 |
| */ |
| |
| #ifndef opcode_h |
| #define opcode_h |
| |
| #ifndef STACKGAP |
| #define STACKGAP 128 |
| #endif |
| |
| #ifndef real |
| #define real float |
| #endif |
| |
| typedef unsigned char Byte; |
| |
| typedef unsigned short Word; |
| |
| typedef enum |
| { |
| NOP, |
| PUSHNIL, |
| PUSH0, PUSH1, PUSH2, |
| PUSHBYTE, |
| PUSHWORD, |
| PUSHFLOAT, |
| PUSHSTRING, |
| PUSHLOCAL0, PUSHLOCAL1, PUSHLOCAL2, PUSHLOCAL3, PUSHLOCAL4, |
| PUSHLOCAL5, PUSHLOCAL6, PUSHLOCAL7, PUSHLOCAL8, PUSHLOCAL9, |
| PUSHLOCAL, |
| PUSHGLOBAL, |
| PUSHINDEXED, |
| PUSHMARK, |
| PUSHOBJECT, |
| STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4, |
| STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9, |
| STORELOCAL, |
| STOREGLOBAL, |
| STOREINDEXED0, |
| STOREINDEXED, |
| STOREFIELD, |
| ADJUST, |
| CREATEARRAY, |
| EQOP, |
| LTOP, |
| LEOP, |
| ADDOP, |
| SUBOP, |
| MULTOP, |
| DIVOP, |
| CONCOP, |
| MINUSOP, |
| NOTOP, |
| ONTJMP, |
| ONFJMP, |
| JMP, |
| UPJMP, |
| IFFJMP, |
| IFFUPJMP, |
| POP, |
| CALLFUNC, |
| RETCODE, |
| HALT, |
| SETFUNCTION, |
| SETLINE, |
| RESET |
| } OpCode; |
| |
| typedef enum |
| { |
| T_MARK, |
| T_NIL, |
| T_NUMBER, |
| T_STRING, |
| T_ARRAY, |
| T_FUNCTION, |
| T_CFUNCTION, |
| T_USERDATA |
| } Type; |
| |
| typedef void (*Cfunction) (void); |
| typedef int (*Input) (void); |
| typedef void (*Unput) (int ); |
| |
| typedef union |
| { |
| Cfunction f; |
| real n; |
| char *s; |
| Byte *b; |
| struct Hash *a; |
| void *u; |
| } Value; |
| |
| typedef struct Object |
| { |
| Type tag; |
| Value value; |
| } Object; |
| |
| typedef struct |
| { |
| char *name; |
| Object object; |
| } Symbol; |
| |
| /* Macros to access structure members */ |
| #define tag(o) ((o)->tag) |
| #define nvalue(o) ((o)->value.n) |
| #define svalue(o) ((o)->value.s) |
| #define bvalue(o) ((o)->value.b) |
| #define avalue(o) ((o)->value.a) |
| #define fvalue(o) ((o)->value.f) |
| #define uvalue(o) ((o)->value.u) |
| |
| /* Macros to access symbol table */ |
| #define s_name(i) (lua_table[i].name) |
| #define s_object(i) (lua_table[i].object) |
| #define s_tag(i) (tag(&s_object(i))) |
| #define s_nvalue(i) (nvalue(&s_object(i))) |
| #define s_svalue(i) (svalue(&s_object(i))) |
| #define s_bvalue(i) (bvalue(&s_object(i))) |
| #define s_avalue(i) (avalue(&s_object(i))) |
| #define s_fvalue(i) (fvalue(&s_object(i))) |
| #define s_uvalue(i) (uvalue(&s_object(i))) |
| |
| |
| /* Exported functions */ |
| int lua_execute (Byte *pc); |
| void lua_markstack (void); |
| char *lua_strdup (char *l); |
| |
| void lua_setinput (Input fn); /* from "lua.lex" module */ |
| void lua_setunput (Unput fn); /* from "lua.lex" module */ |
| char *lua_lasttext (void); /* from "lua.lex" module */ |
| int lua_parse (void); /* from "lua.stx" module */ |
| void lua_type (void); |
| void lua_obj2number (void); |
| void lua_print (void); |
| |
| #endif |