guix_mirror_bot pushed a commit to branch misc-world-rebuild in repository guix.
commit 4f5be720ae34b664a02ce122f5c1742b0ad76dd6 Author: Nicolas Graves <[email protected]> AuthorDate: Tue Apr 14 02:55:30 2026 +0200 gnu: net-tools: Improve style. * gnu/packages/linux.scm (net-tools): Run guix style. [origin]: Run guix style. [arguments]: Reorder them. <#:phases>: Rewrite 'configure phase. [native-inputs]: Drop input labels. Change-Id: I7a1425c3a8ea955bd9322eee788ab05377d71c15 Signed-off-by: Nguyễn Gia Phong <[email protected]> --- gnu/packages/linux.scm | 103 ++++++++++++++++++++++++------------------------- 1 file changed, 50 insertions(+), 53 deletions(-) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 2d4411d974..d156bc4653 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -4623,65 +4623,62 @@ inadequately in modern network environments, and both should be deprecated.") (revision "0")) (package (name "net-tools") - (version (string-append "1.60-" revision "." (string-take commit 7))) - (source (origin - (method url-fetch) - (uri (string-append "https://sourceforge.net/code-snapshots/git/"; - "n/ne/net-tools/code.git/net-tools-code-" - commit ".zip")) - (file-name (string-append name "-" version ".zip")) - (sha256 - (base32 - "0hz9fda9d78spp774b6rr5xaxav7cm4h0qcpxf70rvdbrf6qx7vy")))) + (version (string-append "1.60-" revision "." + (string-take commit 7))) + (source + (origin + (method url-fetch) + (uri (string-append "https://sourceforge.net/code-snapshots/git/"; + "n/ne/net-tools/code.git/net-tools-code-" commit + ".zip")) + (file-name (string-append name "-" version ".zip")) + (sha256 + (base32 "0hz9fda9d78spp774b6rr5xaxav7cm4h0qcpxf70rvdbrf6qx7vy")))) (home-page "https://net-tools.sourceforge.net/";) (build-system gnu-build-system) (arguments - `(#:modules ((guix build gnu-build-system) + (list + ;; Binaries that depend on libnet-tools.a don't declare that + ;; dependency, making it parallel-unsafe. + #:parallel-build? #f + + #:tests? #f ;no test suite + #:make-flags + #~(list #$(string-append "CC=" (cc-for-target)) + (string-append "BASEDIR=" #$output) + (string-append "INSTALLNLSDIR=" #$output "/share/locale") + (string-append "mandir=/share/man")) + #:modules `((guix build gnu-build-system) (guix build utils) (srfi srfi-1) (srfi srfi-26)) - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (mkdir-p (string-append out "/bin")) - (mkdir-p (string-append out "/sbin")) - - ;; Pretend we have everything... - (system "yes | make config") - - ;; ... except for the things we don't have. - ;; HAVE_AFDECnet requires libdnet, which we don't have. - ;; HAVE_HWSTRIP and HAVE_HWTR require kernel headers - ;; that have been removed. - ;; XXX SELINUX and AFBLUETOOTH are removed for now, but we should - ;; think about adding them later. - (substitute* '("config.make" "config.h") - (("^.*HAVE_(AFDECnet|HWSTRIP|HWTR|SELINUX|AFBLUETOOTH)[ =]1.*$") - "")) - #t))) - (add-after 'install 'remove-redundant-commands - (lambda* (#:key outputs #:allow-other-keys) - ;; Remove commands and man pages redundant with Inetutils. - (let* ((out (assoc-ref outputs "out")) - (dup (append-map (cut find-files out <>) - '("^hostname" - "^(yp|nis|dns)?domainname")))) - (for-each delete-file dup) - #t)))) - ;; Binaries that depend on libnet-tools.a don't declare that - ;; dependency, making it parallel-unsafe. - #:parallel-build? #f - - #:tests? #f ; no test suite - #:make-flags (let ((out (assoc-ref %outputs "out"))) - (list ,(string-append "CC=" (cc-for-target)) - (string-append "BASEDIR=" out) - (string-append "INSTALLNLSDIR=" out "/share/locale") - (string-append "mandir=/share/man"))))) - (native-inputs `(("gettext" ,gettext-minimal) - ("unzip" ,unzip))) + #:phases + #~(modify-phases %standard-phases + (replace 'configure + (lambda _ + (mkdir-p (string-append #$output "/bin")) + (mkdir-p (string-append #$output "/sbin")) + + ;; Pretend we have everything... + (system "yes | make config") + + ;; ... except for the things we don't have. + ;; HAVE_AFDECnet requires libdnet, which we don't have. + ;; HAVE_HWSTRIP and HAVE_HWTR require kernel headers + ;; that have been removed. + ;; XXX SELINUX and AFBLUETOOTH are removed for now, but we should + ;; think about adding them later. + (substitute* '("config.make" "config.h") + (("^.*HAVE_(AFDECnet|HWSTRIP|HWTR|SELINUX|AFBLUETOOTH)[ =]1.*$") + "")))) + (add-after 'install 'remove-redundant-commands + (lambda _ + ;; Remove commands and man pages redundant with Inetutils. + (for-each delete-file + (append-map (cute find-files #$output <>) + '("^hostname" + "^(yp|nis|dns)?domainname")))))))) + (native-inputs (list gettext-minimal unzip)) (supported-systems (remove target-hurd? %supported-systems)) (synopsis "Tools for controlling the network subsystem in Linux") (description
