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

renaming stringdump' -> string.dump'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-11-25 15:33:33 -02:00
parent d9340154ac
commit 9b1c586b2f
2 changed files with 21 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lbaselib.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lbaselib.c,v 1.108 2002/11/18 11:20:01 roberto Exp roberto $
** $Id: lbaselib.c,v 1.109 2002/11/22 18:01:46 roberto Exp roberto $
** Basic library
** See Copyright Notice in lua.h
*/
@@ -256,25 +256,6 @@ static int luaB_loadstring (lua_State *L) {
}
static int writer (lua_State *L, const void* b, size_t size, void* B) {
(void)L;
luaL_addlstring((luaL_Buffer*) B, (const char *)b, size);
return 1;
}
static int luaB_stringdump (lua_State *L) {
luaL_Buffer b;
luaL_checktype(L, 1, LUA_TFUNCTION);
luaL_buffinit(L,&b);
if (!lua_dump(L, writer, &b))
luaL_error(L, "unable to dump given function");
luaL_pushresult(&b);
return 1;
}
static int luaB_loadfile (lua_State *L) {
const char *fname = luaL_optstring(L, 1, NULL);
return passresults(L, luaL_loadfile(L, fname));
@@ -526,7 +507,6 @@ static const luaL_reg base_funcs[] = {
{"collectgarbage", luaB_collectgarbage},
{"gcinfo", luaB_gcinfo},
{"loadfile", luaB_loadfile},
{"stringdump", luaB_stringdump},
{"dofile", luaB_dofile},
{"loadstring", luaB_loadstring},
{"require", luaB_require},

21
lstrlib.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lstrlib.c,v 1.89 2002/08/23 19:45:24 roberto Exp roberto $
** $Id: lstrlib.c,v 1.90 2002/11/14 15:41:38 roberto Exp roberto $
** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h
*/
@@ -117,6 +117,24 @@ static int str_char (lua_State *L) {
}
static int writer (lua_State *L, const void* b, size_t size, void* B) {
(void)L;
luaL_addlstring((luaL_Buffer*) B, (const char *)b, size);
return 1;
}
static int str_dump (lua_State *L) {
luaL_Buffer b;
luaL_checktype(L, 1, LUA_TFUNCTION);
luaL_buffinit(L,&b);
if (!lua_dump(L, writer, &b))
luaL_error(L, "unable to dump given function");
luaL_pushresult(&b);
return 1;
}
/*
** {======================================================
@@ -730,6 +748,7 @@ static const luaL_reg strlib[] = {
{"rep", str_rep},
{"byte", str_byte},
{"format", str_format},
{"dump", str_dump},
{"find", str_find},
{"gfind", gfind},
{"gsub", str_gsub},