From ae55f3eeada102f3fa8345173410feaf1db42cde Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Fri, 30 Jun 2000 16:17:08 -0300 Subject: no varargs in Lua API --- lstate.c | 30 +++--------------------------- 1 file changed, 3 insertions(+), 27 deletions(-) (limited to 'lstate.c') diff --git a/lstate.c b/lstate.c index b91daf5b..34c86bb1 100644 --- a/lstate.c +++ b/lstate.c @@ -1,5 +1,5 @@ /* -** $Id: lstate.c,v 1.27 2000/06/12 13:52:05 roberto Exp roberto $ +** $Id: lstate.c,v 1.28 2000/06/30 14:35:17 roberto Exp roberto $ ** Global State ** See Copyright Notice in lua.h */ @@ -27,7 +27,7 @@ lua_State *lua_state = NULL; -static lua_State *newstate_aux (int stacksize, int put_builtin) { +lua_State *lua_newstate (int stacksize, int put_builtin) { lua_State *L = luaM_new(NULL, lua_State); L->errorJmp = NULL; L->Mbuffer = NULL; @@ -50,6 +50,7 @@ static lua_State *newstate_aux (int stacksize, int put_builtin) { L->linehook = NULL; L->allowhooks = 1; L->gt = luaH_new(L, 10); + if (stacksize == 0) stacksize = DEFAULT_STACK_SIZE; luaD_init(L, stacksize); luaS_init(L); luaX_init(L); @@ -61,31 +62,6 @@ static lua_State *newstate_aux (int stacksize, int put_builtin) { } -lua_State *lua_newstate (const char *s, ...) { - static const char *const ops[] = {"stack", "builtin", NULL}; - va_list ap; - int stacksize = DEFAULT_STACK_SIZE; - int put_builtin = 1; - va_start(ap, s); - while (s) { - switch (luaL_findstring(s, ops)) { - case 0: /* stack */ - stacksize = va_arg(ap, int); - break; - case 1: /* builtin */ - put_builtin = va_arg(ap, int); - break; - default: /* invalid argument */ - va_end(ap); - return NULL; - } - s = va_arg(ap, const char *); - } - va_end(ap); - return newstate_aux(stacksize, put_builtin); -} - - void lua_close (lua_State *L) { luaC_collect(L, 1); /* collect all elements */ LUA_ASSERT(L->rootproto == NULL, "list should be empty"); -- cgit v1.2.3-55-g6feb