diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-09-07 17:00:53 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-09-07 17:00:53 -0500 |
commit | e43518427375ef19203dbd027b0d8a1a2f986932 (patch) | |
tree | 3680a1aaa5b3e3a6eb33fbd13c04809aadb99f5b | |
parent | f09c489f299fefce62d6b46703744a4336b484b2 (diff) |
added build script
-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)) + |