oldest known commit

1 files changed, 144 insertions, 0 deletions

diff --git a/opcode.h b/opcode.h
new file mode 100644
index 00000000..b32969d5
--- /dev/null
+++ b/opcode.h
@@ -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