Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns foo
- (:use clojure.contrib.seq-utils))
- (gen-class
- :name foo.Bar
- ; :init init
- ; :constructors {[clojure.lang.IFn]}
- :methods [[callback [] Integer]]
- :state state)
- (defn -callback [this]
- (println "Hello world")
- 5)
- (defn eng-start []
- (.callback (new foo.Bar)))
- ;;;;
- ;; $ java -cp ~/.clojure/clojure.jar:$HOME/.clojure/clojure-contrib.jar:. -Dclojure.compile.path=. clojure.main -e "(compile 'foo)"
- ;; foo
- ;;
- ;; $ java -cp ~/.clojure/clojure.jar:$HOME/.clojure/clojure-contrib.jar:. clojure.main
- ;; Clojure 1.1.0-alpha-SNAPSHOT
- ;; user=> (use 'foo)
- ;; nil
- ;; user=> (eng-start)
- ;; Hello world
- ;; 5
Add Comment
Please, Sign In to add comment