nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new API for registry and C upvalues + new implementation for references

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-10-17 19:12:57 -02:00
parent 7cd37142f4
commit 1e81da51ba
10 changed files with 111 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
ltests.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 1.91 2001/09/07 17:39:10 roberto Exp $
** $Id: ltests.c,v 1.92 2001/10/02 16:45:03 roberto Exp $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@@ -317,21 +317,16 @@ static int tref (lua_State *L) {
int level = lua_gettop(L);
luaL_checkany(L, 1);
lua_pushvalue(L, 1);
lua_pushnumber(L, lua_ref(L, luaL_opt_int(L, 2, 1)));
lua_pushnumber(L, lua_ref(L, 1));
assert(lua_gettop(L) == level+1); /* +1 for result */
return 1;
}
static int getref (lua_State *L) {
int level = lua_gettop(L);
if (lua_getref(L, luaL_check_int(L, 1))) {
assert(lua_gettop(L) == level+1);
return 1;
}
else {
assert(lua_gettop(L) == level);
return 0;
}
lua_getref(L, luaL_check_int(L, 1));
assert(lua_gettop(L) == level+1);
return 1;
}
static int unref (lua_State *L) {
@@ -570,6 +565,12 @@ static int testC (lua_State *L) {
else if EQ(l_s("pushvalue")) {
lua_pushvalue(L, getnum);
}
else if EQ(l_s("pushcclosure")) {
lua_pushcclosure(L, testC, getnum);
}
else if EQ(l_s("pushupvalues")) {
lua_pushupvalues(L);
}
else if EQ(l_s("remove")) {
lua_remove(L, getnum);
}