TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: traceroute: Use G-expressions.

Browse source 
* gnu/packages/networking.scm (traceroute)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-16 02:00:01 +02:00
parent 708f62bc1c
commit 818e9ad283
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/networking.scm
View file

@ -4210,23 +4210,25 @@ (define-public traceroute
(base32 "07svkglyizxirgcmv6d4ih59f3ds8pnyprvkrqcf5d3p567jcz2h")))) (base32 "07svkglyizxirgcmv6d4ih59f3ds8pnyprvkrqcf5d3p567jcz2h"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ;no test suite (list
#:make-flags #:tests? #f ; no test suite
(list (string-append "LIBRARY_PATH=" #:make-flags
(assoc-ref %build-inputs "libc") "/lib") #~(list (string-append "LIBRARY_PATH="
(string-append "CFLAGS=-I" (assoc-ref %build-inputs "libc") "/lib")
(assoc-ref %build-inputs "kernel-headers") (string-append "CFLAGS=-I"
"/include") (assoc-ref %build-inputs "kernel-headers")
"LDFLAGS=-lm -L../libsupp" "/include")
(string-append "prefix=" (assoc-ref %outputs "out"))) "LDFLAGS=-lm -L../libsupp"
#:phases (string-append "prefix=" #$output))
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-make #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'patch-make
(substitute* "default.rules" (lambda _
((" \\$\\(LIBDEPS\\)") "$(filter-out -l%,$(LIBDEPS))")))) (substitute* "default.rules"
(delete 'bootstrap) ;no configure.ac file ((" \\$\\(LIBDEPS\\)")
(delete 'configure)))) ;no configure script "$(filter-out -l%,$(LIBDEPS))"))))
(delete 'bootstrap) ; no configure.ac file
(delete 'configure)))) ; no configure script
(home-page "https://traceroute.sourceforge.net/") (home-page "https://traceroute.sourceforge.net/")
(synopsis "Tracks the route taken by packets over an IP network") (synopsis "Tracks the route taken by packets over an IP network")
(description "This package provides a modern, but Linux-specific (description "This package provides a modern, but Linux-specific