From acbcde3b6a0f6fb8592a0f2ea433b86821c2f8c6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 7 Dec 2013 03:02:39 -0800
Subject: [PATCH] initial library support

---
 include/picrin/macro.h |  5 ++++-
 src/macro.c            | 19 +++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/include/picrin/macro.h b/include/picrin/macro.h
index c10f1e5a..ef51c85c 100644
--- a/include/picrin/macro.h
+++ b/include/picrin/macro.h
@@ -21,7 +21,10 @@ struct pic_syntax {
     PIC_STX_BEGIN,
     PIC_STX_MACRO,
     PIC_STX_DEFMACRO,
-    PIC_STX_DEFSYNTAX
+    PIC_STX_DEFSYNTAX,
+    PIC_STX_DEFLIBRARY,
+    PIC_STX_IMPORT,
+    PIC_STX_EXPORT
   } kind;
   pic_sym sym;
   struct pic_proc *macro;
diff --git a/src/macro.c b/src/macro.c
index 213b759a..6648b18a 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -55,6 +55,9 @@ pic_core_syntactic_env(pic_state *pic)
   register_core_syntax(pic, senv, PIC_STX_BEGIN, "begin");
   register_core_syntax(pic, senv, PIC_STX_DEFMACRO, "define-macro");
   register_core_syntax(pic, senv, PIC_STX_DEFSYNTAX, "define-syntax");
+  register_core_syntax(pic, senv, PIC_STX_DEFLIBRARY, "define-library");
+  register_core_syntax(pic, senv, PIC_STX_IMPORT, "import");
+  register_core_syntax(pic, senv, PIC_STX_EXPORT, "export");
 
   return senv;
 }
@@ -207,6 +210,22 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
     car = macroexpand(pic, pic_car(pic, expr), senv);
     if (pic_syntax_p(car)) {
       switch (pic_syntax(car)->kind) {
+      case PIC_STX_DEFLIBRARY: {
+        pic_value program;
+        struct pic_senv *senv;
+
+        /* FIXME: replace it with null-env once import is implemented */
+        senv = pic_core_syntactic_env(pic);
+
+        program = macroexpand_list(pic, pic_cddr(pic, expr), senv);
+
+        return pic_cons(pic, pic_symbol_value(pic->sBEGIN), program);
+      }
+      case PIC_STX_IMPORT:
+      case PIC_STX_EXPORT: {
+        puts("FIXME: import/export");
+        abort();
+      }
       case PIC_STX_DEFSYNTAX: {
 	pic_value var, val;
 	struct pic_proc *proc;