:require-global

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/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\"))"))))))