Retropikzel
/
compile-scheme
1
0
Fork 0
Code Issues

Compare commits

base: Retropikzel:6fd4573568bcde9fd90bf0af550f5f994b149822
Branches Tags
Retropikzel:main
Retropikzel:release
Retropikzel:v1.1.1
...
compare: Retropikzel:168d749d6db54a945cc94c81ff9602a565544a56
Branches Tags
Retropikzel:main
Retropikzel:release
Retropikzel:v1.1.1

3 Commits
6fd4573568 ... 168d749d6d

Author SHA1 Message Date
retropikzel 168d749d6d Kawa fixes 2025-11-26 19:16:49 +02:00
retropikzel dfc62511d7 Kawa fixes 2025-11-26 18:13:55 +02:00
retropikzel f53b64dd01 Add --debug flag. Fix bash-completion. Small guile fixes 2025-11-26 18:09:19 +02:00
3 changed files with 15 additions and 16 deletions
Show Stats Expand all files Collapse all files

2
bash_completion.sh
View File

@ -18,7 +18,7 @@ _compile_scheme()
#if [[ "$i" == "-t" ]] ; then
#targetfound=true
#fi
done
#done
if [[ "$outputfound" == "false" ]]; then
shortopts="${shortopts} -o"

7
compile-scheme.scm
View File

@ -8,6 +8,8 @@
(libs library-util)
(srfi 170))
(define debug? (if (member "--debug" (command-line)) #t #f))
(when (member "--help" (command-line))
(display "For help see: man compile-scheme")
(newline)
@ -204,6 +206,11 @@
r6rs?
compilation-target)))
(when debug?
(display "[debug] scheme-command: ")
(write scheme-command)
(newline))
(define scheme-library-command
(lambda (library-file)
(apply (cdr (assoc 'library-command (cdr (assoc scheme data))))

22
libs/data.sld
View File

@ -282,8 +282,7 @@
,(util-getenv "COMPILE_R7RS_GUILE")
,(if r6rs? " --r6rs -x .sls " " --r7rs -x .sld ")
,@(map (lambda (item)
(string-append " -L " item " "
" -L " (dirname item) " "))
(string-append " -L " item " "))
(append prepend-directories
append-directories))
" -s "
@ -353,24 +352,17 @@
r6rs?
compilation-target)
(apply string-append
`("CLASSPATH="
,@(map (lambda (item)
(if (char=? (string-ref item 0) #\/)
(string-append item ":")
(string-append pwd "/" item ":")))
(append prepend-directories
append-directories))
" "
,exec-cmd
" kawa -J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED -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 -J--enable-preview "
`(,exec-cmd
" kawa -J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED -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 -J--enable-preview --full-tailcalls"
,(util-getenv "COMPILE_R7RS_KAWA")
" -Dkawa.import.path="
,@(map (lambda (item)
(if (char=? (string-ref item 0) #\/)
(string-append item "/*.sld")
(string-append pwd "/" item "/*.sld")))
(string-append item "/*.sld:")
(string-append pwd "/" item "/*.sld:")))
(append prepend-directories
append-directories))
append-directories
(list "/usr/local/share/kawa/lib")))
" -f "
,script-file
" "