From 9ed8ffd48c35872531b881f2ccf10c056dbdc680 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 9 Sep 2020 10:49:11 -0500 Subject: added system for cli tool But the ecl build doesn't work... --- run.lisp | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 run.lisp (limited to 'run.lisp') diff --git a/run.lisp b/run.lisp new file mode 100644 index 0000000..8eeb603 --- /dev/null +++ b/run.lisp @@ -0,0 +1,33 @@ + +(defpackage #:imbricate.run + (:use #:cl) + (:export #:main)) + +(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~%~%")) + +#+ecl +(defun main () + (print (ext:command-args))) + ;; (unless (= 4 (length (ext:command-args))) + ;; (print-help) + ;; (ext:quit)) + ;; (destructuring-bind (src target title) (cdr (ext:command-args)) + ;; (imbricate:imbricate-and-save src target title) + ;; (ext:quit))) + +#+sbcl +(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))) + + -- cgit v1.2.3