Package: guix-patches;
Reported by: Jan Nieuwenhuizen <janneke <at> gnu.org>
Date: Sat, 18 Apr 2020 16:33:02 UTC
Severity: normal
Tags: patch
Done: Jan Nieuwenhuizen <janneke <at> gnu.org>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 40698 in the body.
You can then email your comments to 40698 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
guix-patches <at> gnu.org:bug#40698; Package guix-patches.
(Sat, 18 Apr 2020 16:33:02 GMT) Full text and rfc822 format available.Jan Nieuwenhuizen <janneke <at> gnu.org>:guix-patches <at> gnu.org.
(Sat, 18 Apr 2020 16:33:02 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Jan Nieuwenhuizen <janneke <at> gnu.org> To: guix-patches <at> gnu.org Cc: Marius Bakke <mbakke <at> fastmail.com> Subject: [core-updates]: [PATCH] gnu: perl: Actually produce a host perl when cross-compiling. Date: Sat, 18 Apr 2020 18:31:59 +0200
[Message part 1 (text/plain, inline)]
Hi!
As discussed on IRC, I tried to apply perl-cross
(https://github.com/arsv/perl-cross) to make perl actually cross build
for our Hurd VM.
There's some weirdness wrt some pod scripts; no idea. I haven't gotten
round to test the package itself yet on the Hurd.
Also, first tests on the Hurd show a possible problem with Perl's
system or shell -- no idea.
I get things like
Can't exec "": No such file or directory at /gnu/store/dd5a35aca6411w5l29ask7pl626v8j4r-perl-5.30.2/lib/perl5/5.30.2/i586-/Cwd.pm line 204.
Can't exec "": No such file or directory at /gnu/store/mfnmg1m37kyrb65alnj6jn2fzw7zkapw-autoconf-cross-2.69/share/autoconf/Autom4te/FileUtils.pm line 345.
to me that's just as cryptic as Perl code itself. I'll have a look into
that later tonight.
Greetings,
janneke
[0001-gnu-perl-Actually-produce-a-host-perl-when-cross-com.patch (text/x-patch, inline)]
From b96825876eea5c0dff9414d88a8dc3302b2d2f7f Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke <at> gnu.org>
Date: Sat, 18 Apr 2020 17:05:48 +0200
Subject: [PATCH] gnu: perl: Actually produce a host perl when cross-compiling.
* gnu/packages/perl.scm (perl)[native-inputs]: When cross-compiling, add
`perl-cross' input.
[arguments]: When cross-compiling, use it to produce binary for host.
---
gnu/packages/perl.scm | 85 ++++++++++++++++++++++++++++++++++++++++---
1 file changed, 80 insertions(+), 5 deletions(-)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d6a75506ec..67f4cb969c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11,7 +11,7 @@
;;; Copyright © 2016 Alex Sassmannshausen <alex <at> pompo.co>
;;; Copyright © 2016, 2018, 2020 Roel Janssen <roel <at> gnu.org>
;;; Copyright © 2016 Ben Woodcroft <donttrustben <at> gmail.com>
-;;; Copyright © 2016 Jan Nieuwenhuizen <janneke <at> gnu.org>
+;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke <at> gnu.org>
;;; Copyright © 2017 Raoul J.P. Bonnal <ilpuccio.febo <at> gmail.com>
;;; Copyright © 2017, 2018 Marius Bakke <mbakke <at> fastmail.com>
;;; Copyright © 2017 Adriano Peluso <catonano <at> gmail.com>
@@ -48,6 +48,7 @@
#:use-module (gnu packages)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
@@ -120,10 +121,72 @@
(("-std=c89")
"-std=gnu89"))
#t))
- (replace 'configure
- (lambda* (#:key configure-flags #:allow-other-keys)
- (format #t "Perl configure flags: ~s~%" configure-flags)
- (apply invoke "./Configure" configure-flags)))
+ ,@(if (%current-target-system)
+ `((add-after 'unpack 'unpack-cross
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((cross-checkout (assoc-ref %build-inputs "perl-cross")))
+ (invoke "chmod" "-R" "+w" ".")
+ (copy-recursively cross-checkout "."))
+ (let ((bash (assoc-ref %build-inputs "bash")))
+ (substitute* '("Makefile.config.SH"
+ "cnf/config.guess"
+ "cnf/config.sub"
+ "cnf/configure"
+ "cnf/configure_misc.sh"
+ "miniperl_top")
+ (("! */bin/sh") (string-append "! " bash "/bin/bash"))
+ ((" /bin/sh") (string-append bash "/bin/bash")))
+ (substitute* '("cnf/configure_tool.sh")
+ (( "[\t ]*result \"BSD\".*")
+ "\
+ result \"BSD\"
+ ;;
+ *-gnu)
+ result \"GNU\"
+"))
+ (substitute* '("ext/Errno/Errno_pm.PL")
+ (( "\\$cpp < errno.c") "gcc -E errno.c")))
+ #t))
+ (replace 'configure
+ (lambda* (#:key configure-flags outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (configure-flags
+ (cons*
+ ;; `perl-cross' confuses target and host
+ (string-append "--target=" ,(%current-target-system))
+ (string-append "--prefix=" out)
+ "-Dbyteorder=1234"
+ (filter (negate
+ (lambda (x) (or (string-prefix? "-d" x)
+ (string-prefix? "-Dcc=" x))))
+ configure-flags))))
+ (format (current-error-port)
+ "running ./configure ~a\n" (string-join configure-flags))
+ (apply invoke (cons "./configure" configure-flags))
+ (substitute* "config.sh"
+ (("^libs=.*") "libs='-ldl -lpthread -lm'\n")
+ (("^perllibs=.*") "perllibs='-ldl -lpthread -lm'\n"))
+ (substitute* "config.h"
+ (("^# HAS_NANOSLEEP") "/* #undef HAS_NANOSLEEP */"))
+ #t)))
+ (add-after 'build 'touch-non-built-files-for-install
+ (lambda _
+ ;; `make install' wants to install this; it wasn't built...
+ (mkdir-p "cpan/Pod-Usage/blib/script")
+ (with-output-to-file "cpan/Pod-Usage/blib/script/pod2text"
+ (lambda _ (display "")))
+ (with-output-to-file "cpan/Pod-Usage/blib/script/pod2usage"
+ (lambda _ (display "")))
+ (with-output-to-file "cpan/Pod-Checker/blib/script/podchecker"
+ (lambda _ (display "")))
+ (mkdir-p "cpan/Pod-Parser/blib/script")
+ (with-output-to-file "cpan/Pod-Parser/blib/script/podselect"
+ (lambda _ (display "")))
+ #t)))
+ `((replace 'configure
+ (lambda* (#:key configure-flags #:allow-other-keys)
+ (format #t "Perl configure flags: ~s~%" configure-flags)
+ (apply invoke "./Configure" configure-flags)))))
(add-after 'install 'remove-extra-references
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@@ -152,6 +215,18 @@
"/lib',\n"))))
config2)
#t))))))
+ (native-inputs
+ (if (%current-target-system)
+ `(("perl-cross"
+ ,(origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/arsv/perl-cross")
+ (commit "1.3.3")))
+ (file-name (git-file-name "perl-cross" "1.3.3"))
+ (sha256
+ (base32 "065qbl1x44maykaj8p8za0b6qxj74bz7fi2zsrlydir1mqb1js3d")))))
+ '()))
(native-search-paths (list (search-path-specification
(variable "PERL5LIB")
(files '("lib/perl5/site_perl")))))
--
2.26.0
[Message part 3 (text/plain, inline)]
-- Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
guix-patches <at> gnu.org:bug#40698; Package guix-patches.
(Sun, 19 Apr 2020 08:56:02 GMT) Full text and rfc822 format available.Message #8 received at 40698 <at> debbugs.gnu.org (full text, mbox):
From: Jan Nieuwenhuizen <janneke <at> gnu.org> To: 40698 <at> debbugs.gnu.org Cc: Marius Bakke <mbakke <at> fastmail.com> Subject: Re: [bug#40698] [core-updates]: [PATCH v2] gnu: perl: Actually produce a host perl when cross-compiling. Date: Sun, 19 Apr 2020 10:54:58 +0200
[Message part 1 (text/plain, inline)]
Jan Nieuwenhuizen writes:
> As discussed on IRC, I tried to apply perl-cross
> (https://github.com/arsv/perl-cross) to make perl actually cross build
> for our Hurd VM.
Find an improved patch below. It fixes
> Can't exec "": No such file or directory at /gnu/store/dd5a35aca6411w5l29ask7pl626v8j4r-perl-5.30.2/lib/perl5/5.30.2/i586-/Cwd.pm line 204.
> Can't exec "": No such file or directory at /gnu/store/mfnmg1m37kyrb65alnj6jn2fzw7zkapw-autoconf-cross-2.69/share/autoconf/Autom4te/FileUtils.pm line 345.
which was due to having
#define SH_PATH ""
in config.h. It also fixes "cwd" in perl, that was caused by this
(substitute* "dist/PathTools/Cwd.pm"
(("/bin/pwd")
- (which "pwd")))
+ (which "pwd"))) ;TODO: fix cross-compile next rebuild cycle
and now fixed lateron
+ ;;TODO: fix this in setup-configure next rebuild cycle
+ (substitute* "dist/PathTools/Cwd.pm"
+ (("/gnu/store/[^/]*-coreutils-[^/]*") coreutils))
Using this, I can cross-build perl and which allows me to ceate patches
to cross build, autoconf and automake that work to configure Guix git on
the Hurd.
Greetings,
janneke
[0001-gnu-perl-Actually-produce-a-host-perl-when-cross-com.patch (text/x-patch, inline)]
From b10ca56254cd1b1f8ec4b222ad27cb02ce59316c Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke <at> gnu.org>
Date: Sat, 18 Apr 2020 17:05:48 +0200
Subject: [PATCH] gnu: perl: Actually produce a host perl when cross-compiling.
* gnu/packages/perl.scm (perl)[native-inputs]: When cross-compiling, add
`perl-cross' input.
[arguments]: When cross-compiling, use it to produce binary for host.
---
gnu/packages/perl.scm | 106 +++++++++++++++++++++++++++++++++++++++---
1 file changed, 100 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d6a75506ec..c8332ecead 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11,7 +11,7 @@
;;; Copyright © 2016 Alex Sassmannshausen <alex <at> pompo.co>
;;; Copyright © 2016, 2018, 2020 Roel Janssen <roel <at> gnu.org>
;;; Copyright © 2016 Ben Woodcroft <donttrustben <at> gmail.com>
-;;; Copyright © 2016 Jan Nieuwenhuizen <janneke <at> gnu.org>
+;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke <at> gnu.org>
;;; Copyright © 2017 Raoul J.P. Bonnal <ilpuccio.febo <at> gmail.com>
;;; Copyright © 2017, 2018 Marius Bakke <mbakke <at> fastmail.com>
;;; Copyright © 2017 Adriano Peluso <catonano <at> gmail.com>
@@ -48,14 +48,17 @@
#:use-module (gnu packages)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (gnu packages base)
+ #:use-module (gnu packages bash)
#:use-module (gnu packages compression)
#:use-module (gnu packages databases)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gd)
+ #:use-module (gnu packages hurd)
#:use-module (gnu packages less)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl-check)
@@ -112,7 +115,7 @@
;; Use the right path for `pwd'.
(substitute* "dist/PathTools/Cwd.pm"
(("/bin/pwd")
- (which "pwd")))
+ (which "pwd"))) ;TODO: fix cross-compile next rebuild cycle
;; Build in GNU89 mode to tolerate C++-style comment in libc's
;; <bits/string3.h>.
@@ -120,10 +123,84 @@
(("-std=c89")
"-std=gnu89"))
#t))
- (replace 'configure
- (lambda* (#:key configure-flags #:allow-other-keys)
- (format #t "Perl configure flags: ~s~%" configure-flags)
- (apply invoke "./Configure" configure-flags)))
+ ,@(if (%current-target-system)
+ `((add-after 'unpack 'unpack-cross
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((cross-checkout (assoc-ref %build-inputs "perl-cross")))
+ (invoke "chmod" "-R" "+w" ".")
+ (copy-recursively cross-checkout "."))
+ (let ((bash (assoc-ref %build-inputs "bash")))
+ (substitute* '("Makefile.config.SH"
+ "cnf/config.guess"
+ "cnf/config.sub"
+ "cnf/configure"
+ "cnf/configure_misc.sh"
+ "miniperl_top")
+ (("! */bin/sh") (string-append "! " bash "/bin/bash"))
+ ((" /bin/sh") (string-append bash "/bin/bash")))
+ (substitute* '("cnf/configure_tool.sh")
+ (( "[\t ]*result \"BSD\".*")
+ "\
+ result \"BSD\"
+ ;;
+ *-gnu)
+ result \"GNU\"
+"))
+ (substitute* '("ext/Errno/Errno_pm.PL")
+ (( "\\$cpp < errno.c") "gcc -E errno.c")))
+ #t))
+ (replace 'configure
+ (lambda* (#:key configure-flags outputs inputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (configure-flags
+ (cons*
+ ;; `perl-cross' confuses target and host
+ (string-append "--target=" ,(%current-target-system))
+ (string-append "--prefix=" out)
+ "-Dbyteorder=1234"
+ (filter (negate
+ (lambda (x) (or (string-prefix? "-d" x)
+ (string-prefix? "-Dcc=" x))))
+ configure-flags)))
+ (bash (assoc-ref inputs "bash"))
+ (coreutils (assoc-ref inputs "coreutils")))
+ (format (current-error-port)
+ "running ./configure ~a\n" (string-join configure-flags))
+ (apply invoke (cons "./configure" configure-flags))
+ (substitute* "config.sh"
+ (("^libs=.*") "libs='-ldl -lpthread -lm'\n")
+ (("^perllibs=.*") "perllibs='-ldl -lpthread -lm'\n")
+ (("/gnu/store/[^/]*-bash-[^/]*") bash))
+ (substitute* '("config.h")
+ (("^#define OSNAME .*")
+ (string-append "#define OSNAME \""
+ ,(if (hurd-target?) "GNU" "Linux")
+ "\"\n"))
+ (("^# HAS_NANOSLEEP") "/* #undef HAS_NANOSLEEP */")
+ (("^#define SH_PATH .*")
+ (string-append "#define SH_PATH \"" bash "/bin/bash\"\n")))
+ ;;TODO: fix this in setup-configure next rebuild cycle
+ (substitute* "dist/PathTools/Cwd.pm"
+ (("/gnu/store/[^/]*-coreutils-[^/]*") coreutils))
+ #t)))
+ (add-after 'build 'touch-non-built-files-for-install
+ (lambda _
+ ;; `make install' wants to install this; it wasn't built...
+ (mkdir-p "cpan/Pod-Usage/blib/script")
+ (with-output-to-file "cpan/Pod-Usage/blib/script/pod2text"
+ (lambda _ (display "")))
+ (with-output-to-file "cpan/Pod-Usage/blib/script/pod2usage"
+ (lambda _ (display "")))
+ (with-output-to-file "cpan/Pod-Checker/blib/script/podchecker"
+ (lambda _ (display "")))
+ (mkdir-p "cpan/Pod-Parser/blib/script")
+ (with-output-to-file "cpan/Pod-Parser/blib/script/podselect"
+ (lambda _ (display "")))
+ #t)))
+ `((replace 'configure
+ (lambda* (#:key configure-flags #:allow-other-keys)
+ (format #t "Perl configure flags: ~s~%" configure-flags)
+ (apply invoke "./Configure" configure-flags)))))
(add-after 'install 'remove-extra-references
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@@ -152,6 +229,23 @@
"/lib',\n"))))
config2)
#t))))))
+ (inputs
+ (if (%current-target-system)
+ `(("bash" ,bash-minimal)
+ ("coreutils" ,coreutils))
+ '()))
+ (native-inputs
+ (if (%current-target-system)
+ `(("perl-cross"
+ ,(origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/arsv/perl-cross")
+ (commit "1.3.3")))
+ (file-name (git-file-name "perl-cross" "1.3.3"))
+ (sha256
+ (base32 "065qbl1x44maykaj8p8za0b6qxj74bz7fi2zsrlydir1mqb1js3d")))))
+ '()))
(native-search-paths (list (search-path-specification
(variable "PERL5LIB")
(files '("lib/perl5/site_perl")))))
--
2.26.0
[Message part 3 (text/plain, inline)]
-- Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
guix-patches <at> gnu.org:bug#40698; Package guix-patches.
(Sun, 19 Apr 2020 14:34:02 GMT) Full text and rfc822 format available.Message #11 received at 40698 <at> debbugs.gnu.org (full text, mbox):
From: Marius Bakke <mbakke <at> fastmail.com> To: Jan Nieuwenhuizen <janneke <at> gnu.org>, 40698 <at> debbugs.gnu.org Subject: Re: [bug#40698] [core-updates]: [PATCH v2] gnu: perl: Actually produce a host perl when cross-compiling. Date: Sun, 19 Apr 2020 16:33:06 +0200
[Message part 1 (text/plain, inline)]
Jan Nieuwenhuizen <janneke <at> gnu.org> writes:
> Jan Nieuwenhuizen writes:
>
>> As discussed on IRC, I tried to apply perl-cross
>> (https://github.com/arsv/perl-cross) to make perl actually cross build
>> for our Hurd VM.
>
> Find an improved patch below. It fixes
>
>> Can't exec "": No such file or directory at /gnu/store/dd5a35aca6411w5l29ask7pl626v8j4r-perl-5.30.2/lib/perl5/5.30.2/i586-/Cwd.pm line 204.
>> Can't exec "": No such file or directory at /gnu/store/mfnmg1m37kyrb65alnj6jn2fzw7zkapw-autoconf-cross-2.69/share/autoconf/Autom4te/FileUtils.pm line 345.
>
> which was due to having
>
> #define SH_PATH ""
>
> in config.h. It also fixes "cwd" in perl, that was caused by this
>
> (substitute* "dist/PathTools/Cwd.pm"
> (("/bin/pwd")
> - (which "pwd")))
> + (which "pwd"))) ;TODO: fix cross-compile next rebuild cycle
>
> and now fixed lateron
>
> + ;;TODO: fix this in setup-configure next rebuild cycle
> + (substitute* "dist/PathTools/Cwd.pm"
> + (("/gnu/store/[^/]*-coreutils-[^/]*") coreutils))
>
> Using this, I can cross-build perl and which allows me to ceate patches
> to cross build, autoconf and automake that work to configure Guix git on
> the Hurd.
Wooow, awesome work (as usual)!
Some feedback on the patch:
> From b10ca56254cd1b1f8ec4b222ad27cb02ce59316c Mon Sep 17 00:00:00 2001
> From: "Jan (janneke) Nieuwenhuizen" <janneke <at> gnu.org>
> Date: Sat, 18 Apr 2020 17:05:48 +0200
> Subject: [PATCH] gnu: perl: Actually produce a host perl when cross-compiling.
>
> * gnu/packages/perl.scm (perl)[native-inputs]: When cross-compiling, add
> `perl-cross' input.
> [arguments]: When cross-compiling, use it to produce binary for host.
> ---
> gnu/packages/perl.scm | 106 +++++++++++++++++++++++++++++++++++++++---
> 1 file changed, 100 insertions(+), 6 deletions(-)
[...]
> @@ -112,7 +115,7 @@
> ;; Use the right path for `pwd'.
> (substitute* "dist/PathTools/Cwd.pm"
> (("/bin/pwd")
> - (which "pwd")))
> + (which "pwd"))) ;TODO: fix cross-compile next rebuild cycle
It might be clearer to add "TODO: use coreutils from INPUTS instead of
'which'" here, maybe mentioning the related substitution below.
> ;; Build in GNU89 mode to tolerate C++-style comment in libc's
> ;; <bits/string3.h>.
> @@ -120,10 +123,84 @@
> (("-std=c89")
> "-std=gnu89"))
> #t))
> - (replace 'configure
> - (lambda* (#:key configure-flags #:allow-other-keys)
> - (format #t "Perl configure flags: ~s~%" configure-flags)
> - (apply invoke "./Configure" configure-flags)))
> + ,@(if (%current-target-system)
> + `((add-after 'unpack 'unpack-cross
> + (lambda* (#:key inputs #:allow-other-keys)
> + (let ((cross-checkout (assoc-ref %build-inputs "perl-cross")))
> + (invoke "chmod" "-R" "+w" ".")
Please use 'make-file-writable' instead of chmod.
> + (copy-recursively cross-checkout "."))
> + (let ((bash (assoc-ref %build-inputs "bash")))
Use the scoped 'inputs' instead of the magical %build-inputs.
> + (substitute* '("Makefile.config.SH"
> + "cnf/config.guess"
> + "cnf/config.sub"
> + "cnf/configure"
> + "cnf/configure_misc.sh"
> + "miniperl_top")
> + (("! */bin/sh") (string-append "! " bash "/bin/bash"))
> + ((" /bin/sh") (string-append bash "/bin/bash")))
> + (substitute* '("cnf/configure_tool.sh")
> + (( "[\t ]*result \"BSD\".*")
> + "\
> + result \"BSD\"
> + ;;
> + *-gnu)
> + result \"GNU\"
> +"))
> + (substitute* '("ext/Errno/Errno_pm.PL")
> + (( "\\$cpp < errno.c") "gcc -E errno.c")))
Should $cpp not be replaced with 'g++'?
> + #t))
> + (replace 'configure
> + (lambda* (#:key configure-flags outputs inputs #:allow-other-keys)
> + (let* ((out (assoc-ref outputs "out"))
> + (configure-flags
> + (cons*
> + ;; `perl-cross' confuses target and host
> + (string-append "--target=" ,(%current-target-system))
> + (string-append "--prefix=" out)
> + "-Dbyteorder=1234"
> + (filter (negate
> + (lambda (x) (or (string-prefix? "-d" x)
> + (string-prefix? "-Dcc=" x))))
> + configure-flags)))
> + (bash (assoc-ref inputs "bash"))
> + (coreutils (assoc-ref inputs "coreutils")))
> + (format (current-error-port)
> + "running ./configure ~a\n" (string-join configure-flags))
> + (apply invoke (cons "./configure" configure-flags))
> + (substitute* "config.sh"
> + (("^libs=.*") "libs='-ldl -lpthread -lm'\n")
> + (("^perllibs=.*") "perllibs='-ldl -lpthread -lm'\n")
> + (("/gnu/store/[^/]*-bash-[^/]*") bash))
This phase should add a let binding for (%store-directory) and refer to
that instead of the literal /gnu/store strings (see e.g. 'git').
> + (substitute* '("config.h")
> + (("^#define OSNAME .*")
> + (string-append "#define OSNAME \""
> + ,(if (hurd-target?) "GNU" "Linux")
Would it make sense to upstream this?
> + "\"\n"))
> + (("^# HAS_NANOSLEEP") "/* #undef HAS_NANOSLEEP */")
Is this substitution required on all cross-compilation targets?
> + (("^#define SH_PATH .*")
> + (string-append "#define SH_PATH \"" bash "/bin/bash\"\n")))
> + ;;TODO: fix this in setup-configure next rebuild cycle
> + (substitute* "dist/PathTools/Cwd.pm"
> + (("/gnu/store/[^/]*-coreutils-[^/]*") coreutils))
> + #t)))
> + (add-after 'build 'touch-non-built-files-for-install
> + (lambda _
> + ;; `make install' wants to install this; it wasn't built...
> + (mkdir-p "cpan/Pod-Usage/blib/script")
> + (with-output-to-file "cpan/Pod-Usage/blib/script/pod2text"
> + (lambda _ (display "")))
> + (with-output-to-file "cpan/Pod-Usage/blib/script/pod2usage"
> + (lambda _ (display "")))
> + (with-output-to-file "cpan/Pod-Checker/blib/script/podchecker"
> + (lambda _ (display "")))
> + (mkdir-p "cpan/Pod-Parser/blib/script")
> + (with-output-to-file "cpan/Pod-Parser/blib/script/podselect"
> + (lambda _ (display "")))
Using '(call-with-output-file "foo" (const #t))' is clearer IMO. Also
consider using 'for-each' here.
Phew! Thanks a lot for this, LGTM!
> + #t)))
> + `((replace 'configure
> + (lambda* (#:key configure-flags #:allow-other-keys)
> + (format #t "Perl configure flags: ~s~%" configure-flags)
> + (apply invoke "./Configure" configure-flags)))))
> (add-after 'install 'remove-extra-references
> (lambda* (#:key inputs outputs #:allow-other-keys)
> (let* ((out (assoc-ref outputs "out"))
> @@ -152,6 +229,23 @@
> "/lib',\n"))))
> config2)
> #t))))))
> + (inputs
> + (if (%current-target-system)
> + `(("bash" ,bash-minimal)
> + ("coreutils" ,coreutils))
> + '()))
> + (native-inputs
> + (if (%current-target-system)
> + `(("perl-cross"
> + ,(origin
> + (method git-fetch)
> + (uri (git-reference
> + (url "https://github.com/arsv/perl-cross")
> + (commit "1.3.3")))
> + (file-name (git-file-name "perl-cross" "1.3.3"))
> + (sha256
> + (base32 "065qbl1x44maykaj8p8za0b6qxj74bz7fi2zsrlydir1mqb1js3d")))))
> + '()))
> (native-search-paths (list (search-path-specification
> (variable "PERL5LIB")
> (files '("lib/perl5/site_perl")))))
> --
> 2.26.0
>
>
> --
> Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
> Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
[signature.asc (application/pgp-signature, inline)]
Jan Nieuwenhuizen <janneke <at> gnu.org>:Jan Nieuwenhuizen <janneke <at> gnu.org>:Message #16 received at 40698-done <at> debbugs.gnu.org (full text, mbox):
From: Jan Nieuwenhuizen <janneke <at> gnu.org> To: Marius Bakke <mbakke <at> fastmail.com> Cc: 40698-done <at> debbugs.gnu.org Subject: Re: [bug#40698] [core-updates]: [PATCH v2] gnu: perl: Actually produce a host perl when cross-compiling. Date: Mon, 20 Apr 2020 07:38:57 +0200
Marius Bakke writes:
Hello Marius,
>> Using this, I can cross-build perl and which allows me to ceate patches
>> to cross build, autoconf and automake that work to configure Guix git on
>> the Hurd.
>
> Wooow, awesome work (as usual)!
>
> Some feedback on the patch:
Wow, thanks!
>> - (which "pwd")))
>> + (which "pwd"))) ;TODO: fix cross-compile next rebuild cycle
>
> It might be clearer to add "TODO: use coreutils from INPUTS instead of
> 'which'" here, maybe mentioning the related substitution below.
Yes, changed now to
;; Use the right path for `pwd'.
;; TODO: use coreutils from INPUTS instead of 'which'
;; in next rebuild cycle, see fixup below.
(substitute* "dist/PathTools/Cwd.pm"
(("/bin/pwd")
(which "pwd")))
>> + (let ((cross-checkout (assoc-ref %build-inputs "perl-cross")))
>> + (invoke "chmod" "-R" "+w" ".")
>
> Please use 'make-file-writable' instead of chmod.
Finally changed it to
(rename-file "Artistic" "Artistic.perl")
(rename-file "Copying" "Copying.perl")
>> + (copy-recursively cross-checkout "."))
>> + (let ((bash (assoc-ref %build-inputs "bash")))
>
> Use the scoped 'inputs' instead of the magical %build-inputs.
Ah, right! There is the scoped `native-inputs' too. I have always
missed that and been using %build-inputs instead. Hmm.
>> + (substitute* '("ext/Errno/Errno_pm.PL")
>> + (( "\\$cpp < errno.c") "gcc -E errno.c")))
>
> Should $cpp not be replaced with 'g++'?
No, I don't think so. The non-replaced value of $cpp is "gcc -E -P -", and
that breaks terribly; this substitution is only to remove -the `-P' and
input redirection. I did change this to the somewhat nicer
(substitute* '("ext/Errno/Errno_pm.PL")
(("\\$cpp < errno.c") "$Config{cc} -E errno.c")))
and mentioned this with my patch sent to `perl-cross'.
>> + #t))
>> + (replace 'configure
...
>> + (("/gnu/store/[^/]*-bash-[^/]*") bash))
>
> This phase should add a let binding for (%store-directory) and refer to
> that instead of the literal /gnu/store strings (see e.g. 'git').
Ah...nice! Done.
>> + (substitute* '("config.h")
>> + (("^#define OSNAME .*")
>> + (string-append "#define OSNAME \""
>> + ,(if (hurd-target?) "GNU" "Linux")
>
> Would it make sense to upstream this?
Yes, I think so. I created a patch, now added as `perl-cross.patch' too
and sent it upstream.
>> + "\"\n"))
>> + (("^# HAS_NANOSLEEP") "/* #undef HAS_NANOSLEEP */")
>
> Is this substitution required on all cross-compilation targets?
Good question. This is no longer necessary now that configure actually
detects the Hurd using gcc; togeether with my patch.
>> + ;; `make install' wants to install this; it wasn't built...
>> + (mkdir-p "cpan/Pod-Usage/blib/script")
>> + (with-output-to-file "cpan/Pod-Usage/blib/script/pod2text"
>> + (lambda _ (display "")))
>> + (with-output-to-file "cpan/Pod-Usage/blib/script/pod2usage"
>> + (lambda _ (display "")))
>> + (with-output-to-file "cpan/Pod-Checker/blib/script/podchecker"
>> + (lambda _ (display "")))
>> + (mkdir-p "cpan/Pod-Parser/blib/script")
>> + (with-output-to-file "cpan/Pod-Parser/blib/script/podselect"
>> + (lambda _ (display "")))
>
> Using '(call-with-output-file "foo" (const #t))' is clearer IMO. Also
> consider using 'for-each' here.
Changed to
(with-directory-excursion "cpan"
(mkdir-p "Pod-Usage/blib/script")
(mkdir-p "Pod-Parser/blib/script")
(for-each (lambda (file)
(call-with-output-file file
(lambda (port) (display "" port))))
'("Pod-Usage/blib/script/pod2text"
"Pod-Usage/blib/script/pod2usage"
"Pod-Checker/blib/script/podchecker"
"Pod-Parser/blib/script/podselect")))
> Phew! Thanks a lot for this, LGTM!
With these changes, pushed to core-updates as eaff60b35fed75c60d0db76c589e17d1500f60dd
Thanks a lot for your review, I was pretty certain that I missed some
things; but there were more things that I learned than I expected.
Also, a good question here and there is really helpful for me to improve
things or to do the right thing.
Greetings,
janneke
--
Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org.
(Mon, 18 May 2020 11:24:06 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.