diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-02-05 17:14:53 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-02-05 17:14:53 -0200 |
| commit | d438e1379d24f06f027f8fc0e8fc1ff6673b322f (patch) | |
| tree | b8ba7c184768198d6b7ade4c65968f644633baa5 /lvm.c | |
| parent | 1721d09ac8e55bb4b675cea26cbe6b707fd21a2c (diff) | |
| download | lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.tar.gz lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.tar.bz2 lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.zip | |
insertion of ".0" in floats with integer values done by "luaL_tolstring",
not by the core
Diffstat (limited to 'lvm.c')
| -rw-r--r-- | lvm.c | 16 |
1 files changed, 4 insertions, 12 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lvm.c,v 2.184 2014/01/22 20:02:04 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 2.185 2014/01/27 13:34:32 roberto Exp roberto $ |
| 3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -53,17 +53,9 @@ int luaV_tostring (lua_State *L, StkId obj) { | |||
| 53 | return 0; | 53 | return 0; |
| 54 | else { | 54 | else { |
| 55 | char buff[MAXNUMBER2STR]; | 55 | char buff[MAXNUMBER2STR]; |
| 56 | size_t len; | 56 | size_t len = (ttisinteger(obj)) |
| 57 | if (ttisinteger(obj)) | 57 | ? lua_integer2str(buff, ivalue(obj)) |
| 58 | len = lua_integer2str(buff, ivalue(obj)); | 58 | : lua_number2str(buff, fltvalue(obj)); |
| 59 | else { | ||
| 60 | len = lua_number2str(buff, fltvalue(obj)); | ||
| 61 | if (strspn(buff, "-0123456789") == len) { /* look like an integer? */ | ||
| 62 | buff[len++] = '.'; /* add a '.0' */ | ||
| 63 | buff[len++] = '0'; | ||
| 64 | buff[len] = '\0'; | ||
| 65 | } | ||
| 66 | } | ||
| 67 | setsvalue2s(L, obj, luaS_newlstr(L, buff, len)); | 59 | setsvalue2s(L, obj, luaS_newlstr(L, buff, len)); |
| 68 | return 1; | 60 | return 1; |
| 69 | } | 61 | } |
