使用真實範例從 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 打開你聲明的路線並查看結果！