| 1 | /* |
| 2 | ** $Id: ltm.h,v 2.11 2011/02/28 17:32:10 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" |
| 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_DIV, |
| 29 | TM_MOD, |
| 30 | TM_POW, |
| 31 | TM_UNM, |
| 32 | TM_LT, |
| 33 | TM_LE, |
| 34 | TM_CONCAT, |
| 35 | TM_CALL, |
| 36 | TM_N /* number of elements in the enum */ |
| 37 | } TMS; |
| 38 | |
| 39 | |
| 40 | |
| 41 | #define gfasttm(g,et,e) ((et) == NULL ? NULL : \ |
| 42 | ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) |
| 43 | |
| 44 | #define fasttm(l,et,e) gfasttm(G(l), et, e) |
| 45 | |
| 46 | #define ttypename(x) luaT_typenames_[(x) + 1] |
| 47 | #define objtypename(x) ttypename(ttypenv(x)) |
| 48 | |
| 49 | LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; |
| 50 | |
| 51 | |
| 52 | LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); |
| 53 | LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, |
| 54 | TMS event); |
| 55 | LUAI_FUNC void luaT_init (lua_State *L); |
| 56 | |
| 57 | #endif |