Clojure 变量和 Java 静态方法

Question

我学习 Clojure 才几天，遇到了一些初期问题，所以我寻求建议。

我试图将 Java 类存储在 Clojure var 中并调用其静态方法，但它不起作用。

示例:

user=> (. java.lang.reflect.Modifier isPrivate 1)
false
user=> (def jmod java.lang.reflect.Modifier)
#'user/jmod
user=> (. jmod isPrivate 1)
java.lang.IllegalArgumentException: No matching method found: isPrivate for class java.lang.Class (NO_SOURCE_FILE:0)
    at clojure.lang.Compiler.eval(Compiler.java:4543)

从异常来看，运行时似乎期望 var 保存一个对象，因此它调用 .getClass() 来获取该类并使用反射查找该方法。在这种情况下，var 已经拥有一个类，因此 .getClass() 返回 java.lang.Class 并且方法查找显然失败。

除了编写自己的宏之外，还有其他方法可以解决这个问题吗？

在一般情况下，我希望在变量中包含一个对象或类，并在其上调用适当的方法 - 静态方法以及实例方法的鸭子类型。

在这种特定情况下，我只想为 java.lang.reflect.Modifier 提供一个较短的名称，如果您愿意的话，可以使用别名。我了解 import，但正在寻找更通用的东西，例如用于 Java 类的 Clojure 命名空间别名。还有其他机制可以做到这一点吗？

编辑:

也许我只是对这里的调用约定感到困惑。我认为 Lisp(以及扩展的 Clojure)模型是评估所有参数并将列表中的第一个元素作为函数调用。

在这种情况下，(= jmod java.lang.reflect.Modifier) 返回 true，并且 (.getName jmod) 和 (.getName java.lang .reflect.Modifier) 都返回相同的字符串。

因此变量和类名显然评估为相同的东西，但它们仍然不能以相同的方式调用。这是怎么回事？

编辑2

回答我的第二个问题(这里发生了什么)，Clojure 文档是这样说的

If the first operand is a symbol that resolves to a class name, the access is considered to be to a static member of the named class... Otherwise it is presumed to be an instance member

http://clojure.org/java_interop在“点特殊形式”下

“解析为类名”显然与“评估解析为类名的内容”不同，因此点特殊形式不支持我在这里尝试执行的操作。

Answer 1

(更新:我已经准备了一些可能可以接受的解决方案......原始答案仍然低于帖子末尾的水平线。)

<小时/>

我刚刚编写了一个宏来启用此功能:

(adapter-ns java.lang.reflect.Modifier jmod)
; => nil
(jmod/isStatic 1)
; => false
(jmod/isStatic 8)
; => true

这个想法是创建一个单一用途的命名空间，将给定类的静态作为 Vars 导入到该命名空间中，然后将该命名空间别名为一些有用的名称。虽然很复杂，但是很有效! :-)

代码如下:

(defmacro import-all-statics
  "code stolen from clojure.contrib.import-static/import-static"
  [c]
  (let [the-class (. Class forName (str c))
        static? (fn [x]
                  (. java.lang.reflect.Modifier
                     (isStatic (. x (getModifiers)))))
        statics (fn [array]
                  (set (map (memfn getName)
                            (filter static? array))))
        all-fields (statics (. the-class (getFields)))
        all-methods (statics (. the-class (getMethods)))
        import-field (fn [name]
                       (list 'def (symbol name)
                             (list '. c (symbol name))))
        import-method (fn [name]
                        (list 'defmacro (symbol name)
                              '[& args]
                              (list 'list ''. (list 'quote c)
                                    (list 'apply 'list
                                          (list 'quote (symbol name))
                                          'args))))]
    `(do ~@(map import-field all-fields)
         ~@(map import-method all-methods))))

(defmacro adapter-ns [c n]
  (let [ias (symbol (-> (resolve 'import-all-statics) .ns .name name)
                    "import-all-statics")]
    `(let [ns-sym# (gensym (str "adapter_" ~n))]
       (create-ns 'ns-sym#)
       (with-ns 'ns-sym#
         (clojure.core/refer-clojure)
         (~ias ~c))
       (alias '~n 'ns-sym#))))

上面的代码以一种有点复杂的方式查找持有 import-all-statics 宏的 Var(但是，如果该宏在当前命名空间中可见，则保证可以工作)。如果您知道它将在哪个命名空间中找到，我编写的原始版本是一个更简单的替换:

(defmacro adapter-ns [c n]
  `(let [ns-sym# (gensym (str "adapter_" ~n))]
     (create-ns 'ns-sym#)
     (with-ns 'ns-sym#
       (clojure.core/refer-clojure)
       ;; NB. the "user" namespace is mentioned below;
       ;; change as appropriate
       (user/import-all-statics ~c))
     (alias '~n 'ns-sym#)))

<小时/>

(原始答案如下。)

我意识到这并不是您真正想要的，但也许clojure.contrib.import-static/import-static对您有用:

(use 'clojure.contrib.import-static)

(import-static clojure.lang.reflect.Modifier isPrivate)

(isPrivate 1)
; => false
(isPrivate 2)
; => true

请注意，import-static 将静态方法导入为宏。