使用真实示例从 Java 调用 Clojure (Clojure Quarkus)-java教程-PHP中文网

首页

Java

java教程

使用真实示例从 Java 调用 Clojure (Clojure Quarkus)

Barbara Streisand

Oct 02, 2024 am 06:31 AM

Calling Clojure from Java using a real example (Clojure Quarkus)

挑战

上周末，我决定更多地探索 Clojure 如何与现有的 Java 生态系统交互，挑战很简单：

以 Quarkus 框架为基础，在 Clojure 中创建一个简单的 Web 框架。

场所：

Quarkus 不知道路由将执行什么，甚至不知道存在多少条路由。
我应该能够尽可能简单地使用 Clojure 创建路由和处理程序：

(defn send-hello-world [] "Hello World")

(defn routes [] [{:method "GET"
                  :path "/hello" 
                  :handler send-hello-world}])

登录后复制

一些定义：

Quarkus：Quarkus 是一个全栈、Kubernetes 原生 Java 框架，专为 Java 虚拟机 (JVM) 和本机编译而设计，专门针对容器优化 Java。
Clojure：是一种动态的通用编程语言

第 1 步：创建 Quarkus 应用程序

在 Quarkus 中启动应用程序非常容易，您可以按照本教程进行操作，因为您可以看到最后一个命令是 quarkus create && cd code-with-quarkus，之后您可以使用以下命令打开文件夹 code-with-quarkus您最喜欢的 IDE，该命令创建了 Quarkus 应用程序的基本结构，您可以使用 quarkus dev 运行

步骤2：使项目能够识别clj文件

您需要配置 Quarkus 以在目标文件夹（包含已编译应用程序的文件夹）中包含 .clj 文件，您可以通过在内的 pom.xml 中添加此配置来实现

<resources>
        <resource>
            <directory>/</directory>
            <includes>
                <include>*.clj</include>
            </includes>
        </resource>
    </resources>

登录后复制

第 3 步：创建 Clojure 文件

正如我之前提到的，我在 main 文件夹的同一位置定义了一个结构来声明我的路由。然后我创建了一个名为 quarkus_clj 的文件夹，其中包含一个名为 core 的文件，代码如下：

(ns quarkus-clj.core)

(defn send-hello-world [] "Hello World")

(defn routes [] [{:method "GET"
                  :path "/hello" 
                  :handler send-hello-world}])

登录后复制

第 4 步：启用 Quarkus 来处理我的 Clojure 程序

这就是魔法发生的地方？？！

首先，您应该在 Quarkus 应用程序中安装 Clojure；您可以通过在 pom.xml
中添加依赖项来实现

<dependency>
      <groupId>org.clojure</groupId>
        <artifactId>clojure</artifactId>
        <version>1.11.1</version> 
</dependency>

登录后复制

现在，您可以删除文件 GreetingResource.java 及其测试。在同一位置，创建一个文件 Getting.java

我写了一些评论来解释它是如何工作的

@ApplicationScoped
public class Starting {
    //Setup app routes
    public void setupRouter(@Observes Router router) {
        // Load Clojure core;
        IFn require = Clojure.var("clojure.core", "require");
        // Load quarkus-clj.core namespace
        require.invoke(Clojure.read("quarkus-clj.core")); 

        // Load the route list function
        IFn routesFn = Clojure.var("quarkus-clj.core", "route");

        // Invoke the function with no parameters
        PersistentVector routesVector = (PersistentVector) routesFn.invoke();

        //For each route in routes vector 
        for (Object route : routesVector) {
            /**Get the route map, example
            {:method "GET"
             :path "/hello" 
             :handler send-hello-world}
             */
            PersistentArrayMap routeMap = (PersistentArrayMap) route;

            //Get :path value
            String path = (String) routeMap.valAt(Clojure.read(":path"));
            //Get :handler function
            IFn handlerRoute = (IFn) routeMap.valAt(Clojure.read(":handler"));
            //Get :method value
            String method = (String) routeMap.valAt(Clojure.read(":method"));
            //Create a handler to exec handler function
            Handler<RoutingContext> handlerFn = (RoutingContext context) -> {
            String result = (String) handlerRoute.invoke();  
            context.response().end(result);
        };
            //Config the route in quarkus
            router.route(HttpMethod.valueOf(method), path).handler(handlerFn);
        }
    }
}

登录后复制

现在你可以运行：quarkus dev 打开你声明的路线并查看结果！