foo.clj

(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