rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new function `xpcall' (at least for now...)

This commit is contained in:
Roberto Ierusalimschy 2002-06-06 09:39:48 -03:00
parent 5a8f383e60
commit f1c43bbe19
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.77 2002/06/05 16:59:21 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.78 2002/06/05 17:24:04 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -96,7 +96,8 @@ static int luaB_metatable (lua_State *L) {
else { else {
int t = lua_type(L, 2); int t = lua_type(L, 2);
luaL_check_type(L, 1, LUA_TTABLE); luaL_check_type(L, 1, LUA_TTABLE);
luaL_arg_check(L, t == LUA_TNIL || t == LUA_TTABLE, 2, "nil/table expected"); luaL_arg_check(L, t == LUA_TNIL || t == LUA_TTABLE, 2,
"nil or table expected");
lua_settop(L, 2); lua_settop(L, 2);
lua_setmetatable(L, 1); lua_setmetatable(L, 1);
} }
@ -224,7 +225,7 @@ static int luaB_unpack (lua_State *L) {
} }
static int luaB_pcall (lua_State *L) { static int luaB_xpcall (lua_State *L) {
int status; int status;
luaL_check_any(L, 1); luaL_check_any(L, 1);
luaL_check_any(L, 2); luaL_check_any(L, 2);
@ -239,6 +240,20 @@ static int luaB_pcall (lua_State *L) {
} }
static int luaB_pcall (lua_State *L) {
int status;
luaL_check_any(L, 1);
status = lua_pcall(L, lua_gettop(L) - 1, LUA_MULTRET, 0);
if (status != 0)
return passresults(L, status);
else {
lua_pushboolean(L, 1);
lua_insert(L, 1);
return lua_gettop(L); /* return `true' + all results */
}
}
static int luaB_tostring (lua_State *L) { static int luaB_tostring (lua_State *L) {
char buff[64]; char buff[64];
luaL_checkany(L, 1); luaL_checkany(L, 1);
@ -388,6 +403,7 @@ static const luaL_reg base_funcs[] = {
{"rawget", luaB_rawget}, {"rawget", luaB_rawget},
{"rawset", luaB_rawset}, {"rawset", luaB_rawset},
{"pcall", luaB_pcall}, {"pcall", luaB_pcall},
{"xpcall", luaB_xpcall},
{"collectgarbage", luaB_collectgarbage}, {"collectgarbage", luaB_collectgarbage},
{"gcinfo", luaB_gcinfo}, {"gcinfo", luaB_gcinfo},
{"loadfile", luaB_loadfile}, {"loadfile", luaB_loadfile},