easier to add new initialization functions
This commit is contained in:
14
lua.c
14
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;
|
||||
|
||||
Reference in New Issue
Block a user