Clean up the kawa-builder code

This commit is contained in:
retropikzel 2025-06-27 19:21:05 +03:00
parent c3687d22e4
commit f57c1d64a4

View file

@ -2157,24 +2157,15 @@
library))))) library)))))
(define (kawa-builder impl cfg library dir) (define (kawa-builder impl cfg library dir)
(let* ((library-file (get-library-file cfg library)) (let* ((src-library-file (make-path dir (get-library-file cfg library)))
(src-library-file (make-path dir library-file)) (res (system 'kawa
(library-dir (path-directory src-library-file)) '-d dir
(dest-library-file '-C src-library-file)))
(string-append (library->path cfg library) ".class")) (and (or (and (pair? res) (zero? (cadr res)))
(dest-dir (yes-or-no? cfg ".class file failed to build: "
(path-directory (make-path dir dest-library-file)))) (library-name library)
;; ensure the build directory exists " - install anyway?"))
(create-directory* dest-dir) library)))
(with-directory
dir
(lambda ()
(let ((res (system 'kawa '-d dir '-C src-library-file)))
(and (or (and (pair? res) (zero? (cadr res)))
(yes-or-no? cfg ".class file failed to build: "
(library-name library)
" - install anyway?"))
library))))))
(define (lookup-builder builder) (define (lookup-builder builder)
(case builder (case builder