|
@ -1,5 +1,5 @@ |
|
|
/*
|
|
|
/*
|
|
|
** $Id: lauxlib.c,v 1.243 2012/04/20 17:05:17 roberto Exp roberto $ |
|
|
** $Id: lauxlib.c,v 1.244 2012/05/31 20:28:45 roberto Exp roberto $ |
|
|
** Auxiliary functions for building Lua libraries |
|
|
** Auxiliary functions for building Lua libraries |
|
|
** See Copyright Notice in lua.h |
|
|
** See Copyright Notice in lua.h |
|
|
*/ |
|
|
*/ |
|
@ -84,7 +84,7 @@ static void pushfuncname (lua_State *L, lua_Debug *ar) { |
|
|
if (*ar->namewhat != '\0') /* is there a name? */ |
|
|
if (*ar->namewhat != '\0') /* is there a name? */ |
|
|
lua_pushfstring(L, "function " LUA_QS, ar->name); |
|
|
lua_pushfstring(L, "function " LUA_QS, ar->name); |
|
|
else if (*ar->what == 'm') /* main? */ |
|
|
else if (*ar->what == 'm') /* main? */ |
|
|
lua_pushfstring(L, "main chunk"); |
|
|
lua_pushliteral(L, "main chunk"); |
|
|
else if (*ar->what == 'C') { |
|
|
else if (*ar->what == 'C') { |
|
|
if (pushglobalfuncname(L, ar)) { |
|
|
if (pushglobalfuncname(L, ar)) { |
|
|
lua_pushfstring(L, "function " LUA_QS, lua_tostring(L, -1)); |
|
|
lua_pushfstring(L, "function " LUA_QS, lua_tostring(L, -1)); |
|
@ -214,7 +214,7 @@ LUALIB_API int luaL_fileresult (lua_State *L, int stat, const char *fname) { |
|
|
if (fname) |
|
|
if (fname) |
|
|
lua_pushfstring(L, "%s: %s", fname, strerror(en)); |
|
|
lua_pushfstring(L, "%s: %s", fname, strerror(en)); |
|
|
else |
|
|
else |
|
|
lua_pushfstring(L, "%s", strerror(en)); |
|
|
lua_pushstring(L, strerror(en)); |
|
|
lua_pushinteger(L, en); |
|
|
lua_pushinteger(L, en); |
|
|
return 3; |
|
|
return 3; |
|
|
} |
|
|
} |
|
|