Parse command line options

* Define command line options for the program
* Define Make rules to build a binary
* Fix system entrypoint definition
* Comment out some application code to test command line option parsing

1 files changed, 104 insertions, 0 deletions

diff --git a/src/option.lisp b/src/option.lisp
new file mode 100644
index 0000000..4d1ce19
--- /dev/null
+++ b/src/option.lisp
@@ -0,0 +1,104 @@
+(in-package :wajir)
+
+(opts:define-opts
+  (:name :login
+   :description "Jira login email address"
+   :long "login"
+   :arg-parser #'identity
+   :meta-var "<login>")
+  (:name :token
+   :description "Jira API token"
+   :long "token"
+   :arg-parser #'identity
+   :meta-var "<token>")
+  (:name :endpoint
+   :description "Jira site URL host (e.g. example.atlassian.net)"
+   :long "endpoint"
+   :meta-var "<endpoint>")
+
+  (:name :sendmail
+   :description "send email command"
+   :long "sendmail"
+   :meta-var "<command>")
+  (:name :email-to
+   :description "recipient email address"
+   :long "email-to"
+   :meta-var "<address>")
+
+  (:name :verbose
+   :description "print verbose output"
+   :short #\v
+   :long "verbose")
+
+  (:name :help
+   :description "print this help menu"
+   :short #\h
+   :long "help")
+  (:name :version
+   :description "show the program version"
+   :short #\V
+   :long "version"))
+
+(defmacro when-option ((options option) &body body)
+  "When `option` is present in `options`, run `body`."
+  `(let ((value (getf ,options ,option)))
+     (when value
+       ,@body)))
+
+(defun exit-with-error (condition exit-code)
+  "Print the error associated with `condition` on standard error, then exit
+with code `exit-code`."
+  (format *error-output* "error: ~a~%" condition)
+
+  (opts:exit exit-code))
+
+(defun handle-option-error (condition)
+  "Handle errors related to command line options. Prints the error specified by
+`condition` and exits with EX_USAGE."
+  (exit-with-error condition sysexits:+usage+))
+
+(defun parse-options ()
+  "Parse command line options."
+  (multiple-value-bind (options free-args)
+    (handler-bind
+      ((opts:unknown-option #'handle-option-error)
+       (opts:missing-arg #'handle-option-error)
+       (opts:arg-parser-failed #'handle-option-error)
+       (opts:missing-required-option #'handle-option-error))
+
+      (opts:get-opts))
+
+    ;; Help
+    (when-option (options :help)
+      (opts:describe
+        :usage-of "wajir"
+        :args "<JQL>")
+
+      (opts:exit sysexits:+usage+))
+
+    ;; Version
+    (when-option (options :version)
+      (format t "~a~%" (asdf:component-version (asdf:find-system :extreload)))
+
+      (opts:exit sysexits:+ok+))
+
+    ;; If `sendmail` is given, `email-to` must be defined.
+    (when (not (null (getf options :sendmail)))
+      (when (null (getf options  :email-to))
+        (format *error-output* "error: `--sendmail' requires `--email-to'")
+        (opts:exit sysexits:+usage+)))
+
+    ;; Error if JQL is empty
+    (when (null free-args)
+      (format *error-output* "error: missing JQL")
+
+      (opts:exit sysexits:+usage+))
+
+    (make-instance 'config
+                   :login (getf options :login)
+                   :token (getf options :token)
+                   :endpoint (getf options :endpoint)
+                   :sendmail (getf options :sendmail)
+                   :email-to (getf options :email-to)
+                   :verbose (getf options :verbose)
+                   :jql (first free-args))))