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

gnu: mc: Fix cross-(mis)compilation & substitutions.

Browse source 
* gnu/packages/mc.scm (mc)[arguments]: Set PERL_FOR_BUILD.
Rename 'patch-FHS-file-names phase to 'patch-file-names.
Properly distinguish build-time from run-time commands.
Reorganise to catch more occurrences.
[inputs]: Add bash-minimal and perl.
This commit is contained in:
Tobias Geerinckx-Rice 2023-08-13 02:00:00 +02:00
parent bce8235ebe
commit a5f76d482f
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 33 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
gnu/packages/mc.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2021, 2023 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -21,6 +21,7 @@
(define-module (gnu packages mc)
#:use-module (gnu packages aspell)
#:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages glib)
@ -52,28 +53,39 @@ (define-public mc
(list
#:configure-flags
#~(list "--with-screen=ncurses"
"--enable-aspell")
"--enable-aspell"
(string-append "PERL_FOR_BUILD=" ; to build .hlp files
#$(this-package-native-input "perl") "/bin/perl")
(string-append "PERL=" ; for run-time helpers, mainly VFS
#$(this-package-input "perl") "/bin/perl"))
#:phases
#~(modify-phases %standard-phases
(add-after 'patch-source-shebangs 'patch-FHS-file-names
(lambda _
;; Patch files to refer to executables in the store or $PATH.
(substitute* "misc/mcedit.menu.in"
(("#! /bin/sh") (string-append "#!" (which "sh")))
(("/bin/bash") (which "bash")))
(substitute* (list "lib/utilunix.c"
"src/usermenu.c"
"src/vfs/fish/fish.c"
"tests/src/vfs/extfs/helpers-list/Makefile.in")
(("/bin/sh") (which "sh")))
(add-after 'patch-source-shebangs 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
;; The following commands are all invoked at run time.
(substitute*
(list "lib/utilunix.c"
"src/filemanager/ext.c"
"src/usermenu.c"
"src/vfs/fish/fish.c"
;; This file hard-codes other shells, but they're never
;; tried after mc's first choice (bash) is found.
"lib/shell.c")
(("/bin/(ba|)sh" file)
(search-input-file inputs file)))
(substitute* "src/filemanager/ext.c"
(("/bin/rm") "rm")
(("/bin/sh") (which "sh")))
;; Look up in $PATH at run time, rather than hard-coding now.
(("/bin/(rm)" command)
command))
(substitute* "misc/mcedit.menu.in"
;; These are script templates. Don't embed store file names.
(("#! /bin/([[:alnum:]]*)" _ file)
(string-append "#!/usr/bin/env " file)))
;; There are other /bin/<shell>s hard-coded in this file, but they
;; are never tried after bash (mc's first choice) is found.
(substitute* "lib/shell.c"
(("/bin/bash") (which "bash")))))
;; The following commands are all invoked at build time.
(substitute* "tests/src/vfs/extfs/helpers-list/Makefile.in"
(("/bin/sh")
(which "sh")))))
(add-before 'check 'fix-tests
(lambda _
;; Don't expect a UID or GID of ‘0’ in the build environment.
@ -88,11 +100,13 @@ (define-public mc
(("usr/bin") "/")))))))
(native-inputs (list perl pkg-config))
(inputs (list aspell
bash-minimal
check
glib
gpm
libssh2
ncurses
perl
unzip))
(home-page "https://www.midnight-commander.org")
(properties