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)))))
(define (kawa-builder impl cfg library dir)
(let* ((library-file (get-library-file cfg library))
(src-library-file (make-path dir library-file))
(library-dir (path-directory src-library-file))
(dest-library-file
(string-append (library->path cfg library) ".class"))
(dest-dir
(path-directory (make-path dir dest-library-file))))
;; ensure the build directory exists
(create-directory* dest-dir)
(with-directory
dir
(lambda ()
(let ((res (system 'kawa '-d dir '-C src-library-file)))
(let* ((src-library-file (make-path dir (get-library-file cfg library)))
(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))))))
library)))
(define (lookup-builder builder)
(case builder