java - 你能用 ABCL 写一个 Java 类吗？

Question

有没有办法用 ABCL 创建一个 Java 类？ (扩展另一个类)？

Answer 1

可以通过JVM包中的函数直接将Java类写成JVM字节码，这是ABCL自己的编译器使用的代码。从 abcl-0.25.0 开始，JAVA:JNEW-RUNTIME-CLASS method 有不受支持的代码它允许动态编写调用 Lisp 方法执行的 Java 类。代码使用来自 ObjectWeb 的类 ASM BCEL它必须存在于 JVM 类路径中。究竟需要哪个版本的 ASM BCEL 库，以及它是否适用于当前的 ABCL 尚未经过测试。 ABCL问题#153跟踪在当代 ABCL 实现中支持这一点所需的工作。

但是，如果有一个现有的 Java 接口(interface)，并且想使用基于 Lisp 的方法来提供实现，则该过程要简单得多(并且受支持!)

相关函数是 JAVA:JINTERFACE-IMPLEMENTATION，其用法在 BankAccount example 中进行了演示。 .

对于Java接口(interface)定义为

public interface BankAccount {
  public int getBalance();
  public void deposit(int amount);
  public void withdraw(int amount); 
}

以下 Lisp 代码在当前 JVM 中创建了一个可用的 Java Proxy:

 (defparameter *bank-account-impl*
  (let ((balance 1000))
    (jinterface-implementation
     "BankAccount"

     "getBalance" 
       (lambda ()
         balance)
     "deposit" 
       (lambda (amount) 
         (let ((amount (jobject-lisp-value amount)))
           (setf balance (+ balance amount))))  
     "withdraw" 
       (lambda (amount)
         (let ((amount (jobject-lisp-value amount)))
           (setf balance (- balance amount)))))))

要从 Java 中获取对该实现的引用，可以使用 BankMainAccount.java 中的代码

  ...
  org.armedbear.lisp.Package defaultPackage
    = Packages.findPackage("CL-USER");
  Symbol bankAccountImplSymbol
    = defaultPackage.findAccessibleSymbol("*BANK-ACCOUNT-IMPL*");
  LispObject value = bankAccountImplSymbol.symbolValue();
  Object object =  ((JavaObject) value).getObject();
  BankAccount account = (BankAccount) object;
  System.out.println("Initial balance: " + account.getBalance());
  account.withdraw(500);
  System.out.println("After withdrawing 500: " + account.getBalance());
  ...