added build script

1 files changed, 27 insertions, 0 deletions

diff --git a/build.lisp b/build.lisp
new file mode 100644
index 0000000..60a9b6a
--- /dev/null
+++ b/build.lisp
@@ -0,0 +1,27 @@
+
+(ql:quickload :imbricate)
+
+(defpackage #:imbricate.run
+  (:use #:cl))
+
+(in-package :imbricate.run)
+
+(defun print-help ()
+  (format t "USAGE: imbricate SOURCE-DIR TARGET-DIR SHEET-TITLE~%~%")
+  (format t "       SOURCE-DIR a directory containing png files. Non png files are skipped~%")
+  (format t "       TARGET-DIR a directory where the tilesheet is to be built.~%")
+  (format t "       SHEET-TITLE a name used for this sheet and its meta info~%~%"))
+
+
+#+sbcl
+(progn 
+  (defun main ()
+    (unless (= 4 (length sb-ext:*posix-argv*))
+      (print-help)
+      (uiop:quit))
+    (destructuring-bind (src target title) (cdr sb-ext:*posix-argv*)
+      (imbricate:imbricate-and-save src target title)
+      (uiop:quit)))
+
+  (sb-ext:save-lisp-and-die #p"imbricate" :toplevel #'main :executable t))
+