1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

#!/bin/sh
#_(
exec "$(dirname "$0")/bb" "$0" "$@"
)

;; The app, with the native libraries `just lib` linked into build/lib on the
;; loader path. Those are jolt-native's release, fetched by digest; nothing
;; here looks for a checkout of it.
(require '[babashka.fs :as fs]
         '[babashka.process :as p])

(def root (str (fs/canonicalize (fs/path (fs/parent *file*) ".."))))

(System/exit
 (:exit @(apply p/process
                {:inherit true
                 :extra-env {"LD_LIBRARY_PATH"
                             (str (fs/path root "build" "lib"))}}
                "jolt" "-M:frq" *command-line-args*)))