]>
Commit | Line | Data |
---|---|---|
7c673cae | 1 | /* |
11fdf7f2 | 2 | ** $Id: ltm.h,v 2.22 2016/02/26 19:20:15 roberto Exp $ |
7c673cae FG |
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" and "ORDER OP" | |
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_MOD, | |
29 | TM_POW, | |
30 | TM_DIV, | |
31 | TM_IDIV, | |
32 | TM_BAND, | |
33 | TM_BOR, | |
34 | TM_BXOR, | |
35 | TM_SHL, | |
36 | TM_SHR, | |
37 | TM_UNM, | |
38 | TM_BNOT, | |
39 | TM_LT, | |
40 | TM_LE, | |
41 | TM_CONCAT, | |
42 | TM_CALL, | |
43 | TM_N /* number of elements in the enum */ | |
44 | } TMS; | |
45 | ||
46 | ||
47 | ||
48 | #define gfasttm(g,et,e) ((et) == NULL ? NULL : \ | |
49 | ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) | |
50 | ||
51 | #define fasttm(l,et,e) gfasttm(G(l), et, e) | |
52 | ||
53 | #define ttypename(x) luaT_typenames_[(x) + 1] | |
7c673cae FG |
54 | |
55 | LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; | |
56 | ||
57 | ||
11fdf7f2 TL |
58 | LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o); |
59 | ||
7c673cae FG |
60 | LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); |
61 | LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, | |
62 | TMS event); | |
63 | LUAI_FUNC void luaT_init (lua_State *L); | |
64 | ||
65 | LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1, | |
66 | const TValue *p2, TValue *p3, int hasres); | |
67 | LUAI_FUNC int luaT_callbinTM (lua_State *L, const TValue *p1, const TValue *p2, | |
68 | StkId res, TMS event); | |
69 | LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2, | |
70 | StkId res, TMS event); | |
71 | LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1, | |
72 | const TValue *p2, TMS event); | |
73 | ||
74 | ||
75 | ||
76 | #endif |