klisp

commit 3f92a91367c14cc7b958f6740954ea56e797e333
parent 3eb33dadbbb851936590ce7a9d7f2a51ba6b62bd
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat, 30 Apr 2011 23:34:55 -0300

A first approach to inexact number printing.

Diffstat:
M
src/kwrite.c
 | 
21
++++++++++++++++++---

1 file changed, 18 insertions(+), 3 deletions(-)
diff --git a/src/kwrite.c b/src/kwrite.c
@@ -13,6 +13,7 @@
 #include "kobject.h"
 #include "kinteger.h"
 #include "krational.h"
+#include "kreal.h"
 #include "kpair.h"
 #include "kstring.h"
 #include "ksymbol.h"
@@ -271,9 +272,6 @@ void kwrite_simple(klisp_State *K, TValue obj)
 	kwrite_error(K, "string type found in kwrite-simple");
 	/* avoid warning */
 	return;
-    case K_TEINF:
-	kw_printf(K, "#e%cinfinity", tv_equal(obj, KEPINF)? '+' : '-');
-	break;
     case K_TFIXINT:
 	kw_printf(K, "%" PRId32, ivalue(obj));
 	break;
@@ -283,6 +281,23 @@ void kwrite_simple(klisp_State *K, TValue obj)
     case K_TBIGRAT:
 	kw_print_bigrat(K, obj);
 	break;
+    case K_TEINF:
+	kw_printf(K, "#e%cinfinity", tv_equal(obj, KEPINF)? '+' : '-');
+	break;
+    case K_TIINF:
+	kw_printf(K, "#i%cinfinity", tv_equal(obj, KIPINF)? '+' : '-');
+	break;
+    case K_TDOUBLE:
+	/* TODO investigate this further */
+	kw_printf(K, "%17.e", dvalue(obj));
+	break;
+    case K_TRWNPV:
+	/* ASK John/TEMP: until John tells me what should this be... */
+	kw_printf(K, "#real");
+	break;
+    case K_TUNDEFINED:
+	kw_printf(K, "#undefined");
+	break;
     case K_TNIL:
 	kw_printf(K, "()");
 	break;