[new] Add experimental load-inline

src/taoensso/encore.cljc

@@ -5585,6 +5585,36 @@
 
 ;;;;
 
+#?(:clj
+   (defn ^:no-doc read-resource
+     "Private, don't use."
+     [rname]
+     (if-not [res (jio/resource rname)]
+       (throw
+         (ex-info (str "[encore/read-resource] Resource not found on classpath: " rname)
+           {:rname (typed-val rname)}))
+
+       (with-open [reader (java.io.PushbackReader. (jio/reader res))]
+         (loop [forms []]
+           (let [form (read reader false ::eof)]
+             (if (= form ::eof)
+               forms
+               (recur (conj forms form)))))))))
+
+#?(:clj
+   (defmacro ^:no-doc load-inline
+     "Private, don't use.
+     Injects Clojure/Script code from named resource on classpath:
+      #?(:clj  (load-inline \"my-code.clj\")
+         :cljs (load-inline \"my-code.cljs\"))"
+     [rname] `(do ~@(read-resource rname))))
+
+(comment
+  (run! eval (read-resource "taoensso/encore/bytes.clj"))
+  (load-inline              "taoensso/encore/bytes.clj"))
+
+;;;;
+
 #?(:clj
    (defn get-pom-version
      "Returns POM version string for given Maven dependency, or nil."

test/taoensso/encore_tests.cljc

@@ -245,6 +245,14 @@
      (is (= (c :=+ 2) 8))
      (is (= @c        10))]))
 
+;;;; Loading
+
+#?(:clj  (enc/load-inline "taoensso/encore_tests/loadme.clj")
+   :cljs (enc/load-inline "taoensso/encore_tests/loadme.cljs"))
+
+(deftest _load-inline
+  [(is (= (get-loaded) #?(:clj :clj, :cljs :cljs)))])
+
 ;;;; Reductions
 
 (deftest _reduce-zip

test/taoensso/encore_tests/loadme.clj

@@ -0,0 +1,4 @@
+
+(def loaded :clj)
+(defn get-loaded [] loaded)
+

test/taoensso/encore_tests/loadme.cljs

@@ -0,0 +1,3 @@
+
+(def loaded :cljs)
+(defn get-loaded [] loaded)