diff options
Diffstat (limited to 'lbaselib.c')
-rw-r--r-- | lbaselib.c | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.78 2002/06/05 17:24:04 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.79 2002/06/06 12:39:48 roberto Exp roberto $ |
3 | ** Basic library | 3 | ** Basic library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -115,6 +115,15 @@ static int luaB_globals (lua_State *L) { | |||
115 | return 1; | 115 | return 1; |
116 | } | 116 | } |
117 | 117 | ||
118 | |||
119 | static int luaB_rawequal (lua_State *L) { | ||
120 | luaL_check_any(L, 1); | ||
121 | luaL_check_any(L, 2); | ||
122 | lua_pushboolean(L, lua_rawequal(L, 1, 2)); | ||
123 | return 1; | ||
124 | } | ||
125 | |||
126 | |||
118 | static int luaB_rawget (lua_State *L) { | 127 | static int luaB_rawget (lua_State *L) { |
119 | luaL_check_type(L, 1, LUA_TTABLE); | 128 | luaL_check_type(L, 1, LUA_TTABLE); |
120 | luaL_check_any(L, 2); | 129 | luaL_check_any(L, 2); |
@@ -400,6 +409,7 @@ static const luaL_reg base_funcs[] = { | |||
400 | {"type", luaB_type}, | 409 | {"type", luaB_type}, |
401 | {"assert", luaB_assert}, | 410 | {"assert", luaB_assert}, |
402 | {"unpack", luaB_unpack}, | 411 | {"unpack", luaB_unpack}, |
412 | {"rawequal", luaB_rawequal}, | ||
403 | {"rawget", luaB_rawget}, | 413 | {"rawget", luaB_rawget}, |
404 | {"rawset", luaB_rawset}, | 414 | {"rawset", luaB_rawset}, |
405 | {"pcall", luaB_pcall}, | 415 | {"pcall", luaB_pcall}, |