From fde563496f2f83b1ee39bdd855176e771b7af469 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sun, 6 Jul 2025 12:51:13 +0300 Subject: [PATCH] Make chicken build dynamic --- libs/data.sld | 45 ++++++++++----------------------------------- 1 file changed, 10 insertions(+), 35 deletions(-) diff --git a/libs/data.sld b/libs/data.sld index 5f8df8a..8123b20 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -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)