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

weakmode' queries must have an explicit ?'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-06-05 16:41:31 -03:00
parent 943b8f5b18
commit 323da72577
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lbaselib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.34 2001/04/11 18:39:37 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.35 2001/04/23 16:35:45 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -170,9 +170,9 @@ static int luaB_settag (lua_State *L) {
} }
static int luaB_weakmode (lua_State *L) { static int luaB_weakmode (lua_State *L) {
const char *mode = luaL_opt_string(L, 2, NULL); const char *mode = luaL_check_string(L, 2);
luaL_checktype(L, 1, LUA_TTABLE); luaL_checktype(L, 1, LUA_TTABLE);
if (mode == NULL) { if (*mode == l_c('?')) {
char buff[3]; char buff[3];
char *s = buff; char *s = buff;
int imode = lua_getweakmode(L, 1); int imode = lua_getweakmode(L, 1);
@@ -184,11 +184,11 @@ static int luaB_weakmode (lua_State *L) {
} }
else { else {
int imode = 0; int imode = 0;
lua_pushvalue(L, 1); /* push table */
if (strchr(mode, l_c('k'))) imode |= LUA_WEAK_KEY; if (strchr(mode, l_c('k'))) imode |= LUA_WEAK_KEY;
if (strchr(mode, l_c('v'))) imode |= LUA_WEAK_VALUE; if (strchr(mode, l_c('v'))) imode |= LUA_WEAK_VALUE;
lua_pushvalue(L, 1); /* push table */
lua_setweakmode(L, imode); lua_setweakmode(L, imode);
return 1; return 1; /* return the table */
} }
} }