add Integer/parseInt

Author: bobbicodes

shadow-cljs.edn

@@ -8,4 +8,8 @@
    :modules {:sci {:exports {evalString lang-clojure-eval.main/eval-string
                              context lang-clojure-eval.main/context
                              isISOControl lang-clojure-eval.character/isISOControl
-                             isLetter lang-clojure-eval.character/isLetter}}}}}}
+                             isLetter lang-clojure-eval.character/isLetter
+                             ;; parseInt causes ReferenceError if exported,
+                             ;; but somehow works if it's not... why?
+                             ;parseInt lang-clojure-eval.integer/parse-int
+                             }}}}}}

src/lang_clojure_eval/character.cljs

@@ -3,7 +3,8 @@
 
 (defn isLetter [char]
   (and (= 1 (count (str char)))
-       (not= (str/upper-case char) (str/lower-case char))))
+       (not= (str/upper-case char) 
+             (str/lower-case char))))
 
 (defn isISOControl [char]
   (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/integer.cljs

@@ -0,0 +1,5 @@
+(ns lang-clojure-eval.integer
+  (:require [clojure.edn :as edn]))
+
+(defn parse-int [s]
+  (edn/read-string s))

src/lang_clojure_eval/main.cljs

@@ -2,6 +2,7 @@
   (:require [sci.core :as sci]
             [lang-clojure-eval.error :refer [error-handler]]
             [lang-clojure-eval.character :as char]
+            [lang-clojure-eval.integer :as int]
             [goog.string]
             [goog.string.format]
             [clojure.pprint :as pprint]
@@ -11,12 +12,15 @@
   (sci/init {:classes {'js goog/global
                        :allow :all}
              :namespaces {'clojure.core {'format goog.string/format}
-                          'lang-clojure-eval.character 
+                          'lang-clojure-eval.character
                           {'isISOControl char/isISOControl
-                           'isLetter char/isLetter}}}))
+                           'isLetter char/isLetter}
+                          'lang-clojure-eval.integer
+                          {'parseInt int/parse-int}}}))
 
 (defn eval-string [source]
-  (let [reqs "(require '[lang-clojure-eval.character :as Character])"]
+  (let [reqs "(require '[lang-clojure-eval.character :as Character]
+                       '[lang-clojure-eval.integer :as Integer])"]
     (try (binding [*print-length* 100]
            (with-out-str (pprint/pprint (sci/eval-string* context (str reqs source)))))
          (catch :default e