From 40897e6351759be1a5a20d9d424f03518eb46b85 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 16 Jul 2014 16:12:25 +0900
Subject: [PATCH] support character literal

---
 src/read.c | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/src/read.c b/src/read.c
index b64ad0dc..f8836e44 100644
--- a/src/read.c
+++ b/src/read.c
@@ -300,12 +300,23 @@ read_boolean(pic_state *pic, struct pic_port *port, char c)
 static pic_value
 read_char(pic_state *pic, struct pic_port *port, char c)
 {
-  UNUSED(pic);
-  UNUSED(c);
+  c = next(port);
 
-  /* TODO: #\alart, #\space, so on and so on */
+  if (! isdelim(peek(port))) {
+    switch (c) {
+    default: read_error(pic, "unexpected character after char literal");
+    case 'a': c = '\a'; expect(port, "lerm"); break;
+    case 'b': c = '\b'; expect(port, "ackspace"); break;
+    case 'd': c = 0x7F; expect(port, "elete"); break;
+    case 'e': c = 0x1B; expect(port, "scape"); break;
+    case 'n': c = peek(port) == 'e' ? (expect(port, "ewline"), '\n') : (expect(port, "ull"), '\0'); break;
+    case 'r': c = '\r'; expect(port, "eturn"); break;
+    case 's': c = ' '; expect(port, "pace"); break;
+    case 't': c = '\t'; expect(port, "ab"); break;
+    }
+  }
 
-  return pic_char_value(next(port));
+  return pic_char_value(c);
 }
 
 static pic_value