Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update Kawa to Java version 22

This commit is contained in:
retropikzel 2024-08-22 09:46:50 +03:00
parent b72c35ae2c
commit 1218972deb
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
README.md
View File

@ -42,9 +42,12 @@ These implementations do not have callback support on their FFI. If I'm wrong pl
### Callbacks not implemented yet ### Callbacks not implemented yet
- [Kawa](https://www.gnu.org/software/kawa/index.html) - [Kawa](https://www.gnu.org/software/kawa/index.html)
- Needs atleast java 21 - Needs at least java version 22
- Needs jvm flags - Needs jvm flags:
- java --add-exports java.base/jdk.internal.foreign.abi=ALL-UNNAMED --add-exports java.base/jdk.internal.foreign.layout=ALL-UNNAMED --add-exports java.base/jdk.internal.foreign=ALL-UNNAMED --enable-native-access=ALL-UNNAMED --enable-preview -jar kawa.jar FILENAME.scm - --add-exports java.base/jdk.internal.foreign.abi=ALL-UNNAMED
- --add-exports java.base/jdk.internal.foreign.layout=ALL-UNNAMED
- --add-exports java.base/jdk.internal.foreign=ALL-UNNAMED
- --enable-native-access=ALL-UNNAMED
## Support waiting for the implementation ## Support waiting for the implementation

5
retropikzel/r7rs-pffi/version/kawa.scm
View File

@ -67,7 +67,6 @@
(symbol->string c-name)) (symbol->string c-name))
'orElseThrow) 'orElseThrow)
function-descriptor))) function-descriptor)))
(lambda vals (lambda vals
(invoke method-handle 'invokeWithArguments (map value->object vals argument-types)))))))) (invoke method-handle 'invokeWithArguments (map value->object vals argument-types))))))))
@ -87,11 +86,11 @@
(define pffi-string->pointer (define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
(invoke arena 'allocateUtf8String string-content))) (invoke arena 'allocateFrom string-content)))
(define pffi-pointer->string (define pffi-pointer->string
(lambda (pointer) (lambda (pointer)
(invoke (invoke pointer 'reinterpret (static-field java.lang.Integer 'MAX_VALUE)) 'getUtf8String 0))) (invoke (invoke pointer 'reinterpret (static-field java.lang.Integer 'MAX_VALUE)) 'getString 0)))
(define pffi-shared-object-load (define pffi-shared-object-load
(lambda (header path) (lambda (header path)