Mercurial > mm7
comparison lib/lua/lua-5.2.2/ltm.h @ 1866:41cc4dd3c122
Lua 5.2.2 added.
author | Nomad |
---|---|
date | Wed, 16 Oct 2013 13:34:26 +0200 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
1848:3b39b70e8e93 | 1866:41cc4dd3c122 |
---|---|
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 |