handle string type hints

Author: borkdude

src/sci/impl/interop.cljc

@@ -161,8 +161,9 @@
 
 #?(:clj
    (defn resolve-type-hint [ctx sym]
-     (or (get prim->class sym)
-         (:class (resolve-class-opts ctx sym)))))
+     (if (string? sym) (Class/forName sym)
+         (or (get prim->class sym)
+             (:class (resolve-class-opts ctx sym))))))
 
 #?(:clj
    (def ->array-class

test/sci/interop_test.cljc

@@ -334,6 +334,8 @@
            (is (= 1 (tu/eval* "(let [j #js {:a (fn [] 1)}] (j.a))" nil)))))
 
 (deftest type-hint-test
+  (testing "string type hints"
+    (is (string? (sci/eval-string "(defn read-string [^\"[B\" v] (String. v)) (read-string \"1\")"))))
   (testing "type hinting with runnable returns nil on futuretask get"
     #?(:clj
        (let [config {:classes {'java.util.concurrent.Executors java.util.concurrent.Executors 'java.util.concurrent.ThreadPoolExecutor java.util.concurrent.ThreadPoolExecutor 'java.util.concurrent.Callable java.util.concurrent.Callable 'java.util.concurrent.FutureTask java.util.concurrent.FutureTask 'java.lang.Runnable java.lang.Runnable}}]