Fix some reflection and performamce warnings

sbsdev · Aug 28, 2024 · 8d7d542 · 8d7d542
1 parent 5b93a20
commit 8d7d542
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 8 deletions.
diff --git a/src/clj/daisyproducer2/hyphenate.clj b/src/clj/daisyproducer2/hyphenate.clj
@@ -28,11 +28,11 @@
   :stop
   (when hyphenators
     (doseq [[_ hyphenator] hyphenators]
-      (.close hyphenator))))
+      (.close ^Hyphenator hyphenator))))
 
 (defn- hyphenate*
   "Hyphenate given `text` using a given `hyphenator`"
-  [text hyphenator]
+  [text ^Hyphenator hyphenator]
   (if (string/blank? text)
     ""
     (.hyphenate hyphenator text \- nil)))

diff --git a/src/clj/daisyproducer2/louis.clj b/src/clj/daisyproducer2/louis.clj
@@ -29,7 +29,7 @@
   (let [tables-string (apply str (interpose \, tables))]
     (Translator. ^String tables-string)))
 
-(defn translate [word translator]
+(defn translate [word ^Translator translator]
   (let [length (count word)
         inter-character-attributes (int-array (repeat (- length 1) 0))]
     (try

diff --git a/src/clj/daisyproducer2/whitelists/tables.clj b/src/clj/daisyproducer2/whitelists/tables.clj
@@ -7,7 +7,8 @@
             [daisyproducer2.louis :as louis]
             [daisyproducer2.metrics :as metrics]
             [daisyproducer2.words :as words]
-            [iapetos.collector.fn :as prometheus]))
+            [iapetos.collector.fn :as prometheus])
+  (:import java.io.BufferedWriter))
 
 (def ascii-to-dots
   {\A "1"
@@ -184,7 +185,7 @@
         document-extension (if identifier (str "-" identifier) "")]
     (format "%s/sbs-de-%s-white%s.mod" tables-dir key document-extension)))
 
-(defn write-table [w grade translate words]
+(defn write-table [^BufferedWriter w grade translate words]
   (doseq [{:keys [untranslated uncontracted contracted homograph-disambiguation] :as word} words]
     (let [untranslated (if (words/is-homograph? word)
                          (string/replace homograph-disambiguation "|" words/braille-dummy-text)

diff --git a/src/clj/daisyproducer2/words.clj b/src/clj/daisyproducer2/words.clj
@@ -76,7 +76,7 @@
       (assoc :contracted (louis/translate untranslated (louis/translator (louis/get-tables 2 params)))))))
 
 (defn grades [grade]
-  (case grade ; convert grade into a list of grades
+  (case (int grade) ; convert grade into a list of grades
     (1 2) [grade] ; for grade 1 and 2 the list contains just that grade
     0 [1 2])) ; grade 0 really means both grades
 
@@ -104,7 +104,7 @@
       (rename-keys mapping)))
 
 (defn- value-to-boolean [v]
-  (case v
+  (case (int v)
     1 true
     0 false
     v))

diff --git a/src/clj/daisyproducer2/words/confirm.clj b/src/clj/daisyproducer2/words/confirm.clj
@@ -41,7 +41,7 @@
             ;; do the deletion using the old type, otherwise we will
             ;; not find it.
             type (:type word)
-            old-type (case type
+            old-type (case (int type)
                        1 2 ; if :type-name-hoffmann it was previously :type-name
                        3 4 ; if :type-place-langenthal it was previously :type-place
                        type)