Initial commit

engines/grim/lua/ltm.h

@@ -0,0 +1,62 @@
+/*
+** Tag methods
+** See Copyright Notice in lua.h
+*/
+
+#ifndef GRIM_LTM_H
+#define GRIM_LTM_H
+
+#include "engines/grim/lua/lobject.h"
+#include "engines/grim/lua/lstate.h"
+
+namespace Grim {
+
+/*
+* WARNING: if you change the order of this enumeration,
+* grep "ORDER IM"
+*/
+typedef enum {
+	IM_GETTABLE = 0,
+	IM_SETTABLE,
+	IM_INDEX,
+	IM_GETGLOBAL,
+	IM_SETGLOBAL,
+	IM_ADD,
+	IM_SUB,
+	IM_MUL,
+	IM_DIV,
+	IM_POW,
+	IM_UNM,
+	IM_LT,
+	IM_LE,
+	IM_GT,
+	IM_GE,
+	IM_CONCAT,
+	IM_GC,
+	IM_FUNCTION
+} eIMS;
+typedef int32 IMS;
+
+#define IM_N 18
+
+struct IM {
+	TObject int_method[IM_N];
+};
+
+#define luaT_getim(tag, event)  (&IMtable[-(tag)].int_method[event])
+#define luaT_getimbyObj(o, e)   (luaT_getim(luaT_efectivetag(o), (e)))
+
+extern const char *luaT_eventname[];
+
+void luaT_init();
+void luaT_realtag(int32 tag);
+int32 luaT_efectivetag(TObject *o);
+void luaT_settagmethod(int32 t, const char *event, TObject *func);
+TObject *luaT_gettagmethod(int32 t, const char *event);
+const char *luaT_travtagmethods(int32 (*fn)(TObject *));
+
+void luaT_setfallback();  // only if LUA_COMPAT2_5
+
+} // end of namespace Grim
+
+#endif