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

wip

Browse source
This commit is contained in:
Michiel Borkent 2020-10-22 13:15:02 +02:00
parent a29855d48e
commit 71004ef2b1
3 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
deps.edn
View file

@ -26,7 +26,8 @@
datascript/datascript {:mvn/version "1.0.1"} datascript/datascript {:mvn/version "1.0.1"}
http-kit/http-kit {:mvn/version "2.5.0"} http-kit/http-kit {:mvn/version "2.5.0"}
babashka/clojure-lanterna {:mvn/version "0.9.8-SNAPSHOT"} babashka/clojure-lanterna {:mvn/version "0.9.8-SNAPSHOT"}
org.clojure/math.combinatorics {:mvn/version "0.1.6"}} org.clojure/math.combinatorics {:mvn/version "0.1.6"}
mvxcvi/puget {:mvn/version "1.3.1"}}
:aliases {:main :aliases {:main
{:main-opts ["-m" "babashka.main"]} {:main-opts ["-m" "babashka.main"]}
:profile :profile

3
project.clj
View file

@ -21,7 +21,8 @@
[cheshire "5.10.0"] [cheshire "5.10.0"]
[nrepl/bencode "1.1.0"] [nrepl/bencode "1.1.0"]
[borkdude/sci.impl.reflector "0.0.1-java11"] [borkdude/sci.impl.reflector "0.0.1-java11"]
[org.clojure/math.combinatorics "0.1.6"]] [org.clojure/math.combinatorics "0.1.6"]
[mvxcvi/puget "1.3.1"]]
:profiles {:feature/xml {:source-paths ["feature-xml"] :profiles {:feature/xml {:source-paths ["feature-xml"]
:dependencies [[org.clojure/data.xml "0.2.0-alpha6"]]} :dependencies [[org.clojure/data.xml "0.2.0-alpha6"]]}
:feature/yaml {:source-paths ["feature-yaml"] :feature/yaml {:source-paths ["feature-yaml"]

5
src/babashka/main.clj
View file

@ -38,7 +38,8 @@
[sci.core :as sci] [sci.core :as sci]
[sci.impl.namespaces :as sci-namespaces] [sci.impl.namespaces :as sci-namespaces]
[sci.impl.unrestrict :refer [*unrestricted*]] [sci.impl.unrestrict :refer [*unrestricted*]]
[sci.impl.vars :as vars]) [sci.impl.vars :as vars]
[puget.printer :as puget])
(:gen-class)) (:gen-class))
(def windows? (def windows?
@ -614,7 +615,7 @@ If neither -e, -f, or --socket-repl are specified, then the first argument that
:while (not (pipe-signal-received?))] :while (not (pipe-signal-received?))]
(pr-f l)) (pr-f l))
(pr-f res)) (pr-f res))
(prn res)))) 0]] (#_prn puget/cprint res)))) 0]]
(if stream? (if stream?
(recur) (recur)
res))))) res)))))