From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jan Nieuwenhuizen Subject: Re: [PATCH 11/11] gnu: guile-2.0: support mingw. Date: Sat, 14 May 2016 22:31:06 +0200 Message-ID: <87poso9yb9.fsf@drakenvlieg.flower> References: <1462740169-15029-1-git-send-email-janneke@gnu.org> <1462740169-15029-12-git-send-email-janneke@gnu.org> <87inyn1xk9.fsf@igalia.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42465) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b1gIT-0001e0-KJ for guix-devel@gnu.org; Sat, 14 May 2016 16:36:27 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1b1gIO-0000Ch-FZ for guix-devel@gnu.org; Sat, 14 May 2016 16:36:24 -0400 In-Reply-To: <87inyn1xk9.fsf@igalia.com> (Andy Wingo's message of "Mon, 09 May 2016 09:48:38 +0200") List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Andy Wingo Cc: guix-devel@gnu.org --=-=-= Content-Type: text/plain Andy Wingo writes: Hi Andy, What I meant to say in my first mail, I'll do in the last. Thanks so much again for this round of reviews! It took me quite some rebuilds to get sane answers to your remarks and there were some bugs that I needed to get straightened out first, that's why I could not answer sooner. >> - (native-inputs `(("pkgconfig" ,pkg-config))) >> + (native-inputs `(("pkgconfig" ,pkg-config) >> + ,@(if (mingw-target?) `(("bash" ,bash)) '()))) > > AFAIU we can remove the "bash" thing here, as we decided to punt on > (ice-9 popen); sound right to you? Indeed. Tested without this addition and removed. (This is about the native, build-hosts' bash anyway. I think including the build host bash explicitly may have been necessary when I was creating the cross-build.) >> + (if bash >> + (string-append bash "/bin/bash") >> + "bash"))))) > > Needs a comment here explaining that although we should always have bash > as an input, it isn't packaged yet on mingw so we are falling back to > finding it in the run-time path if needed. Added this comment ;; If bash is #f allow fallback for user to provide ;; "bash" in PATH. This happens when cross-building to ;; MinGW for which we do not have Bash yet. (("/bin/sh") (if bash (string-append bash "/bin/bash") "bash"))))) > FWIW although Windows doesn't support `fork', `open-process' should work > in Windows, and we should therefore be able to get (ice-9 popen) working > in Windows eventually. Yes, I agree. Greetings, Jan --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0011-gnu-guile-2.0-support-mingw.patch >From dfd0f3dbee2c0062b02c9f35c598d937c85ea614 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 24 Apr 2016 14:06:56 +0200 Subject: [PATCH 11/11] gnu: guile-2.0: support mingw. * gnu/packages/guile.scm (guile-2.0): Support mingw. --- gnu/packages/guile.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 53ea3e5..b4ffe86 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -138,8 +138,8 @@ without requiring the source code to be rewritten.") (native-inputs `(("pkgconfig" ,pkg-config))) (inputs `(("libffi" ,libffi) ("readline" ,readline) - ("bash" ,bash))) - + ,@(libiconv-if-needed) + ,@(if (mingw-target?) '() `(("bash" ,bash))))) (propagated-inputs `( ;; These ones aren't normally needed here, but since `libguile-2.0.la' ;; reads `-lltdl -lunistring', adding them here will add the needed @@ -167,8 +167,13 @@ without requiring the source code to be rewritten.") ;; Tell (ice-9 popen) the file name of Bash. (let ((bash (assoc-ref inputs "bash"))) (substitute* "module/ice-9/popen.scm" + ;; If bash is #f allow fallback for user to provide + ;; "bash" in PATH. This happens when cross-building to + ;; MinGW for which we do not have Bash yet. (("/bin/sh") - (string-append bash "/bin/bash"))))) + (if bash + (string-append bash "/bin/bash") + "bash"))))) %standard-phases))) (native-search-paths -- 2.7.3 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.nl= =20=20 --=-=-=--