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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#include "AppHdr.h"
#include "cluautil.h"
#include "clua.h"
#include "l_libs.h"
#include "delay.h"
int push_activity_interrupt(lua_State *ls, activity_interrupt_data *t)
{
if (!t->data)
{
lua_pushnil(ls);
return 0;
}
switch (t->apt)
{
case AIP_HP_LOSS:
{
const ait_hp_loss *ahl = (const ait_hp_loss *) t->data;
lua_pushnumber(ls, ahl->hp);
lua_pushnumber(ls, ahl->hurt_type);
return 1;
}
case AIP_INT:
lua_pushnumber(ls, *(const int *) t->data);
break;
case AIP_STRING:
lua_pushstring(ls, (const char *) t->data);
break;
case AIP_MONSTER:
// FIXME: We're casting away the const...
push_monster(ls, (monsters *) t->data);
break;
default:
lua_pushnil(ls);
break;
}
return 0;
}
void clua_push_map(lua_State *ls, map_def *map)
{
map_def **mapref = clua_new_userdata<map_def *>(ls, MAP_METATABLE);
*mapref = map;
}
void clua_push_dgn_event(lua_State *ls, const dgn_event *devent)
{
const dgn_event **de =
clua_new_userdata<const dgn_event *>(ls, DEVENT_METATABLE);
*de = devent;
}
void luaopen_setmeta(lua_State *ls,
const char *global,
const luaL_reg *lua_lib,
const char *meta)
{
luaL_newmetatable(ls, meta);
lua_setglobal(ls, global);
luaL_openlib(ls, global, lua_lib, 0);
// Do <global>.__index = <global>
lua_pushstring(ls, "__index");
lua_pushvalue(ls, -2);
lua_settable(ls, -3);
}
void clua_register_metatable(lua_State *ls, const char *tn,
const luaL_reg *lr,
int (*gcfn)(lua_State *ls))
{
lua_stack_cleaner clean(ls);
luaL_newmetatable(ls, tn);
lua_pushstring(ls, "__index");
lua_pushvalue(ls, -2);
lua_settable(ls, -3);
if (gcfn)
{
lua_pushstring(ls, "__gc");
lua_pushcfunction(ls, gcfn);
lua_settable(ls, -3);
}
if (lr)
{
luaL_openlib(ls, NULL, lr, 0);
}
}
int clua_pushcxxstring(lua_State *ls, const std::string &s)
{
lua_pushstring(ls, s.c_str());
return (1);
}
int clua_stringtable(lua_State *ls, const std::vector<std::string> &s)
{
return clua_gentable(ls, s, clua_pushcxxstring);
}
// Pushes a coord_def as a dgn.point Lua object. Note that this is quite
// different from dlua_pushcoord.
int clua_pushpoint(lua_State *ls, const coord_def &pos)
{
lua_pushnumber(ls, pos.x);
lua_pushnumber(ls, pos.y);
CLua &vm(CLua::get_vm(ls));
if (!vm.callfn("dgn.point", 2, 1))
luaL_error(ls, "dgn.point(%d,%d) failed: %s",
pos.x, pos.y, vm.error.c_str());
return (1);
}
|