sandbox.clj

;;;; reflection

(defn method-call-fn [method-name return-type parameter-types]
  (let [o-symbol (symbol "o")
        method-symbol (symbol (eval method-name))
        args (map #(with-meta (symbol (str "x" %2)) {:tag %1}) parameter-types (range))]
    (eval `(fn [~o-symbol ~@args] (. ~o-symbol ~method-symbol ~@args )))))

(defn get-signature [^java.lang.reflect.Method method]
  (let [method-name (.getName method)
        return-type (.getReturnType method)
        parameter-types (vec (.getParameterTypes method))]
    {:method-name method-name
     :return-type return-type
     :parameter-types parameter-types}))

(comment
 (def eval-method-call (method-call-fn "equals" boolean [java.lang.Object]))
 (eval-method-call "hello" "hello")
 ;; true
 (eval-method-call "hello" "goodbye")
 ;; false
 )

(defn method-call-fn [method-name return-type parameter-types]
    (let [method-symbol (read-string method-name)
           args (map #(with-meta (symbol (gensym "x")) {:tag %}) parameter-types)]
    (eval `(fn [~'o ~@args] (. ~'o ~method-symbol ~@args )))))