java - Clojure gen-class this 关键字

Question

是否可以在 gen 类方法中引用 Java 的“this”关键字？

我正在尝试实现 daredesm 的答案 here , 在 Clojure 中。但是，当我尝试在运行函数中使用“this”时，我得到“java.lang.RuntimeException:无法解析符号:this in this context。”

(gen-class
  :name ClipboardListener
  :extends java.lang.Thread
  :implements [java.awt.datatransfer.ClipboardOwner]
  :prefix ClipboardListener-
  :methods [[takeOwnership [Transferable] void]])

(def systemClipboard (.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))

(defn ClipboardListener-run []
  (let [transferable (.getContents systemClipboard this)]
    (.takeOwnership transferable)))

(defn ClipboardListener-lostOwnership [clipboard trasferable] (prn "hit lost"))
(defn ClipboardListener-takeOwnership [transferable] (prn "hit take"))
(defn processClipboard [transferable clipboard] (prn "hit process"))

注意:这是我第一次在 Clojure 中生成 Java 类，因此非常感谢任何一般反馈/资源。

Answer 1

实例方法可以将隐含的“self”arg- 作为第一个参数。所以以你的例子为例:

(defn ClipboardListener-run [this]
  (let [transferable (.getContents systemClipboard this)]
    (.takeOwnership transferable)))

注意 this 参数 :)

同样适用于任何实例方法，例如:

(defn ClipboardListener-toString [this]
  "override Object#toString with something cool")

看看this (没有双关语意)有关 gen-class 的更多信息。

对于Runnable、Callable 等您只需要实现一个小型接口(interface)的情况，也可以考虑reify。