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*/
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_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
49LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS];
50
51
52LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
53LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
54                                                       TMS event);
55LUAI_FUNC void luaT_init (lua_State *L);
56
57#endif
58