Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

supporting installing srfi's for chicken

Browse source
This commit is contained in:
Alex Shinn 2017-01-31 22:47:01 +09:00
parent 57f1b44d14
commit 1a1dfc64ca
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/chibi/snow/commands.scm
View file

@ -1727,9 +1727,15 @@
(library-shared-include-files (library-shared-include-files
impl cfg (make-path dir library-file)))))))) impl cfg (make-path dir library-file))))))))
(define (chicken-library-base name)
(if (and (= 2 (length name)) (eq? 'srfi (car name)) (integer? (cadr name)))
(string-append "srfi-" (number->string (cadr name)))
(string-join (map x->string name) ".")))
(define (chicken-installer impl cfg library dir) (define (chicken-installer impl cfg library dir)
(let* ((library-file (get-library-file cfg library)) (let* ((library-file (get-library-file cfg library))
(library-base (string-join (map x->string (library-name library)) ".")) (name (library-name library))
(library-base (chicken-library-base name))
(install-dir (get-install-library-dir impl cfg)) (install-dir (get-install-library-dir impl cfg))
(so-path (string-append library-base ".so")) (so-path (string-append library-base ".so"))
(imp-path (string-append library-base ".import.scm")) (imp-path (string-append library-base ".import.scm"))
@ -1889,8 +1895,7 @@
(define (chicken-builder impl cfg library dir) (define (chicken-builder impl cfg library dir)
(let* ((library-file (make-path dir (get-library-file cfg library))) (let* ((library-file (make-path dir (get-library-file cfg library)))
(library-base (string-join (map x->string (library-name library)) ".")) (library-base (chicken-library-base (library-name library)))
(module-name (string-join (map x->string (library-name library)) "."))
(so-path (make-path dir (string-append library-base ".so"))) (so-path (make-path dir (string-append library-base ".so")))
(imp-path (string-append library-base ".import.scm"))) (imp-path (string-append library-base ".import.scm")))
(with-directory (with-directory