/*
** $Id: ltm.h,v 2.21 2014/10/25 11:50:46 roberto Exp $
** Tag methods
** See Copyright Notice in lua.h
*/

#ifndef ltm_h
#define ltm_h


#include "glua/lobject.h"


/*
* WARNING: if you change the order of this enumeration,
* grep "ORDER TM" and "ORDER OP"
*/
typedef enum {
    TM_INDEX,
    TM_NEWINDEX,
    TM_GC,
    TM_MODE,
    TM_LEN,
    TM_EQ,  /* last tag method with fast access */
    TM_ADD,
    TM_SUB,
    TM_MUL,
    TM_MOD,
    TM_POW,
    TM_DIV,
    TM_IDIV,
    TM_BAND,
    TM_BOR,
    TM_BXOR,
    TM_SHL,
    TM_SHR,
    TM_UNM,
    TM_BNOT,
    TM_LT,
    TM_LE,
    TM_CONCAT,
    TM_CALL,
    TM_N		/* number of elements in the enum */
} TMS;



#define gfasttm(g,et,e) ((et) == nullptr ? nullptr : \
  ((et)->flags & (1u<<(e))) ? nullptr : luaT_gettm(et, e, (g)->tmname[e]))

#define fasttm(l,et,e)	gfasttm(G(l), et, e)

#define ttypename(x)	luaT_typenames_[(x) + 1]
#define objtypename(x)	ttypename(ttnov(x))

LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS];


LUAI_FUNC const TValue *luaT_gettm(Table *events, TMS event, TString *ename);
LUAI_FUNC const TValue *luaT_gettmbyobj(lua_State *L, const TValue *o,
    TMS event);
LUAI_FUNC void luaT_init(lua_State *L);

LUAI_FUNC void luaT_callTM(lua_State *L, const TValue *f, const TValue *p1,
    const TValue *p2, TValue *p3, int hasres);
LUAI_FUNC int luaT_callbinTM(lua_State *L, const TValue *p1, const TValue *p2,
    StkId res, TMS event);
LUAI_FUNC void luaT_trybinTM(lua_State *L, const TValue *p1, const TValue *p2,
    StkId res, TMS event);
LUAI_FUNC int luaT_callorderTM(lua_State *L, const TValue *p1,
    const TValue *p2, TMS event);



#endif
