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
|
/*
** Tag methods
** See Copyright Notice in lua.h
*/
#ifndef GRIM_LTM_H
#define GRIM_LTM_H
#include "engines/grim/lua/lobject.h"
#include "engines/grim/lua/lstate.h"
namespace Grim {
/*
* WARNING: if you change the order of this enumeration,
* grep "ORDER IM"
*/
typedef enum {
IM_GETTABLE = 0,
IM_SETTABLE,
IM_INDEX,
IM_GETGLOBAL,
IM_SETGLOBAL,
IM_ADD,
IM_SUB,
IM_MUL,
IM_DIV,
IM_POW,
IM_UNM,
IM_LT,
IM_LE,
IM_GT,
IM_GE,
IM_CONCAT,
IM_GC,
IM_FUNCTION
} eIMS;
typedef int32 IMS;
#define IM_N 18
struct IM {
TObject int_method[IM_N];
};
#define luaT_getim(tag, event) (&IMtable[-(tag)].int_method[event])
#define luaT_getimbyObj(o, e) (luaT_getim(luaT_efectivetag(o), (e)))
extern const char *luaT_eventname[];
void luaT_init();
void luaT_realtag(int32 tag);
int32 luaT_efectivetag(TObject *o);
void luaT_settagmethod(int32 t, const char *event, TObject *func);
TObject *luaT_gettagmethod(int32 t, const char *event);
const char *luaT_travtagmethods(int32 (*fn)(TObject *));
void luaT_setfallback(); // only if LUA_COMPAT2_5
} // end of namespace Grim
#endif
|
