Repository navigation
Expand file tree
/
Copy pathluaclass_property.h
More file actions
85 lines (72 loc) · 2.66 KB
/
Copy pathluaclass_property.h
File metadata and controls
85 lines (72 loc) · 2.66 KB
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
/*
* luaclass_property.h - useful functions for handling Lua objects properties
*
* Copyright © 2009 Julien Danjou <julien@danjou.info>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
*/
#ifndef AWESOME_COMMON_LUACLASS_PROPERTY
#define AWESOME_COMMON_LUACLASS_PROPERTY
#include "common/luaclass.h"
typedef int (*lua_class_propfunc_t)(lua_State *, lua_object_t *);
typedef struct
{
const char *name;
lua_class_propfunc_t func;
} lua_class_property_entry_t;
void luaA_class_property_setup(lua_State *, lua_class_t *,
const lua_class_property_entry_t[], const lua_class_property_entry_t[]);
#define OBJECT_EXPORT_PROPERTY(pfx, type, field) \
fieldtypeof(type, field) \
pfx##_get_##field(type *object) \
{ \
return object->field; \
}
#define LUA_OBJECT_EXPORT_PROPERTY(pfx, type, field, pusher) \
int \
luaA_##pfx##_get_##field(lua_State *L, type *object) \
{ \
pusher(L, object->field); \
return 1; \
}
#define LUA_OBJECT_DO_SET_PROPERTY_FUNC(pfx, type, prop) \
void \
pfx##_set_##prop(lua_State *L, type *item, fieldtypeof(type, prop) value) \
{ \
if(item->prop != value) \
{ \
item->prop = value; \
pfx##_emit_signal_noret(L, item, "property::" #prop, 0); \
} \
}
#define LUA_OBJECT_FAKE_CHECKER(L, idx) idx
#define LUA_OBJECT_DO_LUA_SET_PROPERTY_FUNC(pfx, type, prop, checker) \
int \
luaA_##pfx##_set_##prop(lua_State *L, type *c) \
{ \
pfx##_set_##prop(L, c, checker(L, 3)); \
return 0; \
}
#define LUA_OBJECT_DO_SET_PROPERTY_WITH_REF_FUNC(prefix, target_class, type, prop) \
void \
prefix##_set_##prop(lua_State *L, type *item, int vidx) \
{ \
vidx = luaA_absindex(L, vidx); \
luaA_checkudataornil(L, vidx, (target_class)); \
item->prop = luaA_object_ref_item(L, (lua_object_t *) item, vidx); \
prefix##_emit_signal_noret(L, item, "property::" #prop, 0); \
}
#endif
// vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=80