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

feat(library/kernel_bindings): add list of certified_definitions in the Lua API

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-08 18:51:34 -07:00
parent 129d108d0b
commit 9676f48470
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/library/kernel_bindings.cpp
View file

@ -821,14 +821,21 @@ static const struct luaL_Reg certified_definition_m[] = {
{0, 0} {0, 0}
}; };
static void certified_definition_migrate(lua_State * src, int i, lua_State * tgt) {
push_certified_definition(tgt, to_certified_definition(src, i));
}
static void open_certified_definition(lua_State * L) { static void open_certified_definition(lua_State * L) {
luaL_newmetatable(L, certified_definition_mt); luaL_newmetatable(L, certified_definition_mt);
set_migrate_fn_field(L, -1, certified_definition_migrate);
lua_pushvalue(L, -1); lua_pushvalue(L, -1);
lua_setfield(L, -2, "__index"); lua_setfield(L, -2, "__index");
setfuncs(L, certified_definition_m, 0); setfuncs(L, certified_definition_m, 0);
SET_GLOBAL_FUN(certified_definition_pred, "is_certified_definition"); SET_GLOBAL_FUN(certified_definition_pred, "is_certified_definition");
} }
static bool operator!=(certified_definition const &, certified_definition const &) { return true; }
DEFINE_LUA_LIST(certified_definition, push_certified_definition, to_certified_definition)
// Environment // Environment
DECL_UDATA(environment) DECL_UDATA(environment)
@ -1529,6 +1536,7 @@ void open_kernel_module(lua_State * L) {
open_formatter(L); open_formatter(L);
open_environment_id(L); open_environment_id(L);
open_certified_definition(L); open_certified_definition(L);
open_list_certified_definition(L);
open_environment(L); open_environment(L);
open_io_state(L); open_io_state(L);
open_justification(L); open_justification(L);