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