jna 构造函数_java – 使用JNA在Clojure中按值获取和传递结构

Clojure实际上嵌入了

ASM的分叉版本,用于生成和加载JVM字节码.

在这个库的顶部,我构建了一个小型DSL(这是不完整的,可能已经破坏),它允许使用类似Java的语法创建任意Java类.目前,它只是一个GitHub gist,只支持扩展类,实现接口,添加调用超类构造函数的构造函数和字段.

以下是使用此DSL的上述问题的解决方案：

(def-class MyStruct :extends com.sun.jna.Structure

:implements [com.sun.jna.Structure$ByValue]

; Declare all the constructors, which just forward their

; arguments to the constructors of com.sun.jna.Structure

(com.sun.jna.Structure [])

(com.sun.jna.Structure [com.sun.jna.TypeMapper])

(com.sun.jna.Structure [Integer])

(com.sun.jna.Structure [Integer com.sun.jna.TypeMapper])

(com.sun.jna.Structure [com.sun.jna.Pointer])

(com.sun.jna.Structure [com.sun.jna.Pointer Integer])

(com.sun.jna.Structure [com.sun.jna.Pointer Integer com.sun.jna.TypeMapper])

; Declare the fields of the struct

^Integer foo

^Integer bar

^Double baz)

现在,我可以做以下事情：

(defn createStruct [& args]

(let [fn- (com.sun.jna.Function/getFunction "some-lib" "createStruct")]

(.invoke fn- MyStruct (to-array args))))

(defn addStruct [& args]

(let [fn- (com.sun.jna.Function/getFunction "some-lib" "addStruct")]

(.invoke fn- Double (to-array args))))

(addStruct (createStruct))

; => 10.14