From: Alex Kost <alezost@gmail.com>
To: Mathieu Lirzin <mthl@gnu.org>
Cc: Guix-devel <guix-devel@gnu.org>
Subject: Re: [PATCH] gnu: bind-utils: Build and install “nsupdate”.
Date: Thu, 14 Jan 2016 11:59:26 +0300 [thread overview]
Message-ID: <87lh7stu35.fsf@gmail.com> (raw)
In-Reply-To: <8760yxt2by.fsf@gnu.org> (Mathieu Lirzin's message of "Thu, 14 Jan 2016 01:46:41 +0100")
Mathieu Lirzin (2016-01-14 03:46 +0300) wrote:
> Hi,
>
> Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> writes:
>
>>From ba328617777728c3534be6796b6b32a9a90954b6 Mon Sep 17 00:00:00 2001
>> From: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
>> Date: Wed, 13 Jan 2016 16:06:36 +0100
>> Subject: [PATCH] gnu: bind-utils: Build and install "nsupdate".
>>
>> * gnu/packages/dns.scm (bind-utils)[arguments]: Generalize "build" and
>> "install" phases.
>> ---
>> gnu/packages/dns.scm | 105 ++++++++++++++++++++++++++++-----------------------
>> 1 file changed, 58 insertions(+), 47 deletions(-)
>>
>> diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm
>> index 8357dad..0a42722 100644
>> --- a/gnu/packages/dns.scm
>> +++ b/gnu/packages/dns.scm
> [...]
>> + (arguments
>> + `(#:tests? #f ; no test phase implemented
>> + #:configure-flags
>> + (list (string-append "--with-openssl="
>> + (assoc-ref %build-inputs "openssl"))
>> + (string-append "--with-dlz-mysql="
>> + (assoc-ref %build-inputs "mysql"))
>> + (string-append "--with-pkcs11="
>> + (assoc-ref %build-inputs "p11-kit")))
>
> What about:
>
> #:configure-flags
> (map (lambda (opt val)
> (string-append opt (assoc-ref %build-inputs val)))
> '("--with-openssl=" "--with-dlz-mysql=" "--with-pkcs11=")
> '("openssl" "mysql" "p11-kit"))
As for me, I prefer the original variant as it looks more clear for me.
When I look at this (map ...), I need some time to understand what it
does.
>> + #:modules ((srfi srfi-1)
>> + (srfi srfi-26)
>> + ,@%gnu-build-system-modules)
>> + #:phases
>> + (modify-phases %standard-phases
>> + (replace 'build
>> + (lambda _
>> + (fold (lambda (dir pass)
>> + (and pass (zero? (system* "make" "-C" dir))))
>> + #t
>> + (append
>> + (map (cut string-append "lib/" <>)
>> + (list ,@libs))
>> + (map (cut string-append "bin/" <>)
>> + (list ,@bins))))))
>> + (replace 'install
>> + (lambda _
>> + (fold (lambda (dir pass)
>> + (and pass (zero? (system* "make" "-C" dir "install"))))
>> + #t
>> + (map (cut string-append "bin/" <>)
>> + (list ,@bins))))))))
>
> and this:
>
> (let ((libs '("dns" "isc" "bind9" "isccfg" "lwres"))
> (bins '("dig" "nsupdate")))
> (modify-phases %standard-phases
> (replace 'build
> (lambda _
> (every (lambda (dir)
> (zero? (system* "make" "-C" dir)))
> (append (map (cut string-append "lib/" <>) libs)
> (map (cut string-append "bin/" <>) bins)))))
> (replace 'install
> (lambda _
> (every (lambda (dir)
> (zero? (system* "make" "-C" dir "install")))
> (map (cut string-append "bin/" <>) bins))))))))
>
I also think 'every' is more suitable here.
--
Alex
next prev parent reply other threads:[~2016-01-14 8:59 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-01-13 15:11 [PATCH] gnu: bind-utils: Build and install “nsupdate” Ricardo Wurmus
2016-01-14 0:46 ` Mathieu Lirzin
2016-01-14 8:59 ` Alex Kost [this message]
2016-01-14 11:53 ` Ricardo Wurmus
2016-01-14 23:46 ` Mathieu Lirzin
2016-01-21 10:52 ` Ricardo Wurmus
2016-01-21 13:14 ` Mathieu Lirzin
2016-01-21 14:58 ` Ricardo Wurmus
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87lh7stu35.fsf@gmail.com \
--to=alezost@gmail.com \
--cc=guix-devel@gnu.org \
--cc=mthl@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).