diff options
| -rw-r--r-- | build.lisp | 27 |
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)) + |