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

better treatment of integer formats in string.format

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2009-06-18 13:51:03 -03:00
parent c1de1fdac6
commit f4eed60ca9
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lstrlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.141 2008/06/12 14:21:18 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.142 2009/02/03 19:39:19 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
*/ */
@@ -777,14 +777,13 @@ static int str_format (lua_State *L) {
sprintf(buff, form, (int)luaL_checknumber(L, arg)); sprintf(buff, form, (int)luaL_checknumber(L, arg));
break; break;
} }
case 'd': case 'i': { case 'd': case 'i':
addintlen(form);
sprintf(buff, form, (LUA_INTFRM_T)luaL_checknumber(L, arg));
break;
}
case 'o': case 'u': case 'x': case 'X': { case 'o': case 'u': case 'x': case 'X': {
lua_Number n = luaL_checknumber(L, arg);
LUA_INTFRM_T r = (n < 0) ? (LUA_INTFRM_T)n :
(LUA_INTFRM_T)(unsigned LUA_INTFRM_T)n;
addintlen(form); addintlen(form);
sprintf(buff, form, (unsigned LUA_INTFRM_T)luaL_checknumber(L, arg)); sprintf(buff, form, r);
break; break;
} }
case 'e': case 'E': case 'f': case 'e': case 'E': case 'f':