me
/
guix
Archived
1
0
Fork 0
Code

gnu: knot: Honour PARALLEL-BUILD?. 

* gnu/packages/dns.scm (knot)[arguments]:
Spawn multiple make jobs if requested.
master
Tobias Geerinckx-Rice 2021-10-03 21:46:15 +02:00
parent fdb4540f78
commit 7f5e881e31
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/dns.scm
View File

@ -870,19 +870,30 @@ Extensions} (DNSSEC).")
;; This is needed even when using ‘make config_dir=... install’.
(substitute* "src/Makefile.in" (("\\$\\(INSTALL\\) -d") "true"))))
(add-after 'build 'build-info
(lambda _
(invoke "make" "info")))
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(apply invoke "make" "info"
`(,@(if parallel-build?
`("-j" ,(number->string (parallel-job-count)))
'())
,@make-flags))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key make-flags outputs parallel-build? #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/" ,name "-" ,version))
(etc (string-append doc "/examples/etc")))
(invoke "make"
(apply invoke "make" "install"
(string-append "config_dir=" etc)
"install"))))
`(,@(if parallel-build?
`("-j" ,(number->string (parallel-job-count)))
'())
,@make-flags)))))
(add-after 'install 'install-info
(lambda _
(invoke "make" "install-info")))
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(apply invoke "make" "install-info"
`(,@(if parallel-build?
`("-j" ,(number->string (parallel-job-count)))
'())
,@make-flags))))
(add-after 'install 'break-circular-:lib->:out-reference
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib (assoc-ref outputs "lib")))