ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: bind-utils: Generalize "build" and "install" phases.

Browse source 
* gnu/packages/dns.scm (bind-utils)[arguments]: Generalize "build" and
  "install" phases.
This commit is contained in:
Ricardo Wurmus 2016-01-21 11:41:10 +01:00
parent b2844d8f14
commit bd0eb6672b
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/dns.scm
View file

@ -91,18 +91,24 @@ (define-public bind-utils
(assoc-ref %build-inputs "mysql")) (assoc-ref %build-inputs "mysql"))
(string-append "--with-pkcs11=" (string-append "--with-pkcs11="
(assoc-ref %build-inputs "p11-kit"))) (assoc-ref %build-inputs "p11-kit")))
#:modules ((srfi srfi-1)
(srfi srfi-26)
,@%gnu-build-system-modules)
#:phases #:phases
(let ((libs '("dns" "isc" "bind9" "isccfg" "lwres"))
(bins '("dig")))
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'build (replace 'build
(lambda _ (lambda _
(and (zero? (system* "make" "-C" "lib/dns")) (every (lambda (dir)
(zero? (system* "make" "-C" "lib/isc")) (zero? (system* "make" "-C" dir)))
(zero? (system* "make" "-C" "lib/bind9")) (append (map (cut string-append "lib/" <>) libs)
(zero? (system* "make" "-C" "lib/isccfg")) (map (cut string-append "bin/" <>) bins)))))
(zero? (system* "make" "-C" "lib/lwres"))
(zero? (system* "make" "-C" "bin/dig")))))
(replace 'install (replace 'install
(lambda _ (zero? (system* "make" "-C" "bin/dig" "install"))))))) (lambda _
(every (lambda (dir)
(zero? (system* "make" "-C" dir "install")))
(map (cut string-append "bin/" <>) bins))))))))
(home-page "https://www.isc.org/downloads/bind/") (home-page "https://www.isc.org/downloads/bind/")
(synopsis "Tools for querying nameservers") (synopsis "Tools for querying nameservers")
(description (description