libs/lua/lua-5.3.2/ltm.h

   1 /*
   2 ** $Id: ltm.h,v 2.21 2014/10/25 11:50:46 roberto Exp $
   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_N          /* number of elements in the enum */
  44 } TMS;
  45
  46
  47
  48 #define gfasttm(g,et,e) ((et) == NULL ? NULL : \
  49   ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
  50
  51 #define fasttm(l,et,e)  gfasttm(G(l), et, e)
  52
  53 #define ttypename(x)    luaT_typenames_[(x) + 1]
  54 #define objtypename(x)  ttypename(ttnov(x))
  55
  56 LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS];
  57
  58
  59 LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
  60 LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
  61                                                        TMS event);
  62 LUAI_FUNC void luaT_init (lua_State *L);
  63
  64 LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1,
  65                             const TValue *p2, TValue *p3, int hasres);
  66 LUAI_FUNC int luaT_callbinTM (lua_State *L, const TValue *p1, const TValue *p2,
  67                               StkId res, TMS event);
  68 LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
  69                               StkId res, TMS event);
  70 LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
  71                                 const TValue *p2, TMS event);
  72
  73
  74
  75 #endif