如何在Clojure中使用重載方法代理Java類？

Question

例如，給定一個Java類，如：

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

我怎麼能繼承美孚Clojure中和只覆蓋了吧（String）方法，但重用原來的Foo類的吧（整數）。事情是這樣的（但是這不會工作）：

(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

我m猜測這不是你的意思，但同時，你可以明確地檢查參數的類型，並使用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)))