1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
| /*
| ** $Id: ltm.h,v 2.22.1.1 2017/04/19 17:20:42 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" and "ORDER OP"
| */
| 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_MOD,
| TM_POW,
| TM_DIV,
| TM_IDIV,
| TM_BAND,
| TM_BOR,
| TM_BXOR,
| TM_SHL,
| TM_SHR,
| TM_UNM,
| TM_BNOT,
| 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]
|
| LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS];
|
|
| LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o);
|
| 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);
|
| LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1,
| const TValue *p2, TValue *p3, int hasres);
| LUAI_FUNC int luaT_callbinTM (lua_State *L, const TValue *p1, const TValue *p2,
| StkId res, TMS event);
| LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
| StkId res, TMS event);
| LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
| const TValue *p2, TMS event);
|
|
|
| #endif
|
|
