123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103 |
- /*
- ** $Id: ltm.h $
- ** Tag methods
- ** See Copyright Notice in lua.h
- */
- #ifndef ltm_h
- #define ltm_h
- #include "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_CLOSE,
- TM_N /* number of elements in the enum */
- } TMS;
- /*
- ** Mask with 1 in all fast-access methods. A 1 in any of these bits
- ** in the flag of a (meta)table means the metatable does not have the
- ** corresponding metamethod field. (Bit 7 of the flag is used for
- ** 'isrealasize'.)
- */
- #define maskflags (~(~0u << (TM_EQ + 1)))
- /*
- ** Test whether there is no tagmethod.
- ** (Because tagmethods use raw accesses, the result may be an "empty" nil.)
- */
- #define notm(tm) ttisnil(tm)
- #define gfasttm(g,et,e) ((et) == NULL ? NULL : \
- ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
- #define fasttm(l,et,e) gfasttm(G(l), et, e)
- #define ttypename(x) luaT_typenames_[(x) + 1]
- LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];)
- LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o);
- 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, const TValue *p3);
- LUAI_FUNC void luaT_callTMres (lua_State *L, const TValue *f,
- const TValue *p1, const TValue *p2, StkId p3);
- LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
- StkId res, TMS event);
- LUAI_FUNC void luaT_tryconcatTM (lua_State *L);
- LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1,
- const TValue *p2, int inv, StkId res, TMS event);
- LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2,
- int inv, StkId res, TMS event);
- LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
- const TValue *p2, TMS event);
- LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2,
- int inv, int isfloat, TMS event);
- LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams,
- struct CallInfo *ci, const Proto *p);
- LUAI_FUNC void luaT_getvarargs (lua_State *L, struct CallInfo *ci,
- StkId where, int wanted);
- #endif
|