int luaV_towstring (lua_State *L, TObject *obj) {
if (ttype(obj) != LUA_TNUMBER)
return 0;
else {
lua_WChar s[32]; /* 16 digits, sign, point and \0 (+ some extra...) */
lua_number2wstr((s), 32, nvalue(obj)); /* convert `s' to number */
setwsvalue2s(obj, luaWS_new(L, s));
return 1;
}
}
int luaV_towstring (lua_State *L, TValue *obj) {
if (ttype(obj) != LUA_TNUMBER)
return 0;
else {
char s[32]; /* 16 digits, sign, point and \0 (+ some extra...) */
lua_WChar ws[32]; /* 16 digits, sign, point and \0 (+ some extra...) */
char* ptr = s;
lua_WChar* wptr = ws;
lua_number2wstr(s, nvalue(obj)); /* convert `s' to number */
while (*ptr != 0)
*wptr++ = *ptr++;
*wptr = 0;
setwsvalue2s(L, obj, luaWS_new(L, ws));
return 1;
}
}
