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...
---
 build.lisp        | 34 +++++++++++++---------------------
 imbricate-run.asd |  9 +++++++++
 imbricate.asd     |  2 +-
 run.lisp          | 33 +++++++++++++++++++++++++++++++++
 4 files changed, 56 insertions(+), 22 deletions(-)
 create mode 100644 imbricate-run.asd
 create mode 100644 run.lisp

diff --git a/build.lisp b/build.lisp
index 9e98804..4552239 100644
--- a/build.lisp
+++ b/build.lisp
@@ -1,29 +1,21 @@
 
-(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~%~%"))
 
+(ql:register-local-projects)
 
+(dolist (dir ql:*local-project-directories*)
+  (push dir asdf:*central-registry*))
 
+(ql:quickload :imbricate-run)
 
 #+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)))
+(progn
+  (sb-ext:save-lisp-and-die #p"imbricate" :toplevel #'imbricate.run:main :executable t :compression t))
 
-  (sb-ext:save-lisp-and-die #p"imbricate" :toplevel #'main :executable t :compression t))
+#+ecl
+(progn 
+  (asdf:make-build :imbricate-run
+                   :type :program
+                   :move-here #P"./"
+                   :epilogue-code '(imbricate.run:main))
+  (ext:exit))
 
diff --git a/imbricate-run.asd b/imbricate-run.asd
new file mode 100644
index 0000000..c017655
--- /dev/null
+++ b/imbricate-run.asd
@@ -0,0 +1,9 @@
+
+(asdf:defsystem #:imbricate-run
+  :description "cli tool for imbricate"
+  :author "colin okay <cbeok@protonmail.com>"
+  :license  "AGPL-3.0"
+  :version "0.1.0"
+  :serial t
+  :depends-on ( #:asdf #:imbricate )
+  :components ((:file "run")))
diff --git a/imbricate.asd b/imbricate.asd
index a98ab0b..472579f 100644
--- a/imbricate.asd
+++ b/imbricate.asd
@@ -6,5 +6,5 @@
   :license  "AGPL-3.0"
   :version "0.1.0"
   :serial t
-  :depends-on ( #:opticl #:uiop )
+  :depends-on (#:asdf #:uiop #:opticl)
   :components ((:file "imbricate")))
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