Clojure, отражение: найдите классы, которые реализуют интерфейс - PullRequest
Новая
       25

Clojure, отражение: найдите классы, которые реализуют интерфейс

0 голосов
/ 08 ноября 2018

Это кажется более сложным в Clojure, чем в Java и Scala. Что я хочу сделать, это:

  1. Определение интерфейса в Java
  2. Реализуйте это в классе в Clojure (Бонус: с макросом)
  3. Найдите его, используя загрузчик классов и отражение

Это то, что я имею до сих пор:

Интерфейс Java 

package hello.interfaces;
public interface Test {
    String doSomething(String input);
}

Определение Clojure 

(ns hello.impl.test
  (:gen-class
    :implements [hello.interfaces.Test]))

(defn doSomething [v] (str "hello " v))

Поиск классов: 

(ns hello.core
  (:import
    (org.reflections Reflections)
    (org.reflections.util ConfigurationBuilder))
  (:gen-class))

(defn -instances []
  (let [paths (into-array Object ["hello"])]
      (.getSubTypesOf (Reflections. paths) hello.interfaces.Test)))

(defn -main [& args]
  (println (-instances)))

Я использую org.reflections . Это работает, если я ищу классы, которые находятся в classpath (например, в банке org.reflections), но это не работает для моего ранее определенного класса, поэтому я думаю, что проблема не в последнем фрагменте кода, а в предыдущем один, или, может быть, в использовании, например требует предварительной компиляции.

Как я могу определить классы в Clojure, которые я смогу найти позже с помощью отражения?

Ответы [ 2 ]

0 голосов
/ 10 ноября 2018

Я не совсем уверен, чего вы пытаетесь достичь, но есть несколько вещей, на которые я, вероятно, должен указать вам в направлении. Во-первых, есть пространство имен clojure.reflect, которое содержит полезные функции для получения информации о классах. Это облегчает отражение иерархии Java в REPL. Во-вторых, есть такие вещи, как clojure.tools.namespace , которые помогут вам пройти код в вашем репо и найти все пространства имен, которые реализуют интерфейсы. Однако вы склонны использовать deftype для реализации классов, а не использовать функции компилятора AOT, такие как опция :gen-class в макросе ns, если вы не реализуете что-то конкретное, например сервлет или что-то еще.

0 голосов
/ 08 ноября 2018

Я не знаком с org.reflections, но если вы просто хотите получить список загруженных классов, вы можете получить его с помощью приведенного ниже кода: 

(let [classloader (.getClassLoader clojure.main)
      classes-field (.getDeclaredField java.lang.ClassLoader "classes")]
  (.setAccessible classes-field true)
  (let [class-list (.get classes-field classloader)
        class-vec (reduce conj [] class-list)] ; copy everything into a new vector rather than working directly with the classloader's private field
    class-vec))

Звучит так, как будто вы знакомы с Java, так что, я думаю, вы видите, что вышеизложенное - это просто переведенная Java. Это даст вам только те классы, которые были загружены с тем же загрузчиком классов, что и для класса clojure.main, но если вы не выполнили никаких настроек со своими загрузчиками классов, этого должно быть достаточно.

Когда у вас есть этот список, вы можете искать / фильтровать его по своему усмотрению. Конечно, класс, который вы ищете, должен быть загружен первым. Если это не так, вам придется искать путь к классам.

=== ОБНОВЛЕНИЕ, чтобы ответить на ваш комментарий ===

Хорошо, я вижу, вы спрашиваете, как создать класс. Первое, что нужно сказать, это то, что вам обычно не нужно создавать именованные классы, когда вы пишете Clojure, если только вы не хотите специально использовать некоторый существующий код Java, который требует от вас этого. Если вы пишете чистый Clojure, вы просто пишете свои функции и работаете с ними напрямую.

Однако вы, конечно, можете это сделать. Первая часть документа для gen-class гласит:

=> (doc gen-class)

clojure.core / генераторной класс

([& опции])

Macro

При компиляции генерирует скомпилированный байт-код для класса с данный пакет уточнен: имя (которое, как и все имена в этих параметров, может быть строкой или символом) и записывает файл .class в каталог путь компиляции . Когда не компилируется, делает ничего такого.

Итак, вам нужно скомпилировать ваше пространство имен. Обычно я этого не делаю, поэтому я не знаю, есть ли способ сделать это, не создавая файлы .class и просто создавая классы непосредственно в памяти, но нижеприведенное делает то, что вы хотите, если я вас правильно понял : 

(ns wip.test)

; looks for wip/himplement.clj on the classpath, and compiles it into .class files
; requires that ../bin is in the classpath
(binding [*compile-path* "../bin"]
     (compile 'wip.himplement))

; loads the wip.himplement class from the .class files
(Class/forName "wip.himplement")


; create a list of all loaded classes (could presumably also be done with org.reflections)
(def classes-list (let [classloader (.getClassLoader clojure.main)
                        classes-field (.getDeclaredField java.lang.ClassLoader "classes")]
                    (.setAccessible classes-field true)
                    (java.util.ArrayList. (.get classes-field classloader))))

; Outputs all loaded classes which implement HInterface. Output is:
; (wip.hello.HInterface wip.himplement)
(println (filter #(isa? % wip.hello.HInterface) classes-list))
...