From 5f167f7ae1c464df220913ed1a9c2105dc1ada3e Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
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