如何在 Clojure 中使用重载方法代理 Java 类

Question

例如，给定一个Java类，如下所示：

public class Foo {
  public String bar(String x) {
    return "string " + x;
  }
  public String bar(Integer x) {
    return "integer " + x;
  }
}

如何在 Clojure 中子类化 Foo 并仅覆盖 bar（String） 方法，但重用原始 Foo 类中的 bar（Integer）。 像这样的东西（但这行不通）：

(let [myFoo (proxy [Foo] [] 
              (bar [^String x] (str "my " x)))]
  (println "with string:  " (.bar myFoo "abc"))
  (println "with integer: " (.bar myFoo 10)))

此示例将打印：

with string:   my abc 
with integer:  my 10

但我想得到以下效果：

with string:   my abc 
with integer:  integer 10

Answer 1

我猜这不是你的意思，但与此同时，你可以显式检查参数的类型并使用proxy-super在Foo上调用原始方法。

(let [myFoo (proxy [Foo] [] 
              (bar [x]
                (if (instance? String x)
                  (str "my " x)
                  (proxy-super bar x))))]
  (println "with string:  " (.bar myFoo "abc"))
  (println "with integer: " (.bar myFoo 10)))