From 2722c5140685064be3df771eb9c0e0feff4fded0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 26 Sep 2011 23:37:32 -0700
Subject: Support &#NNNN; decimal escapes also.

* filter.c (html_hex_continue): Bail with nil if no digits
are collected. The &#x; syntax is not translated to anything.
(html_dec_continue): New function.
(html_hex_handler): Function renamed to html_numeric_handler.
(filter_init): Change function-based trie node over to
html_numeric_handler.
---
 ChangeLog | 11 +++++++++++
 filter.c  | 34 ++++++++++++++++++++++++++++++----
 2 files changed, 41 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 37570e42..6b89939f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -18,6 +18,17 @@
 
 	* configure: Bumped txr_ver to 037.
 
+2011-09-26  Kaz Kylheku  <kaz@kylheku.com>
+
+	Support &#NNNN; decimal escapes also.
+
+	* filter.c (html_hex_continue): Bail with nil if no digits
+	are collected. The &#x; syntax is not translated to anything.
+	(html_dec_continue): New function.
+	(html_hex_handler): Function renamed to html_numeric_handler.
+	(filter_init): Change function-based trie node over to
+	html_numeric_handler.
+
 2011-09-26  Kaz Kylheku  <kaz@kylheku.com>
 
 	Support &#xNNNN; hex escapes in html.  Bugfix in field formatting.
diff --git a/filter.c b/filter.c
index 370df293..db298da6 100644
--- a/filter.c
+++ b/filter.c
@@ -491,6 +491,9 @@ static val html_hex_continue(val hexlist, val ch)
     wchar_t out[2] = { 0 };
     val iter;
 
+    if (nullp(hexlist))
+      return nil;
+
     for (iter = nreverse(hexlist); iter; iter = cdr(iter)) {
       val hexch = car(iter);
       int val = wcschr(hexdigs, towupper(c_chr(hexch))) - hexdigs;
@@ -504,11 +507,34 @@ static val html_hex_continue(val hexlist, val ch)
   }
 }
 
-static val html_hex_handler(val ch)
+static val html_dec_continue(val declist, val ch)
+{
+  if (iswdigit(c_chr(ch))) {
+    return func_f1(cons(ch, declist), html_dec_continue);
+  } if (eq(ch, chr(';'))) {
+    wchar_t out[2] = { 0 };
+    val iter;
+
+    for (iter = nreverse(declist); iter; iter = cdr(iter)) {
+      val decch = car(iter);
+      int val = c_chr(decch) - '0';
+      out[0] *= 10;
+      out[0] += val;
+    }
+
+    return string(out);
+  } else {
+    return nil;
+  }
+}
+
+static val html_numeric_handler(val ch)
 {
-  if (!iswxdigit(c_chr(ch)))
+  if (eq(ch, chr('x')))
+    return func_f1(nil, html_hex_continue);
+  if (!iswdigit(c_chr(ch)))
     return nil;
-  return func_f1(cons(ch, nil), html_hex_continue);
+  return func_f1(cons(ch, nil), html_dec_continue);
 }
 
 val filters;
@@ -523,7 +549,7 @@ void filter_init(void)
   sethash(filters, to_html_k, build_filter(to_html_table, t));
   {
     val trie = build_filter(from_html_table, nil);
-    trie_add(trie, lit("&#x"), func_n1(html_hex_handler));
+    trie_add(trie, lit("&#"), func_n1(html_numeric_handler));
     trie_compress(&trie);
     sethash(filters, from_html_k, trie);
   }
-- 
cgit v1.2.3