Partially working GraalVM native image

Investigation to determine if GraalVM can be used to fix #33. So that Clojure/Java impl of data.xml is used instead of ClojureScript. Using Clojure 1.10.2-alpha1 and spec-tools 0.10.0 Using xfthhxk fix for luchiniatwork/cambada#9 Working for files that don't exist (Traktor to Rekordbox) Error for files that exist, from mp3-parser (Traktor to Rekordbox) Error for all files? (Rekordbox to Traktor)
digital-dj-tools · Jul 29, 2020 · dc8c4c9 · dc8c4c9
1 parent b387a3e
commit dc8c4c9
Show file tree

Hide file tree

Showing 23 changed files with 41 additions and 2 deletions.
diff --git a/deps.edn b/deps.edn
@@ -1,6 +1,6 @@
 {:paths ["src"]
  :deps
- {org.clojure/clojure {:mvn/version "1.10.1"}
+ {org.clojure/clojure {:mvn/version "1.10.2-alpha1"}
   org.clojure/clojurescript {:mvn/version "1.10.520"}
   camel-snake-kebab {:mvn/version "0.4.0"}
   cljc.java-time {:mvn/version "0.1.6"}
@@ -13,7 +13,7 @@
   org.clojure/data.xml {:mvn/version "0.2.0-alpha6"}
   org.clojure/data.zip {:mvn/version "0.1.3"}
   org.clojure/tools.cli {:mvn/version "0.4.2"}
-  metosin/spec-tools {:mvn/version "0.9.3"}
+  metosin/spec-tools {:mvn/version "0.10.0"}
   com.cemerick/url {:mvn/version "0.1.1" :exclusions [com.cemerick/clojurescript.test]}
   tick {:mvn/version "0.4.19-alpha"
         :exclusions [cljsjs/js-joda
@@ -32,6 +32,23 @@
                                                              :sha "cb96e80f6f3d3b307c59cbeb49bb0dcb3a2a780b"}}
                      :main-opts ["-m" "cognitect.test-runner"
                                  "-i" ":profile"]}
+           :uberjar {:extra-deps {luchiniatwork/cambada {:git/url "https://github.com/xfthhxk/cambada.git"
+                                                         :sha "c8a01477c856fc28c53f34aa3f268f8eaf683869"}}
+                     :main-opts ["-m" "cambada.uberjar"
+                                 "-m" "converter.cli"]}
+           :native-image {:extra-deps {luchiniatwork/cambada {:git/url "https://github.com/xfthhxk/cambada.git"
+                                                              :sha "c8a01477c856fc28c53f34aa3f268f8eaf683869"}}
+                          :main-opts ["-m" "cambada.native-image"
+                                      "-m" "converter.cli"
+                                      "--graalvm-opt" 
+                                      "-verbose"
+                                      "--graalvm-opt"
+                                      "-allow-incomplete-classpath"
+                                      "--graalvm-opt"
+                                      "-report-unsupported-elements-at-runtime"
+                                      "--graalvm-opt"
+                                      "J-Xmx8g"]
+                          :jvm-opts ["-Dclojure.compiler.direct-linking=true"]}
            :test-cljs {:extra-deps {olical/cljs-test-runner {:mvn/version "3.7.0"}}
                        :main-opts ["-m" "cljs-test-runner.main"
                                    "-e" ":profile"]}

diff --git a/src/converter/app.cljc b/src/converter/app.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.app
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/cli.cljc b/src/converter/cli.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.cli
   (:require
    #?(:cljs [cljs.nodejs :as nodejs])

diff --git a/src/converter/config.cljc b/src/converter/config.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.config
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/error.cljc b/src/converter/error.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.error
   (:require
    #?(:cljs [cljs-node-io.core :as io :refer [spit]])

diff --git a/src/converter/offset.cljc b/src/converter/offset.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.offset
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/progress.cljc b/src/converter/progress.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.progress)
 
 (defn dots-println

diff --git a/src/converter/rekordbox/core.cljc b/src/converter/rekordbox/core.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.rekordbox.core
   (:require
    [camel-snake-kebab.core :as csk]

diff --git a/src/converter/rekordbox/position_mark.cljc b/src/converter/rekordbox/position_mark.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.rekordbox.position-mark
   (:require
    [camel-snake-kebab.core :as csk]

diff --git a/src/converter/rekordbox/tempo.cljc b/src/converter/rekordbox/tempo.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.rekordbox.tempo
   (:require
    [camel-snake-kebab.core :as csk]

diff --git a/src/converter/spec.cljc b/src/converter/spec.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.spec
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/str.cljc b/src/converter/str.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.str
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/time.cljc b/src/converter/time.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.time
   (:require
    [cljc.java-time.local-date :as jtld]

diff --git a/src/converter/traktor/album.cljc b/src/converter/traktor/album.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.traktor.album
   (:require #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])))
 

diff --git a/src/converter/traktor/core.cljc b/src/converter/traktor/core.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.traktor.core
   (:require
    [clojure.data.zip.xml :as zx]

diff --git a/src/converter/traktor/cue.cljc b/src/converter/traktor/cue.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.traktor.cue
   (:require
    [clojure.data.zip.xml :as zx]

diff --git a/src/converter/traktor/location.cljc b/src/converter/traktor/location.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.traktor.location
   (:require
    [cemerick.url :refer [url url-encode url-decode]]

diff --git a/src/converter/traktor/nml.cljc b/src/converter/traktor/nml.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.traktor.nml
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/universal/core.cljc b/src/converter/universal/core.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.universal.core
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/universal/marker.cljc b/src/converter/universal/marker.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.universal.marker
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/universal/tempo.cljc b/src/converter/universal/tempo.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.universal.tempo
   (:require
    #?(:clj [clojure.spec.alpha :as s] :cljs [cljs.spec.alpha :as s])

diff --git a/src/converter/url.cljc b/src/converter/url.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.url
   (:require
    [cemerick.url :as url]

diff --git a/src/converter/xml.cljc b/src/converter/xml.cljc
@@ -1,3 +1,4 @@
+(set! *warn-on-reflection* true)
 (ns converter.xml
   (:require
    #?(:cljs [converter.xmldom])