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

Make chicken build dynamic

This commit is contained in:
retropikzel 2025-07-06 12:51:13 +03:00
parent a74b547711
commit fde563496f
1 changed files with 10 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
libs/data.sld
View File

@ -51,16 +51,8 @@
(out (string-append (if (string-starts-with? library-file "srfi")
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
".o"))
(static-out (string-append (if (string-starts-with? library-file "srfi")
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
".a")))
(apply string-append `("csc -R r7rs -X r7rs -static -c -J"
" "
"-unit"
" "
,unit
".so")))
(apply string-append `("csc -R r7rs -X r7rs -s -J"
" "
"-o"
" "
@ -68,18 +60,9 @@
" "
,(util-getenv "COMPILE_R7RS_CHICKEN")
" "
,(search-library-file (append prepend-directories append-directories) library-file)
" "
"&&"
" "
"ar rcs"
" "
,static-out
" "
,out
" ")))))
,(search-library-file (append prepend-directories append-directories) library-file))))))
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append `("csc -R r7rs -X r7rs -static"
(apply string-append `("csc -R r7rs -X r7rs"
" "
,(util-getenv "COMPILE_R7RS_CHICKEN")
" "
@ -87,14 +70,6 @@
(string-append "-I " item " "))
(append append-directories prepend-directories))
" "
,@(map (lambda (library-file)
(string-append "-uses "
(if (string-starts-with? library-file "srfi")
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
" "))
library-files)
" "
"-output-file"
" "
,output-file
@ -422,17 +397,17 @@
(type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`(;"MOSH_LOAD_PATH="
;,@(map (lambda (item) (string-append item ":")) prepend-directories)
;,@(map (lambda (item) (string-append item ":")) append-directories)
`("MOSH_LOAD_PATH="
,@(map (lambda (item) (string-append item ":")) prepend-directories)
,@(map (lambda (item) (string-append item ":")) append-directories)
" "
"mosh"
" "
,(util-getenv "COMPILE_R7RS_MOSH")
" "
,@(map (lambda (item) (string-append "--loadpath=" item " "))
(append append-directories prepend-directories))
" "
;,@(map (lambda (item) (string-append "--loadpath=" item " "))
;(append append-directories prepend-directories))
;" "
,input-file)))))
(picrin
(type . interpreter)