luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Foo

Browse source
This commit is contained in:
Michiel Borkent 2021-03-16 11:35:46 +01:00
parent 18219526e2
commit 23834a5302
3 changed files with 22 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/babashka/cli.clj
View file

@ -5,8 +5,12 @@
(declare resolve-task)
(defn error [msg exit]
(binding [*out* *err*]
(println msg)
{:exit-code exit}))
(defn parse-opts [options]
(prn :options options)
(let [opts (loop [options options
opts-map {}]
(if options
@ -129,7 +133,7 @@
:command-line-args (next options))
(if (str/starts-with? opt ":")
(resolve-task opt {:command-line-args (next options)})
(throw (Exception. (str "File does not exist: " opt))))))))))
(error (str "File does not exist: " opt) 1))))))))
opts-map))]
opts))
@ -142,5 +146,5 @@
(let [cmd-line-args (get task :babashka/args)]
;; this is for invoking babashka itself with command-line-args
(parse-opts (seq (concat cmd-line-args command-line-args))))
(throw (Exception. (str "No such task: " task)))))
(throw (Exception. (str "File does not exist: " task))))))
(error (str "No such task: " task) 1)))
(error (str "File does not exist: " task) 1))))

22
src/babashka/main.clj
View file

@ -371,7 +371,8 @@ Use -- to separate script command line args from bb command line args.
:repl :socket-repl :nrepl
:verbose? :classpath
:main :uberscript :describe?
:jar :uberjar :clojure :task] :as opts}
:jar :uberjar :clojure :task
:exit-code] :as opts}
(cli/parse-opts args)
_ (when clojure
(if-let [proc (deps/clojure (:opts opts))]
@ -457,15 +458,16 @@ Use -- to separate script command line args from bb command line args.
_ (vreset! common/ctx sci-ctx)
preloads (some-> (System/getenv "BABASHKA_PRELOADS") (str/trim))
[expressions exit-code]
(cond expressions [expressions nil]
main [[(format "(ns user (:require [%1$s])) (apply %1$s/-main *command-line-args*)"
main)] nil]
file (try [[(read-file file)] nil]
(catch Exception e
(error-handler e {:expression expressions
:verbose? verbose?
:preloads preloads
:loader (:loader @cp/cp-state)}))))
(if exit-code [nil exit-code]
(cond expressions [expressions nil]
main [[(format "(ns user (:require [%1$s])) (apply %1$s/-main *command-line-args*)"
main)] nil]
file (try [[(read-file file)] nil]
(catch Exception e
(error-handler e {:expression expressions
:verbose? verbose?
:preloads preloads
:loader (:loader @cp/cp-state)})))))
expression (str/join " " expressions) ;; this might mess with the locations...
exit-code
;; handle preloads

3
test-resources/bb.edn
View file

@ -1 +1,2 @@
{:tasks {:eval-plus {:babashka/args ["-e" "(+ 1 2 3)"]}}}
{:tasks {:eval-plus {:babashka/args ["-e" "(+ 1 2 3)"]}
:tree {:babashka/args [":clojure" "-Stree"]}}}