如何在 Lein 项目中设置课程？

Question

我跑了lein new app hm，然后在hm/src/hm 编辑core.clj 成为：

(ns hm.core
  (:gen-class)
  (:use [hm.hashmap]))

(defn -main []
  (def j (new hm.hashmap))
  (-add j "foo" "bar")
  (println j))

和hashmap.clj 是：

(ns hm.hashmap
  (:gen-class
   :methods [[hashmap [] java.util.HashMap]
             [add [String String]]]))

(defn -hashmap []
  (def h (new java.util.HashMap))
  h)

(defn -add [this key value]
  (. this put key value)
  this)

目标是围绕 HashMap 做一个包装器，这样我就可以理解 Clojure 以及它与 Java 的关系。我对 Clojure 还很陌生。但是，当我编译这个时，我在hashmap.clj 中得到了很多 ClassNotFoundException。我怎样才能做到这一点？

Answer 1

注意：这是对您问题的直接回答。我不建议你以这种方式学习 Clojure。

---

您需要先编译您的类，然后才能运行它们。在您的 project.clj 中将其添加到地图中：

:aot [hm.hashmap]

然后你需要运行lein compile 来编译这些类。您应该看到输出表明 hm.hashmap 类已编译。之后运行lein run 调用hm.core 中的“main”函数。

我删除了您的 gen-class 的 :methods 部分，因为您已经在下面定义了它们，这导致了奇怪的 java.lang., 错误。你会遇到其他错误，但这应该足以让你通过这个问题。

Answer 2

您的代码还有一些其他问题，但这里最直接的问题是add 的签名不完整。你的add 返回this，一个hm.hashmap。

要解决此问题，请将签名更改为返回 Object，或者通过额外编辑返回 java.util.HashMap。如果您希望它以其他方式工作，您还需要扩展而不是封装。

(ns hm.hashmap
  (:gen-class
   :extends java.util.HashMap
   :methods [[add [String String] java.util.HashMap]]))

最后将core.clj中的-main更改为使用.add调用方法，而不是尝试访问私有-add。

...
(.add j "foo" "bar")
...

然后

lein clean
lein compile hm.core hm.hashmap
lein run

应该打印

#<hashmap {foo=bar}>

请注意，据我所知，由于符号解析的时间安排，您不能指定在签名中返回 hm.hashmap。见GC Issue 81: compile gen-class fail when class returns self。