如何从 Clojure 程序调用 Java 程序？

Question

package javaCodes;
import java.io.BufferedReader;
import java.io.FileInputStream;
import java.io.FileNotFoundException;
import java.io.FileWriter;
import java.io.IOException;
import java.io.InputStreamReader;
import java.io.PrintWriter;

public class interm3parse {
public static boolean checkGroup(String str)throws IOException
{
    FileInputStream fis = new FileInputStream(path);
    BufferedReader br = new BufferedReader(new InputStreamReader(fis));
    String line = null;
    while((line=br.readLine())!=null)
    {
        if(line.contains(str))
        {
            return true;
        }
    }
    br.close();
    return false;

}
public static boolean checkPresence(String str) throws IOException
{
    FileInputStream fis = new FileInputStream(filepath);
    BufferedReader br = new BufferedReader(new InputStreamReader(fis));
    String line = null;
    while((line=br.readLine())!=null)
    {
        if(line.startsWith(str))
        {
            return true;
        }
    }
    br.close();
    return false;

}

public static void main(String[] args) throws IOException {
    // TODO Auto-generated method stub
    PrintWriter pw = new PrintWriter(new       FileWriter("filepath"));
    FileInputStream fis = new FileInputStream("filepath");
    BufferedReader br = new BufferedReader(new InputStreamReader(fis));
    String line = null;
    StringBuilder sb = new StringBuilder();
    String s=new String();
    while ((line = br.readLine()) != null)
    {
        s="";
        if(!line.startsWith("defmeasure")||(line==null))
         {
         String[] splitArray = line.split("\\s");
         s=s+splitArray[0];
         //System.out.println(splitArray[0]);
         for(int i=1;i<splitArray.length;i++)
          {
            if(splitArray[i].contains("/"))
            {
                String[] alias = splitArray[i].split("/");
                if(checkPresence(alias[1])||checkGroup(alias[1]))
                {
                    s=s+" "+alias[1];
                }
            }
            else
            {
                s=s+" "+splitArray[i];
            }
          }
         pw.write(s);
         pw.println();
         System.out.println(s);

         }
        else
        {
            //fw.write(line);
            //fw.write("\n");
            System.out.println(line);
            pw.write(line);
            pw.println();   
        }
        }
    pw.flush();
    pw.close();

}//main

}//end of class

我有一个用户定义的 Java 程序（interm3parse.java）；我想从 clojure 程序中调用该程序（函数）......这两个代码都可以单独工作......Java 代码在 javaCodes 包中...... .....................clojure 代码在另一个命名空间中...................... .........

Clojure code

(ns javaCodes.generalizedmeasuretocomp )

(defn output-Measure-Criterias-Final []
;;;Java program to replace all group components and remove aliases 

)

Answer 1

您可以call Java code from Clojure（假设 Java 代码类位于 Clojure 应用程序的类路径中）：

由于您的 Java 类定义了静态方法，您可以这样调用它们：

(ns javaCodes.generalizedmeasuretocomp
  (:import javaCodes.interm3parse))

(defn output-Measure-Criterias-Final []
  (javaCodes.interm3parse/checkGroup "some string"))

顺便说一句，我注意到您的 Java 代码可能无法正常工作（但我想这仅用于说明目的）。它使用了一些未定义的名称（例如filepath）并且它可能会泄漏资源（当它返回true 时它不会关闭输入流）。

我认为您应该将资源包装到 try-with-resources 语句中，或者使用 with-open 在 Clojure 中编写该代码：

(defn file-line-starts-with-str? [filename s]
  (with-open [reader (clojure.java.io/reader filename)]
    (->> reader
      (line-seq)
      (some #(clojure.string/starts-with? % s)))))