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

new names for functions that open C libraries

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2003-03-11 09:24:34 -03:00
parent 430d6db928
commit 034de1fe73
9 changed files with 43 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lbaselib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.125 2003/03/06 19:36:16 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.126 2003/03/11 12:08:13 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -668,7 +668,7 @@ static void base_open (lua_State *L) {
} }
LUALIB_API int lua_baselibopen (lua_State *L) { LUALIB_API int luaopen_base (lua_State *L) {
base_open(L); base_open(L);
luaL_openlib(L, LUA_COLIBNAME, co_funcs, 0); luaL_openlib(L, LUA_COLIBNAME, co_funcs, 0);
lua_newtable(L); lua_newtable(L);

4
ldblib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ldblib.c,v 1.77 2002/12/20 10:26:33 roberto Exp roberto $ ** $Id: ldblib.c,v 1.78 2003/02/27 11:52:30 roberto Exp roberto $
** Interface from Lua to its debug API ** Interface from Lua to its debug API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -288,7 +288,7 @@ static const luaL_reg dblib[] = {
}; };
LUALIB_API int lua_dblibopen (lua_State *L) { LUALIB_API int luaopen_debug (lua_State *L) {
luaL_openlib(L, LUA_DBLIBNAME, dblib, 0); luaL_openlib(L, LUA_DBLIBNAME, dblib, 0);
lua_pushliteral(L, "_TRACEBACK"); lua_pushliteral(L, "_TRACEBACK");
lua_pushcfunction(L, errorfb); lua_pushcfunction(L, errorfb);

4
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.33 2003/02/27 12:39:05 roberto Exp roberto $ ** $Id: liolib.c,v 2.34 2003/03/06 19:36:44 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -749,7 +749,7 @@ static const luaL_reg syslib[] = {
LUALIB_API int lua_iolibopen (lua_State *L) { LUALIB_API int luaopen_io (lua_State *L) {
createmeta(L); createmeta(L);
luaL_openlib(L, LUA_OSLIBNAME, syslib, 0); luaL_openlib(L, LUA_OSLIBNAME, syslib, 0);
lua_pushliteral(L, FILEHANDLE); lua_pushliteral(L, FILEHANDLE);

4
lmathlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.53 2002/12/04 17:38:31 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.54 2002/12/20 10:26:33 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -233,7 +233,7 @@ static const luaL_reg mathlib[] = {
/* /*
** Open math library ** Open math library
*/ */
LUALIB_API int lua_mathlibopen (lua_State *L) { LUALIB_API int luaopen_math (lua_State *L) {
luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0); luaL_openlib(L, LUA_MATHLIBNAME, mathlib, 0);
lua_pushliteral(L, "pi"); lua_pushliteral(L, "pi");
lua_pushnumber(L, PI); lua_pushnumber(L, PI);

4
lstrlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.93 2002/12/20 10:26:33 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.94 2003/02/12 09:10:41 roberto Exp roberto $
** Standard library for string operations and pattern-matching ** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -762,7 +762,7 @@ static const luaL_reg strlib[] = {
/* /*
** Open string library ** Open string library
*/ */
LUALIB_API int lua_strlibopen (lua_State *L) { LUALIB_API int luaopen_string (lua_State *L) {
luaL_openlib(L, LUA_STRLIBNAME, strlib, 0); luaL_openlib(L, LUA_STRLIBNAME, strlib, 0);
return 1; return 1;
} }

4
ltablib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ltablib.c,v 1.18 2002/12/20 10:26:33 roberto Exp roberto $ ** $Id: ltablib.c,v 1.19 2003/01/27 13:46:16 roberto Exp roberto $
** Library for Table Manipulation ** Library for Table Manipulation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -243,7 +243,7 @@ static const luaL_reg tab_funcs[] = {
}; };
LUALIB_API int lua_tablibopen (lua_State *L) { LUALIB_API int luaopen_table (lua_State *L) {
luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0); luaL_openlib(L, LUA_TABLIBNAME, tab_funcs, 0);
return 1; return 1;
} }

14
ltests.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 1.153 2003/02/18 16:02:56 roberto Exp roberto $ ** $Id: ltests.c,v 1.154 2003/02/27 12:33:07 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -460,12 +460,12 @@ static int newstate (lua_State *L) {
static int loadlib (lua_State *L) { static int loadlib (lua_State *L) {
static const luaL_reg libs[] = { static const luaL_reg libs[] = {
{"mathlibopen", lua_mathlibopen}, {"mathlibopen", luaopen_math},
{"strlibopen", lua_strlibopen}, {"strlibopen", luaopen_string},
{"iolibopen", lua_iolibopen}, {"iolibopen", luaopen_io},
{"tablibopen", lua_tablibopen}, {"tablibopen", luaopen_table},
{"dblibopen", lua_dblibopen}, {"dblibopen", luaopen_debug},
{"baselibopen", lua_baselibopen}, {"baselibopen", luaopen_base},
{NULL, NULL} {NULL, NULL}
}; };
lua_State *L1 = cast(lua_State *, lua_State *L1 = cast(lua_State *,

16
lua.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lua.c,v 1.116 2003/01/29 13:23:45 roberto Exp roberto $ ** $Id: lua.c,v 1.117 2003/03/07 13:21:31 roberto Exp roberto $
** Lua stand-alone interpreter ** Lua stand-alone interpreter
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -67,12 +67,12 @@ static const char *progname = PROGNAME;
static const luaL_reg lualibs[] = { static const luaL_reg lualibs[] = {
{"baselib", lua_baselibopen}, {"base", luaopen_base},
{"tablib", lua_tablibopen}, {"table", luaopen_table},
{"iolib", lua_iolibopen}, {"io", luaopen_io},
{"strlib", lua_strlibopen}, {"string", luaopen_string},
{"mathlib", lua_mathlibopen}, {"math", luaopen_math},
{"dblib", lua_dblibopen}, {"debug", luaopen_debug},
/* add your libraries here */ /* add your libraries here */
LUA_EXTRALIBS LUA_EXTRALIBS
{NULL, NULL} {NULL, NULL}
@@ -372,7 +372,7 @@ static int handle_argv (char *argv[], int *interactive) {
static void openstdlibs (lua_State *l) { static void openstdlibs (lua_State *l) {
const luaL_reg *lib = lualibs; const luaL_reg *lib = lualibs;
for (; lib->name; lib++) { for (; lib->func; lib++) {
lib->func(l); /* open library */ lib->func(l); /* open library */
lua_settop(l, 0); /* discard any results */ lua_settop(l, 0); /* discard any results */
} }

23
lualib.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lualib.h,v 1.24 2002/06/18 17:42:52 roberto Exp roberto $ ** $Id: lualib.h,v 1.25 2002/07/09 18:49:13 roberto Exp roberto $
** Lua standard libraries ** Lua standard libraries
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -17,23 +17,23 @@
#define LUA_COLIBNAME "coroutine" #define LUA_COLIBNAME "coroutine"
LUALIB_API int lua_baselibopen (lua_State *L); LUALIB_API int luaopen_base (lua_State *L);
#define LUA_TABLIBNAME "table" #define LUA_TABLIBNAME "table"
LUALIB_API int lua_tablibopen (lua_State *L); LUALIB_API int luaopen_table (lua_State *L);
#define LUA_IOLIBNAME "io" #define LUA_IOLIBNAME "io"
#define LUA_OSLIBNAME "os" #define LUA_OSLIBNAME "os"
LUALIB_API int lua_iolibopen (lua_State *L); LUALIB_API int luaopen_io (lua_State *L);
#define LUA_STRLIBNAME "string" #define LUA_STRLIBNAME "string"
LUALIB_API int lua_strlibopen (lua_State *L); LUALIB_API int luaopen_string (lua_State *L);
#define LUA_MATHLIBNAME "math" #define LUA_MATHLIBNAME "math"
LUALIB_API int lua_mathlibopen (lua_State *L); LUALIB_API int luaopen_math (lua_State *L);
#define LUA_DBLIBNAME "debug" #define LUA_DBLIBNAME "debug"
LUALIB_API int lua_dblibopen (lua_State *L); LUALIB_API int luaopen_debug (lua_State *L);
/* to help testing the libraries */ /* to help testing the libraries */
@@ -41,4 +41,13 @@ LUALIB_API int lua_dblibopen (lua_State *L);
#define lua_assert(c) /* empty */ #define lua_assert(c) /* empty */
#endif #endif
/* compatibility code */
#define lua_baselibopen luaopen_base
#define lua_tablibopen luaopen_table
#define lua_iolibopen luaopen_io
#define lua_strlibopen luaopen_string
#define lua_mathlibopen luaopen_math
#define lua_dblibopen luaopen_debug
#endif #endif