From 02d5a8ff16d1aa82fab7b861788886c08e81f268 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 14 Dec 2011 07:56:27 -0800
Subject: * arith.c (plus, minus, gt, lt, ge, le): Handle character operands.

* eval.c (eval_init): New functions interned.

* lib.c (num_chr, chr_num): New functions.

* lib.h (num_chr, chr_num): Declared.

* txr.1: Documentation stubs.
---
 lib.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 0062ac94..64cf66eb 100644
--- a/lib.c
+++ b/lib.c
@@ -1488,6 +1488,20 @@ val chr_tolower(val ch)
   return chr(towlower(c_chr(ch)));
 }
 
+val num_chr(val ch)
+{
+  return num_fast(c_chr(ch));
+}
+
+val chr_num(val num)
+{
+  cnum n = c_num(num);
+  if (n < 0 || n > 0x10FFFF)
+    uw_throwf(numeric_error_s,
+              lit("chr-num: ~s is out of character range"), num, nao);
+  return chr(n);
+}
+
 val chr_str(val str, val index)
 {
   bug_unless (length_str_gt(str, index));
-- 
cgit v1.2.3