lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 322b7b5fc55da0d166efc693cfe674220190b010
parent 1f917e709ca3fe41cf07fd4bf99a080883521394
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue,  6 Feb 2001 16:18:36 -0200

easier to add new initialization functions

Diffstat:
Mltests.c | 8+-------
Mltests.h | 4++--
Mlua.c | 14+++++++++++---
3 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/ltests.c b/ltests.c @@ -1,5 +1,5 @@ /* -** $Id: ltests.c,v 1.62 2001/02/02 15:13:05 roberto Exp roberto $ +** $Id: ltests.c,v 1.63 2001/02/06 16:01:29 roberto Exp roberto $ ** Internal Module for Debugging of the Lua Implementation ** See Copyright Notice in lua.h */ @@ -652,12 +652,6 @@ void luaB_opentests (lua_State *L) { luaL_openl(L, tests_funcs); /* open functions inside new table */ lua_setglobals(L); /* restore old table of globals */ lua_setglobal(L, "T"); /* set new table as global T */ - /* open other libraries */ - lua_baselibopen(L); - lua_iolibopen(L); - lua_strlibopen(L); - lua_mathlibopen(L); - lua_dblibopen(L); } #endif diff --git a/ltests.h b/ltests.h @@ -1,5 +1,5 @@ /* -** $Id: ltests.h,v 1.2 2001/02/05 19:08:01 roberto Exp roberto $ +** $Id: ltests.h,v 1.3 2001/02/06 16:01:29 roberto Exp roberto $ ** Internal Header for Debugging of the Lua Implementation ** See Copyright Notice in lua.h */ @@ -49,7 +49,7 @@ extern lua_State *lua_state; void luaB_opentests (lua_State *L); -#define LUA_USERINIT(L) luaB_opentests(L) +#define LUA_USERINIT(L) (luaB_opentests(L), openstdlibs(L)) #endif diff --git a/lua.c b/lua.c @@ -1,5 +1,5 @@ /* -** $Id: lua.c,v 1.57 2001/01/22 18:01:38 roberto Exp roberto $ +** $Id: lua.c,v 1.58 2001/01/26 11:45:51 roberto Exp roberto $ ** Lua stand-alone interpreter ** See Copyright Notice in lua.h */ @@ -30,8 +30,7 @@ static int isatty (int x) { return x==0; } /* assume stdin is a tty */ #ifndef LUA_USERINIT -#define LUA_USERINIT(L) (lua_baselibopen(L), lua_iolibopen(L), \ - lua_strlibopen(L), lua_mathlibopen(L), lua_dblibopen(L)) +#define LUA_USERINIT(L) openstdlibs(L) #endif @@ -310,6 +309,15 @@ static void register_getargs (char *argv[]) { } +static void openstdlibs (lua_State *l) { + lua_baselibopen(l); + lua_iolibopen(l); + lua_strlibopen(l); + lua_mathlibopen(l); + lua_dblibopen(l); +} + + int main (int argc, char *argv[]) { struct Options opt; int status;