From bb30e8bc09ffaf5b7bf0ce7ecca17c55c8bf428d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 19 Mar 2014 00:07:48 -0700
Subject: * arith.c (tofloat, toint): New functions.

* arith.h (tofloat, toint): Declared.

* eval.c (eval_init): tofloat and toint registered
as intrinsics.

* txr.1: Documented.
---
 arith.c | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

(limited to 'arith.c')

diff --git a/arith.c b/arith.c
index 1eb9c5fb..63391848 100644
--- a/arith.c
+++ b/arith.c
@@ -1930,6 +1930,56 @@ val n_perm_k(val n, val k)
   return rising_product(plus(minus(n, k), one), n);
 }
 
+val tofloat(val obj)
+{
+  switch (tag(obj)) {
+  case TAG_NUM:
+    return flo_int(obj);
+  case TAG_LIT:
+    return flo_str(obj);
+  case TAG_PTR:
+    switch (type(obj)) {
+    case BGNUM:
+      return flo_int(obj);
+    case FLNUM:
+      return obj;
+    case STR:
+    case LSTR:
+      return flo_str(obj);
+    default:
+      break;
+    }
+    /* fallthrough */
+  default:
+    uw_throwf(error_s, lit("tofloat: ~s is not convertible to float"), obj, nao);
+  }
+}
+
+val toint(val obj, val base)
+{
+  switch (tag(obj)) {
+  case TAG_NUM:
+    return obj;
+  case TAG_LIT:
+    return int_str(obj, base);
+  case TAG_PTR:
+    switch (type(obj)) {
+    case BGNUM:
+      return obj;
+    case FLNUM:
+      return int_flo(obj);
+    case STR:
+    case LSTR:
+      return int_str(obj, base);
+    default:
+      break;
+    }
+    /* fallthrough */
+  default:
+    uw_throwf(error_s, lit("tofloat: ~s is not convertible to float"), obj, nao);
+  }
+}
+
 void arith_init(void)
 {
   mp_init(&NUM_MAX_MP);
-- 
cgit v1.2.3