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*/
 18typedef 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 7 of the flag is used for
 52** 'isrealasize'.)
 53*/
 54#define maskflags	(~(~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
 64#define gfasttm(g,et,e) ((et) == NULL ? NULL : \
 65  ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
 66
 67#define fasttm(l,et,e)	gfasttm(G(l), et, e)
 68
 69#define ttypename(x)	luaT_typenames_[(x) + 1]
 70
 71LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];)
 72
 73
 74LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o);
 75
 76LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
 77LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
 78                                                       TMS event);
 79LUAI_FUNC void luaT_init (lua_State *L);
 80
 81LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1,
 82                            const TValue *p2, const TValue *p3);
 83LUAI_FUNC void luaT_callTMres (lua_State *L, const TValue *f,
 84                            const TValue *p1, const TValue *p2, StkId p3);
 85LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
 86                              StkId res, TMS event);
 87LUAI_FUNC void luaT_tryconcatTM (lua_State *L);
 88LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1,
 89       const TValue *p2, int inv, StkId res, TMS event);
 90LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2,
 91                               int inv, StkId res, TMS event);
 92LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
 93                                const TValue *p2, TMS event);
 94LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2,
 95                                 int inv, int isfloat, TMS event);
 96
 97LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams,
 98                                   struct CallInfo *ci, const Proto *p);
 99LUAI_FUNC void luaT_getvarargs (lua_State *L, struct CallInfo *ci,
100                                              StkId where, int wanted);
101
102
103#endif