Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Add flags needed for pffi to kawa

This commit is contained in:
retropikzel 2025-04-19 15:10:10 +03:00
parent cd5090874c
commit 3e6d37c746
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -83,6 +83,7 @@ as compiler.
- kawa - kawa
- interpreter - interpreter
- R7RS - R7RS
- Native access is enabled by default so pffi can work
- larceny - larceny
- interpreter - interpreter
- R6RS - R6RS

12
libs/data.sld
View File

@ -277,15 +277,23 @@
(apply string-append (apply string-append
`("kawa" `("kawa"
" " " "
,(util-getenv "COMPILE_R7RS_KAWA") "-J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED"
" " " "
"--r7rs" "-J--add-exports=java.base/jdk.internal.foreign.layout=ALL-UNNAMED"
" "
"-J--add-exports=java.base/jdk.internal.foreign=ALL-UNNAMED"
" "
"-J--enable-native-access=ALL-UNNAMED"
" "
,(util-getenv "COMPILE_R7RS_KAWA")
" " " "
"-Dkawa.import.path=" "-Dkawa.import.path="
,@(map (lambda (item) ,@(map (lambda (item)
(string-append item "/*.sld:")) (string-append item "/*.sld:"))
(append prepend-directories append-directories)) (append prepend-directories append-directories))
" " " "
"--r7rs"
" "
,input-file))))) ,input-file)))))
(larceny (larceny
(type . interpreter) (type . interpreter)