Add error-reporting to UNIX cli client

src/unix.lisp

@@ -41,32 +41,48 @@
 ;; NIL → NIL
 (defun main ()
   "Actual invocation of the program. This is what you should set as :toplevel."
-  (multiple-value-bind (opts free) (opts:get-opts)
+  (error-print
-    (when-opt opts :help (help))
+   99 ""
-    (let* ((input-stream (pathname (car free))))
+   (multiple-value-bind (opts free) (opts:get-opts)
-      (when (not input-stream)
+     (when-opt opts :help (help))
-        (format *error-output* "No file provided.~%")
+     (let* ((input-file   (car free))
-        (help 2))
+            (url-base     (or (getf opts :url-base) (getf opts :download-dir) "mirror/"))
-
+            (download-dir (or (getf opts :download-dir) url-base)))
-      (format
+       (when (not input-file)
-       't
+         (error-print 1 "No HTML file provided. Use --help for more information."))
-       (mirror-img:mirror-img
+       (format
-        input-stream
+        't
-        #p"mirror/")))))
+        (mirror-img:mirror-img
+         (pathname input-file)
+         download-dir
+         :url-dir url-base))))))
 
 (opts:define-opts
   (:name :help
    :description "print this help text."
    :short #\h  :long "help")
-  (:name :base
+  (:name :url-base
+   :description "path to mirror directory used in URLs"
+   :short #\b :long "base")
+  (:name :download-dir
    :description "directory for all mirrored files"
-   :short #\b :long "base"
+   :short #\d :long "downloads"
-   :arg-parser (lambda (dir)
+   :arg-parser
-                 (car (directory dir)))))
+         (lambda (dir)
+           (handler-case
+               (ensure-directories-exist dir)
+             (error (c)
+               (error-print 11 "Could not access or create directory." c))))))
 
 ;; number stream → nil
 (defun help (&optional (exit-code 0) (stream *standard-output*))
   "Prints help message and dies."
-  (unix-opts:describe :prefix "usage: mirror-img [-h] [-b DIR] HTML_FILE"
+  (unix-opts:describe :prefix "usage: mirror-img [-h] [-d DIR] [-b BASE] HTML_FILE"
                       :stream stream)
   (unix-opts:exit exit-code))
+
+;; number string condition → nil
+(defun error-print (exit-code &optional message condition)
+  "Print an error-message and exit."
+  (format *error-output* "~@[~A~%~]~@[~A~%~]" message condition)
+  (unix-opts:exit exit-code))