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

'io.write' writes integers directly (and correctly)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2013-06-07 16:01:35 -03:00
parent c5069528e1
commit 48adb6984c
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.112 2013/04/11 18:34:06 roberto Exp roberto $ ** $Id: liolib.c,v 2.113 2013/05/14 15:57:43 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
*/ */
@@ -533,8 +533,10 @@ static int g_write (lua_State *L, FILE *f, int arg) {
for (; nargs--; arg++) { for (; nargs--; arg++) {
if (lua_type(L, arg) == LUA_TNUMBER) { if (lua_type(L, arg) == LUA_TNUMBER) {
/* optimization: could be done exactly as for strings */ /* optimization: could be done exactly as for strings */
status = status && int len = lua_isinteger(L, arg)
fprintf(f, LUA_NUMBER_FMT, lua_tonumber(L, arg)) > 0; ? fprintf(f, LUA_INTEGER_FMT, lua_tointeger(L, arg))
: fprintf(f, LUA_NUMBER_FMT, lua_tonumber(L, arg));
status = status && (len > 0);
} }
else { else {
size_t l; size_t l;