Added function to load many resources into a scope in rhino.

src/clj_coffeescript/compiler.clj

@@ -1,26 +1,20 @@
 (ns clj-coffeescript.compiler
-  (:use clj-coffeescript.rhino)
-  (:import  [java.io InputStreamReader]))
-
-(defn get-resource [uri]
-  (.getResourceAsStream (clojure.lang.RT/baseLoader) uri))
-
-(defn get-resource-as-stream [uri]
-  (let [resource (get-resource uri)]
-    (InputStreamReader. resource "UTF-8")))
+  (:use clj-coffeescript.rhino))
 
 (defn build-compiler []
-  (with-open [compiler (get-resource-as-stream "coffee-script.js")]
-    (with-context [ctx]
-      (set-context-interpreted ctx) ;; avoid 64kb src limit
-      (let [compiler-scope (build-scope)]
-        (load-stream compiler "coffee-script.js" compiler-scope ctx)
-        compiler-scope))))
+  (with-context [ctx]
+    (set-context-interpreted ctx) ;; avoid 64kb src limit
+    (let [compiler-scope (build-scope)]
+      ;; load the coffeescript compiler
+      (load-resources ["coffee-script.js"] compiler-scope ctx)
+      compiler-scope)))
 
 (defn compile-string [compiler-scope src & bare?]
   (let [scope (build-scope compiler-scope)]
     (with-context [ctx]
+      ;; load the script to compile into a variable
       (set-named-property "coffeeScriptSource" src compiler-scope scope)
+      ;; compile the contents of the variable
       (evaluate-string (format "CoffeeScript.compile(coffeeScriptSource, {bare: %s});" bare?)
                        "clj-coffeescript"
                        scope

src/clj_coffeescript/rhino.clj

@@ -1,5 +1,6 @@
 (ns clj-coffeescript.rhino
-  (:import [org.mozilla.javascript Context]))
+  (:import [org.mozilla.javascript Context]
+           [java.io InputStreamReader]))
 
 (defmacro with-context [[ctx] & body]
   `(try (let [~ctx (Context/enter)]
@@ -9,6 +10,13 @@
 (defn set-context-interpreted [ctx]
   (.setOptimizationLevel ctx -1))
 
+(defn get-resource [uri]
+  (.getResourceAsStream (clojure.lang.RT/baseLoader) uri))
+
+(defn get-resource-as-stream [uri]
+  (let [resource (get-resource uri)]
+    (InputStreamReader. resource "UTF-8")))
+
 (defn build-scope
   ([]
      (with-context [ctx]
@@ -20,11 +28,18 @@
          (.setParentScope new-scope parent)
          new-scope))))
 
+(defn load-resources [resources scope ctx]
+  (let [load-resource (fn [uri]
+                        (with-open [stream (get-resource-as-stream uri)]
+                          (load-stream stream uri scope ctx )))]
+    (doall (map load-resource resources))))
+
 (defn load-stream
   ([stream file-name scope]
      (with-context [ctx]
        (load-stream stream file-name scope ctx)))
   ([stream file-name scope ctx]
+     (println ctx scope stream file-name)
      (.evaluateReader ctx scope stream file-name 0 nil)
      (println file-name " loaded.")))