New functions: tofloatz and tointz.

* arith.c (tofloatz, tointz): New functions.

* arith.h (tofloatz, tointz): Declared.

* eval.c (eval_init): Register tofloatz and tointz intrinsics.

* txr.1: Documented new functions.

1 files changed, 16 insertions, 0 deletions

diff --git a/arith.c b/arith.c
index 5eb022ec..df8dbb5d 100644
--- a/arith.c
+++ b/arith.c
@@ -2297,6 +2297,22 @@ val toint(val obj, val base)
   }
 }
 
+val tofloatz(val obj)
+{
+  uses_or2;
+  if (nilp(obj))
+    return flo(0.0);
+  return or2(tofloat(obj), flo(0.0));
+}
+
+val tointz(val obj, val base)
+{
+  uses_or2;
+  if (nilp(obj))
+    return zero;
+  return or2(toint(obj, base), zero);
+}
+
 val width(val obj)
 {
   switch (tag(obj)) {