java - ABCL 的解释器可以从 InputStream 加载 Lisp 源代码吗？

Question

我刚刚开始查看 ABCL将一些 Lisp 混合到 Java 中。现在，从文件中加载一些 Lisp 就足够了，我一直在查看 examples .在每种情况下，模式都是:

Interpreter interpreter = Interpreter.createInstance();
interpreter.eval("(load \"lispfunctions.lisp\")");

但是假设我正在构建一个 Maven 项目以打包为 JAR:我如何从 src/main/resources 加载 lispfunctions.lisp？我可以很容易地得到一个 InputStream——我可以带着它去某个地方吗？还是我在这里缺少另一个用于从这样的资源加载 Lisp 源代码的习惯用法？

Answer 1

我已经得到以下工作。我在 MacOS 上使用 ABCL 1.7.0，尽管我很确定这不是特定于版本的。

/* load_lisp_within_jar.java -- use ABCL to load Lisp file as resource in jar
 * copyright 2020 by Robert Dodier
 * I release this work under terms of the GNU General Public License
 */

/* To run this example:
$ javac -cp /path/to/abcl.jar -d . load_lisp_within_jar.java
$ cat << EOF > foo.lisp
(defun f (x) (1+ x))
EOF
$ jar cvf load_lisp_within_jar.jar load_lisp_within_jar.class foo.lisp
$ java -cp load_lisp_within_jar.jar:/path/to/abcl.jar load_lisp_within_jar
 *
 * Expected output:
(F 100) => 101
 */
import org.armedbear.lisp.*;
import java.io.*;

public class load_lisp_within_jar {
    public static void main (String [] args) {
        try {
            // It appears that interpreter instance is required even though
            // it isn't used directly; I guess it arranges global resources.
            Interpreter I = Interpreter.createInstance ();

            LispObject LOAD_function = Symbol.LOAD.getSymbolFunction ();

            // Obtain an input stream for Lisp source code in jar.
            ClassLoader L = load_lisp_within_jar.class.getClassLoader ();
            InputStream f = L.getResourceAsStream ("foo.lisp");
            Stream S = new Stream (Symbol.SYSTEM_STREAM, f, Symbol.CHARACTER);

            // Call COMMON-LISP:LOAD with input stream as argument.
            LOAD_function.execute (S);

            // Verify that function F has been defined.
            Symbol F = Packages.findPackage ("COMMON-LISP-USER").findAccessibleSymbol ("F");
            LispObject F_function = F.getSymbolFunction ();
            LispObject x = F_function.execute (LispInteger.getInstance (100));
            System.out.println ("(F 100) => " + x.javaInstance ());
        }
        catch (Exception e) {
            System.err.println ("oops: " + e);
            e.printStackTrace ();
        }
    }
}

如您所见，程序首先获取与符号 LOAD 关联的函数。 (为了方便起见，很多，也许所有的 COMMON-LISP 符号都有静态定义，所以你可以只说 Symbol.LOAD 而不是通过 findAccessibleSymbol 查找符号。)然后输入流被提供给加载函数。之后我们验证我们的函数 F 确实被定义了。

我知道这些东西可能有点晦涩难懂；我很乐意回答任何问题。