From 850290dda33f3272b30402153f5d76ee0bd4199b Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 14 Nov 2013 20:41:22 +0900
Subject: [PATCH] add some char primitives

---
 src/char.c | 39 +++++++++++++++++++++++++++++++++++++++
 src/init.c |  2 ++
 src/vm.c   | 18 ++++++++++++++++++
 3 files changed, 59 insertions(+)
 create mode 100644 src/char.c

diff --git a/src/char.c b/src/char.c
new file mode 100644
index 00000000..117340ca
--- /dev/null
+++ b/src/char.c
@@ -0,0 +1,39 @@
+#include "picrin.h"
+
+static pic_value
+pic_char_char_p(pic_state *pic)
+{
+  pic_value v;
+
+  pic_get_args(pic, "o", &v);
+
+  return pic_char_p(v) ? pic_true_value() : pic_false_value();
+}
+
+static pic_value
+pic_char_char_to_integer(pic_state *pic)
+{
+  char c;
+
+  pic_get_args(pic, "c", &c);
+
+  return pic_int_value(c);
+}
+
+static pic_value
+pic_char_integer_to_char(pic_state *pic)
+{
+  int i;
+
+  pic_get_args(pic, "i", &i);
+
+  return pic_char_value(i);
+}
+
+void
+pic_init_char(pic_state *pic)
+{
+  pic_defun(pic, "char?", pic_char_char_p);
+  pic_defun(pic, "char->integer", pic_char_char_to_integer);
+  pic_defun(pic, "integer->char", pic_char_integer_to_char);
+}
diff --git a/src/init.c b/src/init.c
index 811a0043..7f3680e1 100644
--- a/src/init.c
+++ b/src/init.c
@@ -16,6 +16,7 @@ void pic_init_symbol(pic_state *);
 void pic_init_vector(pic_state *);
 void pic_init_blob(pic_state *);
 void pic_init_cont(pic_state *);
+void pic_init_char(pic_state *);
 
 void
 pic_load_stdlib(pic_state *pic)
@@ -81,6 +82,7 @@ pic_init_core(pic_state *pic)
   pic_init_vector(pic); DONE;
   pic_init_blob(pic); DONE;
   pic_init_cont(pic); DONE;
+  pic_init_char(pic); DONE;
 
   pic_load_stdlib(pic); DONE;
 }
diff --git a/src/vm.c b/src/vm.c
index 84b9fa7e..a5cdc33c 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -216,6 +216,24 @@ pic_get_args(pic_state *pic, const char *format, ...)
 	}
       }
       break;
+    case 'c':
+      {
+	char *c;
+	pic_value v;
+
+	c = va_arg(ap, char *);
+	if (i < argc) {
+	  v = GET_OPERAND(pic,i);
+	  if (pic_char_p(v)) {
+	    *c = pic_char(v);
+	  }
+	  else {
+	    pic_error(pic, "pic_get_args: expected char");
+	  }
+	  i++;
+	}
+      }
+      break;
     default:
       {
 	pic_error(pic, "pic_get_args: invalid argument specifier given");