michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/kernel_bindings): add new predicates for kernel objects in the Lua API

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-01-07 17:36:54 -08:00
parent 6f4ca7bd2a
commit 8ce6266e6b
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/library/kernel_bindings.cpp
View file

@ -1337,6 +1337,16 @@ OBJECT_PRED(is_var_decl)
OBJECT_PRED(is_builtin) OBJECT_PRED(is_builtin)
OBJECT_PRED(is_builtin_set) OBJECT_PRED(is_builtin_set)
#define OBJECT_EXTRA_PRED(P) \
static int object_ ## P(lua_State * L) { \
lua_pushboolean(L, P(to_object(L, 1))); \
return 1; \
}
OBJECT_EXTRA_PRED(is_begin_import)
OBJECT_EXTRA_PRED(is_begin_builtin_import)
OBJECT_EXTRA_PRED(is_end_import)
static int object_in_builtin_set(lua_State * L) { static int object_in_builtin_set(lua_State * L) {
lua_pushboolean(L, to_object(L, 1).in_builtin_set(to_expr(L, 2))); lua_pushboolean(L, to_object(L, 1).in_builtin_set(to_expr(L, 2)));
return 1; return 1;
@ -1371,6 +1381,9 @@ static const struct luaL_Reg object_m[] = {
{"is_builtin", safe_function<object_is_builtin>}, {"is_builtin", safe_function<object_is_builtin>},
{"is_builtin_set", safe_function<object_is_builtin_set>}, {"is_builtin_set", safe_function<object_is_builtin_set>},
{"in_builtin_set", safe_function<object_in_builtin_set>}, {"in_builtin_set", safe_function<object_in_builtin_set>},
{"is_begin_import", safe_function<object_is_begin_import>},
{"is_begin_builtin_import", safe_function<object_is_begin_builtin_import>},
{"is_end_import", safe_function<object_is_end_import>},
{0, 0} {0, 0}
}; };