From 16c41f2f9f1d86d861254ef54becbd2bd728f848 Mon Sep 17 00:00:00 2001
From: pixel <pixel>
Date: Thu, 9 Feb 2006 16:57:30 +0000
Subject: Changing the behavior of tostring: now booleans and nils can be
converted to strings.
---
lib/lua/src/lvm.c | 22 +++++++++++++++++++++-
1 file changed, 21 insertions(+), 1 deletion(-)
(limited to 'lib/lua')
diff --git a/lib/lua/src/lvm.c b/lib/lua/src/lvm.c
index 7334edc..5c6620a 100644
--- a/lib/lua/src/lvm.c
+++ b/lib/lua/src/lvm.c
@@ -1,5 +1,5 @@
/*
-** $Id: lvm.c,v 1.8 2005-02-12 22:57:53 pixel Exp $
+** $Id: lvm.c,v 1.9 2006-02-09 16:57:30 pixel Exp $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -53,6 +53,7 @@ const TObject *luaV_tonumber (const TObject *obj, TObject *n) {
int luaV_tostring (lua_State *L, StkId obj) {
+#if 0
if (!ttisnumber(obj))
return 0;
else {
@@ -61,6 +62,25 @@ int luaV_tostring (lua_State *L, StkId obj) {
setsvalue2s(obj, luaS_new(L, s));
return 1;
}
+#else
+ if (ttisnumber(obj)) {
+ char s[32]; /* 16 digits, sign, point and \0 (+ some extra...) */
+ lua_number2str(s, nvalue(obj));
+ setsvalue2s(obj, luaS_new(L, s));
+ return 1;
+ } else if (ttisboolean(obj)) {
+ if (bvalue(obj))
+ setsvalue2s(obj, luaS_new(L, "(true)"))
+ else
+ setsvalue2s(obj, luaS_new(L, "(false)"));
+ return 1;
+ } else if (ttisnil(obj)) {
+ setsvalue(obj, luaS_new(L, "(nil)"));
+ return 1;
+ } else {
+ return 0;
+ }
+#endif
}
--
cgit v1.2.3