Corrected Makefile.rkt

This commit is contained in:
2026-11-02 08:26:32 +01:00
parent abc5464c78
commit 6d04443349
+39 -35
View File
@@ -1,46 +1,50 @@
#lang racket-makefile #lang racket
(require git (require git-cli
racket-makefile
package-zipper) package-zipper)
(target all
(displayln "main branch: use (make clean) or (make package)"))
(target clean (makefile 'racket-audio-native-libs
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
(for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t)) (target 'all
(when (directory-exists? "scrbl") (displayln "main branch: use (make clean) or (make package)"))
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")))
)
(target package (target 'clean
(deps clean) (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
(zip-package)) (for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t))
(when (directory-exists? "scrbl")
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")))
)
(target housekeeping (target 'package
(displayln "Committing changes for:") (deps 'clean)
(let ((changes (git 'status))) (zip-package))
(when (> (length changes) 0)
(dgit 'status)
(displayln "Adding...")
(dgit 'add '-A)
(displayln "Committing...")
(dgit 'commit (git-prompt))
(displayln "Pushing...")
(dgit 'push)))
)
(target windows (target 'housekeeping
(deps housekeeping) (displayln "Committing changes for:")
(displayln "Switching to x86_64-win32") (let ((changes (git 'status)))
(dgit 'switch "x86_64-win32")) (when (> (length changes) 0)
(git 'status)
(displayln "Adding...")
(git 'add '-A)
(displayln "Committing...")
(git 'commit)
(displayln "Pushing...")
(git 'push)))
)
(target linux-x86_64 (target 'windows
(deps housekeeping) (deps 'housekeeping)
(displayln "Switching to x86_64-linux") (displayln "Switching to x86_64-win32")
(dgit 'switch "x86_64-linux")) (git 'switch "x86_64-win32"))
(target linux (target 'linux-x86_64
(deps linux-x86_64)) (deps 'housekeeping)
(displayln "Switching to x86_64-linux")
(git 'switch "x86_64-linux"))
(target 'linux
(deps 'linux-x86_64))
)