使用gen-class时如何获取类的实例

Question

我想在类的方法中使用通过gen-class构造的类的实例。

我该如何访问它？ 在以下示例中，我为“this”插入了什么：

(ns example
  (:gen-class))

(defn -exampleMethod []
  (println (str this)))

或者在使用gen-class时是不可能的？

Answer 1

与gen-class生成的方法对应的Clojure函数的第一个参数采用其方法被调用的当前对象。

(defn -exampleMethod [this]
  (println (str this)))

除此之外，当您定义既不是超类也不是生成的类的接口的方法时，您必须向gen-class添加:methods选项。 所以一个完整的例子如下。

example.clj

(ns example)

(gen-class
 :name com.example.Example
 :methods [[exampleMethod [] void]])

(defn- -exampleMethod
  [this]
  (println (str this)))

REPL

user> (compile 'example)
example

user> (.exampleMethod (com.example.Example.))
com.example.Example@73715410
nil