Làm thế nào để gọi phương thức của siêu lớp trong một phương thức lớp gen Clojure?

Question

Tôi đang cố gắng tạo một lớp mở rộng luồng đầu vào Clojure qua gen-class. Nếu tôi muốn gọi phương thức của lớp cha, làm cách nào để thực hiện điều đó?

Answer 1

Từ (doc gen-class) :

:exposes-methods {super-method-name exposed-name, ...} 

It is sometimes necessary to call the superclass' implementation of an 
overridden method. Those methods may be exposed and referred in 
the new method implementation by a local name. 

Vì vậy, để có thể gọi phương thức của cha mẹ fooBar, bạn muốn nói

(ns my.custom.Foo 
    (:gen-class 
    ; ... 
    :exposes-methods {fooBar parentFooBar} 
    ; ... 
    )) 

Sau đó, để thực hiện fooBar:

(defn -fooBar [this] 
    (combine-appropriately (.parentFooBar this) 
         other-stuff)) 

---

Ngoài các cơ sở :gen-class cung cấp bởi ns hình thức, có một gen-class vĩ mô.

Answer 2

Đây không phải là câu trả lời cho câu hỏi thực tế của bạn, nhưng tôi có một thư viện nhỏ để cho bạn giả vờ InputStream là một giao diện thay vì một lớp (để bạn không cần lớp gen). Hãy xem io.core.InputStream, cho phép bạn chỉnh sửa io.core.InputStreamable và nhận ra một InputStream tùy chỉnh. Bất cứ trường nào bạn cần chỉ có thể là người dân địa phương đóng cửa bởi reify.