rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

to avoid `strerror', define itself to something else; 

nil has a special, fixed reference
This commit is contained in:
Roberto Ierusalimschy 2002-10-04 11:31:40 -03:00
parent 829befcc41
commit fa2f1ec7ba
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lauxlib.c
View File

@ -1,20 +1,16 @@
/* /*
** $Id: lauxlib.c,v 1.85 2002/09/05 19:45:42 roberto Exp roberto $ ** $Id: lauxlib.c,v 1.86 2002/09/16 19:49: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
*/ */
#include <ctype.h> #include <ctype.h>
#include <errno.h>
#include <stdarg.h> #include <stdarg.h>
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#ifndef lua_filerror
#include <errno.h>
#define lua_fileerror (strerror(errno))
#endif
/* This file uses only the official API of Lua. /* This file uses only the official API of Lua.
** Any function declared here could be written as an application function. ** Any function declared here could be written as an application function.
@ -292,6 +288,10 @@ LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) {
LUALIB_API int luaL_ref (lua_State *L, int t) { LUALIB_API int luaL_ref (lua_State *L, int t) {
int ref; int ref;
if (lua_isnil(L, -1)) {
lua_pop(L, 1); /* remove from stack */
return LUA_REFNIL; /* `nil' has a unique fixed reference */
}
lua_rawgeti(L, t, 0); /* get first free element */ lua_rawgeti(L, t, 0); /* get first free element */
ref = (int)lua_tonumber(L, -1); /* ref = t[0] */ ref = (int)lua_tonumber(L, -1); /* ref = t[0] */
lua_pop(L, 1); /* remove it from stack */ lua_pop(L, 1); /* remove it from stack */
@ -347,7 +347,7 @@ static const char *getF (lua_State *L, void *ud, size_t *size) {
static int errfile (lua_State *L, const char *filename) { static int errfile (lua_State *L, const char *filename) {
if (filename == NULL) filename = "stdin"; if (filename == NULL) filename = "stdin";
lua_pushfstring(L, "cannot read %s: %s", filename, lua_fileerror); lua_pushfstring(L, "cannot read %s: %s", filename, strerror(errno));
return LUA_ERRFILE; return LUA_ERRFILE;
} }