'loadstring' deprecated; use 'load' instead

This commit is contained in:
Roberto Ierusalimschy
2010-12-08 10:58:04 -02:00
parent 233b71c092
commit 81646af13b
2 changed files with 18 additions and 13 deletions

View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.252 2010/12/06 16:25:48 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.253 2010/12/07 11:40:42 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -114,12 +114,10 @@ static int luaB_setmetatable (lua_State *L) {
} }
static int luaB_getfenv (lua_State *L) { static int luaB_deprecated (lua_State *L) {
return luaL_error(L, "getfenv/setfenv deprecated"); return luaL_error(L, "deprecated function");
} }
#define luaB_setfenv luaB_getfenv
static int luaB_rawequal (lua_State *L) { static int luaB_rawequal (lua_State *L) {
luaL_checkany(L, 1); luaL_checkany(L, 1);
@@ -348,12 +346,13 @@ static int luaB_loadin (lua_State *L) {
} }
static int luaB_loadstring (lua_State *L) { #if defined(LUA_COMPAT_LOADSTRING)
lua_settop(L, 2); #define luaB_loadstring luaB_load
lua_pushliteral(L, "tb"); #else
return luaB_load(L); /* loadstring(s, n) == load(s, n, "tb") */ #define luaB_loadstring luaB_deprecated
#endif
}
/* }====================================================== */ /* }====================================================== */
@@ -473,7 +472,7 @@ static const luaL_Reg base_funcs[] = {
{"collectgarbage", luaB_collectgarbage}, {"collectgarbage", luaB_collectgarbage},
{"dofile", luaB_dofile}, {"dofile", luaB_dofile},
{"error", luaB_error}, {"error", luaB_error},
{"getfenv", luaB_getfenv}, {"getfenv", luaB_deprecated},
{"getmetatable", luaB_getmetatable}, {"getmetatable", luaB_getmetatable},
{"ipairs", luaB_ipairs}, {"ipairs", luaB_ipairs},
{"loadfile", luaB_loadfile}, {"loadfile", luaB_loadfile},
@@ -488,7 +487,7 @@ static const luaL_Reg base_funcs[] = {
{"rawget", luaB_rawget}, {"rawget", luaB_rawget},
{"rawset", luaB_rawset}, {"rawset", luaB_rawset},
{"select", luaB_select}, {"select", luaB_select},
{"setfenv", luaB_setfenv}, {"setfenv", luaB_deprecated},
{"setmetatable", luaB_setmetatable}, {"setmetatable", luaB_setmetatable},
{"tonumber", luaB_tonumber}, {"tonumber", luaB_tonumber},
{"tostring", luaB_tostring}, {"tostring", luaB_tostring},

View File

@@ -1,5 +1,5 @@
/* /*
** $Id: luaconf.h,v 1.150 2010/11/10 17:38:10 roberto Exp roberto $ ** $Id: luaconf.h,v 1.151 2010/11/12 15:48:30 roberto Exp roberto $
** Configuration file for Lua ** Configuration file for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -253,6 +253,12 @@
*/ */
#define LUA_COMPAT_LOG10 #define LUA_COMPAT_LOG10
/*
@@ LUA_COMPAT_LOADSTRING defines the function 'loadstring' in the base
** library. You can rewrite 'loadstring(s)' as 'load(s)'.
*/
#define LUA_COMPAT_LOADSTRING
/* /*
@@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library. @@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library.
*/ */