1

我想调用从 Java 编译为类的 Clojure 代码。

Clojure 类：

(ns clj.core)

(gen-class
 :name de.wt.TestClj
 :state state
 :init init
 :prefix "-"
 :main false
 :methods [[setValue [String] void]
           [getValue [] String]])

(defn -init []
  [[] (atom {:value ""})])

(defn -setValue [this val]
  (swap! (.state this) assoc :value val))

(defn -getValue [this]
  (@(.state this) :value))

编译lein uberjar输出 -standalone.jar 并将其复制到 subdirs 下的 Java 项目中de/wt。

.java 文件：

import de.wt.TestClj;

class CljTest {
    public static void main(String args[]) {
        TestClj test = new TestClj();
        System.out.println("Pre: " + test.getValue());
        test.setValue("foo");
        System.out.println("Post: " + test.getValue());
    }
}

现在当我尝试编译

~/testbed/cljava/java % tree                                                                 [1 14:44:53]
.
├── CljTest.java
├── de
│   └── wt
│       └── TestClj.jar
└── TestClj.jar

2 directories, 3 files
~/testbed/cljava/java % javac -cp ./:./de/wt/TestClj.jar CljTest.java                        

CljTest.java:1: error: package de.wt does not exist
import de.wt.TestClj;
^
CljTest.java:5: error: cannot find symbol
TestClj test = new TestClj();
^
symbol:   class TestClj
location: class CljTest
CljTest.java:5: error: cannot find symbol
TestClj test = new TestClj();
^
symbol:   class TestClj
location: class CljTest
3 errors

在命名文件/包、创建目录和设置类路径时，我需要遵循什么方案？

4

1 回答 1

2

您应该能够在您的 jar 中看到 java 类，例如：

 $ jar tvf target/default-0.1.0-SNAPSHOT-standalone.jar | grep TestClj
 2090 Mon Jan 01 18:43:12 CET 2018 de/wt/TestClj.class

如果没有，请确保您:aot的 project.clj 中有一个（提前编译）指令：

(defproject default "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
        :url "http://www.eclipse.org/legal/epl-v10.html"}
  :aot [clj.core]
  :dependencies [[org.clojure/clojure "1.7.0"]])

一旦您在 jar 中看到该.class文件，并且在您的类路径中使用该 jar，您在 Java 代码中的导入应该可以正常工作。

如文档中所述（https://clojure.org/reference/compilation）：

Clojure 将您即时加载的所有代码编译为 JVM 字节码，但有时提前编译 (AOT) 是有利的。使用 AOT 编译的一些原因是：

在没有源代码的情况下交付您的应用程序

加快应用程序启动

生成 Java 使用的命名类

创建不需要运行时字节码生成和自定义类加载器的应用程序

另请参阅http://clojure-doc.org/articles/language/interop.html：

奥特

gen-class需要提前 (AOT) 编译。这意味着在使用定义的类之前gen-class，Clojure 编译器需要从gen-class定义中生成 .class 文件。

于 2018-01-01T17:58:59.777 回答