1*dfc11533SChris Williamson /* 2*dfc11533SChris Williamson ** $Id: ltm.h,v 2.11.1.1 2013/04/12 18:48:47 roberto Exp $ 3*dfc11533SChris Williamson ** Tag methods 4*dfc11533SChris Williamson ** See Copyright Notice in lua.h 5*dfc11533SChris Williamson */ 6*dfc11533SChris Williamson 7*dfc11533SChris Williamson #ifndef ltm_h 8*dfc11533SChris Williamson #define ltm_h 9*dfc11533SChris Williamson 10*dfc11533SChris Williamson 11*dfc11533SChris Williamson #include "lobject.h" 12*dfc11533SChris Williamson 13*dfc11533SChris Williamson 14*dfc11533SChris Williamson /* 15*dfc11533SChris Williamson * WARNING: if you change the order of this enumeration, 16*dfc11533SChris Williamson * grep "ORDER TM" 17*dfc11533SChris Williamson */ 18*dfc11533SChris Williamson typedef enum { 19*dfc11533SChris Williamson TM_INDEX, 20*dfc11533SChris Williamson TM_NEWINDEX, 21*dfc11533SChris Williamson TM_GC, 22*dfc11533SChris Williamson TM_MODE, 23*dfc11533SChris Williamson TM_LEN, 24*dfc11533SChris Williamson TM_EQ, /* last tag method with `fast' access */ 25*dfc11533SChris Williamson TM_ADD, 26*dfc11533SChris Williamson TM_SUB, 27*dfc11533SChris Williamson TM_MUL, 28*dfc11533SChris Williamson TM_DIV, 29*dfc11533SChris Williamson TM_MOD, 30*dfc11533SChris Williamson TM_POW, 31*dfc11533SChris Williamson TM_UNM, 32*dfc11533SChris Williamson TM_LT, 33*dfc11533SChris Williamson TM_LE, 34*dfc11533SChris Williamson TM_CONCAT, 35*dfc11533SChris Williamson TM_CALL, 36*dfc11533SChris Williamson TM_N /* number of elements in the enum */ 37*dfc11533SChris Williamson } TMS; 38*dfc11533SChris Williamson 39*dfc11533SChris Williamson 40*dfc11533SChris Williamson 41*dfc11533SChris Williamson #define gfasttm(g,et,e) ((et) == NULL ? NULL : \ 42*dfc11533SChris Williamson ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) 43*dfc11533SChris Williamson 44*dfc11533SChris Williamson #define fasttm(l,et,e) gfasttm(G(l), et, e) 45*dfc11533SChris Williamson 46*dfc11533SChris Williamson #define ttypename(x) luaT_typenames_[(x) + 1] 47*dfc11533SChris Williamson #define objtypename(x) ttypename(ttypenv(x)) 48*dfc11533SChris Williamson 49*dfc11533SChris Williamson LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; 50*dfc11533SChris Williamson 51*dfc11533SChris Williamson 52*dfc11533SChris Williamson LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); 53*dfc11533SChris Williamson LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, 54*dfc11533SChris Williamson TMS event); 55*dfc11533SChris Williamson LUAI_FUNC void luaT_init (lua_State *L); 56*dfc11533SChris Williamson 57*dfc11533SChris Williamson #endif 58