clojure reflection

gistfile1.txt

(defn- invoke-private-method
  [obj fn-name-string & args]
  (let [m (first (filter (fn [x] (.. x getName (equals fn-name-string)))
                         (.. obj getClass getDeclaredMethods)))]
    (. m (setAccessible true))
    (. m (invoke obj (into-array Object args)))))

(defn- invoke-static-method
  [klass fn-name-string & args]
  (let [m (first (filter (fn [x] (.. x getName (equals fn-name-string)))
                         (.getDeclaredMethods klass)))]
    (. m (setAccessible true))
    (. m (invoke klass (into-array Object args)))))

(defn get-private-field
  [obj fn-name-string]
  (let [m (.. obj getClass (getDeclaredField fn-name-string))]
    (. m (setAccessible true))
    (. m (get obj))))

(defn set-private-field
  [obj fn-name-string value]
  (let [m (.. obj getClass (getDeclaredField fn-name-string))]
    (. m (setAccessible true))
    (. m (set obj value))))