1/* 2** $Id: ltm.h $ 3** Tag methods 4** See Copyright Notice in lua.h 5*/ 6 7#ifndef ltm_h 8#define ltm_h 9 10 11#include "lobject.h" 12#include "lstate.h" 13 14 15/* 16* WARNING: if you change the order of this enumeration, 17* grep "ORDER TM" and "ORDER OP" 18*/ 19typedef enum { 20 TM_INDEX, 21 TM_NEWINDEX, 22 TM_GC, 23 TM_MODE, 24 TM_LEN, 25 TM_EQ, /* last tag method with fast access */ 26 TM_ADD, 27 TM_SUB, 28 TM_MUL, 29 TM_MOD, 30 TM_POW, 31 TM_DIV, 32 TM_IDIV, 33 TM_BAND, 34 TM_BOR, 35 TM_BXOR, 36 TM_SHL, 37 TM_SHR, 38 TM_UNM, 39 TM_BNOT, 40 TM_LT, 41 TM_LE, 42 TM_CONCAT, 43 TM_CALL, 44 TM_CLOSE, 45 TM_N /* number of elements in the enum */ 46} TMS; 47 48 49/* 50** Mask with 1 in all fast-access methods. A 1 in any of these bits 51** in the flag of a (meta)table means the metatable does not have the 52** corresponding metamethod field. (Bit 7 of the flag is used for 53** 'isrealasize'.) 54*/ 55#define maskflags (~(~0u << (TM_EQ + 1))) 56 57 58/* 59** Test whether there is no tagmethod. 60** (Because tagmethods use raw accesses, the result may be an "empty" nil.) 61*/ 62#define notm(tm) ttisnil(tm) 63 64 65#define gfasttm(g,et,e) ((et) == NULL ? NULL : \ 66 ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) 67 68#define fasttm(l,et,e) gfasttm(G(l), et, e) 69 70#define ttypename(x) luaT_typenames_[(x) + 1] 71 72LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];) 73 74 75LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o); 76 77LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); 78LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, 79 TMS event); 80LUAI_FUNC void luaT_init (lua_State *L); 81 82LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1, 83 const TValue *p2, const TValue *p3); 84LUAI_FUNC void luaT_callTMres (lua_State *L, const TValue *f, 85 const TValue *p1, const TValue *p2, StkId p3); 86LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2, 87 StkId res, TMS event); 88LUAI_FUNC void luaT_tryconcatTM (lua_State *L); 89LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1, 90 const TValue *p2, int inv, StkId res, TMS event); 91LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2, 92 int inv, StkId res, TMS event); 93LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1, 94 const TValue *p2, TMS event); 95LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2, 96 int inv, int isfloat, TMS event); 97 98LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams, 99 CallInfo *ci, const Proto *p); 100LUAI_FUNC void luaT_getvarargs (lua_State *L, CallInfo *ci, 101 StkId where, int wanted); 102 103 104#endif 105