1 /*
2 ** $Id: ltm.h,v 2.11.1.1 2013/04/12 18:48:47 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
58