clj: add type hints to reduce reflection

reduce reflection to
- make program easier to build on GraalVM
- improve performance

1 files changed, 15 insertions, 11 deletions

diff --git a/src/mf2clj/core.clj b/src/mf2clj/core.clj
index f049222..2d67e2f 100644
--- a/src/mf2clj/core.clj
+++ b/src/mf2clj/core.clj
@@ -5,23 +5,27 @@
   (:import [org.extism.sdk.chicory Manifest ManifestWasm Plugin]

            [java.nio.charset StandardCharsets]))

 

-(defn- manifest-from-wasm [wasm]

-  (Manifest/ofWasms (into-array ManifestWasm [wasm])))

-

 (def plugin

-  (-> "mf2go.wasm" io/resource io/input-stream .readAllBytes

-      ManifestWasm/fromBytes .build

-      manifest-from-wasm .build

-      Plugin/ofManifest .build))

+  (let [^ManifestWasm wasm-manifest

+        (-> "mf2go.wasm" io/resource io/input-stream .readAllBytes

+            ManifestWasm/fromBytes

+            .build)

+        ^Manifest manifest

+        (-> (into-array ManifestWasm [wasm-manifest])

+            Manifest/ofWasms

+            .build)]

+    (-> manifest

+        Plugin/ofManifest

+        .build)))

 

 (def charset StandardCharsets/UTF_8)

 

 (defn parse-bytes [html-bytes]

   {:pre [(bytes? html-bytes)]}

-  (-> (.call plugin "parse" html-bytes)

-      (String. charset)

-      json/parse-string

-      keywordize-keys))

+  (let [^bytes result (.call ^Plugin plugin "parse" html-bytes)]

+    (-> (String. result charset)

+        json/parse-string

+        keywordize-keys)))

 

 (defn parse [^String html-string]

   {:pre [(string? html-string)]}