amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: knot: Use G-expressions.

Browse source 
* gnu/packages/dns.scm (knot)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-09 02:00:04 +02:00
parent 60bb22a9da
commit 1c347cd56a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 71 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/dns.scm
View file

@ -866,12 +866,12 @@ Extensions} (DNSSEC).")
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs (list "out" "doc" "lib" "tools")) (outputs (list "out" "doc" "lib" "tools"))
(arguments (arguments
`(#:configure-flags (list
(list (string-append "--docdir=" (assoc-ref %outputs "doc") #:configure-flags
"/share/" ,name "-" ,version) #~(list (string-append "--docdir=" #$output:doc
(string-append "--infodir=" (assoc-ref %outputs "doc") "/share/" #$name "-" #$version)
"/share/info") (string-append "--infodir=" #$output:doc "/share/info")
(string-append "--libdir=" (assoc-ref %outputs "lib") "/lib") (string-append "--libdir=" #$output:lib "/lib")
"--sysconfdir=/etc" "--sysconfdir=/etc"
"--localstatedir=/var" "--localstatedir=/var"
"--disable-static" ; static libraries are built by default "--disable-static" ; static libraries are built by default
@ -880,7 +880,7 @@ Extensions} (DNSSEC).")
"--enable-xdp=yes" "--enable-xdp=yes"
"--with-module-dnstap=yes") ; detailed query capturing & logging "--with-module-dnstap=yes") ; detailed query capturing & logging
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'link-missing-libbpf-dependency (add-after 'unpack 'link-missing-libbpf-dependency
;; Linking against -lbpf later would fail to find -lz: libbpf.pc has ;; Linking against -lbpf later would fail to find -lz: libbpf.pc has
;; zlib in its Requires.private (not Requires) field. Add it here. ;; zlib in its Requires.private (not Requires) field. Add it here.
@ -905,9 +905,9 @@ Extensions} (DNSSEC).")
'()) '())
,@make-flags)))) ,@make-flags))))
(replace 'install (replace 'install
(lambda* (#:key make-flags outputs parallel-build? #:allow-other-keys) (lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((doc (string-append #$output "/share/doc/"
(doc (string-append out "/share/doc/" ,name "-" ,version)) #$name "-" #$version))
(etc (string-append doc "/examples/etc"))) (etc (string-append doc "/examples/etc")))
(apply invoke "make" "install" (apply invoke "make" "install"
(string-append "config_dir=" etc) (string-append "config_dir=" etc)
@ -923,22 +923,20 @@ Extensions} (DNSSEC).")
'()) '())
,@make-flags)))) ,@make-flags))))
(add-after 'install 'break-circular-:lib->:out-reference (add-after 'install 'break-circular-:lib->:out-reference
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((lib (assoc-ref outputs "lib")))
(for-each (lambda (file) (for-each (lambda (file)
(substitute* file (substitute* file
(("(prefix=).*" _ assign) (("(prefix=).*" _ assign)
(string-append assign lib "\n")))) (string-append assign #$output:lib "\n"))))
(find-files lib "\\.pc$"))))) (find-files #$output:lib "\\.pc$"))))
(add-after 'install 'split-:tools (add-after 'install 'split:tools
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (define (move source target file)
(tools (assoc-ref outputs "tools"))) (mkdir-p (dirname (string-append target "/" file)))
(mkdir-p (string-append tools "/share/man")) (rename-file (string-append source "/" file)
(rename-file (string-append out "/bin") (string-append target "/" file)))
(string-append tools "/bin")) (move #$output #$output:tools "bin")
(rename-file (string-append out "/share/man/man1") (move #$output #$output:tools "share/man/man1"))))))
(string-append tools "/share/man/man1"))))))))
(native-inputs (native-inputs
(list autoconf (list autoconf
automake automake