From e43518427375ef19203dbd027b0d8a1a2f986932 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 7 Sep 2020 17:00:53 -0500 Subject: added build script --- build.lisp | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 build.lisp (limited to 'build.lisp') 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)) + -- cgit v1.2.3