me
/
guix
Archived
1
0
Fork 0
Code

gnu: heimdal: Unify phases, addressing TODO. 

* gnu/packages/kerberos.scm (heimdal)[phases]: Unconditionally use the
%current-target-system branch.
master
Maxim Cournoyer 2021-12-17 16:16:53 -05:00
parent 771550b280
commit cbb6f14ab3
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 21 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
gnu/packages/kerberos.scm
View File

@ -216,40 +216,27 @@ After installation, the system administrator should generate keys using
#~())) #~()))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'pre-configure (add-before 'configure 'pre-configure
;; TODO(core-updates): Unconditionally use the (lambda* (#:key inputs #:allow-other-keys)
;; %current-target-system branch. (substitute* "configure"
(,(if (%current-target-system) ;; The e2fsprogs input is included for libcom_err,
'lambda* ;; let's use it even if cross-compiling.
'lambda) (("test \"\\$\\{krb_cv_com_err\\}\" = \"yes\"")
,(if (%current-target-system) ":")
'(#:key inputs #:allow-other-keys) ;; Our 'compile_et' is not in --with-cross-tools,
'_) ;; which confuses heimdal.
,@(if (%current-target-system) (("ac_cv_prog_COMPILE_ET=\\$\\{with_cross_tools\\}compile_et")
`((substitute* "configure" "ac_cv_PROG_COMPILE_ET=compile_et"))
;; The e2fsprogs input is included for libcom_err, (substitute* '("appl/afsutil/pagsh.c" "appl/su/su.c")
;; let's use it even if cross-compiling. (("/bin/sh")
(("test \"\\$\\{krb_cv_com_err\\}\" = \"yes\"") (search-input-file inputs "bin/sh"))
":") ;; Use the cross-compiled bash instead of the
;; Our 'compile_et' is not in --with-cross-tools, ;; native bash (XXX shouldn't _PATH_BSHELL point
;; which confuses heimdal. ;; to a cross-compiled bash?).
(("ac_cv_prog_COMPILE_ET=\\$\\{with_cross_tools\\}compile_et") (("_PATH_BSHELL")
"ac_cv_PROG_COMPILE_ET=compile_et"))) (string-append
'()) "\"" (search-input-file inputs "bin/sh") "\"")))
,@(if (%current-target-system) (substitute* '("tools/Makefile.in")
'((substitute* '("appl/afsutil/pagsh.c" "appl/su/su.c") (("/bin/sh") (which "sh")))))
(("/bin/sh")
(search-input-file inputs "bin/sh"))
;; Use the cross-compiled bash instead of the
;; native bash (XXX shouldn't _PATH_BSHELL point
;; to a cross-compiled bash?).
(("_PATH_BSHELL")
(string-append
"\"" (search-input-file inputs "bin/sh") "\"")))
(substitute* '("tools/Makefile.in")
(("/bin/sh") (which "sh"))))
'((substitute* '("appl/afsutil/pagsh.c"
"tools/Makefile.in")
(("/bin/sh") (which "sh")))))))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
;; For 'getxxyyy-test'. ;; For 'getxxyyy-test'.