ltm.h

/*
** 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