me
/
guix
Archived
1
0
Fork 0
Code

gnu: Use target-hurd?, system-hurd? instead of hurd-target?, hurd-system?. 

* gnu/packages/hurd.scm (hurd-target?): Remove.
(hurd-system?): Move to...
* guix/utils.scm (system-hurd?): ...here.
* gnu/packages/*: Update all users, removing (gnu packages hurd) include where
now unused.
master
Janneke Nieuwenhuizen 2023-06-17 13:51:05 +02:00
parent 52f2980fa3
commit ff690faf66
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
21 changed files with 80 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/acl.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Lars-Dominik Braun <ldb@leibniz-psychology.org> ;;; Copyright © 2021 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -28,14 +28,14 @@
#:use-module (gnu packages attr) #:use-module (gnu packages attr)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages hurd)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system python)) #:use-module (guix build-system python)
#:use-module (guix utils))
(define-public acl (define-public acl
(package (package
@ -55,7 +55,7 @@
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:configure-flags '("--disable-static") #:configure-flags '("--disable-static")
#:tests? ,(not (or (%current-target-system) #:tests? ,(not (or (%current-target-system)
(hurd-target?))) (target-hurd?)))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; XXX After repacking the sources the timestamps are reset to the ;; XXX After repacking the sources the timestamps are reset to the

13
gnu/packages/admin.scm
View File

@ -31,7 +31,7 @@
;;; Copyright © 2019, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2019, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020, 2021 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019, 2020, 2021 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com> ;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
@ -130,7 +130,6 @@
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
#:use-module (gnu packages hurd)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
#:use-module (gnu packages inkscape) #:use-module (gnu packages inkscape)
@ -913,7 +912,7 @@ re-executing them as necessary.")
,@(if (%current-target-system) ,@(if (%current-target-system)
'("--with-path-procnet-dev=/proc/net/dev") '("--with-path-procnet-dev=/proc/net/dev")
'()) '())
,@(if (hurd-target?) ,@(if (target-hurd?)
'("--disable-rcp" '("--disable-rcp"
"--disable-rexec" "--disable-rexec"
"--disable-rexecd" "--disable-rexecd"
@ -967,7 +966,7 @@ hostname.")
`(;; Assume System V `setpgrp (void)', which is the default on GNU `(;; Assume System V `setpgrp (void)', which is the default on GNU
;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.) ;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.)
#:configure-flags #:configure-flags
'(,@(if (hurd-target?) '(,@(if (target-hurd?)
'() '()
'("--with-libpam")) '("--with-libpam"))
"shadow_cv_logdir=/var/log" "shadow_cv_logdir=/var/log"
@ -1018,7 +1017,7 @@ hostname.")
(delete-file (string-append bin "/groups")) (delete-file (string-append bin "/groups"))
(for-each delete-file (find-files man "^groups\\.")))))))) (for-each delete-file (find-files man "^groups\\."))))))))
(inputs (inputs
`(,@(if (hurd-target?) `(,@(if (target-hurd?)
'() '()
`(("linux-pam" ,linux-pam))) `(("linux-pam" ,linux-pam)))
,@(if (%current-target-system) ,@(if (%current-target-system)
@ -1527,7 +1526,7 @@ connection alive.")
(inputs `(("inetutils" ,inetutils) (inputs `(("inetutils" ,inetutils)
("bash" ,bash-minimal) ("bash" ,bash-minimal)
,@(if (hurd-target?) '() ,@(if (target-hurd?) '()
`(("net-tools" ,net-tools) `(("net-tools" ,net-tools)
("iproute" ,iproute))) ("iproute" ,iproute)))
@ -2037,7 +2036,7 @@ system administrator.")
(list groff)) (list groff))
(inputs (inputs
`(("coreutils" ,coreutils) `(("coreutils" ,coreutils)
,@(if (hurd-target?) ,@(if (target-hurd?)
'() '()
`(("linux-pam" ,linux-pam))) `(("linux-pam" ,linux-pam)))
("zlib" ,zlib))) ("zlib" ,zlib)))

7
gnu/packages/attr.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2012, 2013, 2016, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2016, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,10 +24,10 @@
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages hurd)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu)) #:use-module (guix build-system gnu)
#:use-module (guix utils))
(define-public attr (define-public attr
(package (package
@ -43,7 +44,7 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
,@(if (hurd-target?) ,@(if (target-hurd?)
`((add-before 'configure 'skip-linux-syscalls `((add-before 'configure 'skip-linux-syscalls
(lambda _ (lambda _
;; Starting from 2.5.1, libattr includes Linux-specific ;; Starting from 2.5.1, libattr includes Linux-specific

28
gnu/packages/base.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2014 Alex Kost <alezost@gmail.com> ;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
;;; Copyright © 2014, 2015 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2014, 2015 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2016, 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org> ;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -132,7 +132,7 @@ command-line arguments, multiple languages, and so on.")
(string-append bin "/fgrep")) (string-append bin "/fgrep"))
(("^exec grep") (("^exec grep")
(string-append "exec " bin "/grep")))))) (string-append "exec " bin "/grep"))))))
,@(if (hurd-target?) ,@(if (target-hurd?)
'((add-before 'check 'skip-triple-backref-test '((add-before 'check 'skip-triple-backref-test
(lambda _ (lambda _
;; This test is marked as malfunctioning on glibc systems ;; This test is marked as malfunctioning on glibc systems
@ -144,7 +144,7 @@ command-line arguments, multiple languages, and so on.")
(("^warn_" all) (("^warn_" all)
(string-append "exit 77\n" all)))))) (string-append "exit 77\n" all))))))
'())) '()))
#:make-flags ,(if (hurd-target?) #:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2 equiv-classes") ;XXX ''("XFAIL_TESTS=test-perror2 equiv-classes") ;XXX
''()))) ''())))
(synopsis "Print lines matching a pattern") (synopsis "Print lines matching a pattern")
@ -186,7 +186,7 @@ including, for example, recursive directory searching.")
(modules '((guix build utils))))) (modules '((guix build utils)))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags ,(if (hurd-target?) `(#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2") ''("XFAIL_TESTS=test-perror2")
''()))) ''())))
(synopsis "Stream editor") (synopsis "Stream editor")
@ -217,7 +217,7 @@ implementation offers several extensions over the standard utility.")
;; Note: test suite requires ~1GiB of disk space. ;; Note: test suite requires ~1GiB of disk space.
(arguments (arguments
`(,@(cond `(,@(cond
((hurd-target?) ((target-hurd?)
'(#:make-flags '(#:make-flags
(list (string-append (list (string-append
"TESTSUITEFLAGS= -k '" "TESTSUITEFLAGS= -k '"
@ -309,7 +309,7 @@ differences.")
(patches (search-patches "diffutils-fix-signal-processing.patch")))) (patches (search-patches "diffutils-fix-signal-processing.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags ,(if (hurd-target?) `(#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2 large-subopt") ''("XFAIL_TESTS=test-perror2 large-subopt")
''()))) ''())))
(native-inputs (list perl)) (native-inputs (list perl))
@ -347,7 +347,7 @@ interactive means to merge two files.")
"tests/find/exec-plus-last-file.sh") "tests/find/exec-plus-last-file.sh")
(("#!/bin/sh") (("#!/bin/sh")
(string-append "#!" (which "sh"))))))) (string-append "#!" (which "sh")))))))
#:make-flags ,(if (hurd-target?) #:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-strerror_r") ''("XFAIL_TESTS=test-strerror_r")
''()))) ''())))
(synopsis "Operating on files matching given criteria") (synopsis "Operating on files matching given criteria")
@ -395,7 +395,7 @@ used to apply commands with arbitrarily long arguments.")
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(#:parallel-build? #f ; help2man may be called too early `(#:parallel-build? #f ; help2man may be called too early
,@(if (hurd-target?) ,@(if (target-hurd?)
'(#:make-flags ; these tests fail deterministically '(#:make-flags ; these tests fail deterministically
(list (string-append "XFAIL_TESTS=tests/misc/env-S.pl" (list (string-append "XFAIL_TESTS=tests/misc/env-S.pl"
" tests/misc/kill.sh" " tests/misc/kill.sh"
@ -433,7 +433,7 @@ used to apply commands with arbitrarily long arguments.")
(("#!/bin/sh") (string-append "#!" (which "sh")))))) (("#!/bin/sh") (string-append "#!" (which "sh"))))))
(add-after 'unpack 'remove-tests (add-after 'unpack 'remove-tests
(lambda _ (lambda _
,@(if (hurd-target?) ,@(if (target-hurd?)
'((substitute* "Makefile.in" '((substitute* "Makefile.in"
;; this test hangs ;; this test hangs
(("^ *tests/misc/timeout-group.sh.*") "")) (("^ *tests/misc/timeout-group.sh.*") ""))
@ -511,7 +511,7 @@ standard.")
(inputs (list guile-3.0)) (inputs (list guile-3.0))
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(,@(if (hurd-target?) `(,@(if (target-hurd?)
'(#:configure-flags '("CFLAGS=-D__alloca=alloca" '(#:configure-flags '("CFLAGS=-D__alloca=alloca"
"ac_cv_func_posix_spawn=no")) "ac_cv_func_posix_spawn=no"))
'()) '())
@ -798,7 +798,7 @@ the store.")
;; libc provides <hurd.h>, which includes a bunch of Hurd and Mach headers, ;; libc provides <hurd.h>, which includes a bunch of Hurd and Mach headers,
;; so both should be propagated. ;; so both should be propagated.
(propagated-inputs (propagated-inputs
(if (hurd-target?) (if (target-hurd?)
`(("hurd-core-headers" ,hurd-core-headers)) `(("hurd-core-headers" ,hurd-core-headers))
`(("kernel-headers" ,linux-libre-headers)))) `(("kernel-headers" ,linux-libre-headers))))
@ -864,7 +864,7 @@ the store.")
;; On GNU/Hurd we get discarded-qualifiers warnings for ;; On GNU/Hurd we get discarded-qualifiers warnings for
;; 'device_write_inband' among other things. Ignore them. ;; 'device_write_inband' among other things. Ignore them.
,@(if (hurd-target?) ,@(if (target-hurd?)
`("--disable-werror" `("--disable-werror"
,@%glibc/hurd-configure-flags) ,@%glibc/hurd-configure-flags)
'())) '()))
@ -992,7 +992,7 @@ the store.")
(map (cut string-append slib "/" <>) (map (cut string-append slib "/" <>)
files)))))) files))))))
,@(if (hurd-target?) ,@(if (target-hurd?)
'((add-after 'install 'augment-libc.so '((add-after 'install 'augment-libc.so
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out")))
@ -1012,7 +1012,7 @@ the store.")
("gettext" ,gettext-minimal) ("gettext" ,gettext-minimal)
("python" ,python-minimal) ("python" ,python-minimal)
,@(if (hurd-target?) ,@(if (target-hurd?)
`(("mig" ,mig) `(("mig" ,mig)
("perl" ,perl)) ("perl" ,perl))
'()))) '())))

3
gnu/packages/cmake.scm
View File

@ -46,7 +46,6 @@
#:use-module (gnu packages crypto) #:use-module (gnu packages crypto)
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#:use-module (gnu packages file) #:use-module (gnu packages file)
#:use-module (gnu packages hurd)
#:use-module (gnu packages kde-frameworks) #:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
@ -214,7 +213,7 @@ using the CMake build system.")
(apply invoke "./configure" configure-flags)))))) (apply invoke "./configure" configure-flags))))))
(inputs (inputs
(append (append
(if (hurd-target?) (if (target-hurd?)
'() '()
(list libuv)) ;not supported on the Hurd (list libuv)) ;not supported on the Hurd
(list bzip2 (list bzip2

12
gnu/packages/commencement.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017, 2018, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2019-2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2019-2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2022 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2020, 2022 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org> ;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org>
@ -2786,7 +2786,7 @@ memoized as a function of '%current-system'."
"/lib/python" "/lib/python"
,(version-major+minor version) ,(version-major+minor version)
"/test")))) "/test"))))
,@(if (hurd-system?) ,@(if (system-hurd?)
`((add-before 'build 'fix-regen `((add-before 'build 'fix-regen
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((libc (assoc-ref inputs "libc"))) (let ((libc (assoc-ref inputs "libc")))
@ -2841,7 +2841,7 @@ memoized as a function of '%current-system'."
`(append (list ,(string-append "--host=" (boot-triplet)) `(append (list ,(string-append "--host=" (boot-triplet))
,(string-append "--build=" ,(string-append "--build="
(nix-system->gnu-triplet)) (nix-system->gnu-triplet))
,(if (hurd-system?) "--disable-werror" ,(if (system-hurd?) "--disable-werror"
"")) ""))
,flags)) ,flags))
((#:phases phases) ((#:phases phases)
@ -2853,7 +2853,7 @@ memoized as a function of '%current-system'."
(unsetenv "CPLUS_INCLUDE_PATH") (unsetenv "CPLUS_INCLUDE_PATH")
;; Tell 'libpthread' where to find 'libihash' on Hurd systems. ;; Tell 'libpthread' where to find 'libihash' on Hurd systems.
,@(if (hurd-system?) ,@(if (system-hurd?)
'((substitute* '("sysdeps/mach/Makefile" '((substitute* '("sysdeps/mach/Makefile"
"sysdeps/mach/hurd/Makefile") "sysdeps/mach/hurd/Makefile")
(("LDLIBS-pthread.so =.*") (("LDLIBS-pthread.so =.*")
@ -2873,7 +2873,7 @@ memoized as a function of '%current-system'."
,@(%boot1-inputs) ,@(%boot1-inputs)
;; A native MiG is needed to build Glibc on Hurd. ;; A native MiG is needed to build Glibc on Hurd.
,@(if (hurd-system?) ,@(if (system-hurd?)
`(("mig" ,mig-boot0)) `(("mig" ,mig-boot0))
'()) '())
@ -3024,7 +3024,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
(,(gexp-input gcc-boot0 "lib") (,(gexp-input gcc-boot0 "lib")
,(kernel-headers-boot0) ,(kernel-headers-boot0)
,static-bash-for-glibc ,static-bash-for-glibc
,@(if (hurd-system?) ,@(if (system-hurd?)
`(,gnumach-headers-boot0 `(,gnumach-headers-boot0
,hurd-headers-boot0) ,hurd-headers-boot0)
'()) '())

4
gnu/packages/gdb.scm
View File

@ -114,14 +114,14 @@
("libxml2" ,libxml2) ("libxml2" ,libxml2)
;; The Hurd needs -lshouldbeinlibc. ;; The Hurd needs -lshouldbeinlibc.
,@(if (hurd-target?) ,@(if (target-hurd?)
`(("hurd" ,hurd)) `(("hurd" ,hurd))
'()))) '())))
(native-inputs (native-inputs
`(("texinfo" ,texinfo) `(("texinfo" ,texinfo)
("dejagnu" ,dejagnu) ("dejagnu" ,dejagnu)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
,@(if (hurd-target?) ,@(if (target-hurd?)
;; When cross-compiling from x86_64-linux, make sure to use a ;; When cross-compiling from x86_64-linux, make sure to use a
;; 32-bit MiG because we assume target i586-pc-gnu. ;; 32-bit MiG because we assume target i586-pc-gnu.
`(("mig" ,(if (%current-target-system) `(("mig" ,(if (%current-target-system)

7
gnu/packages/gettext.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Miguel <rosen644835@gmail.com> ;;; Copyright © 2019 Miguel <rosen644835@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 EuAndreh <eu@euandre.org> ;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com> ;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com> ;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
@ -42,7 +42,6 @@
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages docbook) #:use-module (gnu packages docbook)
#:use-module (gnu packages emacs) #:use-module (gnu packages emacs)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libunistring) #:use-module (gnu packages libunistring)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
@ -124,7 +123,7 @@
"coreutils-gnulib-tests.patch"))))) "coreutils-gnulib-tests.patch")))))
'()) '())
#$@(if (hurd-target?) #$@(if (target-hurd?)
#~((substitute* #~((substitute*
"gettext-tools/gnulib-tests/Makefile.in" "gettext-tools/gnulib-tests/Makefile.in"
;; See 'coreutils' for the rationale. ;; See 'coreutils' for the rationale.
@ -135,7 +134,7 @@
;; When tests fail, we want to know the details. ;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes" #:make-flags #~'("VERBOSE=yes"
#$@(if (hurd-target?) #$@(if (target-hurd?)
'("XFAIL_TESTS=test-perror2") '("XFAIL_TESTS=test-perror2")
'())))) '()))))
(home-page "https://www.gnu.org/software/gettext/") (home-page "https://www.gnu.org/software/gettext/")

5
gnu/packages/guile-xyz.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2016, 2017, 2021 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016, 2017, 2021 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org> ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2016, 2021 Amirouche <amirouche@hypermove.net> ;;; Copyright © 2016, 2021 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2016, 2019, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2019, 2021, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 David Thompson <davet@gnu.org> ;;; Copyright © 2017 David Thompson <davet@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -89,7 +89,6 @@
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages haskell-xyz) ;pandoc #:use-module (gnu packages haskell-xyz) ;pandoc
#:use-module (gnu packages hurd)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
@ -822,7 +821,7 @@ Unix-style DSV format and RFC 4180 format.")
gettext-minimal)) gettext-minimal))
(inputs (inputs
(append (list guile-3.0) ;for libguile-3.0.so (append (list guile-3.0) ;for libguile-3.0.so
(if (hurd-target?) (if (target-hurd?)
(list libevent) (list libevent)
'()))) '())))
(synopsis "Lightweight concurrency facility for Guile") (synopsis "Lightweight concurrency facility for Guile")

7
gnu/packages/guile.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org> ;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org>
;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Christine Lemmer-Webber <cwebber@dustycloud.org> ;;; Copyright © 2015, 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
@ -47,7 +47,6 @@
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages libunistring) #:use-module (gnu packages libunistring)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
@ -202,7 +201,7 @@ without requiring the source code to be rewritten.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
,@(if (hurd-system?) ,@(if (system-hurd?)
'((add-after 'unpack 'disable-tests '((add-after 'unpack 'disable-tests
(lambda _ (lambda _
;; Hangs at: "Running 00-repl-server.test" ;; Hangs at: "Running 00-repl-server.test"
@ -345,7 +344,7 @@ without requiring the source code to be rewritten.")
(not (%current-target-system))) (not (%current-target-system)))
((#:configure-flags flags #~'()) ((#:configure-flags flags #~'())
;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd. ;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd.
#~(cons* #$@(if (hurd-target?) #~(cons* #$@(if (target-hurd?)
#~("--disable-jit") #~("--disable-jit")
#~()) #~())
;; -fexcess-precision=standard is required when compiling for ;; -fexcess-precision=standard is required when compiling for

15
gnu/packages/hurd.scm
View File

@ -46,20 +46,7 @@
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (gnu packages onc-rpc) #:use-module (gnu packages onc-rpc)
#:use-module (gnu packages xorg) ; libpciaccess #:use-module (gnu packages xorg) ; libpciaccess
#:use-module (guix git-download) #:use-module (guix git-download))
#:export (hurd-system?
hurd-target?))
(define (hurd-target?)
"Return true if the cross-compilation target or the current system is
GNU/Hurd."
(or (and=> (%current-target-system) target-hurd?)
(and (not (%current-target-system))
(and=> (%current-system) target-hurd?))))
(define (hurd-system?)
"Return true if the current system is the Hurd."
(and=> (%current-system) target-hurd?))
(define (hurd-source-url version) (define (hurd-source-url version)
(string-append "mirror://gnu/hurd/hurd-" (string-append "mirror://gnu/hurd/hurd-"

4
gnu/packages/make-bootstrap.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2017, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018, 2019 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018, 2019, 2021, 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018, 2019, 2021, 2022, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
@ -626,7 +626,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
#~("AR=gcc-ar" "RANLIB=gcc-ranlib") #~("AR=gcc-ar" "RANLIB=gcc-ranlib")
#~()) #~())
#$@(if (hurd-target?) #$@(if (target-hurd?)
#~("--disable-jit") #~("--disable-jit")
#~()))) #~())))
((#:phases phases '%standard-phases) ((#:phases phases '%standard-phases)

10
gnu/packages/package-management.scm
View File

@ -12,7 +12,7 @@
;;; Copyright © 2019-2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com> ;;; Copyright © 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
@ -216,7 +216,7 @@
;; choose a fixed-width and short directory name ;; choose a fixed-width and short directory name
;; for tests. ;; for tests.
"ac_cv_guix_test_root=/tmp/guix-tests" "ac_cv_guix_test_root=/tmp/guix-tests"
,@(if (hurd-target?) '("--with-courage") '())) ,@(if (target-hurd?) '("--with-courage") '()))
#:parallel-tests? #f ;work around <http://bugs.gnu.org/21097> #:parallel-tests? #f ;work around <http://bugs.gnu.org/21097>
#:modules ((guix build gnu-build-system) #:modules ((guix build gnu-build-system)
@ -416,7 +416,7 @@ $(prefix)/etc/openrc\n")))
;; cross-compilation. ;; cross-compilation.
("guile" ,guile-3.0-latest) ;for faster builds ("guile" ,guile-3.0-latest) ;for faster builds
("guile-gnutls" ,guile-gnutls) ("guile-gnutls" ,guile-gnutls)
,@(if (hurd-target?) ,@(if (target-hurd?)
'() '()
`(("guile-avahi" ,guile-avahi))) `(("guile-avahi" ,guile-avahi)))
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
@ -476,7 +476,7 @@ $(prefix)/etc/openrc\n")))
(propagated-inputs (propagated-inputs
`(("guile-gnutls" ,guile-gnutls) `(("guile-gnutls" ,guile-gnutls)
;; Avahi requires "glib" which doesn't cross-compile yet. ;; Avahi requires "glib" which doesn't cross-compile yet.
,@(if (hurd-target?) ,@(if (target-hurd?)
'() '()
`(("guile-avahi" ,guile-avahi))) `(("guile-avahi" ,guile-avahi)))
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
@ -1442,7 +1442,7 @@ environments.")
"guile-zlib" "guile-zlib"
"guile-sqlite3" "guile-sqlite3"
"guile-gnutls" "guile-gnutls"
,@(if (hurd-target?) ,@(if (target-hurd?)
'() '()
'("guile-fibers"))))) '("guile-fibers")))))
(wrap-program file (wrap-program file

5
gnu/packages/pciutils.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot> ;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2022 Marius Bakke <marius@gnu.org>
;;; ;;;
@ -33,7 +33,6 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages hurd)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages base)) #:use-module (gnu packages base))
@ -162,7 +161,7 @@ Each database is contained in a specific package output, such as the
(native-inputs (native-inputs
(list `(,hwdata "pci") pkg-config which)) (list `(,hwdata "pci") pkg-config which))
(inputs (inputs
`(,@(if (not (hurd-target?)) `(,@(if (not (target-hurd?))
`(("kmod" ,kmod)) `(("kmod" ,kmod))
'()) '())
("zlib" ,zlib))) ("zlib" ,zlib)))

9
gnu/packages/python.scm
View File

@ -56,7 +56,7 @@
;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com> ;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com>
;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com> ;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; Copyright © 2022 jgart <jgart@dismail.de>
@ -85,7 +85,6 @@
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages dbm) #:use-module (gnu packages dbm)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages python-build) #:use-module (gnu packages python-build)
@ -245,7 +244,7 @@
"Lib/test/support/__init__.py" "Lib/test/support/__init__.py"
"Lib/test/test_subprocess.py")) "Lib/test/test_subprocess.py"))
(("/bin/sh") (which "sh"))))) (("/bin/sh") (which "sh")))))
,@(if (hurd-system?) ,@(if (system-hurd?)
`((add-before 'build 'patch-regen-for-hurd `((add-before 'build 'patch-regen-for-hurd
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((libc (assoc-ref inputs "libc"))) (let ((libc (assoc-ref inputs "libc")))
@ -458,7 +457,7 @@ data types.")
(format #f "TESTOPTS=-j~d" (parallel-job-count)) (format #f "TESTOPTS=-j~d" (parallel-job-count))
;; test_mmap fails on low-memory systems ;; test_mmap fails on low-memory systems
" --exclude test_mmap test_socket" " --exclude test_mmap test_socket"
,@(if (hurd-target?) ,@(if (target-hurd?)
'(" test_posix" ;multiple errors '(" test_posix" ;multiple errors
" test_time" " test_time"
" test_pty" " test_pty"
@ -492,7 +491,7 @@ data types.")
'())))) '()))))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
,@(if (hurd-system?) ,@(if (system-hurd?)
`((delete 'patch-regen-for-hurd)) ;regen was removed after 3.5.9 `((delete 'patch-regen-for-hurd)) ;regen was removed after 3.5.9
'()) '())
(add-after 'unpack 'remove-windows-binaries (add-after 'unpack 'remove-windows-binaries

7
gnu/packages/ssh.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2018 Manuel Graf <graf@init.at> ;;; Copyright © 2018 Manuel Graf <graf@init.at>
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
@ -49,7 +49,6 @@
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libedit) #:use-module (gnu packages libedit)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages logging) #:use-module (gnu packages logging)
@ -213,7 +212,7 @@ a server that supports the SSH-2 protocol.")
(native-inputs (list groff pkg-config)) (native-inputs (list groff pkg-config))
(inputs `(("libedit" ,libedit) (inputs `(("libedit" ,libedit)
("openssl" ,openssl) ("openssl" ,openssl)
,@(if (hurd-target?) ,@(if (target-hurd?)
'() '()
`(("pam" ,linux-pam) `(("pam" ,linux-pam)
("libfido2" ,libfido2))) ;fails to build on GNU/Hurd ("libfido2" ,libfido2))) ;fails to build on GNU/Hurd
@ -239,7 +238,7 @@ a server that supports the SSH-2 protocol.")
"--with-libedit" "--with-libedit"
;; Enable PAM support in sshd. ;; Enable PAM support in sshd.
,,@(if (hurd-target?) ,,@(if (target-hurd?)
'() '()
'("--with-pam" '("--with-pam"

5
gnu/packages/texinfo.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2019 Pierre-Moana Levesque <pierre.moana.levesque@gmail.com> ;;; Copyright © 2019 Pierre-Moana Levesque <pierre.moana.levesque@gmail.com>
;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 ( <paren@disroot.org> ;;; Copyright © 2022 ( <paren@disroot.org>
;;; ;;;
@ -40,7 +40,6 @@
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module ((gnu packages hurd) #:select (hurd-target?))
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages perl-compression) #:use-module (gnu packages perl-compression)
@ -77,7 +76,7 @@
%standard-phases) %standard-phases)
;; XXX: Work around <https://issues.guix.gnu.org/59616>. ;; XXX: Work around <https://issues.guix.gnu.org/59616>.
#:tests? ,(and (not (hurd-target?)) #:tests? ,(and (not (target-hurd?))
(not (%current-target-system))))) (not (%current-target-system)))))
(inputs (list ncurses perl)) (inputs (list ncurses perl))
;; When cross-compiling, texinfo will build some of its own binaries with ;; When cross-compiling, texinfo will build some of its own binaries with

15
gnu/packages/tls.scm
View File

@ -14,7 +14,7 @@
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020, 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw> ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
@ -65,7 +65,6 @@
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libbsd) #:use-module (gnu packages libbsd)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages libidn) #:use-module (gnu packages libidn)
@ -153,12 +152,12 @@ in intelligent transportation networks.")
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(append (list pkg-config) (append (list pkg-config)
(if (hurd-target?) (if (target-hurd?)
(list autoconf automake gettext-minimal libtool) (list autoconf automake gettext-minimal libtool)
'()))) '())))
(inputs (inputs
(append (list libffi libtasn1) (append (list libffi libtasn1)
(if (hurd-target?) (if (target-hurd?)
(list libbsd) (list libbsd)
'()))) '())))
(arguments (arguments
@ -167,7 +166,7 @@ in intelligent transportation networks.")
;; find them. See <https://issues.guix.gnu.org/49957>. ;; find them. See <https://issues.guix.gnu.org/49957>.
#~'("--with-trust-paths=/etc/ssl/certs/ca-certificates.crt") #~'("--with-trust-paths=/etc/ssl/certs/ca-certificates.crt")
#:phases #~(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
#$@(if (hurd-target?) #$@(if (target-hurd?)
#~((add-after 'unpack 'apply-hurd-patch #~((add-after 'unpack 'apply-hurd-patch
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(define patch (define patch
@ -216,9 +215,9 @@ living in the same process.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:tests? (not (or (%current-target-system) (list #:tests? (not (or (%current-target-system)
(hurd-target?))) (target-hurd?)))
;; Ensure we don't keep a reference to the tools used for testing. ;; Ensure we don't keep a reference to the tools used for testing.
#:disallowed-references (if (hurd-target?) #:disallowed-references (if (target-hurd?)
'() '()
(list net-tools iproute socat)) (list net-tools iproute socat))
#:configure-flags #:configure-flags
@ -276,7 +275,7 @@ living in the same process.")
(native-inputs (native-inputs
(append (list pkg-config texinfo which (append (list pkg-config texinfo which
util-linux) ;one test needs 'setsid' util-linux) ;one test needs 'setsid'
(if (hurd-target?) (if (target-hurd?)
'() '()
(list net-tools (list net-tools
iproute ;for 'ss' iproute ;for 'ss'

5
gnu/packages/web.scm
View File

@ -40,7 +40,7 @@
;;; Copyright © 2019, 2020 Florian Pelz <pelzflorian@pelzflorian.de> ;;; Copyright © 2019, 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si> ;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2020, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2021, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019, 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de> ;;; Copyright © 2018, 2019, 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2020, 2021 Paul Garlick <pgarlick@tourbillion-technology.com> ;;; Copyright © 2020, 2021 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de>
@ -142,7 +142,6 @@
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
#:use-module (gnu packages hurd)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages java) #:use-module (gnu packages java)
@ -7785,7 +7784,7 @@ derivation by David Revoy from the original MonsterID by Andreas Gohr.")
(inputs (inputs
;; Required to build the tools (i.e. without ‘--enable-lib-only’). ;; Required to build the tools (i.e. without ‘--enable-lib-only’).
(append (append
(if (hurd-target?) (if (target-hurd?)
`((,openssl "static")) `((,openssl "static"))
(list jemalloc)) ; fight nghttpd{,x} heap fragmentation (list jemalloc)) ; fight nghttpd{,x} heap fragmentation
(list c-ares (list c-ares

2
gnu/system/hurd.scm
View File

@ -57,7 +57,7 @@
;;; Code: ;;; Code:
(define %hurd-default-operating-system-kernel (define %hurd-default-operating-system-kernel
(if (hurd-system?) (if (system-hurd?)
gnumach gnumach
;; A cross-built GNUmach does not work ;; A cross-built GNUmach does not work
(with-parameters ((%current-system "i686-linux") (with-parameters ((%current-system "i686-linux")

6
guix/utils.scm
View File

@ -17,6 +17,7 @@
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -89,6 +90,7 @@
package-name->name+version package-name->name+version
target-linux? target-linux?
target-hurd? target-hurd?
system-hurd?
target-mingw? target-mingw?
target-x86-32? target-x86-32?
target-x86-64? target-x86-64?
@ -674,6 +676,10 @@ a character other than '@'."
(and (string-suffix? "-gnu" target) (and (string-suffix? "-gnu" target)
(not (string-contains target "linux")))) (not (string-contains target "linux"))))
(define* (system-hurd?)
"Is the current system the GNU(/Hurd) system?"
(and=> (%current-system) target-hurd?))
(define* (target-mingw? #:optional (target (%current-target-system))) (define* (target-mingw? #:optional (target (%current-target-system)))
"Is the operating system of TARGET Windows?" "Is the operating system of TARGET Windows?"
(and target (and target