gered/clj-rhino
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add clojure function to easily toggle dynamic scope creation on/off

Browse source
This commit is contained in:
Gered 2014-02-20 18:10:22 -05:00
parent e0ecb7e62b
commit 19aab9c19d
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/clj_rhino.clj
View file

@ -2,7 +2,7 @@
(:refer-clojure :exclude (eval get get-in set!)) (:refer-clojure :exclude (eval get get-in set!))
(:import [org.mozilla.javascript Context UniqueTag NativeArray NativeObject (:import [org.mozilla.javascript Context UniqueTag NativeArray NativeObject
BaseFunction] BaseFunction]
[org.marianoguerra.rhino TimedContextFactory])) [org.marianoguerra.rhino TimedContextFactory DynamicScopeContextFactory]))
(defprotocol RhinoConvertible (defprotocol RhinoConvertible
(-to-rhino [object scope ctx] "convert a value to a rhino compatible type")) (-to-rhino [object scope ctx] "convert a value to a rhino compatible type"))
@ -11,6 +11,11 @@
(-from-rhino [object] (-from-rhino [object]
"convert a value from rhino to a more clojure friendly representation")) "convert a value from rhino to a more clojure friendly representation"))
(defn toggle-dynamic-scope! [enable]
"enables/disables creation of either 'normal' scopes or dynamic scopes. this
will only affect scopes that are created after calling this function."
(DynamicScopeContextFactory/toggleDynamicScopeCreation enable))
(defn with-context [fun] (defn with-context [fun]
"create a context call fun with it and safelly exit the context" "create a context call fun with it and safelly exit the context"
(let [ctx (Context/enter)] (let [ctx (Context/enter)]