Reflect scripts as bb tasks (#63)

Co-authored-by: ikappaki <[email protected]>

.circleci/config.yml

@@ -24,10 +24,15 @@ jobs:
             wget -nc https://download.clojure.org/install/linux-install-1.10.3.998.sh
             chmod +x linux-install-1.10.3.998.sh
             sudo ./linux-install-1.10.3.998.sh
+      - run:
+          name: Install babashka
+          command: |
+            bash <(curl -s https://raw.githubusercontent.com/borkdude/babashka/master/install) --dir ~
+            sudo mv ~/bb /usr/local/bin/bb
       - run:
           name: Run JVM tests
           command: |
-            script/jvm_test
+            bb jvm-test
       - save_cache:
           paths:
             - ~/.m2
@@ -64,7 +69,7 @@ jobs:
       - run:
           name: Run babashka tests
           command: |
-            script/babashka_test
+            bb babashka-test
       - save_cache:
           paths:
             - ~/.m2
@@ -89,6 +94,11 @@ jobs:
             wget https://download.clojure.org/install/linux-install-1.10.3.998.sh
             chmod +x linux-install-1.10.3.998.sh
             sudo ./linux-install-1.10.3.998.sh
+      - run:
+          name: Install babashka
+          command: |
+            bash <(curl -s https://raw.githubusercontent.com/borkdude/babashka/master/install) --dir ~
+            sudo mv ~/bb /usr/local/bin/bb
       - run:
           name: Install lsof
           command: |
@@ -106,15 +116,16 @@ jobs:
               curl -O -sL https://github.com/graalvm/graalvm-ce-builds/releases/download/vm-21.0.0.2/graalvm-ce-java11-linux-amd64-21.0.0.2.tar.gz
               tar xzf graalvm-ce-java11-linux-amd64-21.0.0.2.tar.gz
             fi
+            "$GRAALVM_HOME/bin/gu" install native-image || true
       - run:
           name: Build binary
           command: |
-            script/compile
+            bb compile
           no_output_timeout: 30m
       - run:
           name: Run tests
           command: |
-            script/exe_test
+            bb exe-test
       - run:
           name: Release
           command: |
@@ -142,6 +153,11 @@ jobs:
           name: Install Clojure
           command: |
             .circleci/script/install-clojure /usr/local
+      - run:
+          name: Install babashka
+          command: |
+            bash <(curl -s https://raw.githubusercontent.com/borkdude/babashka/master/install) --dir ~
+            sudo mv ~/bb /usr/local/bin/bb
       - run:
           name: Install Leiningen
           command: |
@@ -155,15 +171,16 @@ jobs:
               curl -O -sL https://github.com/graalvm/graalvm-ce-builds/releases/download/vm-21.0.0.2/graalvm-ce-java11-darwin-amd64-21.0.0.2.tar.gz
               tar xzf graalvm-ce-java11-darwin-amd64-21.0.0.2.tar.gz
             fi
+            "$GRAALVM_HOME/bin/gu" install native-image || true
       - run:
           name: Build binary
           command: |
-            script/compile
+            bb compile
           no_output_timeout: 30m
       - run:
           name: Run tests
           command: |
-            script/exe_test
+            bb exe-test
       - run:
           name: Release
           command: |

.gitignore

@@ -5,3 +5,7 @@
 /.clj-kondo/.cache
 /deps
 /deps.build_artifacts.txt
+
+# Emacs
+*~
+\#*\#

appveyor.yml

@@ -20,6 +20,11 @@ build_script:
 
     call lein self-install
 
+- cmd: >-
+    powershell -Command "if (Test-Path('bb.exe')) { return } else { (New-Object Net.WebClient).DownloadFile('https://github.com/babashka/babashka/releases/download/v0.9.162/babashka-0.9.162-windows-amd64.zip', 'bb.zip') }"
+
+    powershell -Command "if (Test-Path('bb.exe')) { return } else { Expand-Archive bb.zip . }"
+
 - cmd: >-
     call lein do clean, uberjar
 
@@ -34,11 +39,13 @@ build_script:
 
     powershell -Command "if (Test-Path('graalvm')) { return } else { Expand-Archive graalvm.zip graalvm }"
 
-    call script/compile.bat
+    %GRAALVM_HOME%\bin\gu.cmd install native-image
+
+    bb compile
 
 test_script:
 - cmd: >-
-    call script/exe_test.bat
+    bb exe-test
     
 artifacts:
 - path: deps.clj-*-windows-amd64.zip

bb.edn

@@ -1,16 +1,37 @@
-{:paths ["resources"]
+{:paths ["resources" "bb"]
 
  :tasks
  {:requires [[babashka.deps :as deps]
-             [babashka.process :as p]]
+             [babashka.fs :as fs]
+             [babashka.process :as p]
+             [clojure.string :as str]]
 
+  compile tasks/compile-native
+
+  bump-version (load-file "script/bump_version.clj")
+  changelog    (load-file "script/changelog.clj")
   gen-script {:doc "Regen `./deps[.clj|.bat]` from `src/borkdude/deps.clj`."
               :task (load-file "script/gen_script.clj")}
 
-  test {:doc "Run all tests."
-        :task
-        (doseq [args '[[-M:test] [-M -m borkdude.deps -M:test]]]
-          (println :testing... 'clojure args)
-          (-> (deps/clojure args)
-              p/check)
-          (println))}}}
+  babashka-test {:doc "Run tests with bb calling to bb deps lib."
+                 :task (let [bb (str \" (.get (.command (.info (java.lang.ProcessHandle/current)))) \")]
+                         (p/shell {:extra-env {"DEPS_CLJ_TEST_ENV" "babashka"}}
+                                  bb "-cp" (str/join fs/path-separator ["src" "test" "resources"])
+                                  "-e" "(require '[clojure.test :as t] '[borkdude.deps-test])"
+                                  "-e" "(let [{:keys [:fail :error]} (t/run-tests 'borkdude.deps-test)] (System/exit (+ fail error)))"))}
+
+  exe-test {:doc "Run tests with deps exec calling to deps exec."
+            :task (p/shell {:extra-env {"DEPS_CLJ_TEST_ENV" "native"}}
+                           (if (fs/windows?) "./deps.exe" "./deps") "-M:test")}
+
+  jvm-clj-test {:doc "Run tests with clojure calling to clojure deps lib."
+                :task (-> (deps/clojure '[-M:test])
+                          p/check)}
+  jvm-deps-test {:doc "Run tests with clojure deps lib calling to clojure deps lib."
+                 :task (-> (deps/clojure '[-M -m borkdude.deps -M:test])
+                           p/check)}
+  jvm-test {:doc "Run both jvm-clj-test and jvm-deps-test."
+            :task (doseq [task '[jvm-clj-test jvm-deps-test]]
+                    (println :running... task)
+                    (run task)
+                    (println))}}}

bb/tasks.clj

@@ -0,0 +1,41 @@
+(ns tasks
+  (:require [babashka.fs :as fs]
+            [babashka.process :as p]))
+
+(defn compile-native
+  "Compile library to standalone jar and a native executable program.
+  It requires both leiningen and graalvm to be installed.
+
+  It expects to find the graalvm home path in the GRAALVM_HOME env
+  var, while searches for leiningen first in cwd, and then, if not
+  found, in PATH."
+  []
+  (let [graalvm-home (or (System/getenv "GRAALVM_HOME")
+                         (throw (Exception. "Please set GRAALVM_HOME.")))
+        java-home (str (fs/path graalvm-home "bin"))
+        lein (let [lein (cond-> "./lein" (fs/windows?) (str ".bat"))]
+               (str (or (if (fs/executable? lein) lein (fs/which "lein"))
+                        (throw (Exception. "Cannot find lein in the cwd or in PATH.")))))
+        deps-clj-version (slurp "resources/DEPS_CLJ_VERSION")]
+    (println "Building deps " deps-clj-version)
+    (println :lein lein :graalvm-home graalvm-home :java-home java-home)
+    (p/shell lein "deps.clj" "-Spath" "-Sdeps" "{:deps {borkdude/deps.clj {:mvn/version \"0.0.1\"}}}")
+    (p/shell (str lein " with-profiles +native-image do clean, uberjar"))
+    (let [native-image (str (fs/path graalvm-home "bin"
+                                     (if (fs/windows?) "native-image.cmd" "native-image")))]
+      (p/shell native-image "-jar" (format "target/deps.clj-%s-standalone.jar" deps-clj-version)
+               "-H:Name=deps"
+               "-H:+ReportExceptionStackTraces"
+               "-J-Dclojure.spec.skip-macros=true"
+               "-J-Dclojure.compiler.direct-linking=true"
+               "-H:IncludeResources=DEPS_CLJ_VERSION"
+               "--initialize-at-build-time"
+               "-H:Log=registerResource:"
+               "-H:EnableURLProtocols=http,https"
+               "--enable-all-security-services"
+               "--no-fallback"
+               "--verbose"
+               "--no-server"
+               "-J-Xmx3g"))
+    (p/shell lein "clean")
+    (p/shell "./deps" "-Spath" "-Sdeps" "{:deps {borkdude/deps.clj {:mvn/version \"0.0.1\"}}}")))