- initial import of revision 374 from cnc
[apt.git] / lua / ltm.h
1 /*
2 ** $Id: ltm.h,v 1.41 2002/11/14 11:51:50 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_EQ,  /* last tag method with `fast' access */
24   TM_ADD,
25   TM_SUB,
26   TM_MUL,
27   TM_DIV,
28   TM_POW,
29   TM_UNM,
30   TM_LT,
31   TM_LE,
32   TM_CONCAT,
33   TM_CALL,
34   TM_N          /* number of elements in the enum */
35 } TMS;
36
37
38
39 #define gfasttm(g,et,e) \
40   (((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
41
42 #define fasttm(l,et,e)  gfasttm(G(l), et, e)
43
44
45 const TObject *luaT_gettm (Table *events, TMS event, TString *ename);
46 const TObject *luaT_gettmbyobj (lua_State *L, const TObject *o, TMS event);
47 void luaT_init (lua_State *L);
48
49 extern const char *const luaT_typenames[];
50
51 #endif