aboutsummaryrefslogtreecommitdiff
path: root/lbaselib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lbaselib.c')
-rw-r--r--lbaselib.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/lbaselib.c b/lbaselib.c
index 83e8061d..6105af56 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -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
119static 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
118static int luaB_rawget (lua_State *L) { 127static 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},