OLD | NEW |
(Empty) | |
| 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 |
OLD | NEW |