me/guix
Archived
1
0
Fork 0
Code Activity

gnu: syslinux: Add explicit dependency on mtools.

Browse source 
Suggested by Adam Van Ymeren <adam@vany.ca>
at <https://bugs.gnu.org/28974>.

* gnu/packages/bootloaders.scm (syslinux)[inputs]: Add MTOOLS.
[ARGUMENTS]: In 'patch-files' phase, patch references to 'mcopy' and
'mattrib'.
This commit is contained in:
Ludovic Courtès 2017-11-16 10:41:04 +01:00
parent afc4382316
commit 0b4dbb401c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/bootloaders.scm
View file

@ -237,7 +237,8 @@ menu to select one of the installed operating systems.")
("perl" ,perl) ("perl" ,perl)
("python-2" ,python-2))) ("python-2" ,python-2)))
(inputs (inputs
`(("libuuid" ,util-linux))) `(("libuuid" ,util-linux)
("mtools" ,mtools)))
(arguments (arguments
`(#:parallel-build? #f `(#:parallel-build? #f
#:make-flags #:make-flags
@ -252,11 +253,17 @@ menu to select one of the installed operating systems.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-files (add-after 'unpack 'patch-files
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "." "Makefile.*|ppmtolss16") (substitute* (find-files "." "Makefile.*|ppmtolss16")
(("/bin/pwd") (which "pwd")) (("/bin/pwd") (which "pwd"))
(("/bin/echo") (which "echo")) (("/bin/echo") (which "echo"))
(("/usr/bin/perl") (which "perl"))) (("/usr/bin/perl") (which "perl")))
(let ((mtools (assoc-ref inputs "mtools")))
(substitute* (find-files "." "\\.c$")
(("mcopy")
(string-append mtools "/bin/mcopy"))
(("mattrib")
(string-append mtools "/bin/mattrib"))))
#t)) #t))
(delete 'configure) (delete 'configure)
(add-before 'build 'set-permissions (add-before 'build 'set-permissions