Как вызвать метод суперкласса в методе класса Gen Clojure?

Question

Я пытаюсь создать класс, который расширяет поток ввода Clojure через gen-class.Если я хочу вызвать метод родительского класса, как мне это сделать?

Answer 1

С (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.

Итак, чтобы иметь возможность вызвать метод fooBar родителя, вы бы сказали:

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

Затем для реализации fooBar:

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

---

¹ В дополнение к :gen-class средству, предоставленному ns формами, существует gen-classмакросъемки.

Answer 2

Это не ответ на ваш реальный вопрос, но у меня есть небольшая библиотека, позволяющая вам притвориться, что InputStream - это интерфейс вместо класса (так что вам вообще не нужен gen-класс).Извлеките io.core.InputStream, который позволяет вам набрать io.core.InputStreamable и получить настроенный InputStream.Независимо от того, какие поля экземпляра вам нужны, это могут быть только местные жители, закрытые reify.