ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: hurd: Add gnumach-headers as native input.

Browse source 
This provides the include/mach/machine/mach_i386.h.

* gnu/packages/hurd.scm (hurd)[native-inputs]: Add gnumach-headers, or
gnumach-headers-cross when cross-building.
[arguments]: Remove #t from phases.

Change-Id: Id57e0cf184c7793be52192bdc5587c6e6ef2a312
This commit is contained in:
Janneke Nieuwenhuizen 2024-01-19 12:32:46 +01:00 committed by Ludovic Courtès
parent 61f07911f7
commit feae33359f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gnu/packages/cross-base.scm
View file

@ -51,6 +51,7 @@ (define-module (gnu packages cross-base)
#:export (cross-binutils
cross-libc
cross-gcc
cross-gnumach-headers
cross-mig
cross-kernel-headers
cross-gcc-toolchain))

33
gnu/packages/hurd.scm
View file

@ -353,8 +353,7 @@ (define-public hurd
"include/tirpc")
":" (or (getenv var) ""))))
'("CROSS_C_INCLUDE_PATH" "C_INCLUDE_PATH"
"CROSS_CPATH" "CPATH"))
#t))
"CROSS_CPATH" "CPATH"))))
(add-after 'unpack 'fix-rpc-headers
(lambda _
(substitute* "nfs/mount.c"
@ -367,14 +366,12 @@ (define-public hurd
"nfsd/main.c"
"nfsd/ops.c")
(("#include <rpc/pmap_prot.h>" m)
(string-append "#include <rpc/types.h>\n#include <rpc/xdr.h>\n" m)))
#t))
(string-append "#include <rpc/types.h>\n#include <rpc/xdr.h>\n" m)))))
(add-before 'build 'pre-build
(lambda _
;; Don't change the ownership of any file at this time.
(substitute* '("daemons/Makefile" "utils/Makefile")
(("-o root -m 4755") ""))
#t))
(("-o root -m 4755") ""))))
(add-after 'unpack 'create-runsystem
(lambda _
;; XXX Work towards having startup.c invoke the Guile rc
@ -449,8 +446,7 @@ (define-public hurd
":" util-linux "/sbin\n"))
(("/sbin/") (string-append out "/sbin/"))
(("/libexec/") (string-append out "/libexec/"))
(("/hurd/") (string-append out "/hurd/")))
#t)))
(("/hurd/") (string-append out "/hurd/"))))))
(add-after 'patch-shebangs 'patch-libexec-shebangs
(lambda* (#:key inputs outputs #:allow-other-keys)
;; XXX: Since the 'patch-shebangs' phase doesn't traverse
@ -460,8 +456,7 @@ (define-public hurd
(path (list (string-append bash "/bin"))))
(for-each (lambda (file)
(patch-shebang file path))
(find-files (string-append out "/libexec")))
#t)))
(find-files (string-append out "/libexec"))))))
(add-after 'build 'build-libdde-linux
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(invoke (string-append (assoc-ref (or native-inputs inputs) "make")
@ -501,8 +496,7 @@ (define-public hurd
(invoke "gunzip" "unifont.gz")
(mkdir-p datadir)
(copy-file "unifont"
(string-append datadir "/vga-system.bdf"))
#t))))
(string-append datadir "/vga-system.bdf"))))))
#:configure-flags
,#~(list (string-append "LDFLAGS=-Wl,-rpath="
#$output "/lib")
@ -517,7 +511,11 @@ (define-public hurd
"CFLAGS=-fcommon")))
(build-system gnu-build-system)
(inputs
`(("libgcrypt" ,libgcrypt) ;for /hurd/random
`(("gnumach-headers" ,(if (%current-target-system)
(cross-gnumach-headers (%current-target-system))
gnumach-headers))
("libgcrypt" ,libgcrypt) ;for /hurd/random
("libdaemon" ,libdaemon) ;for /bin/console --daemonize
("unifont" ,unifont)
("libpciaccess" ,libpciaccess-0.17) ;need libpciaccess > 0.16
@ -536,10 +534,13 @@ (define-public hurd
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gnumach-headers" ,(if (%current-target-system)
(cross-gnumach-headers (%current-target-system))
gnumach-headers))
("libgcrypt" ,libgcrypt) ;for 'libgcrypt-config'
("mig" , (if (%current-target-system)
(cross-mig (%current-target-system))
mig))
("mig" ,(if (%current-target-system)
(cross-mig (%current-target-system))
mig))
("pkg-config" ,pkg-config)
("perl" ,perl)
("texinfo" ,texinfo-4)