puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch magic): add post-build hook

Browse source 
..This is really starting to look like a build scheduler, huh?

Change-Id: I6a6a696433e0a13f8de759061d47e737d48f4342
This commit is contained in:
puck 2025-06-18 17:07:16 +00:00
parent 9b61f4df0a
commit 31bdc68f8c
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/src/magic.sld
View file

@ -25,6 +25,7 @@
store-path-devirtualise store-path-devirtualise
store-path-register-fallback store-path-register-fallback
store-path-register-post-build
ca-thread-count drv-resolve-ca ca-thread-count drv-resolve-ca
@ -464,6 +465,11 @@
(mutex-lock! pending-count-mutex) (mutex-lock! pending-count-mutex)
(unless (eq? pending-count 'error) (unless (eq? pending-count 'error)
(set! pending-count (- pending-count 1))) (set! pending-count (- pending-count 1)))
; Notify the derivation that it is built.
(let* ((meta (derivation-meta ca-drv))
(post-build (and meta (assoc 'post-build meta))))
(when post-build ((cdr post-build) (pending-item-resolved-paths item))))
(mutex-unlock! pending-count-mutex) (mutex-unlock! pending-count-mutex)
(mutex-lock! pending-mutex) (mutex-lock! pending-mutex)
(set-pending-item-awaiting-count! item 'built) (set-pending-item-awaiting-count! item 'built)
@ -593,6 +599,11 @@
(set-derivation-meta! (store-path-drv path) (cons (cons 'fallback wrap-fallback) (or (derivation-meta (store-path-drv path)) '()))) (set-derivation-meta! (store-path-drv path) (cons (cons 'fallback wrap-fallback) (or (derivation-meta (store-path-drv path)) '())))
path) path)
; Note: this post-build hook is called with a mutex taken.
(define (store-path-register-post-build path callback)
(set-derivation-meta! (store-path-drv path) (cons (cons 'post-build callback) (or (derivation-meta (store-path-drv path)) '())))
path)
(register-build-step '((zilch core magic) build) #t (register-build-step '((zilch core magic) build) #t
(lambda items (lambda items
(printf "received build info: ~S\n" items) (printf "received build info: ~S\n" items)