1/*
2** $Id: ltm.h $
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*/
18typedef 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_CLOSE,
44 TM_N /* number of elements in the enum */
45} TMS;
46
47
48/*
49** Mask with 1 in all fast-access methods. A 1 in any of these bits
50** in the flag of a (meta)table means the metatable does not have the
51** corresponding metamethod field. (Bit 7 of the flag is used for
52** 'isrealasize'.)
53*/
54#define maskflags (~(~0u << (TM_EQ + 1)))
55
56
57/*
58** Test whether there is no tagmethod.
59** (Because tagmethods use raw accesses, the result may be an "empty" nil.)
60*/
61#define notm(tm) ttisnil(tm)
62
63
64#define gfasttm(g,et,e) ((et) == NULL ? NULL : \
65 ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
66
67#define fasttm(l,et,e) gfasttm(G(l), et, e)
68
69#define ttypename(x) luaT_typenames_[(x) + 1]
70
71LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];)
72
73
74LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o);
75
76LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
77LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
78 TMS event);
79LUAI_FUNC void luaT_init (lua_State *L);
80
81LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1,
82 const TValue *p2, const TValue *p3);
83LUAI_FUNC void luaT_callTMres (lua_State *L, const TValue *f,
84 const TValue *p1, const TValue *p2, StkId p3);
85LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
86 StkId res, TMS event);
87LUAI_FUNC void luaT_tryconcatTM (lua_State *L);
88LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1,
89 const TValue *p2, int inv, StkId res, TMS event);
90LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2,
91 int inv, StkId res, TMS event);
92LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
93 const TValue *p2, TMS event);
94LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2,
95 int inv, int isfloat, TMS event);
96
97LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams,
98 struct CallInfo *ci, const Proto *p);
99LUAI_FUNC void luaT_getvarargs (lua_State *L, struct CallInfo *ci,
100 StkId where, int wanted);
101
102
103#endif
104