You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.1 KiB
57 lines
1.1 KiB
/* |
|
** $Id: ltm.h,v 2.11.1.1 2013/04/12 18:48:47 roberto Exp $ |
|
** 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" |
|
*/ |
|
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_DIV, |
|
TM_MOD, |
|
TM_POW, |
|
TM_UNM, |
|
TM_LT, |
|
TM_LE, |
|
TM_CONCAT, |
|
TM_CALL, |
|
TM_N /* number of elements in the enum */ |
|
} TMS; |
|
|
|
|
|
|
|
#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] |
|
#define objtypename(x) ttypename(ttypenv(x)) |
|
|
|
LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; |
|
|
|
|
|
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); |
|
|
|
#endif
|
|
|