Add support for :require-global (#1016)

Author: borkdude

CHANGELOG.md

@@ -20,7 +20,7 @@ SCI is used in [babashka](https://github.com/babashka/babashka),
   record basis field.
 - Fix [#1011](https://github.com/babashka/sci/issues/1011): reset ns metadata when evaluating ns form multiple times
 - Fix for https://github.com/babashka/babashka/issues/1899
-- Add support for `:refer-global`
+- Add support for `:refer-global` and `:require-global`
 
 ## 0.10.49 (2025-08-22)
 

src/sci/impl/analyzer.cljc

@@ -1206,14 +1206,16 @@
       (if exprs
         (let [[k & args :as expr] (first exprs)]
           (case k
-            (:require #?(:cljs :require-macros) :use :import :refer-clojure #?(:cljs :refer-global))
+            (:require #?(:cljs :require-macros) :use :import :refer-clojure #?(:cljs :refer-global)
+                      #?(:cljs :require-global))
             (recur (next exprs)
                    (conj ret
                          (return-ns-op
                           ctx (case k
                                 :require load/eval-require
                                 #?@(:cljs [:require-macros load/eval-require-macros])
                                 #?@(:cljs [:refer-global load/eval-refer-global])
+                                #?@(:cljs [:require-global load/eval-require-global])
                                 :use load/eval-use
                                 :import eval/eval-import
                                 :refer-clojure (fn [ctx & args]

src/sci/impl/load.cljc

@@ -328,6 +328,24 @@
                               only)))
      nil))
 
+#?(:cljs
+   (defn eval-require-global
+     [ctx & clauses]
+     (swap! (:env ctx)
+            (fn [env]
+              (reduce (fn [env clause]
+                        (let [[lib-name & opts] clause
+                              [lib-name path] (lib+path (str lib-name))
+                              opts (apply hash-map opts)]
+                          (if-let [obj (some-> (get-in env [:class->opts 'js :class])
+                                               (aget lib-name))]
+                            (handle-js-lib env (assoc opts :path path) lib-name (utils/current-ns-name) obj)
+                            (throw-error-with-location (str "Unresolved global: " lib-name)
+                                                       lib-name))))
+                      env
+                      clauses)))
+     nil))
+
 (defn eval-use
   [ctx & args]
   (load-libs ctx :use args))

src/sci/impl/namespaces.cljc

@@ -616,14 +616,23 @@
   (apply load/eval-use (store/get-ctx) args))
 
 #?(:cljs
-   (defn refer-global* [_ _ & args]
-     (let [args (map (fn [x]
-                       (if (and (seq? x)
-                                (= 'quote (first x)))
-                         (second x)
-                         x))
-                     args)]
-       (apply load/eval-refer-global (store/get-ctx) args))))
+   (do (defn refer-global* [_ _ & args]
+         (let [args (map (fn [x]
+                           (if (and (seq? x)
+                                    (= 'quote (first x)))
+                             (second x)
+                             x))
+                         args)]
+           (apply load/eval-refer-global (store/get-ctx) args)))
+
+       (defn require-global* [_ _ & args]
+         (let [args (map (fn [x]
+                           (if (and (seq? x)
+                                    (= 'quote (first x)))
+                             (second x)
+                             x))
+                         args)]
+           (apply load/eval-require-global (store/get-ctx) args)))))
 
 (defn sci-resolve*
   ([sci-ctx sym]
@@ -1564,7 +1573,9 @@
      'refer (copy-var sci-refer clojure-core-ns {:name 'refer})
      'refer-clojure (macrofy 'refer-clojure sci-refer-clojure)
      #?@(:cljs ['refer-global (copy-var refer-global* clojure-core-ns {:macro true
-                                                                       :copy-meta-from 'cljs.core/refer-global})])
+                                                                       :copy-meta-from 'cljs.core/refer-global})
+                'require-global (copy-var require-global* clojure-core-ns {:macro true
+                                                                           :copy-meta-from 'cljs.core/require-global})])
      're-find (copy-core-var re-find)
      #?@(:clj ['re-groups (copy-core-var re-groups)])
      're-pattern (copy-core-var re-pattern)

test/sci/global_test.cljs

@@ -1,21 +1,39 @@
 (ns sci.global-test
-  (:require [clojure.test :as t :refer [deftest is testing]]
+  (:require [clojure.test :as t :refer [deftest is]]
             [sci.core :as sci]))
 
 (deftest refer-global-test
-  (testing "init"
-    (let [ctx #(sci/init {:classes {'js js/globalThis}})]
-      (sci/binding [sci/ns sci/ns]
-        (is (true?
-             (sci/eval-form (ctx) '(do (refer-global :only '[String])
-                                       (instance? String (new String "foo"))))))
-        (is (true?
-             (sci/eval-form (ctx) '(do (ns foo (:refer-global :only [String]))
-                                       (instance? String (new String "foo"))))))
-        (is (true?
-             (sci/eval-form (ctx) '(do (ns foo (:refer-global :only [String] :rename {String Str}))
-                                       (instance? Str (new Str "foo") ))))))
-      (is (thrown? js/Error
-                   (sci/eval-string* (ctx)
-                                     "(ns foo (:refer-global :only [String] :rename {String Str}))
-                                      (instance? String (new String \"foo\"))"))))))
+  (let [ctx #(sci/init {:classes {'js js/globalThis}})]
+    (sci/binding [sci/ns sci/ns]
+      (is (true?
+           (sci/eval-form (ctx) '(do (refer-global :only '[String])
+                                     (instance? String (new String "foo"))))))
+      (is (true?
+           (sci/eval-form (ctx) '(do (ns foo (:refer-global :only [String]))
+                                     (instance? String (new String "foo"))))))
+      (is (true?
+           (sci/eval-form (ctx) '(do (ns foo (:refer-global :only [String] :rename {String Str}))
+                                     (instance? Str (new Str "foo") ))))))
+    (is (thrown? js/Error
+                 (sci/eval-string* (ctx)
+                                   "(ns foo (:refer-global :only [String] :rename {String Str}))
+                                      (instance? String (new String \"foo\"))")))))
+
+(deftest require-global-test
+  (let [ctx #(sci/init {:classes {'js js/globalThis}})]
+    (sci/binding [sci/ns sci/ns]
+      (is (true?
+           (sci/eval-form (ctx) '(do (require-global '[String :as Str])
+                                     (instance? Str (new Str "foo"))))))
+      (is (true?
+           (sci/eval-string* (ctx) "(ns foo (:require-global [String :as Str]))
+                                    (instance? Str (new Str \"foo\"))")))
+      (is (true?
+           (sci/eval-string* (ctx) "(ns foo (:require-global [\"String\" :as Str]))
+                                    (instance? Str (new Str \"foo\"))")))
+      (is (true?
+           (sci/eval-string* (ctx) "(ns foo (:require-global [String]))
+                                    (instance? String (new String \"foo\"))")))
+      (is (true?
+           (sci/eval-string* (ctx) "(ns foo (:require-global [\"String\"]))
+                                    (instance? String (new String \"foo\"))"))))))