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

wip [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2021-03-17 16:59:33 +01:00
parent 644634be1d
commit 1160f44d22
2 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/babashka/main.clj
View file

@ -474,6 +474,13 @@ Use -- to separate script command line args from bb command line args.
options)
parsed (map parse-opts options)]
{:do parsed})
(":invoke")
{:exec-src
(pr-str `(do (if-let [f (requiring-resolve (symbol (first *command-line-args*)))]
(apply f (rest *command-line-args*))
(throw (Exception. (str "Var not found: " (first *command-line-args*)
" " (babashka.classpath/get-classpath)))))))
:command-line-args (next options)}
;; fallback
(if (some opts-map [:file :jar :socket-repl :expressions :main])
(assoc opts-map
@ -517,15 +524,7 @@ Use -- to separate script command line args from bb command line args.
[nil
(-> (p/process args {:inherit true})
p/check
:exit)])})
:fn
(let [var (get task :var)
var-sym (symbol var)]
{:exec-src (pr-str `(do (if-let [f (requiring-resolve '~var-sym)]
(apply f *command-line-args*)
(throw (Exception. (str "Var not found: " '~var-sym
" " (babashka.classpath/get-classpath)))))))
:command-line-args command-line-args}))
:exit)])}))
(error (str "No such task: " task) 1))
(error (str "File does not exist: " task) 1)))

4
test-resources/bb.edn
View file

@ -1,8 +1,8 @@
{:paths ["test-resources/bb-edn"]
:tasks {:count-files {:task/type :shell
:args ["bash" "-c" "ls | wc -l"]}
:bash {:task/type :fn
:var user/bash}
:bash {:task/type :babashka
:args [:invoke user/bash]}
:eval-plus {:task/type :babashka
:args [-e (apply + (map (fn [i]
(Integer/parseInt i))