add PIC_USE_LIBRARY flag

tools/mkboot.scm

@@ -1,52 +1,63 @@
 (import (scheme base)
         (scheme read)
-        (scheme write))
+        (scheme write)
+        (scheme file))
 
-(define (with-output-to-string thunk)
-  (let ((port (open-output-string)))
-    (parameterize ((current-output-port port))
-      (thunk)
-      (let ((s (get-output-string port)))
-        (close-port port)
-        s))))
+(define (generate-rom filename)
 
-(define exprs
-  (let loop ((acc '()))
-    (let ((e (read)))
-      (if (eof-object? e)
+  (define (with-output-to-string thunk)
+    (let ((port (open-output-string)))
+      (parameterize ((current-output-port port))
+        (thunk)
+        (let ((s (get-output-string port)))
+          (close-port port)
+          s))))
+
+  (define exprs
+    (with-input-from-file filename
+      (lambda ()
+        (let loop ((acc '()))
+          (let ((e (read)))
+            (if (eof-object? e)
+                (reverse acc)
+                (loop (cons e acc))))))))
+
+  (define text
+    (with-output-to-string
+      (lambda ()
+        (for-each
+         (lambda (e)
+           (write e)
+           (write-string " "))
+         exprs))))
+
+  (define (escape-string s)
+    (with-output-to-string
+      (lambda ()
+        (string-for-each
+         (lambda (c)
+           (case c
+             ((#\\) (write-string "\\\\"))
+             ((#\") (write-string "\\\""))
+             ((#\newline) (write-string "\\n"))
+             (else (write-char c))))
+         s))))
+
+  (define (group-string i s)
+    (let loop ((t s) (n (string-length s)) (acc '()))
+      (if (= n 0)
           (reverse acc)
-          (loop (cons e acc))))))
+          (if (< n i)
+              (loop "" 0 (cons t acc))
+              (loop (string-copy t i) (- n i) (cons (string-copy t 0 i) acc))))))
 
-(define text
-  (with-output-to-string
-    (lambda ()
-      (for-each
-       (lambda (e)
-         (write e)
-         (write-string " "))
-       exprs))))
+  (define lines (map escape-string (group-string 80 text)))
 
-(define (escape-string s)
-  (with-output-to-string
-    (lambda ()
-      (string-for-each
-       (lambda (c)
-         (case c
-           ((#\\) (write-string "\\\\"))
-           ((#\") (write-string "\\\""))
-           ((#\newline) (write-string "\\n"))
-           (else (write-char c))))
-       s))))
+  (let loop ((lines lines) (acc ""))
+       (if (null? lines)
+           acc
+           (loop (cdr lines) (string-append acc "\"" (car lines) "\",\n")))))
 
-(define (group-string i s)
-  (let loop ((t s) (n (string-length s)) (acc '()))
-    (if (= n 0)
-        (reverse acc)
-        (if (< n i)
-            (loop "" 0 (cons t acc))
-            (loop (string-copy t i) (- n i) (cons (string-copy t 0 i) acc))))))
-
-(define lines (map escape-string (group-string 80 text)))
 
 (for-each
  (lambda (s) (display s) (newline))
@@ -54,15 +65,21 @@
    "#include \"picrin/extra.h\""
    ""
    "static const char boot_rom[][80] = {"
-   ,@(let loop ((lines lines) (acc '()))
-       (if (null? lines)
-           (reverse acc)
-           (loop (cdr lines) (cons (string-append "\"" (car lines) "\",") acc))))
+   ,(generate-rom "piclib/boot.scm")
    "};"
    ""
+   "#if PIC_USE_LIBRARY"
+   "static const char boot_library_rom[][80] = {"
+   ,(generate-rom "piclib/library.scm")
+   "};"
+   "#endif"
+   ""
    "void"
    "pic_boot(pic_state *pic)"
    "{"
    "  pic_load_cstr(pic, &boot_rom[0][0]);"
+   "#if PIC_USE_LIBRARY"
+   "  pic_load_cstr(pic, &boot_library_rom[0][0]);"
+   "#endif"
    "}"))