Add a simple cli interface.

This commit is contained in:
2023-09-10 20:53:30 +03:00
parent f32ae4a9d3
commit 453b90d537
3 changed files with 91 additions and 3 deletions
+7 -2
View File
@@ -1,7 +1,12 @@
(ns cipher-analytical-machine.core
(:require
[cipher-analytical-machine.cli :as cli])
(:gen-class))
(defn -main
"I don't do a whole lot ... yet."
[& args]
(println "Hello, World!"))
(let [{:keys [options arguments exit-message ok?]} (cli/validate-args args)]
(if exit-message
(cli/exit exit-message ok?)
(cli/actions options arguments))))