https://github.com/marianoguerra/clj-rhino

simple api to use rhino from clojure
https://github.com/marianoguerra/clj-rhino

Last synced: 7 days ago
JSON representation

simple api to use rhino from clojure

• Host: GitHub
• URL: https://github.com/marianoguerra/clj-rhino
• Owner: marianoguerra
• Created: 2013-01-08T16:01:45.000Z (almost 12 years ago)
• Default Branch: master
• Last Pushed: 2016-04-15T14:29:54.000Z (over 8 years ago)
• Last Synced: 2024-04-24T15:26:19.149Z (7 months ago)
• Language: Clojure
• Size: 18.6 KB
• Stars: 16
• Watchers: 3
• Forks: 3
• Open Issues: 1
• Metadata Files:
  • Readme: README.rest

Awesome Lists containing this project

README

        
clj-rhino

=========

a nice wrapper to handle rhino from clojure

who?

----

marianoguerra

why?

----

the java api for rhino is not really nice

how?

----

go to clojars page for instructions:

https://clojars.org/org.marianoguerra/clj-rhino

you can see the tests for some usage, here are some REPL examples::

        user=> (require '[clj-rhino :as js])

        nil

        user=> (def sc (js/new-safe-scope))

        #'user/sc

        user=> (js/eval sc "1 + 1")

        2

        user=> (js/eval sc "a = 1 + 1")

        2

        user=> (js/get sc "a")

        2

        user=> (js/get sc "b")

        #

        user=> (js/undefined? (js/get sc "b"))

        true

        user=> (js/get sc "b" :w00t?)

        :w00t?

        user=> (js/defined? (js/get sc "b"))

        false

        user=> (js/set! sc "b" 42)

        nil

        user=> (js/defined? (js/get sc "b"))

        true

        user=> (js/get sc "b" :w00t?)

        42

        user=> (js/eval sc "a = {name: 'spongebob'}")

        #

        user=> (js/get-in sc [:a :name])

        "spongebob"

        user=> (js/get-in sc [:a :age])

        #

        user=> (js/get-in sc [:a :age] :dont-know)

        :dont-know

        user=> (def compiled-fun (js/compile-function sc "function (a, b) { return a + b; }" :filename "foo.js"))

        #'user/compiled-fun

        user=> (js/set! sc "add" compiled-fun)

        nil

        user=> (js/eval sc "add(1, 3)")

        4.0

handy convertions::

        user=> (def get-field (js/compile-function sc "function getField(obj, field) { return obj[field]; }"))

        #'user/get-field

        user=> (js/set! sc "getField" get-field)

        nil

        user=> (js/set! sc "obj" (js/with-context #(js/to-js {:name "spongebob"} sc %)))

        nil

        user=> (js/eval sc "getField(obj, 'name')")

        "spongebob"

        user=> (js/eval sc "o = {name: 'spongebob', friends: ['patrick', 'sandy']};")

        #

        user=> (js/from-js (js/eval sc "o = {name: 'spongebob', friends: ['patrick', 'sandy']};"))

        {:friends ["patrick" "sandy"], :name "spongebob"}

exposing clojure functions to rhino::

        user=> (require '[clj-rhino :as js])

        nil

        user=> (defn add [ctx scope this [a b]] (+ a b))

        #'user/add

        user=> (def scope (js/new-safe-scope))

        #'user/scope

        user=> (js/set! scope "add" (js/make-fn add))

        nil

        user=> (js/eval scope "add(1, 2)")

        3.0

exposing objects with functions::

        user=> (require '[clj-rhino :as js])

        nil

        user=> (defn add [ctx scope this [a b]] (+ a b))

        #'user/add

        user=> (defn mul [ctx scope this [a b]] (* a b))

        #'user/mul

        user=> (def scope (js/new-safe-scope))

        #'user/scope

        user=> (def api {:add add :multiply mul})

        #'user/api

        user=> (js/with-context (fn [ctx]

          #_=>   (js/set! scope "api" (js/to-js api scope ctx))

          #_=>   (js/eval scope "api.add(1, 2) + api.multiply(2, 3)")))

        9.0

or if you don't need the internal parameters::

        (js/with-context

          (fn [ctx]

            (let [scope (js/new-safe-scope)

                  add (fn [a b] (+ a b))]

              

              (js/set! scope "add" (js/wrap-plain-fn add))

              (js/eval scope "add(1, 2)") 3.0)))

execute code with timeout::

        (def scope (js/new-safe-scope))

        (js/eval-timeout scope "while (true);" 1000)

        ; will throw a Error exception

call function with timeout::

        user=> (def f (js/compile-function scope "function () { while(true); }"))

        #'user/f

        user=> (js/call-timeout scope f 1000)

        TimeOutError

        org.marianoguerra.rhino.TimedContextFactory.observeInstructionCount

        (TimedContextFactory.java:47)

        ; function that doesn't timeout

        user=> (def f1 (js/compile-function scope "function (a, b) { return a +

        b; }"))

        #'user/f1

        user=> (js/call-timeout scope f1 1000 1 3)

        4.0

license?

--------

it seems the clojure people under this circumstances say something like:

Copyright © 2013 marianoguerra

Distributed under the Eclipse Public License, the same as Clojure.