[bug#47027] Disarchive package

[bug#47027] Disarchive package

[Timothy Sample]

Hi Guix,

These patches add Disarchive and one of its dependencies,
Guile-QuickCheck.

They are pretty straight forward, but I am a little shaky about using
“guile-3.0-latest”, so I would appreciate another pair of eyes.  The
reason it’s there is because Disarchive opportunistically uses the SWH
code from Guix if it is available.  If I use plain “guile-3.0”, I get
“incompatible bytecode” errors when restoring archives from SWH.

TIA!


-- Tim

[bug#47027] [PATCH 1/2] gnu: Add guile-quickcheck.

[Timothy Sample]

* gnu/packages/guile-xyz.scm (guile-quickcheck): New variable.
---
 gnu/packages/guile-xyz.scm | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index bd26010918..5f4329be11 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -22,7 +22,7 @@
 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2019 swedebugia <swedebugia@riseup.net>
 ;;; Copyright © 2019, 2020 Amar Singh <nly@disroot.org>
-;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
+;;; Copyright © 2019, 2021 Timothy Sample <samplet@ngyro.com>
 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
 ;;; Copyright © 2020 Evan Straw <evan.straw99@gmail.com>
 ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
@@ -4616,3 +4616,29 @@ binary which is smaller and faster to generate and parse.  This package provides
 a Guile implementation of CBOR.")
     (home-page "https://inqlab.net/git/guile-cbor.git")
     (license license:gpl3+)))
+
+(define-public guile-quickcheck
+  (package
+    (name "guile-quickcheck")
+    (version "0.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://files.ngyro.com/"
+                                  "guile-quickcheck/guile-quickcheck-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "03mwi1l3354x52nar0zwhcm0x29yai9xjln4p4gbchwvx5dsr6fb"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("guile" ,guile-3.0)))
+    (home-page "https://ngyro.com/software/guile-quickcheck.html")
+    (synopsis "Randomized property-based testing for Guile")
+    (description "This Guile library provides tools for randomized,
+property-based testing.  It follows closely the QuickCheck library
+written in Haskell.  You can use it to define a property (a predicate
+with specifications for its inputs) and test it by generating many
+random inputs and seeing if it holds.")
+    (license license:gpl3+)))
-- 
2.30.1

[bug#47027] [PATCH 2/2] gnu: Add disarchive.

[Timothy Sample]

* gnu/packages/archival.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk              |  1 +
 gnu/packages/archival.scm | 60 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 61 insertions(+)
 create mode 100644 gnu/packages/archival.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 3a516d487f..775080190e 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -88,6 +88,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/apl.scm				\
   %D%/packages/apr.scm				\
   %D%/packages/arcan.scm			\
+  %D%/packages/archival.scm			\
   %D%/packages/aspell.scm			\
   %D%/packages/assembly.scm			\
   %D%/packages/astronomy.scm			\
diff --git a/gnu/packages/archival.scm b/gnu/packages/archival.scm
new file mode 100644
index 0000000000..6bb1370664
--- /dev/null
+++ b/gnu/packages/archival.scm
@@ -0,0 +1,60 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2021 Timothy Sample <samplet@ngyro.com>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages archival)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages guile-xyz)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages))
+
+(define with-guile-3.0-latest
+  (package-input-rewriting `((,guile-3.0 . ,guile-3.0-latest)) #:deep? #f))
+
+(define-public disarchive
+  (package
+    (name "disarchive")
+    (version "0.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://files.ngyro.com/disarchive/"
+                                  "disarchive-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0yvcfv2zlfqwmigd2xpzfkairz4w32b9gi1pbj5id55z21p0k49c"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("guile-quickcheck" ,(with-guile-3.0-latest guile-quickcheck))))
+    (inputs
+     `(("guile" ,guile-3.0-latest)
+       ("guile-gcrypt" ,(with-guile-3.0-latest guile-gcrypt))
+       ("zlib" ,zlib)))
+    (home-page "https://ngyro.com/software/disarchive.html")
+    (synopsis "Software archive disassembler")
+    (description "Disarchive can disassemble software archives into data
+and metadata.  The goal is to create a small amount of metadata that
+can be used to recreate a software archive bit-for-bit from the
+original files.  For example, a software archive made using tar and
+Gzip will need to describe the order of files in the tarball and the
+compression parameters used by Gzip.")
+    (license license:gpl3+)))
-- 
2.30.1

[bug#47027] [PATCH 2/2] gnu: Add disarchive.

[Leo Prikler]

I've checked and the package seems to build fine with Guile 3.0.2.  I
think the bytecode mismatch happens, because Guix compiles stuff with
3.0.2 by default, but users have 3.0.5 in their system, which is not
bytecode-compatible.  (As an exception, Guix itself seems to be
compiled with Guile 3.0.5 for performance reasons).

I think it would be fine to add with Guile 3.0.2, perhaps adding a note
that Guile 3.0.5 will effectively be required to use Guix interop?  If
not, could you provide a script, that breaks in a way other than
recompiling the mismatching code?

As far as the location is concerned, I personally do not like adding
too many single-package files.  Would it make sense to add this to
compression.scm (like gzip) or backup.scm (like libarchive)?

Regards,
Leo 

[bug#47027] Disarchive package

[Ludovic Courtès]

Hi!

Leo Prikler <leo.prikler@student.tugraz.at> skribis:

> I've checked and the package seems to build fine with Guile 3.0.2.  I
> think the bytecode mismatch happens, because Guix compiles stuff with
> 3.0.2 by default, but users have 3.0.5 in their system, which is not
> bytecode-compatible.  (As an exception, Guix itself seems to be
> compiled with Guile 3.0.5 for performance reasons).
>
> I think it would be fine to add with Guile 3.0.2, perhaps adding a note
> that Guile 3.0.5 will effectively be required to use Guix interop?  If
> not, could you provide a script, that breaks in a way other than
> recompiling the mismatching code?

I tend to agree here: I don’t think ‘guile-3.0-latest’ is needed in this
case.  The only case where you need it is if it depends on a library,
such as Guix, that is itself built with ‘guile-3.0-latest’.

> As far as the location is concerned, I personally do not like adding
> too many single-package files.  Would it make sense to add this to
> compression.scm (like gzip) or backup.scm (like libarchive)?

Maybe there’ll be other packages eventually in archival.scm, like the
SWH Python code?  It’s fine with me, but I don’t have a strong opinion.

Ludo’.

[bug#47027] Disarchive package

[Tobias Geerinckx-Rice via Guix-patches via]

[-- Attachment #1: Type: text/plain, Size: 183 bytes --]

Ludovic Courtès 写道：
> Maybe there’ll be other packages eventually in archival.scm, 
> like the
> SWH Python code?

Yes, that's the intention.

Kind regards,

T G-R

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]

[bug#47027] Disarchive package

[Timothy Sample]

Hi,

Thanks Leo for the review!  (And to Ludo and Tobias for follow ups.)

Ludovic Courtès <ludo@gnu.org> writes:

> Leo Prikler <leo.prikler@student.tugraz.at> skribis:
>
>> I've checked and the package seems to build fine with Guile 3.0.2.  I
>> think the bytecode mismatch happens, because Guix compiles stuff with
>> 3.0.2 by default, but users have 3.0.5 in their system, which is not
>> bytecode-compatible.  (As an exception, Guix itself seems to be
>> compiled with Guile 3.0.5 for performance reasons).
>>
>> I think it would be fine to add with Guile 3.0.2, perhaps adding a note
>> that Guile 3.0.5 will effectively be required to use Guix interop?  If
>> not, could you provide a script, that breaks in a way other than
>> recompiling the mismatching code?
>
> I tend to agree here: I don’t think ‘guile-3.0-latest’ is needed in this
> case.  The only case where you need it is if it depends on a library,
> such as Guix, that is itself built with ‘guile-3.0-latest’.

Well, now I’m second guessing myself.  :)

It is just the auto compilation notes and warnings that I’m worried
about.  The module closure of “swh.scm” works fine on Guile 3.0.2.

Eventually, the daemon will invoke Disarchive via “builtin:download” and
“perform-download.scm”.  I intend to use the Scheme interface there,
which means Disarchive will be runing on Guile 3.0.5.  For that, it
would be preferable to have a Guile 3.0.5 version of Disarchive, right?

On the other hand, when using Disarchive to extract metadata (e.g., with
Cuirass), the SWH code is not needed at all.

I will resurrect my patch for calling Disarchive from Guix, and come
back to this when I know exactly what kind of package I need for that to
work smoothly.

>> As far as the location is concerned, I personally do not like adding
>> too many single-package files.  Would it make sense to add this to
>> compression.scm (like gzip) or backup.scm (like libarchive)?
>
> Maybe there’ll be other packages eventually in archival.scm, like the
> SWH Python code?  It’s fine with me, but I don’t have a strong opinion.

I don’t feel strongly about it either.  There’s other software besides
Disarchive and SWH that could be called “archival”, and I think it’s
more accurate than the other options.


-- Tim

[bug#47027] Disarchive package

[Leo Prikler]

Hi,
Am Donnerstag, den 11.03.2021, 22:06 -0500 schrieb Timothy Sample:
> It is just the auto compilation notes and warnings that I’m worried
> about.  The module closure of “swh.scm” works fine on Guile 3.0.2.
> 
> Eventually, the daemon will invoke Disarchive via “builtin:download”
> and
> “perform-download.scm”.  I intend to use the Scheme interface there,
> which means Disarchive will be runing on Guile 3.0.5.  For that, it
> would be preferable to have a Guile 3.0.5 version of Disarchive,
> right?
Guix offers package transformations on a command line/code level. 
Having packaged disarchival for Guile 3.0.2, it should be trivial to
provide a variant for Guix, that uses Guile 3.0.5.

Looking at the package description for Guix itself, it does not seem as
though an exception would be needed, though.  All of its dependencies
seem to "build and link" fine with Guile 3.0.2 even though Guix uses
3.0.5.  Perhaps it's because you're calling into Guix and thus forming
a dependency cycle or perhaps Guix is really good at hiding such
messages from the user otherwise (not that I know of any particularly
large effort to do so). 

> > > As far as the location is concerned, I personally do not like
> > > adding
> > > too many single-package files.  Would it make sense to add this
> > > to
> > > compression.scm (like gzip) or backup.scm (like libarchive)?
> > 
> > Maybe there’ll be other packages eventually in archival.scm, like
> > the
> > SWH Python code?  It’s fine with me, but I don’t have a strong
> > opinion.
> 
> I don’t feel strongly about it either.  There’s other software
> besides
> Disarchive and SWH that could be called “archival”, and I think it’s
> more accurate than the other options.
I think in that case it'd be fine, but OTOH we group libraries by
programming language and prefix them as well.  For instance, a python
library, that communicates with SWH would probably go to python-web or
python-xyz and be prefixed with python-.  Likewise, if disarchive is
not supposed to be primarily used as a command line tool, I think
putting it into guile-xyz as "guile-disarchive" makes more sense. 
WDYT?

Regards,
Leo

[bug#47027] Disarchive package

[Ludovic Courtès]

Hello!

Timothy Sample <samplet@ngyro.com> skribis:

> Ludovic Courtès <ludo@gnu.org> writes:
>
>> Leo Prikler <leo.prikler@student.tugraz.at> skribis:
>>
>>> I've checked and the package seems to build fine with Guile 3.0.2.  I
>>> think the bytecode mismatch happens, because Guix compiles stuff with
>>> 3.0.2 by default, but users have 3.0.5 in their system, which is not
>>> bytecode-compatible.  (As an exception, Guix itself seems to be
>>> compiled with Guile 3.0.5 for performance reasons).
>>>
>>> I think it would be fine to add with Guile 3.0.2, perhaps adding a note
>>> that Guile 3.0.5 will effectively be required to use Guix interop?  If
>>> not, could you provide a script, that breaks in a way other than
>>> recompiling the mismatching code?
>>
>> I tend to agree here: I don’t think ‘guile-3.0-latest’ is needed in this
>> case.  The only case where you need it is if it depends on a library,
>> such as Guix, that is itself built with ‘guile-3.0-latest’.
>
> Well, now I’m second guessing myself.  :)
>
> It is just the auto compilation notes and warnings that I’m worried
> about.  The module closure of “swh.scm” works fine on Guile 3.0.2.
>
> Eventually, the daemon will invoke Disarchive via “builtin:download” and
> “perform-download.scm”.  I intend to use the Scheme interface there,
> which means Disarchive will be runing on Guile 3.0.5.  For that, it
> would be preferable to have a Guile 3.0.5 version of Disarchive, right?

No, that’s fine.  Guile 3.0.5 can run 3.0.2 bytecode without any
warnings; what yields warnings is doing it the other way around.
Anyway, we can always revisit this if problems come up.

> On the other hand, when using Disarchive to extract metadata (e.g., with
> Cuirass), the SWH code is not needed at all.
>
> I will resurrect my patch for calling Disarchive from Guix, and come
> back to this when I know exactly what kind of package I need for that to
> work smoothly.

Yay!

>>> As far as the location is concerned, I personally do not like adding
>>> too many single-package files.  Would it make sense to add this to
>>> compression.scm (like gzip) or backup.scm (like libarchive)?
>>
>> Maybe there’ll be other packages eventually in archival.scm, like the
>> SWH Python code?  It’s fine with me, but I don’t have a strong opinion.
>
> I don’t feel strongly about it either.  There’s other software besides
> Disarchive and SWH that could be called “archival”, and I think it’s
> more accurate than the other options.

Dunno maybe you can do as Leo suggests by putting it in guile-xyz.scm or
some such.

Thanks!

Ludo’.

[bug#47027] Disarchive package

[Ludovic Courtès]

Ping!  :-)

Ludovic Courtès <ludo@gnu.org> skribis:

> Hello!
>
> Timothy Sample <samplet@ngyro.com> skribis:
>
>> Ludovic Courtès <ludo@gnu.org> writes:
>>
>>> Leo Prikler <leo.prikler@student.tugraz.at> skribis:
>>>
>>>> I've checked and the package seems to build fine with Guile 3.0.2.  I
>>>> think the bytecode mismatch happens, because Guix compiles stuff with
>>>> 3.0.2 by default, but users have 3.0.5 in their system, which is not
>>>> bytecode-compatible.  (As an exception, Guix itself seems to be
>>>> compiled with Guile 3.0.5 for performance reasons).
>>>>
>>>> I think it would be fine to add with Guile 3.0.2, perhaps adding a note
>>>> that Guile 3.0.5 will effectively be required to use Guix interop?  If
>>>> not, could you provide a script, that breaks in a way other than
>>>> recompiling the mismatching code?
>>>
>>> I tend to agree here: I don’t think ‘guile-3.0-latest’ is needed in this
>>> case.  The only case where you need it is if it depends on a library,
>>> such as Guix, that is itself built with ‘guile-3.0-latest’.
>>
>> Well, now I’m second guessing myself.  :)
>>
>> It is just the auto compilation notes and warnings that I’m worried
>> about.  The module closure of “swh.scm” works fine on Guile 3.0.2.
>>
>> Eventually, the daemon will invoke Disarchive via “builtin:download” and
>> “perform-download.scm”.  I intend to use the Scheme interface there,
>> which means Disarchive will be runing on Guile 3.0.5.  For that, it
>> would be preferable to have a Guile 3.0.5 version of Disarchive, right?
>
> No, that’s fine.  Guile 3.0.5 can run 3.0.2 bytecode without any
> warnings; what yields warnings is doing it the other way around.
> Anyway, we can always revisit this if problems come up.
>
>> On the other hand, when using Disarchive to extract metadata (e.g., with
>> Cuirass), the SWH code is not needed at all.
>>
>> I will resurrect my patch for calling Disarchive from Guix, and come
>> back to this when I know exactly what kind of package I need for that to
>> work smoothly.
>
> Yay!
>
>>>> As far as the location is concerned, I personally do not like adding
>>>> too many single-package files.  Would it make sense to add this to
>>>> compression.scm (like gzip) or backup.scm (like libarchive)?
>>>
>>> Maybe there’ll be other packages eventually in archival.scm, like the
>>> SWH Python code?  It’s fine with me, but I don’t have a strong opinion.
>>
>> I don’t feel strongly about it either.  There’s other software besides
>> Disarchive and SWH that could be called “archival”, and I think it’s
>> more accurate than the other options.
>
> Dunno maybe you can do as Leo suggests by putting it in guile-xyz.scm or
> some such.
>
> Thanks!
>
> Ludo’.

[bug#47027] Disarchive package

[Leo Prikler]

Am Sonntag, den 21.03.2021, 11:29 +0100 schrieb Ludovic Courtès:
> Ping!  :-)
I've pushed guile-quickcheck as
4cd88522f233dcb9affa3d3b0eada154439487c1, so we now only need to
discuss what to do with (guile-)?disarchive.

> > Hello!
> > 
> > Timothy Sample <samplet@ngyro.com> skribis:
> > 
> > > Ludovic Courtès <ludo@gnu.org> writes:
> > > 
> > > > Leo Prikler <leo.prikler@student.tugraz.at> skribis:
> > > > 
> > > > > I've checked and the package seems to build fine with Guile
> > > > > 3.0.2.  I
> > > > > think the bytecode mismatch happens, because Guix compiles
> > > > > stuff with
> > > > > 3.0.2 by default, but users have 3.0.5 in their system, which
> > > > > is not
> > > > > bytecode-compatible.  (As an exception, Guix itself seems to
> > > > > be
> > > > > compiled with Guile 3.0.5 for performance reasons).
> > > > > 
> > > > > I think it would be fine to add with Guile 3.0.2, perhaps
> > > > > adding a note
> > > > > that Guile 3.0.5 will effectively be required to use Guix
> > > > > interop?  If
> > > > > not, could you provide a script, that breaks in a way other
> > > > > than
> > > > > recompiling the mismatching code?
> > > > 
> > > > I tend to agree here: I don’t think ‘guile-3.0-latest’ is
> > > > needed in this
> > > > case.  The only case where you need it is if it depends on a
> > > > library,
> > > > such as Guix, that is itself built with ‘guile-3.0-latest’.
> > > 
> > > Well, now I’m second guessing myself.  :)
> > > 
> > > It is just the auto compilation notes and warnings that I’m
> > > worried
> > > about.  The module closure of “swh.scm” works fine on Guile
> > > 3.0.2.
> > > 
> > > Eventually, the daemon will invoke Disarchive via
> > > “builtin:download” and
> > > “perform-download.scm”.  I intend to use the Scheme interface
> > > there,
> > > which means Disarchive will be runing on Guile 3.0.5.  For that,
> > > it
> > > would be preferable to have a Guile 3.0.5 version of Disarchive,
> > > right?
> > 
> > No, that’s fine.  Guile 3.0.5 can run 3.0.2 bytecode without any
> > warnings; what yields warnings is doing it the other way around.
> > Anyway, we can always revisit this if problems come up.
> > 
> > > On the other hand, when using Disarchive to extract metadata
> > > (e.g., with
> > > Cuirass), the SWH code is not needed at all.
> > > 
> > > I will resurrect my patch for calling Disarchive from Guix, and
> > > come
> > > back to this when I know exactly what kind of package I need for
> > > that to
> > > work smoothly.
> > 
> > Yay!
> > 
> > > > > As far as the location is concerned, I personally do not like
> > > > > adding
> > > > > too many single-package files.  Would it make sense to add
> > > > > this to
> > > > > compression.scm (like gzip) or backup.scm (like libarchive)?
> > > > 
> > > > Maybe there’ll be other packages eventually in archival.scm,
> > > > like the
> > > > SWH Python code?  It’s fine with me, but I don’t have a strong
> > > > opinion.
> > > 
> > > I don’t feel strongly about it either.  There’s other software
> > > besides
> > > Disarchive and SWH that could be called “archival”, and I think
> > > it’s
> > > more accurate than the other options.
> > 
> > Dunno maybe you can do as Leo suggests by putting it in guile-
> > xyz.scm or
> > some such.
> > 
> > Thanks!
> > 
> > Ludo’.

[bug#47027] Disarchive package

[Timothy Sample]

Hi,

Leo Prikler <leo.prikler@student.tugraz.at> writes:

> Am Sonntag, den 21.03.2021, 11:29 +0100 schrieb Ludovic Courtès:
>> Ping!  :-)
> I've pushed guile-quickcheck as
> 4cd88522f233dcb9affa3d3b0eada154439487c1, so we now only need to
> discuss what to do with (guile-)?disarchive.

Hey thanks Leo!

I will put Disarchive in “backup.scm” with Guile 3.0.2.  In my eyes, it
is a regular command-line program that happens to have a Scheme
interface.  (Thanks Ludo – I didn’t know Guile 3.0.5 was fine with 3.0.2
bytecode).

I need to release a new version though, hence the delay.  While working
on the download code, I wanted some changes to Disarchive.  Now, it lets
Guix figure out how to download the Disarchive specification file and
the directory from SWH.  This allows Guix to reuse all of its
specialized HTTP code, simplifies Disarchive, and makes it more suitable
for use outside of Guix (by Nix or SWH or whatever).  It all works here
with a database I set up at <https://disarchive.ngyro.com>.  Right now,
I am finishing one last UI tweak (stopping Disarchive from printing a
backtrace when the directory does not exist in the SWH archive).  Then,
I will release 0.2.0 and push this patch with the new version.  Then –
finally – we can talk about using it.

Thanks for your continued patience!  :)


-- Tim

[bug#47027] Disarchive package

[Maxime Devos]

[-- Attachment #1: Type: text/plain, Size: 312 bytes --]

On Sun, 2021-03-21 at 10:13 -0400, Timothy Sample wrote:
> Hi,
> 
> [...] It all works here
> with a database I set up at <https://disarchive.ngyro.com>;.

That web page is saying ‘403 Forbidden --- nginx’.

> Thanks for your continued patience!  :)

Thank you for your continued work,

Maxime.

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

[bug#47027] Disarchive package

[Ludovic Courtès]

Howdy!

Timothy Sample <samplet@ngyro.com> skribis:

> I will put Disarchive in “backup.scm” with Guile 3.0.2.  In my eyes, it
> is a regular command-line program that happens to have a Scheme
> interface.  (Thanks Ludo – I didn’t know Guile 3.0.5 was fine with 3.0.2
> bytecode).

Alright!

> I need to release a new version though, hence the delay.  While working
> on the download code, I wanted some changes to Disarchive.  Now, it lets
> Guix figure out how to download the Disarchive specification file and
> the directory from SWH.  This allows Guix to reuse all of its
> specialized HTTP code, simplifies Disarchive, and makes it more suitable
> for use outside of Guix (by Nix or SWH or whatever).  It all works here
> with a database I set up at <https://disarchive.ngyro.com>.  Right now,
> I am finishing one last UI tweak (stopping Disarchive from printing a
> backtrace when the directory does not exist in the SWH archive).  Then,
> I will release 0.2.0 and push this patch with the new version.  Then –
> finally – we can talk about using it.

That sounds great—always improving.

> Thanks for your continued patience!  :)

Did you mean my continued impatience?  :-)

Thanks for the great quality work, as always!

Ludo’.

bug#47027: Disarchive package

[Timothy Sample]

Hey,

Timothy Sample <samplet@ngyro.com> writes:

> Right now, I am finishing one last UI tweak (stopping Disarchive from
> printing a backtrace when the directory does not exist in the SWH
> archive).  Then, I will release 0.2.0 and push this patch with the
> new version.

Done and pushed!

> Then – finally – we can talk about using it.

See <https://issues.guix.gnu.org/47336>.


-- Tim

[bug#47027] Disarchive package

[Ludovic Courtès]

Hi Timothy,

Timothy Sample <samplet@ngyro.com> skribis:

> Timothy Sample <samplet@ngyro.com> writes:
>
>> Right now, I am finishing one last UI tweak (stopping Disarchive from
>> printing a backtrace when the directory does not exist in the SWH
>> archive).  Then, I will release 0.2.0 and push this patch with the
>> new version.
>
> Done and pushed!
>
>> Then – finally – we can talk about using it.
>
> See <https://issues.guix.gnu.org/47336>.

Woohoo, congrats on the new release and thank you for all this!

Ludo’.

[bug#47027] [PATCH 1/2] gnu: Add guile-quickcheck.

[Leo Prikler]

This package seems fine to add on its own.
W.r.t. the description I'd avoid overusing the word "library".  In
particular, I'd like to compare it to ghc-quickcheck, which starts with
"QuickCheck is a library".
Perhaps something among the lines of 
  "Guile-Quickcheck is a library for random testing of program
properties inspired similar to ghc-quickcheck.  You can use it to
express properties, which functions should satisfy, as Scheme code and
then check whether they hold in a large number of randomly generated
cases."
would make more sense?

Regards,
Leo

[bug#47027] [PATCH 1/2] gnu: Add guile-quickcheck.

[Maxime Devos]

[-- Attachment #1: Type: text/plain, Size: 481 bytes --]

On Tue, 2021-03-09 at 14:39 -0500, Timothy Sample wrote:
> [...]
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (inputs
> +     `(("guile" ,guile-3.0)))

Shouldn't the "guile" input be included in the native-inputs
as well (perhaps only native-inputs suffices), for cross-compilation?
Guile's compiled .go are architecture-dependent.  (Make sure the
--target= option is passed to "guild compile" in the Makefile.am
if it isn't already.)

Maxime.

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

[bug#47027] Disarchive package

[Ludovic Courtès]

Hi,

Maxime Devos <maximedevos@telenet.be> skribis:

> On Tue, 2021-03-09 at 14:39 -0500, Timothy Sample wrote:
>> [...]
>> +    (native-inputs
>> +     `(("pkg-config" ,pkg-config)))
>> +    (inputs
>> +     `(("guile" ,guile-3.0)))
>
> Shouldn't the "guile" input be included in the native-inputs
> as well (perhaps only native-inputs suffices), for cross-compilation?

Yes it should, good point.

Thank you.

Ludo’, impatient to see Disarchive pushed.  :-)

bug#47221: Guile not in native-inputs when it should

[Maxime Devos]

[-- Attachment #1.1: Type: text/plain, Size: 1704 bytes --]

Hi Guix,

(In response to bug#47027, but opened as a new bug.)

On Wed, 2021-03-17 at 21:52 +0100, Ludovic Courtès wrote:
> Hi,
> 
> Maxime Devos <maximedevos@telenet.be> skribis:
> [...]
> > Shouldn't the "guile" input be included in the native-inputs
> > as well (perhaps only native-inputs suffices), for cross-compilation?
> 
> Yes it should, good point.

FWIW, I tried to write a linter to catch these kind of issues.
(If there's a "guile" input, then there usually should also be
a "guile" native-input.)  Currently, it has too many false positives
for my taste.  I most likely won't be working on it in the near future
though.  (Preliminary patch attached)

> ./pre-int-env guix lint -t "check-inputs-should-also-be-native"

(Output attached)

Some suspicious things:
* guile-config & others are missing a "guile" in the native-inputs
* clipmenu & others use "wrap-script" to define wrapper scripts
  (in this case "guile" does not have to be in native-inputs).
  The "wrap-script" procedure from (guix build utils) uses the
  "which" procedure to determine where guile is located ...
  but this is incorrect when cross-compiling!

  (It is possible to override the "guile" binary used with a
  keyword argument).

  (I assume inputs in "inputs" do not contribute to the $PATH
  in a cross-compilation environment; only "native-inputs" should
  contribute to $PATH)

  idk if it is feasible or if there are complications, but
  IMHO the inputs in "inputs" shouldn't contribute to $PATH
  at all (not even when not cross-compilation), only inputs
  in $PATH.

There seems to be plenty of low-hanging cross-compilation fruit here!

Greetings,
Maxime

[-- Attachment #1.2: 0001-lint-Check-whether-guile-should-be-in-native-inputs.patch --]
[-- Type: text/x-patch, Size: 3334 bytes --]

From c4798e6154275a2de41c1d5a35bc723091d4e1a4 Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Wed, 17 Mar 2021 22:56:26 +0100
Subject: [PATCH] lint: Check whether guile should be in native-inputs.

TODO less false positives (or negatives?)
TODO proper message

* guix/lint.scm
  (check-inputs-should-also-be-native): ???
  (%local-checkers)[inputs-should-also-be-native]: New ???.
---
 guix/lint.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/guix/lint.scm b/guix/lint.scm
index 311bc94cc3..d0cde23665 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -11,6 +11,7 @@
 ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2020 Chris Marusich <cmmarusich@gmail.com>
 ;;; Copyright © 2020 Timothy Sample <samplet@ngyro.com>
+;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -75,6 +76,7 @@
   #:use-module (ice-9 rdelim)
   #:export (check-description-style
             check-inputs-should-be-native
+            check-inputs-should-also-be-native
             check-inputs-should-not-be-an-input-at-all
             check-patch-file-names
             check-patch-headers
@@ -347,6 +349,36 @@ of a package, and INPUT-NAMES, a list of package specifications such as
             #:field 'inputs))
          (package-input-intersection inputs input-names))))
 
+#|
+(define (suspect-input->native-names package)
+  ;; Guile's compiled .go code is architecture
+  `(,@(if (string-prefix? "guile" (package-name package))
+         '("guile")
+         '()))
+|#
+
+(define (check-inputs-should-also-be-native package)
+  ;; Emit a warning if some inputs of PACKAGE are likely to belong to its
+  ;; native inputs as well.
+  (guard (c ((package-cross-build-system-error? c) '()))
+    (let ((inputs (package-inputs package))
+          (native-inputs
+           ;; Pretend we're cross-compiling,
+           ;; as some packages only add the "guile" input
+           ;; to native-inputs when %current-target-system is not #f.
+           (parameterize ((%current-target-system (%current-system)))
+             (package-native-inputs package)))
+          (input-names
+           '("guile")))
+      (filter-map (lambda (input)
+                    (and (not (assoc input native-inputs))
+                         (make-warning
+                          package
+                          (G_ "'~a' should probably also be a native input")
+                          (list input)
+                          #:field 'inputs)))
+                  (package-input-intersection inputs input-names)))))
+
 (define (check-inputs-should-not-be-an-input-at-all package)
   ;; Emit a warning if some inputs of PACKAGE are likely to should not be
   ;; an input at all.
@@ -1449,6 +1481,10 @@ them for PACKAGE."
      (name        'description)
      (description "Validate package descriptions")
      (check       check-description-style))
+   (lint-checker
+     (name        'inputs-should-also-be-native)
+     (description "Identify inputs that should aso be native inputs")
+     (check        check-inputs-should-also-be-native))
    (lint-checker
      (name        'inputs-should-be-native)
      (description "Identify inputs that should be native inputs")
-- 
2.30.2


[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

bug#47221: Guile not in native-inputs when it should

[Maxime Devos]

[-- Attachment #1.1: Type: text/plain, Size: 172 bytes --]

I made a spelling error in the command:
./pre-inst-env guix lint -c "inputs-should-also-be-native"

I forgot to attach the output of "guix lint -c ..." (now attached).

[-- Attachment #1.2: list-of-suspicious-packages --]
[-- Type: text/plain, Size: 20795 bytes --]

gnu/packages/admin.scm:1035:12: alive@2.0.3: 'guile' should probably also be a native input
gnu/packages/audio.scm:4681:5: carla@2.1.1: 'guile' should probably also be a native input
gnu/packages/autogen.scm:47:12: autogen@5.18.16: 'guile' should probably also be a native input
gnu/packages/base.scm:438:11: make@4.3: 'guile' should probably also be a native input
gnu/packages/base.scm:468:2: make@4.2.1: 'guile' should probably also be a native input
gnu/packages/bash.scm:388:5: bats@1.2.0: 'guile' should probably also be a native input
gnu/packages/bioinformatics.scm:11147:5: gess@1.0: 'guile' should probably also be a native input
gnu/packages/bioinformatics.scm:7912:5: prinseq@0.20.4: 'guile' should probably also be a native input
gnu/packages/bioinformatics.scm:14360:7: nanopolish@0.11.1-1.6331dc4: 'guile' should probably also be a native input
gnu/packages/bioinformatics.scm:5437:5: proteinortho@6.0.14: 'guile' should probably also be a native input
gnu/packages/bioinformatics.scm:9267:5: rcas-web@0.1.0: 'guile' should probably also be a native input
gnu/packages/ci.scm:53:4: guile-mastodon@0.0.1-1.88115d8: 'guile' should probably also be a native input
gnu/packages/ci.scm:149:7: cuirass@0.0.1-73.14e1335: 'guile' should probably also be a native input
gnu/packages/base.scm:628:12: ld-wrapper@0: 'guile' should probably also be a native input
gnu/packages/curl.scm:275:5: guile2.2-curl@0.7: 'guile' should probably also be a native input
gnu/packages/curl.scm:261:4: guile-curl@0.7: 'guile' should probably also be a native input
gnu/packages/databases.scm:2454:5: guile-wiredtiger@0.7.0: 'guile' should probably also be a native input
gnu/packages/debug.scm:559:5: remake@4.3-1.5: 'guile' should probably also be a native input
gnu/packages/dico.scm:69:5: dico@2.10: 'guile' should probably also be a native input
gnu/packages/disk.scm:279:5: fdisk@2.0.0a1: 'guile' should probably also be a native input
gnu/packages/emacs-xyz.scm:241:5: emacs-geiser@0.12: 'guile' should probably also be a native input
gnu/packages/emacs-xyz.scm:2979:7: emacs-guix@0.5.2-3.a694fdb: 'guile' should probably also be a native input
gnu/packages/embedded.scm:454:2: gdb-arm-none-eabi@10.1: 'guile' should probably also be a native input
gnu/packages/engineering.scm:249:5: geda-gaf@1.10.0: 'guile' should probably also be a native input
gnu/packages/engineering.scm:1417:5: meep@1.8.0: 'guile' should probably also be a native input
gnu/packages/engineering.scm:2001:5: freehdl@0.0.8: 'guile' should probably also be a native input
gnu/packages/engineering.scm:300:5: lepton-eda@1.9.13-20201211: 'guile' should probably also be a native input
gnu/packages/engineering.scm:881:7: inspekt3d@0-0.703f52c: 'guile' should probably also be a native input
gnu/packages/engineering.scm:826:7: libfive@0-4.8ca1b86: 'guile' should probably also be a native input
gnu/packages/engineering.scm:1343:5: guile-libctl@4.2.0: 'guile' should probably also be a native input
gnu/packages/engineering.scm:1376:5: mpb@1.8.0: 'guile' should probably also be a native input
gnu/packages/game-development.scm:1834:5: guile-chickadee@0.6.0: 'guile' should probably also be a native input
gnu/packages/game-development.scm:301:12: gzochi@0.13: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-chickadee@0.6.0: 'guile' should probably also be a native input
gnu/packages/games.scm:9820:5: gnurobots@1.2.0: 'guile' should probably also be a native input
gnu/packages/games.scm:1752:12: gnubik@2.4.3: 'guile' should probably also be a native input
gnu/packages/gdb.scm:95:5: gdb@10.1: 'guile' should probably also be a native input
gnu/packages/gdb.scm:145:5: gdb@8.2.1: 'guile' should probably also be a native input
gnu/packages/gdb.scm:154:2: gdb-minimal@10.1: 'guile' should probably also be a native input
gnu/packages/gl.scm:589:12: guile-opengl@0.1.0: 'guile' should probably also be a native input
gnu/packages/gl.scm:637:5: guile3.0-opengl@0.1.0: 'guile' should probably also be a native input
gnu/packages/gnome.scm:5590:5: aisleriot@3.22.9: 'guile' should probably also be a native input
gnu/packages/gnucash.scm:77:5: gnucash@4.2: 'guile' should probably also be a native input
gnu/packages/gnunet.scm:373:14: guile-gnunet@0.0-1.d12167a: 'guile' should probably also be a native input
gnu/packages/gnupg.scm:936:12: pinentry-rofi@2.0.3: 'guile' should probably also be a native input
gnu/packages/graphviz.scm:98:5: graphviz@2.42.3: 'guile' should probably also be a native input
gnu/packages/graphviz.scm:133:4: graphviz@2.38.0-1.f54ac2c: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-rsvg@2.18.1-0.05c6a2f: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1213:12: guile-gnome@2.16.5: 'guile' should probably also be a native input
gnu/packages/gtk.scm:990:5: guile-cairo@1.11.2: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1173:12: guile2.2-present@0.3.0: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-cairo@1.11.2: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1153:12: guile-present@0.3.0: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1014:5: guile2.2-cairo@1.11.2: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1100:5: guile2.2-rsvg@2.18.1-0.05c6a2f: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-present@0.3.0: 'guile' should probably also be a native input
gnu/packages/gtk.scm:1084:14: guile-rsvg@2.18.1-0.05c6a2f: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:660:12: guile2.2-filesystem@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1241:12: guile2.2-email@0.2.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2930:5: guile-file-names@0.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2626:12: guile2.2-mcron@1.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2147:12: guile2.2-ncurses@3.0: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-websocket@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:687:5: guile-syntax-highlight@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2157:12: guile-ncurses-with-gpm@3.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:165:5: artanis@0.4.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-wisp@1.0.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1892:5: guile-sly@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4486:5: guile-shapefile@0.1.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1217:4: guile-email-latest@0.2.2-1.03e9cac: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-email@0.2.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:328:12: guile-aspell@0.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2164:12: guile3.0-ncurses-with-gpm@3.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:538:12: guile2.2-dsv@0.4.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3483:5: guile-cv@0.2.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3607:5: guile2.2-semver@0.1.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-xapian@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:700:12: guile2.2-syntax-highlight@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2648:7: guile-picture-language@0.0.1-4.291a746: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:618:12: guile2.2-fibers@1.0.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2671:12: guile2.2-picture-language@0.0.1-4.291a746: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-ics@0.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1797:5: guile-wisp@1.0.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1814:12: guile2.2-wisp@1.0.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1722:12: guile2.2-ics@0.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1707:12: guile-ics@0.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3017:5: guile2.2-gi@0.3.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3800:7: guile-webutils@0.1-0.8541904: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2892:5: python-on-guile@1.2.3.5: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3122:7: guile-srfi-159@0-0.1bd98ab: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1348:5: guile-parted@0.0.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2567:12: guile2.2-commonmark@0.1.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:456:5: guile-daemon@0.1.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1392:5: guile-xosd@0.2.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3816:5: guile2.2-webutils@0.1-0.8541904: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-commonmark@0.1.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1561:12: guile-config@0.4.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:654:12: guile2.0-filesystem@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2446:12: guile2.2-haunt@0.2.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4583:7: schmutz@0-1.add2458: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3591:5: guile-semver@0.1.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2431:5: haunt@0.2.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:741:12: guile2.2-sjson@0.2.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4550:7: guile-libyaml@0-1.f5d33a6: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1842:5: guile-udev@0.1.0: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-newt@0.0.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4043:5: guile-rdf@1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1652:12: guile-hall@0.3.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:643:5: guile-filesystem@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2094:12: guile2.2-reader@0.6.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2722:7: guile-studio@0.1.0-1.93622e7: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4636:5: guile-quickcheck@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1668:12: guile2.2-hall@0.3.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2550:5: guile-commonmark@0.1.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2612:12: mcron@1.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3886:5: guile-xapian@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3968:7: guile-irc@0.3.0-0.375d3bd: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3003:12: guile-gi@0.3.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-gi@0.3.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2823:5: guile-persist@1.2.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2455:12: guile2.0-haunt@0.2.4: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-parted@0.0.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:598:5: guile-fibers@1.0.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1368:12: guile2.2-parted@0.0.4: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2108:12: guile-ncurses@3.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3568:5: srfi-64-driver@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:276:7: guildhall@0-1.2fe2cc539: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1283:12: guile2.2-newt@0.0.2: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-picture-language@0.0.1-4.291a746: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1265:5: guile-newt@0.0.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:730:5: guile-sjson@0.2.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:380:14: guile-bash@0.1.6-0.1eabc56: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4385:12: guile-sodium@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2073:12: guile-reader@0.6.3: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:484:12: guile-dsv@0.4.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4015:7: guile-websocket@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1928:7: g-golf@0.1.0-839.ef83010: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2573:12: guile2.0-commonmark@0.1.2: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-hall@0.3.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-semver@0.1.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4610:12: guile-cbor@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:2774:5: guile-stis-parser@1.2.4.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4446:5: guile-r6rs-protobuf@0.9: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1580:12: guile2.2-config@0.4.2: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-fibers@1.0.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4084:5: guile-jsonld@1.0.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4416:12: guile-eris@0.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1203:5: guile-email@0.2.2: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1127:7: jupyter-guile-kernel@0.0.0-2.f25fb90: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1319:5: guile-mastodon@0.0.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-syntax-highlight@0.1: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:1153:4: guile-sparql@0.0.8: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3909:5: guile2.2-xapian@0.1.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4278:7: guile-avahi@0.4.0-1.6d43caf: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-config@0.4.2: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-mcron@1.2.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3537:7: guile-ffi-fftw@0-2.294ad9e: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:3091:5: guile-srfi-158@0.0.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-ncurses@3.0: 'guile' should probably also be a native input
gnu/packages/guile-xyz.scm:4356:5: guile-jwt@0.2.0: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-haunt@0.2.4: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-readline@3.0.2: 'guile' should probably also be a native input
gnu/packages/guile.scm:432:5: guile-readline@3.0.2: 'guile' should probably also be a native input
gnu/packages/guile.scm:432:5: guile2.2-readline@2.2.7: 'guile' should probably also be a native input
gnu/packages/irc.scm:204:5: weechat@3.0: 'guile' should probably also be a native input
gnu/packages/mail.scm:324:5: guile2.2-mailutils@3.10: 'guile' should probably also be a native input
gnu/packages/mail.scm:186:5: anubis@4.2.90: 'guile' should probably also be a native input
gnu/packages/mail.scm:3882:7: mumi@0.0.1-3.8c82c8f: 'guile' should probably also be a native input
gnu/packages/mail.scm:2849:5: sieve-connect@0.90: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-mailutils@3.10: 'guile' should probably also be a native input
gnu/packages/mail.scm:294:5: mailutils@3.10: 'guile' should probably also be a native input
gnu/packages/mail.scm:1079:5: mu@1.4.15: 'guile' should probably also be a native input
gnu/packages/maths.scm:1710:12: nlopt@2.4.2: 'guile' should probably also be a native input
gnu/packages/mes.scm:96:5: nyacc@0.99.0: 'guile' should probably also be a native input
gnu/packages/mes.scm:118:5: nyacc@1.03.0: 'guile' should probably also be a native input
gnu/packages/messaging.scm:2012:5: freetalk@4.1: 'guile' should probably also be a native input
gnu/packages/music.scm:6205:6: zplugins@0.1.7: 'guile' should probably also be a native input
gnu/packages/music.scm:6093:4: zrythm@1.0.0-alpha.12.0.1: 'guile' should probably also be a native input
guix/packages.scm:462:2: zlfo@0.1.7: 'guile' should probably also be a native input
gnu/packages/music.scm:644:5: denemo@2.5.0: 'guile' should probably also be a native input
gnu/packages/music.scm:2214:5: beast@0.10.0: 'guile' should probably also be a native input
gnu/packages/music.scm:1463:5: lilypond@2.20.0: 'guile' should probably also be a native input
gnu/packages/opencog.scm:230:7: opencog@0.1.4-1.ceac905: 'guile' should probably also be a native input
gnu/packages/opencog.scm:185:7: attention@0-1.87d4367: 'guile' should probably also be a native input
gnu/packages/opencog.scm:96:7: atomspace@5.0.3-1.86c848d: 'guile' should probably also be a native input
gnu/packages/opencog.scm:291:7: agi-bio@0-1.b5c6f3d: 'guile' should probably also be a native input
gnu/packages/opencog.scm:142:7: cogserver@0-2.ec5f3b9: 'guile' should probably also be a native input
gnu/packages/package-management.scm:1508:5: akku@1.0.1: 'guile' should probably also be a native input
gnu/packages/package-management.scm:1245:5: guix-jupyter@0.2.1: 'guile' should probably also be a native input
gnu/packages/package-management.scm:1025:5: gwl@0.3.0: 'guile' should probably also be a native input
gnu/packages/password-utils.scm:341:5: shroud@0.1.2: 'guile' should probably also be a native input
gnu/packages/plotutils.scm:137:12: guile2.2-charting@0.2.0-1.75f755b: 'guile' should probably also be a native input
gnu/packages/plotutils.scm:124:14: guile-charting@0.2.0-1.75f755b: 'guile' should probably also be a native input
guix/packages.scm:462:2: guile3.0-charting@0.2.0-1.75f755b: 'guile' should probably also be a native input
gnu/packages/sdl.scm:559:5: guile-sdl@0.5.2: 'guile' should probably also be a native input
gnu/packages/serveez.scm:40:12: serveez@0.2.2: 'guile' should probably also be a native input
gnu/packages/shells.scm:928:5: gash-utils@0.1.0: 'guile' should probably also be a native input
gnu/packages/shells.scm:893:5: gash@0.2.0: 'guile' should probably also be a native input
gnu/packages/skribilo.scm:72:12: skribilo@0.9.5: 'guile' should probably also be a native input
gnu/packages/text-editors.scm:822:5: texmacs@1.99.19: 'guile' should probably also be a native input
gnu/packages/video.scm:2660:5: srt2vtt@0.1: 'guile' should probably also be a native input
gnu/packages/vpn.scm:154:14: vpnc-scripts@20200925.3885f8b: 'guile' should probably also be a native input
gnu/packages/web.scm:7622:7: hpcguix-web@0.0.1-5.9de6356: 'guile' should probably also be a native input
gnu/packages/xdisorg.scm:1034:5: xbindkeys@1.8.7: 'guile' should probably also be a native input
gnu/packages/xdisorg.scm:2569:7: clipmenu@6.0.1-1.bcbe7b1: 'guile' should probably also be a native input
gnu/packages/zile.scm:119:7: zile-on-guile@2.4.15-0.fd09781: 'guile' should probably also be a native input

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

bug#47221: Guile not in native-inputs when it should

[Maxime Devos]

[-- Attachment #1: Type: text/plain, Size: 2947 bytes --]

On Wed, 2021-03-17 at 22:58 +0100, Maxime Devos wrote:
> [...]
> Some suspicious things:
> * [...]
> * clipmenu & others use "wrap-script" to define wrapper scripts

>   (in this case "guile" does not have to be in native-inputs).
>   The "wrap-script" procedure from (guix build utils) uses the
>   "which" procedure to determine where guile is located ...
>   but this is incorrect when cross-compiling!

Demonstration (host system: x86-64-linux with a childhurd running, without qemu binfmt),
using the "bats" package (the "bats" package is choosen because it doesn't have many
dependencies and it uses wrap-script).  ("bats" actually uses wrap-script correctly,
so first remove the following line
                                ":" (assoc-ref %build-inputs "guile") "/bin"
from the package definition to simulate a misbehaving package)

./pre-inst-env guix build --system=i586-gnu --target=x86-64-linux bats
--> tcl fails to build with plenty of failing test cases
^ TODO submit a bug report, for now try without tests

./pre-inst-env guix build --system=i586-gnu --target=x86-64-linux bats --without-tests=tcl
^ TODO this hangs the childhurd (something about paging?)

./pre-inst-env guix build --target=aarch64-linux bats
(warning: this takes some time building the cross-compiler)
--> install.sh: line 15: /gnu/store/...-coreutils-8.32/bin/install: cannot execute binary file: Exec format error

After adding "coreutils" to the native-inputs:

./pre-inst-env guix build --target=aarch64-linux bats
(success! --> some /gnu/store/something path $STORE_ITEM)

Let's look at $STORE_ITEM/bin/bats:

(start snip)
#!#f --no-auto-compile
#!#; Guix wrapper
#\-(begin (let ((current (getenv "PATH"))) (setenv "PATH" (if current (string-append "/gnu/store/qrj2w7a8ms7rkyvqhnrv8wrvqnbwv9bm-bash-
5.0.16/bin:/gnu/store/n8awazyldv9hbzb7pjcw76hiifmvrpvd-coreutils-8.32/bin:/gnu/store/3xi5vprn92r0jcb03lk9ykind5pi789j-grep-3.4/bin:/path-
not-set" ":" current) "/gnu/store/qrj2w7a8ms7rkyvqhnrv8wrvqnbwv9bm-bash-5.0.16/bin:/gnu/store/n8awazyldv9hbzb7pjcw76hiifmvrpvd-coreutils-
8.32/bin:/gnu/store/3xi5vprn92r0jcb03lk9ykind5pi789j-grep-3.4/bin:/path-not-set"))))
#\-(let ((cl (command-line))) (apply execl "/gnu/store/qrj2w7a8ms7rkyvqhnrv8wrvqnbwv9bm-bash-5.0.16/bin/bash" (car cl) (cons (car cl)
(append (quote ("")) cl))))
#!/gnu/store/qrj2w7a8ms7rkyvqhnrv8wrvqnbwv9bm-bash-5.0.16/bin/bash

set -e

BATS_READLINK='true'
[...]
(end snip)

I was worried for a moment that the inputs in "inputs" would contribute to
$PATH even when cross-compiling, but this turns out not to be the case.
However, I believe "wrap-script" should raise some kind of exception
instead of trying to use "#f" as interpreter.

--
Btw., "wrap-program" also uses "which" (but for finding the shell),
but fixing that would entail a world-rebuild as "wrap-program" doesn't
have a keyword argument

> Greetings,
> Maxime

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

bug#47221: Guile not in native-inputs when it should

[Maxime Devos]

[-- Attachment #1.1: Type: text/plain, Size: 38 bytes --]

This fixes some uses of wrap-script.

[-- Attachment #1.2: 0001-gnu-Explicitely-pass-the-guile-binary-to-wrap-script.patch --]
[-- Type: text/x-patch, Size: 8134 bytes --]

From c451edc7ba759cf31f5d0ca113f7df9e28ccfe3b Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Thu, 18 Mar 2021 14:40:20 +0100
Subject: [PATCH] gnu: Explicitely pass the guile binary to wrap-script.

If the #:guile argument of wrap-script is not set,
then a guile binary will be searched for in the PATH.

When cross-compiling, this would result in a guile package
compiled for a wrong architecture being used (if guile is in
native-inputs) or a broken wrapper script that tries to use
"#f" as interpreter.

Note that there are more cross-compilation issues
lurking in the affected packages, e.g. gess uses a
python of the incorrect architecture.

Partially fixes: <https://issues.guix.gnu.org/47221>.

* gnu/packages/xdisorg.scm (clipmenu)[arguments]: Use the
  guile of the target platform in wrap-script.
* gnu/packages/vpn.scm (vpnc-scripts)[arguments]: Likewise.
* gnu/packages/mail.scm (sieve-connect)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm
  (proteinortho)[arguments]: Likewise.
  (prinseq)[arguments]: Likewise.
  (gess)[arguments]: Likewise.
  (nanopolish)[arguments]: Likewise.
---
 gnu/packages/bioinformatics.scm | 27 +++++++++++++++++++--------
 gnu/packages/mail.scm           |  4 +++-
 gnu/packages/vpn.scm            |  2 ++
 gnu/packages/xdisorg.scm        |  4 +++-
 4 files changed, 27 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 8b38c7ce0d..eb9355a37e 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5426,10 +5426,13 @@ predicts the locations of structural units in the sequences.")
              #t))
          (add-after 'install 'wrap-programs
            (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((path (getenv "PATH"))
-                   (out (assoc-ref outputs "out")))
+             (let* ((path (getenv "PATH"))
+                    (out (assoc-ref outputs "out"))
+                    (guile (assoc-ref inputs "guile")))
                (for-each (lambda (script)
-                           (wrap-script script `("PATH" ":" prefix (,path))))
+                           (wrap-script script
+                             #:guile (string-append guile "/bin/guile")
+                             `("PATH" ":" prefix (,path))))
                          (cons (string-append out "/bin/proteinortho")
                                (find-files out "\\.(pl|py)$"))))
              #t)))))
@@ -7900,11 +7903,14 @@ experience substantial biological insertions and deletions.")
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin")))
+                    (bin (string-append out "/bin"))
+                    (guile (assoc-ref inputs "guile"))
+                    (guile-binary (string-append guile "/bin/guile")))
                (for-each (lambda (file)
                            (chmod file #o555)
                            (install-file file bin)
                            (wrap-script (string-append bin "/" (basename file))
+                                        #:guile guile-binary
                                         `("PERL5LIB" ":" prefix
                                           (,(getenv "PERL5LIB")))))
                          (find-files "." "prinseq.*.pl"))))))))
@@ -11123,7 +11129,8 @@ remove biased methylation positions for RRBS sequence files.")
                              out "/lib/python"
                              ,(version-major+minor
                                 (package-version python))
-                             "/site-packages/gess/")))
+                             "/site-packages/gess/"))
+                    (guile (assoc-ref inputs "guile")))
                (mkdir-p target)
                (copy-recursively "." target)
                ;; Make GESS.py executable
@@ -11138,6 +11145,7 @@ matplotlib.use('Agg')
 " line)))
                ;; Make sure GESS has all modules in its path
                (wrap-script (string-append target "GESS.py")
+                 #:guile (string-append guile "/bin/guile")
                  `("PYTHONPATH" ":" = (,target ,(getenv "PYTHONPATH"))))
                (mkdir-p bin)
                (symlink (string-append target "GESS.py")
@@ -14345,16 +14353,19 @@ choosing which reads pass the filter.")
                            (find-files "scripts" ".*"))
                  #t)))
            (add-after 'install 'wrap-programs
-             (lambda* (#:key outputs #:allow-other-keys)
+             (lambda* (#:key inputs outputs #:allow-other-keys)
                (let ((pythonpath (getenv "PYTHONPATH"))
                      (perl5lib (getenv "PERL5LIB"))
                      (scripts (string-append (assoc-ref outputs "out")
-                                             "/share/nanopolish/scripts")))
+                                             "/share/nanopolish/scripts"))
+                     (guile (assoc-ref inputs "guile")))
                  (for-each (lambda (file)
                              (wrap-program file `("PYTHONPATH" ":" prefix (,pythonpath))))
                            (find-files scripts "\\.py"))
                  (for-each (lambda (file)
-                             (wrap-script file `("PERL5LIB" ":" prefix (,perl5lib))))
+                             (wrap-script file
+                               #:guile (string-append guile "/bin/guile")
+                               `("PERL5LIB" ":" prefix (,perl5lib))))
                            (find-files scripts "\\.pl"))))))))
       (inputs
        `(("guile" ,guile-3.0) ; for wrappers
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index d21c0e204d..5493d51203 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2841,8 +2841,10 @@ transfer protocols.")
          (add-after 'install 'wrap-program
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))
-                   (path (getenv "PERL5LIB")))
+                   (path (getenv "PERL5LIB"))
+                   (guile (assoc-ref inputs "guile")))
                (wrap-script (string-append out "/bin/sieve-connect")
+                 #:guile (string-append guile "/bin/guile")
                  `("PERL5LIB" ":" = (,path)))
                #t))))))
     (inputs
diff --git a/gnu/packages/vpn.scm b/gnu/packages/vpn.scm
index 76af7582fc..8aa1ac672c 100644
--- a/gnu/packages/vpn.scm
+++ b/gnu/packages/vpn.scm
@@ -196,6 +196,8 @@ Only \"Universal TUN/TAP device driver support\" is needed in the kernel.")
                  (for-each
                   (lambda (script)
                     (wrap-script (string-append out "/etc/vpnc/" script)
+                      #:guile (string-append (assoc-ref inputs "guile")
+                                             "/bin/guile")
                       `("PATH" ":" prefix
                         ,(map (lambda (name)
                                 (let ((input (assoc-ref inputs name)))
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 56ac53edec..5aad1c8cce 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -2545,10 +2545,12 @@ tools to complement clipnotify.")
                       (gawk              (assoc-ref inputs "gawk"))
                       (util-linux        (assoc-ref inputs "util-linux"))
                       (xdotool           (assoc-ref inputs "xdotool"))
-                      (xsel              (assoc-ref inputs "xsel")))
+                      (xsel              (assoc-ref inputs "xsel"))
+                      (guile             (assoc-ref inputs "guile")))
                  (for-each
                   (lambda (prog)
                     (wrap-script (string-append out "/bin/" prog)
+                      #:guile (string-append guile "/bin/guile")
                       `("PATH" ":" prefix
                         ,(map (lambda (dir)
                                 (string-append dir "/bin"))
-- 
2.30.2


[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

bug#47221: Guile not in native-inputs when it should

[Maxime Devos]

[-- Attachment #1: Type: text/plain, Size: 257 bytes --]

On Thu, 2021-03-18 at 15:01 +0100, Maxime Devos wrote:
> This fixes some uses of wrap-script.

There's a bug in the patch (a missing #:input argument),
so don't apply yet.  Will be fixed in the next revision
(along with more cross-compilation fixes).

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

bug#47221: [PATCH v2]: Correct some inputs / native-inputs issues with guile

[Maxime Devos]

[-- Attachment #1.1: Type: text/plain, Size: 3480 bytes --]

Hi Guix,

The first patch ‘gnu: Explicitely pass the guile binary to wrap-script.’
does what it say what it does.  This is important for picking up the guile
binary for the architecture in --target instead of the guile from native-inputs.

(The unpatched & patched package definitions do not have a guile native-input,
so before this patch they wouldn't pick up a guile at all -- packages in inputs
do not contribute to the $PATH when cross-compiling.)

The second patch ‘gnu: Make guile packages cross-compilable when the fix is trivial.’
only touches guile libraries.  It adds guile to the native-inputs when required,
sometimes it adds guile to inputs and sometimes it copies propagated-inputs & inputs
to native-inputs when cross-compiling.  It also fixes some other cross-compilations
issues like autoconf being in inputs instead of native-inputs.

The second patch only touches gnu/packages/guile-xyz.scm; other packages are ignored.
Also ignored are: emacsy-minimal (there have been patches and/or bug reports lately)
guile-bash (retired project) and guile-studio (it is an Emacs package).

Suggested testing method:

(start shell script)
# BAD_PACKAGES: fails to compile
BAD_PACKAGES="guile2.0-commonmark guile3.0-ncurses-with-gpm guile-dbi guile2.2-pfds"

# OK_PACKAGES: compiles & cross-compiles
OK_PACKAGES="guildhall guile-daemon guile-dsv guile-filesystem guile2.0-filesystem guile2.2-filesystem guile-syntax-highlight guile2.2-
syntax-highlight guile-sjson guile-sparql guile-email guile-mastodon guile-parted guile2.2-parted guile-config guile-hall guile-wisp
guile-commonmark guile-stis-parser guile-persist guile-file-names guile-srfi-158 guile-semver jupyter-guile-kernel guile-ics srfi-64-
driver guile-websocket g-wrap guile-webutils guile-srfi-159 guile-torrent guile-irc guile-machine-code guile2.2-sjson guile2.2-dsv
guile2.2-email guile2.2-config guile2.2-hall guile2.2-ics guile2.2-wisp guile2.2-commonmark guile2.2-semver guile2.2-webutils guile-redis
guile2.2-redis guile2.0-redis guile-irregex guile2.0-irregex guile2.2-irregex mcron guile2.2-mcron guile-srfi-89 guile-srfi-145 guile-
srfi-180 guile-jpeg guile-hashing guile2.2-hashing guile-packrat guile-ac-d-bus guile-lens guile2.2-lens guile-rdf guile-jsonld guile-
struct-pack guile-laesare guile-mkdir-p guile-jwt guile-r6rs-protobuf guile-shapefile schmutz guile-cbor guile-8sync guile-squee guile2.2-
squee guile-colorized guile2.2-colorized guile-pfds guile-prometheus guile-aa-tree guile-simple-zmq guile2.2-simple-zmq guile-debbugs
guile-email-latest guile-miniadapton guile-lib guile2.0-lib guile2.2-lib guile-minikanren guile2.0-minikanren guile2.2-minikanren python-
on-guile"

# NOT_CROSS_COMPILABLE: self-describing (compiles natively)
NOT_CROSS_COMPILABLE="guile-cv guile-gi guile-ncurses g-golf guile-picture-language guile-sly guile-aspell guile-fibers guile-sodium
guile-reader guile-udev haunt guile2.2-haunt guile2.0-haunt guile2.2-ncurses guile-ncurses-with-gpm guile-xosd artanis guile-xapian
guile2.2-xapian guile-newt guile2.2-newt guile2.2-reader guile-avahi guile2.0-pg guile-libyaml guile-eris guile-ffi-fftw "

make
# replace aarch64 with architecture of choice and maybe adjust -M and -c
./pre-inst-env guix build $OK_PACKAGES $NOT_CROSS_COMPILABLE -M6 -c1 --fallback
./pre-inst-env guix build $OK_PACKAGES -M6 -c1 --target=aarch64-linux-gnu --fallback
make as-derivation
(end shell script)

Greetings,
Maxime

[-- Attachment #1.2: 0001-gnu-Explicitely-pass-the-guile-binary-to-wrap-script.patch --]
[-- Type: text/x-patch, Size: 8259 bytes --]

From 039d1526600971e90a3ff5183ee7a2fe3055af5b Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Thu, 18 Mar 2021 14:40:20 +0100
Subject: [PATCH 1/2] gnu: Explicitely pass the guile binary to wrap-script.

If the #:guile argument of wrap-script is not set,
then a guile binary will be searched for in the PATH.

When cross-compiling, this would result in a guile package
compiled for a wrong architecture being used (if guile is in
native-inputs) or a broken wrapper script that tries to use
"#f" as interpreter.

Note that there are more cross-compilation issues
lurking in the affected packages, e.g. gess uses a
python of the incorrect architecture.

Partially fixes: <https://issues.guix.gnu.org/47221>.

* gnu/packages/xdisorg.scm (clipmenu)[arguments]: Use the
  guile of the target platform in wrap-script.
* gnu/packages/vpn.scm (vpnc-scripts)[arguments]: Likewise.
* gnu/packages/mail.scm (sieve-connect)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm
  (proteinortho)[arguments]: Likewise.
  (prinseq)[arguments]: Likewise.
  (gess)[arguments]: Likewise.
  (nanopolish)[arguments]: Likewise.
---
 gnu/packages/bioinformatics.scm | 29 ++++++++++++++++++++---------
 gnu/packages/mail.scm           |  4 +++-
 gnu/packages/vpn.scm            |  2 ++
 gnu/packages/xdisorg.scm        |  4 +++-
 4 files changed, 28 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index eb466868d1..d62a6f8643 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5432,10 +5432,13 @@ predicts the locations of structural units in the sequences.")
              #t))
          (add-after 'install 'wrap-programs
            (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((path (getenv "PATH"))
-                   (out (assoc-ref outputs "out")))
+             (let* ((path (getenv "PATH"))
+                    (out (assoc-ref outputs "out"))
+                    (guile (assoc-ref inputs "guile")))
                (for-each (lambda (script)
-                           (wrap-script script `("PATH" ":" prefix (,path))))
+                           (wrap-script script
+                             #:guile (string-append guile "/bin/guile")
+                             `("PATH" ":" prefix (,path))))
                          (cons (string-append out "/bin/proteinortho")
                                (find-files out "\\.(pl|py)$"))))
              #t)))))
@@ -7523,13 +7526,16 @@ experience substantial biological insertions and deletions.")
          (delete 'configure)
          (delete 'build)
          (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
+           (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin")))
+                    (bin (string-append out "/bin"))
+                    (guile (assoc-ref inputs "guile"))
+                    (guile-binary (string-append guile "/bin/guile")))
                (for-each (lambda (file)
                            (chmod file #o555)
                            (install-file file bin)
                            (wrap-script (string-append bin "/" (basename file))
+                                        #:guile guile-binary
                                         `("PERL5LIB" ":" prefix
                                           (,(getenv "PERL5LIB")))))
                          (find-files "." "prinseq.*.pl"))))))))
@@ -10468,7 +10474,8 @@ remove biased methylation positions for RRBS sequence files.")
                              out "/lib/python"
                              ,(version-major+minor
                                 (package-version python))
-                             "/site-packages/gess/")))
+                             "/site-packages/gess/"))
+                    (guile (assoc-ref inputs "guile")))
                (mkdir-p target)
                (copy-recursively "." target)
                ;; Make GESS.py executable
@@ -10483,6 +10490,7 @@ matplotlib.use('Agg')
 " line)))
                ;; Make sure GESS has all modules in its path
                (wrap-script (string-append target "GESS.py")
+                 #:guile (string-append guile "/bin/guile")
                  `("PYTHONPATH" ":" = (,target ,(getenv "PYTHONPATH"))))
                (mkdir-p bin)
                (symlink (string-append target "GESS.py")
@@ -13831,16 +13839,19 @@ choosing which reads pass the filter.")
                            (find-files "scripts" ".*"))
                  #t)))
            (add-after 'install 'wrap-programs
-             (lambda* (#:key outputs #:allow-other-keys)
+             (lambda* (#:key inputs outputs #:allow-other-keys)
                (let ((pythonpath (getenv "PYTHONPATH"))
                      (perl5lib (getenv "PERL5LIB"))
                      (scripts (string-append (assoc-ref outputs "out")
-                                             "/share/nanopolish/scripts")))
+                                             "/share/nanopolish/scripts"))
+                     (guile (assoc-ref inputs "guile")))
                  (for-each (lambda (file)
                              (wrap-program file `("PYTHONPATH" ":" prefix (,pythonpath))))
                            (find-files scripts "\\.py"))
                  (for-each (lambda (file)
-                             (wrap-script file `("PERL5LIB" ":" prefix (,perl5lib))))
+                             (wrap-script file
+                               #:guile (string-append guile "/bin/guile")
+                               `("PERL5LIB" ":" prefix (,perl5lib))))
                            (find-files scripts "\\.pl"))))))))
       (inputs
        `(("guile" ,guile-3.0) ; for wrappers
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 239ddb0eb0..95850d9586 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2842,8 +2842,10 @@ transfer protocols.")
          (add-after 'install 'wrap-program
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))
-                   (path (getenv "PERL5LIB")))
+                   (path (getenv "PERL5LIB"))
+                   (guile (assoc-ref inputs "guile")))
                (wrap-script (string-append out "/bin/sieve-connect")
+                 #:guile (string-append guile "/bin/guile")
                  `("PERL5LIB" ":" = (,path)))
                #t))))))
     (inputs
diff --git a/gnu/packages/vpn.scm b/gnu/packages/vpn.scm
index 2ea04acaa2..ece7a3f7ad 100644
--- a/gnu/packages/vpn.scm
+++ b/gnu/packages/vpn.scm
@@ -196,6 +196,8 @@ Only \"Universal TUN/TAP device driver support\" is needed in the kernel.")
                  (for-each
                   (lambda (script)
                     (wrap-script (string-append out "/etc/vpnc/" script)
+                      #:guile (string-append (assoc-ref inputs "guile")
+                                             "/bin/guile")
                       `("PATH" ":" prefix
                         ,(map (lambda (name)
                                 (let ((input (assoc-ref inputs name)))
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 56ac53edec..5aad1c8cce 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -2545,10 +2545,12 @@ tools to complement clipnotify.")
                       (gawk              (assoc-ref inputs "gawk"))
                       (util-linux        (assoc-ref inputs "util-linux"))
                       (xdotool           (assoc-ref inputs "xdotool"))
-                      (xsel              (assoc-ref inputs "xsel")))
+                      (xsel              (assoc-ref inputs "xsel"))
+                      (guile             (assoc-ref inputs "guile")))
                  (for-each
                   (lambda (prog)
                     (wrap-script (string-append out "/bin/" prog)
+                      #:guile (string-append guile "/bin/guile")
                       `("PATH" ":" prefix
                         ,(map (lambda (dir)
                                 (string-append dir "/bin"))
-- 
2.31.0


[-- Attachment #1.3: 0002-gnu-Make-guile-packages-cross-compilable-when-the-fi.patch --]
[-- Type: text/x-patch, Size: 57988 bytes --]

From 600a07d218211a7eb4cd4648cb6775f73526b982 Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Thu, 18 Mar 2021 22:27:24 +0100
Subject: [PATCH 2/2] gnu: Make guile packages cross-compilable when the fix is
 trivial.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Often, all that has to be done is adding guile to the native-inputs.
Sometimes upstream does not pass --target=host to "guild compile";
this is not addressed by this patch (but a comment has been added
to affected packages for future reference).  Sometimes libraries
from propagated-inputs have to be copied to native-inputs when
cross-compiling for unknown reasons.

Some packages (e.g. guile-sodium) have dependencies that cannot
be cross-compiled.  In this case, guile is still added to the
native-inputs but fixing the dependency is left for a later
patch.

Some definitions of guile packages outside gnu/packages/guile-xyz.scm
probably need to be adjusted as well,  but I have run out of stream.

Partially fixes: <https://issues.guix.gnu.org/47221>.

* gnu/packages/guile-xyz.scm
  (artanis)[native-inputs]: Add the guile package and a
  comment noting the makefile forgets to pass the target
  architecture to "guild compile" with --target.
  (guildhall)[native-inputs]: Likewise.
  (guile-daemon)[native-inputs]: Likewise.
  (guile-filesystem)[native-inputs]: Likewise.
  (guile-syntax-highlight)[native-inputs]: Likewise.
  (guile-sjson)[native-inputs]: Likewise.
  (guile-sparql)[native-inputs]: Likewise.
  (guile-email)[native-inputs]: Likewise.
  (guile-config)[native-inputs]: Likewise.
  (guile-sly)[native-inputs]: Likewise.
  (g-golf)[native-inputs]: Likewise.
  (haunt)[native-inputs]: Likewise.
  (guile-commonmark)[native-inputs]: Likewise.
  (guile-picture-language)[native-inputs]: Likewise.
  (guile-stis-parser)[native-inputs]: Likewise.
  (guile-persist)[native-inputs]: Likewise.
  (guile-file-names)[native-inputs]: Likewise.
  (guile-gi)[native-inputs]: Likewise.
  (guile-srfi-158)[native-inputs]: Likewise.
  (guile-semver)[native-inputs]: Likewise.
  (guile-xapian)[native-inputs]: Likewise.
  (guile-syntax-highlight)[native-inputs]: Likewise.
  (jupyter-guile-kernel)[native-inputs]: Add the guile package.
  (guile-dbi)[native-inputs]: Likewise.
  (guile-reader)[native-inputs]: Likewise.
  (srfi-64-driver)[native-inputs]: Likewise.
  (guile-websocket)[native-inputs]: Likewise.
  (guile-xosd)[native-inputs]: Likewise.
  (guile-lens)[inputs]: Add the guile package.
  (guile-debbugs)[inputs]: Likewise.
  (guile-8sync)[inputs]: Likewise.
  (guile-jpeg)[inputs]: Add guile-2.2.
  (guile-newt)[native-inputs]: Add guile, note that --target
  is not set and note a cross-compilation error.
  (guile-parted)[native-inputs]: Add guile, note that --target
  is not set, and add guile-bytestructures when cross-compiling.
  (guile-hall)[native-inputs]: Add guile, and add
  guile-config when cross-compiling.
  (guile-debbugs)[native-inputs]: Add guile-email
  when cross-compiling.
  (guile-ac-d-bus)[native-inputs]: Add guile-packrat
  when cross-compiling.
  (python-on-guile)[native-inputs]: Add guile and add
  guile-persist, guile-readline and guile-stis when
  cross-compiling.
  (guile-srfi-180)[native-inputs]: Add guile-srfi-145
  when cross-compiling.
  (python-on-guile)[arguments]: Note that the interpreter
  is wrapped incorrectly when cross-compiling.
  (guile-udev)[native-inputs]: Add guile and note that
  package still fails to cross-compile.
  (guile-wisp)[native-inputs]: Add guile, and do not include
  emacs when cross-compiling.
  (guile-wisp)[arguments]: Do not compile emacs lisp code
  when cross-compiling and tell the configure script where
  to find python when cross-compiling.
  (guile-simple-zmq)[native-inputs,inputs]: Move autoconf,
  automake and pkg-config to native-inputs and add guile
  to inputs.
  (guile-ics)[native-inputs,inputs]: Add the guile package to
  native-inputs and move which from inputs to native-inputs.
  Also add guile-lib to native-inputs when cross-compiling
  (guile-redis)[native-inputs]: Add the guile package to inputs
  and note that --target is not yet passed to "guild compile".
  (guile-mastodon)[native-inputs]: Add the guile package to native-inputs,
  and add guile-json-4 as well when cross-compiling.
  (guile-dsv)[native-inputs]: Add the guile package to native-inputs
  and add guile-lib as well when cross-compiling.
  (guile-fibers)[native-inputs]: Add the guile package to native-inputs,
  note that --target is not yet passed to "guild compile" and note the
  build still fails when cross-compiling.
  (guile-cv)[native-inputs,propagated-inputs]: Add guile-2.2 to
  native-inputs and use the guile-2.2 variant of guile-lib in
  propagated-inputs instead of the guile-3.0 invariant.
  (guile-ncurses)[native-inputs]: Add guile to native inputs, and
  note that it still fails to cross-compile.
  (guile-aspell)[native-inputs]: Not that a guile package *not*
  being required here is rather unusual.
  (g-wrap)[native-inputs]: Add the guile package, which will
  only be used for ./configure.
  (guile-webutils)[native-inputs]: Add the guile package, and add
  the propagated inputs when cross-compiling.
  (guile-srfi-159)[inputs,native-inputs]: Move guile from
  inputs to native-inputs.
  (guile-ffi-fftw)[arguments,inputs,native-inputs]: Add a comment
  notice the ‘check’ build phase is broken when cross-compiling
  and move guile from inputs to native-inputs.
  (guile-torrent)[inputs,native-inputs]: Add guile to both
  inputs and native-inputs, note that --target is not
  passed to "guild compile" and add guile-gcrypt to native-inputs
  when cross-compiling.
  (guile-irc)[native-inputs]: Add guile and GnuTLS to native-inputs.
  The latter is required by the configure script.
  (guile-rdf)[native-inputs]: Add guile to native-inputs,  noting
  --target is not passed to "guild compile".  Also add guile-json,
  guile-gnutls and guile-rdf which are required for unknown reasons.
  (guile-machine-code)[native-inputs]: Add guile-struct-pack to
  native-inputs, which is required for unknown reasons.
  (guile-sodium)[native-inputs]: Add guile, and note that this
  package still fails to cross-compile.
  (guile3.0-ncurses/gpm): Note this fails to compile natively.
  (guile2.0-pg): Note this fails to cross-compile.
  (guile2.2-sjson)[native-inputs]: Add guile-2.2 to native-inputs.
  (guile2.2-dsv)[native-inputs]: Likewise.
  (guile2.2-email)[native-inputs]: Likewise.
  (guile2.2-newt)[native-inputs]: Likewise.
  (guile2.2-config)[native-inputs]: Likewise.
  (guile2.2-wisp)[native-inputs]: Likewise.
  (guile2.2-ncurses)[native-inputs]: Likewise.
  (guile2.2-haunt)[native-inputs]: Likewise.
  (guile2.2-commonmark)[native-inputs]: Likewise.
  (guile2.2-semver)[native-inputs]: Likewise.
  (guile2.2-xapian)[native-inputs]: Likewise.
  (guile2.2-reader)[native-inputs]: Likewise.
  (guile2.2-filesystem)[native-inputs]: Likewise
  (guile2.2-syntax-highlight)[native-inputs]: Likewise
  (guile-ncurses/gpm)[native-inputs]: Likewise.
  (guile2.2-parted)[native-inputs]: Use guile-2.2
  and guile2.2-bytestructures instead of the -3.0
  versions.
  (guile2.2-hall)[native-inputs]: Likewise with guile2.2-config.
  (guile2.0-haunt)[native-inputs]: Add guile-2.0 to native-inputs.
  (guile2.0-filesystem)[native-inputs]: Likewise.
  (guile2.0-commonmark)[native-inputs]: Likewise, and note this
  package fails to compile natively.
  (guile2.2-redis)[inputs]: Replace guile-3.0 with guile-2.2 in
  the inputs.
  (guile2.0-redis)[inputs]: Likewise with guile-2.0.
  (guile2.2-simple-zmq)[native-inputs]:  Add pkg-config, autoconf and
  automake.
  (guile2.2-simple-zmq)[inputs]: Use guile-2.2 instead.
  (guile2.2-webutils)[native-inputs]: Add guile-2.2 to native-inputs
  and use the guile-2.2 variants of guile libraries.
  (guile2.2-ics)[native-inputs]: Add guile-2.2 to native-inputs
  and add guile2.2-lib when cross-compiling..
---
 gnu/packages/guile-xyz.scm | 488 +++++++++++++++++++++++++++++++------
 1 file changed, 407 insertions(+), 81 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index d89b9954de..0342fe74c8 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -35,6 +35,7 @@
 ;;; Copyright © 2020, 2021 pukkamustard <pukkamustard@posteo.net>
 ;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
+;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -175,6 +176,7 @@
        ("guile-redis" ,guile2.2-redis)))
     (native-inputs
      `(("bash"       ,bash)         ;for the `source' builtin
+       ("guile"      ,guile-2.2)    ;for `guild compile' (TODO --target is not set)
        ("pkgconfig"  ,pkg-config)
        ("util-linux" ,util-linux))) ;for the `script' command
     (arguments
@@ -301,6 +303,7 @@ AM_SCM_LOG_FLAGS =  --no-auto-compile -s")
        `(("guile" ,guile-2.0)))
       (native-inputs
        `(("zip" ,zip) ; for tests
+         ("guile" ,guile-2.0) ; for guile-tools compile (TODO --target is not set)
          ("autoconf" ,autoconf)
          ("automake" ,automake)
          ("texinfo" ,texinfo)))
@@ -349,7 +352,10 @@ $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
                            (string-append "\"" aspell
                                           "/lib/libaspell\"")))
                         #t))))))
-    (native-inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)
+                     ;; If guile-aspell compiled its source code,
+                     ;; a "guile" native-input would be required.
+                     ))
     (inputs `(("guile" ,guile-2.2)
               ("aspell" ,aspell)))
     (home-page "https://github.com/spk121/guile-aspell")
@@ -445,6 +451,8 @@ and then run @command{scm example.scm}.")
                      ("guile" ,guile-2.2)
                      ("pkg-config" ,pkg-config)
                      ("texinfo" ,texinfo)))
+    ;; Required for cross-compilation.
+    (inputs `(("guile" ,guile-2.2)))
     (arguments
      `(#:phases (modify-phases %standard-phases
                   (add-before 'configure 'setenv
@@ -476,7 +484,8 @@ Note that 8sync is only available for Guile 2.2.")
                 "08gaqrgjlly9k5si72vvpbr4xhq5v52l5ma5y6a7spid5dd057cy"))))
     (build-system gnu-build-system)
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("guile" ,guile-2.2) ; for "guild compile" (TODO --target is not set)
+       ("pkg-config" ,pkg-config)))
     (inputs
      `(("guile" ,guile-2.2)))
     (home-page "https://github.com/alezost/guile-daemon")
@@ -505,7 +514,13 @@ you send to a FIFO file.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)
+       ;; TODO this should not be necessary
+       ,@(if (%current-target-system)
+             `(("guile-lib" ,guile-lib))
+             '())))
     (inputs `(("guile" ,guile-3.0)))
     (propagated-inputs `(("guile-lib" ,guile-lib)))
     (arguments
@@ -560,10 +575,21 @@ Unix-style DSV format and RFC 4180 format.")
   (package
     (inherit guile-dsv)
     (name "guile2.2-dsv")
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(if (%current-target-system)
+             `(("guile-lib" ,guile2.2-lib))
+             '())
+       ,@(alist-delete '("guile" "guile-lib")
+                       (package-native-inputs guile-dsv)
+                       (lambda (x y) (member y x)))))
     (inputs `(("guile" ,guile-2.2)))
     (propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
 
 (define-public guile-fibers
+  ;; This fails to cross-compile:
+  ;; ‘In procedure dynamic-mink: "/tmp/guix-build-.../.libs/epoll",
+  ;; message: "file not found"
   (package
     (name "guile-fibers")
     (version "1.0.0")
@@ -618,7 +644,9 @@ Unix-style DSV format and RFC 4180 format.")
                         #t))))))
     (native-inputs
      `(("texinfo" ,texinfo)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)))
     (synopsis "Lightweight concurrency facility for Guile")
@@ -663,7 +691,9 @@ is not available for Guile 2.0.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO: --target is missing)
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)))
     (home-page "https://gitlab.com/leoprikler/guile-filesystem")
@@ -676,12 +706,18 @@ that augment Guile's support for handling files and their names.")
   (package
     (inherit guile-filesystem)
     (name "guile2.0-filesystem")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.0)
+                    (package-native-inputs guile-filesystem)))
     (inputs `(("guile" ,guile-2.0)))))
 
 (define-public guile2.2-filesystem
   (package
     (inherit guile-filesystem)
     (name "guile2.2-filesystem")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-filesystem)))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile-syntax-highlight
@@ -707,7 +743,9 @@ that augment Guile's support for handling files and their names.")
                   #t))))
     (build-system gnu-build-system)
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)))
     (synopsis "General-purpose syntax highlighter for GNU Guile")
@@ -722,6 +760,9 @@ HTML (via SXML) or any other format for rendering.")
   (package
     (inherit guile-syntax-highlight)
     (name "guile2.2-syntax-highlight")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-syntax-highlight)))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile3.0-syntax-highlight
@@ -750,7 +791,9 @@ HTML (via SXML) or any other format for rendering.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)))
     (home-page "https://gitlab.com/dustyweb/guile-sjson")
@@ -763,6 +806,9 @@ It has a nice, simple s-expression based syntax.")
   (package
     (inherit guile-sjson)
     (name "guile2.2-sjson")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-sjson)))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile-squee
@@ -910,6 +956,9 @@ Vicare Scheme and IronScheme.  Right now it contains:
     (license license:bsd-3)))
 
 (define-public guile2.0-pg
+  ;; TODO: this fails to cross-compile as the guile library
+  ;; in native-inputs is linked against instead of the library
+  ;; in inputs.
   (package
     (name "guile2.0-pg")
     (version "0.49")
@@ -1048,11 +1097,12 @@ convenient nested tree operations.")
          '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
 
       (native-inputs
-       `(("guile" ,guile-3.0)))
-      (inputs
-       `(("autoconf" ,autoconf)
+       `(("guile" ,guile-3.0)
+         ("autoconf" ,autoconf)
          ("automake" ,automake)
-         ("pkg-config" ,pkg-config)
+         ("pkg-config" ,pkg-config)))
+      (inputs
+       `(("guile" ,guile-3.0)
          ("zeromq" ,zeromq)))
       (home-page "https://github.com/jerry40/guile-simple-zmq")
       (synopsis "Guile wrapper over ZeroMQ library")
@@ -1065,7 +1115,10 @@ messaging library.")
   (package
     (inherit guile-simple-zmq)
     (name "guile2.2-simple-zmq")
-    (native-inputs `(("guile" ,guile-2.2)))))
+    (inputs (alist-replace "guile" (list guile-2.2)
+                           (package-inputs guile-simple-zmq)))
+    (native-inputs (alist-replace "guile" (list guile-2.2)
+                                  (package-native-inputs guile-simple-zmq)))))
 
 (define-public guile3.0-simple-zmq
   (deprecated-package "guile3.0-simple-zmq" guile-simple-zmq))
@@ -1148,6 +1201,13 @@ messaging library.")
                                                            'prefix)
                                               ", \"-s"))))
                           #t))))))
+      (native-inputs
+       ;; for cross-compilation
+       `(("guile" ,guile-3.0)
+         ,@(if (%current-target-system)
+               `(("guile-json" ,guile-json-3)
+                 ("guile-simple-zmq" ,guile-simple-zmq))
+               '())))
       (inputs
        `(("openssl" ,openssl)
          ("guile" ,guile-3.0)
@@ -1173,7 +1233,9 @@ allows users to interact with the Guile REPL through Jupyter.")
              (base32 "1jf4972f9fpm0rd865xpnc9mzl3xv6vhfnp0iygadydy905z9nln"))))
    (build-system gnu-build-system)
    (native-inputs
-    `(("pkg-config" ,pkg-config)))
+    `(("pkg-config" ,pkg-config)
+      ;; for "guild compile" (TODO --target is not set)
+      ("guile" ,guile-3.0)))
    (inputs
     `(("guile" ,guile-3.0)))
    (home-page "https://github.com/roelj/guile-sparql")
@@ -1199,7 +1261,13 @@ using S-expressions.")
      `(("guile-email" ,guile-email)))
     (native-inputs
      `(("guile" ,guile-3.0)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ,@(if (%current-target-system)
+             (package-propagated-inputs this-package)
+             '())))
+    (inputs
+     ;; Required for cross-compilation.
+     `(("guile" ,guile-3.0)))
     (home-page "https://savannah.gnu.org/projects/guile-debbugs/")
     (synopsis "Guile interface to the Debbugs bug tracking service")
     (description
@@ -1223,7 +1291,9 @@ tracker's SOAP service, such as @url{https://bugs.gnu.org}.")
     (build-system gnu-build-system)
     (native-inputs
      `(("pkg-config" ,pkg-config)
-       ("lzip" ,lzip)))
+       ("lzip" ,lzip)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)))
     (arguments
@@ -1257,12 +1327,16 @@ format.")
        `(("pkg-config" ,pkg-config)
          ("autoconf" ,autoconf)
          ("automake" ,automake)
-         ("texinfo" ,texinfo))))))
+         ("texinfo" ,texinfo)
+         ("guile" ,guile-3.0))))))
 
 (define-public guile2.2-email
   (package
     (inherit guile-email)
     (name "guile2.2-email")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-email)))
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-email))))))
 
@@ -1270,6 +1344,9 @@ format.")
   (deprecated-package "guile3.0-email" guile-email))
 
 (define-public guile-newt
+  ;; TODO: this fails to cross-compile:
+  ;; ‘In procedure dynamic-link: file: "[...]/lib/libnewt",
+  ;; message: "file not found"’
   (package
     (name "guile-newt")
     (version "0.0.2")
@@ -1292,7 +1369,9 @@ format.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO: --target is not set)
+       ("guile" ,guile-3.0)))
     (synopsis "Guile bindings to Newt")
     (description
      "This package provides bindings for Newt, a programming library for
@@ -1305,6 +1384,9 @@ Scheme by using Guile’s foreign function interface.")
   (package
     (inherit guile-newt)
     (name "guile2.2-newt")
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(alist-delete "guile" (package-native-inputs guile-newt))))
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-newt))))))
 
@@ -1339,7 +1421,13 @@ Scheme by using Guile’s foreign function interface.")
        ("automake" ,automake)
        ("emacs" ,emacs-minimal)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO: --target is not set)
+       ("guile" ,guile-3.0)
+       ;; TODO this should not be required
+       ,@(if (%current-target-system)
+             `(("guile-json" ,guile-json-4))
+             '())))
     (inputs
      `(("guile" ,guile-3.0)
        ("gnutls" ,gnutls)
@@ -1377,7 +1465,13 @@ microblogging service.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)
+       ;; TODO this shouldn't be necessary
+       ,@(if (%current-target-system)
+             `(("guile-bytestructures" ,guile-bytestructures))
+             '())))
     (synopsis "Guile bindings to GNU Parted")
     (description
      "This package provides bindings for GNU Parted library, a C library
@@ -1390,6 +1484,14 @@ written in pure Scheme by using Guile's foreign function interface.")
   (package
     (inherit guile-parted)
     (name "guile2.2-parted")
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(if (%current-target-system)
+             `(("guile-bytestructures" ,guile2.2-bytestructures))
+             '())
+       ,@(alist-delete '("guile" "guile-bytestructures")
+                       (package-native-inputs guile-parted)
+                       (lambda (x y) (member y x)))))
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-parted))))
     (propagated-inputs
@@ -1412,7 +1514,9 @@ written in pure Scheme by using Guile's foreign function interface.")
                 "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
     (build-system gnu-build-system)
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile"
+       ("guile" ,guile-2.2)))
     (inputs
      `(("guile" ,guile-2.2)
        ("libx11" ,libx11)
@@ -1462,6 +1566,9 @@ library}.")
     (inputs
      `(("guile-dbd-sqlite3" ,guile-dbd-sqlite3)
        ("guile-dbd-postgresql" ,guile-dbd-postgresql))) ; only shared library, no scheme files
+    (native-inputs
+     ;; for "guild doc-snarf"
+     `(("guile" ,guile-2.2)))
     (propagated-inputs
      `(("guile" ,guile-2.2)))
     (synopsis "Guile database abstraction layer")
@@ -1582,7 +1689,9 @@ PostgreSQL.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO: --target is not set)
+       ("guile" ,guile-3.0)))
     (inputs `(("guile" ,guile-3.0)))
     (synopsis
      "Guile application configuration parsing library.")
@@ -1602,6 +1711,9 @@ above command-line parameters.")
   (package
     (inherit guile-config)
     (name "guile2.2-config")
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(alist-delete "guile" (package-native-inputs guile-config))))
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-config))))))
 
@@ -1673,7 +1785,13 @@ above command-line parameters.")
       `(("autoconf" ,autoconf)
         ("automake" ,automake)
         ("pkg-config" ,pkg-config)
-        ("texinfo" ,texinfo)))
+        ("texinfo" ,texinfo)
+        ;; for "guild compile" (TODO --target is not set)
+        ("guile" ,guile-3.0)
+        ;; TODO this shouldn't be necessary
+        ,@(if (%current-target-system)
+              (package-propagated-inputs this-package)
+              '())))
     (inputs `(("guile" ,guile-3.0)))
     (propagated-inputs
      `(("guile-config" ,guile-config)))
@@ -1692,6 +1810,14 @@ provides tight coupling to Guix.")
     (name "guile2.2-hall")
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-hall))))
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(if (%current-target-system)
+             (package-propagated-inputs this-package)
+             '())
+       ,@(alist-delete '("guile" "guile-config")
+                       (package-native-inputs guile-hall)
+                       (lambda (x y) (member y x)))))
     (propagated-inputs
      `(("guile-config" ,guile2.2-config)
        ,@(alist-delete "guile-config"
@@ -1728,8 +1854,15 @@ provides tight coupling to Guix.")
        ("texinfo" ,texinfo)
        ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
        ("gettext" ,gettext-minimal)
-       ("pkg-config" ,pkg-config)))
-    (inputs `(("guile" ,guile-3.0) ("which" ,which)))
+       ("pkg-config" ,pkg-config)
+       ("which" ,which)
+       ;; for "guild compile"
+       ("guile" ,guile-3.0)
+       ;; TODO this shouldn't be necessary
+       ,@(if (%current-target-system)
+             `(("guile-lib" ,guile-lib))
+             '())))
+    (inputs `(("guile" ,guile-3.0)))
     (propagated-inputs `(("guile-lib" ,guile-lib)))
     (home-page "https://github.com/artyom-poptsov/guile-ics")
     (synopsis "Guile parser library for the iCalendar format")
@@ -1746,6 +1879,13 @@ The library is shipped with documentation in Info format and usage examples.")
     (name "guile2.2-ics")
     (inputs `(("guile" ,guile-2.2)
               ,@(alist-delete "guile" (package-inputs guile-ics))))
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(if (%current-target-system)
+             `(("guile-lib" ,guile2.2-lib))
+             '())
+       ,@(alist-delete '("guile" "guile-lib") (package-native-inputs guile-ics)
+                       (lambda (x y) (member y x)))))
     (propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
 
 (define-public guile3.0-ics
@@ -1775,6 +1915,14 @@ The library is shipped with documentation in Info format and usage examples.")
        #:imported-modules (,@%gnu-build-system-modules
                            (guix build emacs-build-system)
                            (guix build emacs-utils))
+       ;; When cross-compiling, the configure script
+       ;; cannot find python by itself.
+       ,@(if (%current-target-system)
+             `(#:configure-flags
+               `(,(string-append "ac_cv_prog_python3="
+                                 (assoc-ref %build-inputs "python")
+                                 "/bin/python3")))
+             '())
        #:phases
        (modify-phases %standard-phases
          (replace 'bootstrap
@@ -1813,19 +1961,27 @@ The library is shipped with documentation in Info format and usage examples.")
                #t)))
          (add-after 'install 'install-emacs-files
            (assoc-ref emacs:%standard-phases 'install))
-         (add-after 'install-emacs-files 'compile-emacs-files
-           (assoc-ref emacs:%standard-phases 'build))
-         (add-after 'compile-emacs-files 'make-autoloads
-           (assoc-ref emacs:%standard-phases 'make-autoloads)))))
+         ;; TODO: the emacs build system currently does not
+         ;; support cross-compilation.
+         ,@(if (%current-target-system)
+               '()
+               '((add-after 'install-emacs-files 'compile-emacs-files
+                   (assoc-ref emacs:%standard-phases 'build))
+                 (add-after 'compile-emacs-files 'make-autoloads
+                   (assoc-ref emacs:%standard-phases 'make-autoloads)))))))
     (home-page "https://www.draketo.de/english/wisp")
     (inputs
      `(("guile" ,guile-3.0)))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("emacs" ,emacs-minimal)
+       ("pkg-config" ,pkg-config)
+       ,@(if (%current-target-system)
+             '()
+             `(("emacs" ,emacs-minimal)))
        ("python" ,python)
-       ("pkg-config" ,pkg-config)))
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (synopsis "Whitespace to lisp syntax for Guile")
     (description "Wisp is a syntax for Guile which provides a Python-like
 whitespace-significant language.  It may be easier on the eyes for some
@@ -1836,12 +1992,18 @@ users and in some situations.")
   (package
     (inherit guile-wisp)
     (name "guile2.2-wisp")
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(alist-delete "guile" (package-native-inputs guile-wisp))))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile3.0-wisp
   (deprecated-package "guile3.0-wisp" guile-wisp))
 
 (define-public guile-udev
+  ;; TODO: this fails to cross-compile for aarch64-linux-gnu
+  ;; due to missing includes.  This has been fixed in master,
+  ;; but there is no new release yet.
   (package
     (name "guile-udev")
     (version "0.1.0")
@@ -1862,7 +2024,9 @@ users and in some situations.")
        ("libtool" ,libtool)
        ("texinfo" ,texinfo)
        ("pkg-config" ,pkg-config)
-       ("which" ,which)))
+       ("which" ,which)
+       ;; for "guild compile"
+       ("guile" ,guile-3.0)))
     (inputs
      `(("guile" ,guile-3.0)
        ("eudev" ,eudev)))
@@ -1909,7 +2073,9 @@ users and in some situations.")
              (string-append "--with-libgslcblas-prefix="
                             (assoc-ref %build-inputs "gsl")))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-2.2)))
     (propagated-inputs
      `(("guile-sdl" ,guile-sdl)
        ("guile-opengl" ,guile-opengl)))
@@ -1948,7 +2114,9 @@ capabilities.")
          ("gettext" ,gettext-minimal)
          ("libtool" ,libtool)
          ("pkg-config" ,pkg-config)
-         ("xorg-server" ,xorg-server)))
+         ("xorg-server" ,xorg-server)
+         ;; for "guild compile" (TODO --target is not set)
+         ("guile" ,guile-2.2)))
       (inputs
        `(("guile" ,guile-2.2)
          ("guile-lib" ,guile2.2-lib)
@@ -2025,7 +2193,9 @@ object-oriented programming system, GOOPS.")
                 "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
     (build-system gnu-build-system)
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; Not actually used, but ./configure requires a guile.
+       ("guile" ,guile-2.2)))
     (propagated-inputs
      `(("guile" ,guile-2.2)
        ("guile-lib" ,guile-lib)))
@@ -2082,6 +2252,9 @@ understand, extend, and port to host languages other than Scheme.")
       (license license:expat))))
 
 (define-public guile-reader
+  ;; TODO: this fails to cross-compile:
+  ;; ‘In procedure dynamic-link: file: "/tmp/.../src/libguile-reader",
+  ;; message: "file not found"
   (package
     (name "guile-reader")
     (version "0.6.3")
@@ -2094,7 +2267,9 @@ understand, extend, and port to host languages other than Scheme.")
                  "1fyjckmygkhq22lq8nqc86yl5zzbqd7a944dnz5c1f6vx92b9hiq"))))
     (build-system gnu-build-system)
     (native-inputs `(("pkgconfig" ,pkg-config)
-                     ("gperf" ,gperf)))
+                     ("gperf" ,gperf)
+                     ;; for "guild compile"
+                     ("guile" ,guile-3.0)))
     (inputs `(("guile" ,guile-3.0)))
     (synopsis "Framework for building readers for GNU Guile")
     (description
@@ -2116,9 +2291,15 @@ many readers as needed).")
   (package
     (inherit guile-reader)
     (name "guile2.2-reader")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-reader)))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile-ncurses
+  ;; TODO this fails to cross-compile with
+  ;; ‘In procedure dynamic-link: file: "libguile-ncurses", message:
+  ;; "file not found"’.
   (package
     (name "guile-ncurses")
     (version "3.0")
@@ -2132,7 +2313,10 @@ many readers as needed).")
     (build-system gnu-build-system)
     (inputs `(("ncurses" ,ncurses)
               ("guile" ,guile-3.0)))
-    (native-inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile"
+       ("guile" ,guile-3.0)))
     (arguments
      `(#:modules ((guix build gnu-build-system)
                   ((guix build guile-build-system)
@@ -2169,6 +2353,9 @@ library.")
   (package
     (inherit guile-ncurses)
     (name "guile2.2-ncurses")
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("guile" ,guile-2.2)))
     (inputs `(("ncurses" ,ncurses)
               ("guile" ,guile-2.2)))))
 
@@ -2179,10 +2366,14 @@ library.")
   (package
     (inherit guile-ncurses)
     (name "guile-ncurses-with-gpm")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-ncurses)))
     (inputs `(("ncurses" ,ncurses/gpm)
               ("guile" ,guile-2.2)))))
 
 (define-public guile3.0-ncurses/gpm
+  ;; TODO: this fails to compile with (FAIL: menu_gc_refcount.scm)
   (package
     (inherit guile3.0-ncurses)
     (name "guile3.0-ncurses-with-gpm")
@@ -2449,7 +2640,9 @@ inspired by the SCSH regular expression system.")
                              #t)))))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0-latest)))
     (inputs
      ;; Depend on the latest Guile to avoid bytecode compatibility issues when
      ;; using modules built against the latest version.
@@ -2469,6 +2662,9 @@ interface for reading articles in any format.")
     (inherit haunt)
     (name "guile2.2-haunt")
     (inputs `(("guile" ,guile-2.2)))
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs haunt)))
     (propagated-inputs
      `(("guile-reader" ,guile2.2-reader)
        ("guile-commonmark" ,guile2.2-commonmark)))))
@@ -2477,6 +2673,9 @@ interface for reading articles in any format.")
   (package
     (inherit haunt)
     (name "guile2.0-haunt")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.0)
+                    (package-native-inputs haunt)))
     (inputs `(("guile" ,guile-2.0)))))
 
 (define-public guile3.0-haunt
@@ -2499,10 +2698,14 @@ interface for reading articles in any format.")
     (build-system gnu-build-system)
     (arguments
      '(#:make-flags '("GUILE_AUTO_COMPILE=0")))
+    (inputs
+     ;; for cross-compilation
+     `(("guile" ,guile-3.0)))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is missing)
        ("guile" ,guile-3.0)))
     (synopsis "Redis client library for Guile")
     (description "Guile-redis provides a Scheme interface to the Redis
@@ -2513,6 +2716,8 @@ key-value cache and store.")
   (package
     (inherit guile-redis)
     (name "guile2.2-redis")
+    (inputs (alist-replace "guile" (list guile-2.2)
+                           (package-inputs guile-redis)))
     (native-inputs `(("guile" ,guile-2.2)
                      ,@(alist-delete "guile"
                                      (package-native-inputs guile-redis))))))
@@ -2533,6 +2738,8 @@ key-value cache and store.")
                 "(rnrs io ports)"))
              #t)))
        ,@(package-arguments guile-redis)))
+    (inputs (alist-replace "guile" (list guile-2.0)
+                           (package-inputs guile-redis)))
     (native-inputs `(("guile" ,guile-2.0)
                      ,@(alist-delete "guile"
                                      (package-native-inputs guile-redis))))))
@@ -2574,7 +2781,9 @@ key-value cache and store.")
     (inputs
      `(("guile" ,guile-3.0)))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (synopsis "CommonMark parser for Guile")
     (description
      "guile-commonmark is a library for parsing CommonMark, a fully specified
@@ -2589,12 +2798,21 @@ is no support for parsing block and inline level HTML.")
   (package
     (inherit guile-commonmark)
     (name "guile2.2-commonmark")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-commonmark)))
     (inputs `(("guile" ,guile-2.2)))))
 
 (define-public guile2.0-commonmark
+  ;; TODO: this fails to compile (FAIL: tests/inlines/emphasis)
+  ;; The failing test is:
+  ;; ‘parse-inlines, emphasis with _ is not allowed inside words’
   (package
     (inherit guile-commonmark)
     (name "guile2.0-commonmark")
+    (native-inputs
+     (alist-replace "guile" (list guile-2.0)
+                    (package-native-inputs guile-commonmark)))
     (inputs `(("guile" ,guile-2.0)))))
 
 (define-public guile3.0-commonmark
@@ -2679,7 +2897,9 @@ format is also supported.")
          ("automake" ,automake)
          ("librsvg" ,librsvg)
          ("pkg-config" ,pkg-config)
-         ("texinfo" ,texinfo)))
+         ("texinfo" ,texinfo)
+         ;; for "guild compile" (TODO --target is not set)
+         ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
       (home-page "https://git.elephly.net/software/guile-picture-language.git")
       (synopsis "Picture language for Guile")
       (description
@@ -2800,7 +3020,9 @@ completion, a simple mode line, etc.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (home-page "https://gitlab.com/tampe/stis-parser")
     (synopsis "Parser combinator framework")
     (description
@@ -2850,7 +3072,9 @@ chunks can be expressions as well as simple tokens.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("libtool" ,libtool)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (home-page "https://gitlab.com/tampe/guile-persist")
     (synopsis "Persistence programming framework for Guile")
     (description
@@ -2907,6 +3131,7 @@ serializing continuations or delimited continuations.")
                     (compiled-path (string-append
                                     ccache ":"
                                     (getenv "GUILE_LOAD_COMPILED_PATH"))))
+               ;; TODO these load paths are incorrect when cross-compiling
                (wrap-program (string-append out "/bin/python")
                  `("GUILE_LOAD_PATH" ":" prefix
                    (,load-path))
@@ -2922,7 +3147,14 @@ serializing continuations or delimited continuations.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("libtool" ,libtool)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))
+       ,@(if (%current-target-system)
+             `(("guile-persist" ,guile-persist)
+               ("guile-readline" ,guile-readline)
+               ("guile-stis-parser" ,guile-stis-parser))
+             '())))
     (synopsis "Python implementation in Guile")
     (description
      "This package allows you to compile a Guile Python file to any target
@@ -2954,7 +3186,9 @@ from @code{tree-il}.")
     (inputs
      `(("guile" ,guile-2.2)))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (home-page "https://gitlab.com/brandoninvergo/guile-file-names")
     (synopsis "Manipulate file names")
     (description
@@ -3017,7 +3251,9 @@ list of components.  This module takes care of that for you.")
        ("glib:bin" ,glib "bin") ; for glib-compile-resources
        ("libtool" ,libtool)
        ("pkg-config" ,pkg-config)
-       ("xorg-server" ,xorg-server)))
+       ("xorg-server" ,xorg-server)
+       ;; for "guild compile"
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (propagated-inputs
      `(("glib" ,glib)
        ("gobject-introspection" ,gobject-introspection)
@@ -3111,7 +3347,9 @@ denote the invalidity of certain code paths in a Scheme program.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (inputs
      `(("guile" ,guile-3.0)))
     (home-page "https://gitlab.com/samplet/guile-srfi-158")
@@ -3143,7 +3381,7 @@ implementation in a thin Guile compatibility layer.")
        ;; The *-impl.scm files are actually included from module files; they
        ;; should not be compiled separately, but they must be installed.
        '(#:not-compiled-file-regexp "-impl\\.scm$"))
-      (inputs
+      (native-inputs
        `(("guile" ,guile-2.2)))
       (synopsis "Formatting combinators for Guile")
       (description
@@ -3181,7 +3419,10 @@ more expressive and flexible than the traditional @code{format} procedure.")
       (arguments
        '(#:not-compiled-file-regexp "body\\.scm$"))
       (native-inputs
-       `(("guile" ,guile-3.0)))
+       `(("guile" ,guile-3.0)
+         ,@(if (%current-target-system)
+               (package-propagated-inputs this-package)
+               '())))
       (propagated-inputs
        `(("guile-srfi-145" ,guile-srfi-145)))
       (home-page "https://srfi.schemers.org/srfi-180/")
@@ -3355,6 +3596,8 @@ in C using Gtk+-3 and WebKitGtk.")
          ("automake" ,automake)
          ("pkg-config" ,pkg-config)
          ("guile" ,guile-2.2)))
+      ;; For cross-compilation, to satisfy the configuration script.
+      (inputs `(("guile" ,guile-2.2)))
       (synopsis "JPEG file parsing library for Guile")
       (description
        "Guile-JPEG is a Scheme library to parse JPEG image files and to
@@ -3522,9 +3765,11 @@ feature-set, fully programmable in Guile Scheme.")
                                         texlive-standalone
                                         texlive-xcolor
                                         texlive-fonts-iwona)))
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,@(assoc-ref (package-inputs this-package) "guile"))))
     (propagated-inputs
-     `(("guile-lib" ,guile-lib)))
+     `(("guile-lib" ,guile2.2-lib)))
     (home-page "https://www.gnu.org/software/guile-cv/")
     (synopsis "Computer vision library for Guile")
     (description "Guile-CV is a Computer Vision functional programming library
@@ -3536,6 +3781,9 @@ clean and easy to use high level API.")
     (license license:gpl3+)))
 
 (define-public guile-ffi-fftw
+  ;; TODO This currently fails to cross-compile:
+  ;; ‘In procedure dynamic-link: file: "[...]/lib/libfftw3",
+  ;; message: "file not found"
   (let ((commit "294ad9e7491dcb40026d2fec9be2af05263be1c0")
         (revision "2"))
     (package
@@ -3561,13 +3809,13 @@ clean and easy to use high level API.")
                  (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)")
                   (format #f "\"~a/lib\"" (assoc-ref inputs "fftw"))))
                #t))
+           ;; TODO this cannot be done when cross-compiling
            (add-after 'build 'check
              (lambda _
                (invoke "guile" "-L" "mod"
                        "-s" "test/test-ffi-fftw.scm"))))))
-      (inputs
-       `(("fftw" ,fftw)
-         ("guile" ,guile-2.2)))
+      (inputs `(("fftw" ,fftw)))
+      (native-inputs `(("guile" ,guile-2.2)))
       (home-page "https://github.com/lloda/guile-ffi-fftw/")
       (synopsis "Access FFTW through Guile's FFI")
       (description "This is a minimal set of Guile FFI bindings for the FFTW
@@ -3595,7 +3843,8 @@ anything other than straight complex DFTs.")
        (modify-phases %standard-phases
          (delete 'build))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ("guile" ,guile-2.2)))
     (inputs
      `(("guile" ,guile-2.2)))
     (home-page "https://ngyro.com/software/srfi-64-driver.html")
@@ -3618,9 +3867,10 @@ tests being run, resulting clearer and more specific output.")
                 "109p4n39ln44cxvwdccf9kgb96qx54makvd2ir521ssz6wchjyag"))))
     (build-system gnu-build-system)
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
-    (inputs
-     `(("guile" ,guile-3.0)))
+     `(("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
+    (inputs `(("guile" ,guile-3.0)))
     (home-page "https://ngyro.com/software/guile-semver.html")
     (synopsis "Semantic Versioning (SemVer) for Guile")
     (description "This Guile library provides tools for reading,
@@ -3636,7 +3886,11 @@ the style of the Node Package Manager (NPM).")
     (inherit guile-semver)
     (name "guile2.2-semver")
     (inputs
-     `(("guile" ,guile-2.2)))))
+     (alist-replace "guile" (list guile-2.2)
+                    (package-inputs guile-semver)))
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-semver)))))
 
 (define-public guile-hashing
   (package
@@ -3786,7 +4040,10 @@ and space linear in the size of the input text.")
 
                       #t)))))
     (native-inputs
-     `(("guile" ,guile-3.0)))
+     `(("guile" ,guile-3.0)
+       ,@(if (%current-target-system)
+             (package-propagated-inputs this-package)
+             '())))
     (propagated-inputs
      `(("guile-packrat" ,guile-packrat)))
     (synopsis "D-Bus protocol implementation in R6RS Scheme")
@@ -3827,7 +4084,12 @@ gnome-keyring, and many more.")
        `(("autoconf" ,autoconf)
          ("automake" ,automake)
          ("pkg-config" ,pkg-config)
-         ("texinfo" ,texinfo)))
+         ("texinfo" ,texinfo)
+         ("guile" ,guile-3.0)
+         ;; TODO this shouldn't be necessary.
+         ,@(if (%current-target-system)
+               (package-propagated-inputs this-package)
+               '())))
       (inputs
        `(("guile" ,guile-3.0)))
       (propagated-inputs
@@ -3844,8 +4106,15 @@ as signed sessions, multipart message support, etc.")
   (package
     (inherit guile-webutils)
     (name "guile2.2-webutils")
-    (inputs
-     `(("guile" ,guile-2.2)))
+    (native-inputs
+     `(("guile" ,guile-2.2)
+       ,@(alist-delete '("guile" "guile-irregex" "guile-gcrypt")
+                       (package-native-inputs guile-webutils)
+                       (lambda (x y) (member y x)))
+       ,@(if (%current-target-system)
+             (package-propagated-inputs this-package)
+             '())))
+    (inputs `(("guile" ,guile-2.2)))
     (propagated-inputs
      `(("guile-irregex" ,guile2.2-irregex)
        ("guile-gcrypt" ,guile2.2-gcrypt)))))
@@ -3880,6 +4149,8 @@ as signed sessions, multipart message support, etc.")
          ("guile-hall" ,guile-hall)
          ("pkg-config" ,pkg-config)
          ("texinfo" ,texinfo)))
+      (inputs
+       `(("guile" ,guile-3.0)))
       (home-page "https://gitlab.com/a-sassmannshausen/guile-lens.git")
       (synopsis "Composable lenses for data structures in Guile")
       (description
@@ -3893,6 +4164,7 @@ over, or update a value in arbitrary data structures.")
   (package
     (inherit guile-lens)
     (name "guile2.2-lens")
+    (inputs `(("guile" ,guile-2.2)))
     (native-inputs
      `(("guile" ,guile-2.2)
        ,@(alist-delete "guile" (package-native-inputs guile-lens))))))
@@ -3924,7 +4196,9 @@ over, or update a value in arbitrary data structures.")
        ("automake" ,automake)
        ("libtool" ,libtool)
        ("pkg-config" ,pkg-config)
-       ("swig" ,swig)))
+       ("swig" ,swig)
+       ;; for "guild compile" (TODO --target is not set)
+       ("guile" ,guile-3.0)))
     (synopsis "Guile bindings for Xapian")
     (description "@code{guile-xapian} provides Guile bindings for Xapian, a
 search engine library.  Xapian is a highly adaptable toolkit which allows
@@ -3939,7 +4213,10 @@ models and also supports a rich set of boolean query operators.")
     (name "guile2.2-xapian")
     (inputs
      `(("guile" ,guile-2.2)
-       ,@(alist-delete "guile" (package-inputs guile-xapian))))))
+       ,@(alist-delete "guile" (package-inputs guile-xapian))))
+    (native-inputs
+     (alist-replace "guile" (list guile-2.2)
+                    (package-native-inputs guile-xapian)))))
 
 (define-public guile3.0-xapian
   (deprecated-package "guile3.0-xapian" guile-xapian))
@@ -3964,9 +4241,16 @@ models and also supports a rich set of boolean query operators.")
        ("guile" ,guile-2.2)
        ("texinfo" ,texinfo)
        ("perl" ,perl)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is missing)
+       ("guile" ,guile-2.2)
+       ,@(if (%current-target-system)
+             (package-propagated-inputs this-package)
+             '())))
     (propagated-inputs
-     `(("guile-gcrypt" ,guile-gcrypt)))
+     `(("guile-gcrypt" ,guile2.2-gcrypt)))
+    (inputs
+     `(("guile" ,guile-2.2)))
     (home-page "https://github.com/o-nly/torrent")
     (synopsis "Torrent library for GNU Guile")
     (description "This package provides facilities for working with
@@ -3995,7 +4279,11 @@ according to Bitorrent BEP003.")
       (native-inputs
        `(("autoconf" ,autoconf)
          ("automake" ,automake)
-         ("texinfo" ,texinfo)))
+         ("texinfo" ,texinfo)
+         ;; for "guild compile" (TODO --target is missing)
+         ("guile" ,guile-3.0)
+         ;; the configure script requires gnutls-cli
+         ("gnutls" ,gnutls)))
       (inputs
        `(("gnutls" ,gnutls)
          ("guile" ,guile-3.0)))
@@ -4042,7 +4330,9 @@ Relay Chat} (IRC).")
                #t)))))
       (native-inputs
        `(("autoconf" ,autoconf)
-         ("automake" ,automake)))
+         ("automake" ,automake)
+         ;; for "guild compile"
+         ("guile" ,guile-3.0)))
       (inputs
        `(("guile" ,guile-3.0)))
       (synopsis "Websocket server/client for Guile")
@@ -4077,7 +4367,9 @@ WebSocket protocol as defined by RFC 6455.")
      `(("automake" ,automake)
        ("autoconf" ,autoconf)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is missing)
+       ("guile" ,guile-3.0)))
     (home-page "https://framagit.org/tyreunom/guile-rdf")
     (synopsis "Guile implementation of the RDF abstract and concrete syntaxes")
     (description "Guile RDF is an implementation of the RDF (Resource Description
@@ -4118,7 +4410,16 @@ manipulating graphs and datasets.")
      `(("automake" ,automake)
        ("autoconf" ,autoconf)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is missing)
+       ("guile" ,guile-3.0)
+       ;; TODO this should not be necessary, but the configure
+       ;; script fails without it.
+       ,@(if (%current-target-system)
+             `(("guile-json" ,guile-json-4)
+               ("guile-gnutls" ,gnutls)
+               ("guile-rdf" ,guile-rdf))
+             '())))
     (home-page "https://framagit.org/tyreunom/guile-jsonld")
     (synopsis "Guile implementation of the JsonLD API specification")
     (description "Guile JsonLD is an implementation of the JsonLD (Json for
@@ -4208,7 +4509,12 @@ similar to struct in Python or pack and unpack in Perl.")
                                 files)
                       #t)))))
     (native-inputs
-     `(("guile" ,guile-3.0)))
+     `(("guile" ,guile-3.0)
+       ;; TODO this should not be necessary, but
+       ;; cross-compiling fails otherwise.
+       ,@(if (%current-target-system)
+             `(("guile-struct-pack" ,guile-struct-pack))
+             '())))
     (propagated-inputs
      `(("guile-struct-pack" ,guile-struct-pack)))
     (home-page "https://github.com/weinholt/machine-code")
@@ -4381,7 +4687,13 @@ directory of its argument if it does not exist.")
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ;; for "guild compile" (TODO --target is missing)
+       ("guile" ,guile-3.0)
+       ;; TODO this should not be necessary
+       ,@(if (%current-target-system)
+             `(("guile-json" ,guile-json-4))
+             '())))
     (propagated-inputs
      `(("guile-json" ,guile-json-4)))
     (inputs
@@ -4396,6 +4708,8 @@ JWT.  Supported algorithms: HS256, HS384, HS512.")
     (license license:gpl3+)))
 
 (define-public guile-sodium
+  ;; TODO this fails to cross-compile
+  ;; (‘In procedure dynamic-link: file: [...] not found’)
   (package
     (name "guile-sodium")
     (version "0.1.0")
@@ -4413,7 +4727,9 @@ JWT.  Supported algorithms: HS256, HS384, HS512.")
       `(("autoconf" ,autoconf)
         ("automake" ,automake)
         ("pkg-config" ,pkg-config)
-        ("texinfo" ,texinfo)))
+        ("texinfo" ,texinfo)
+        ;; for "guild compile" (TODO --target is missing)
+        ("guile" ,guile-3.0)))
     (inputs `(("guile" ,guile-3.0)))
     (propagated-inputs `(("libsodium" ,libsodium)))
     (synopsis "Guile bindings to the libsodium cryptographic library")
@@ -4443,6 +4759,8 @@ tools.")
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
        ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is missing)
+       ("guile" ,guile-3.0)
        ;; test dependency
        ("guile-srfi-180" ,guile-srfi-180)))
     (inputs `(("guile" ,guile-3.0)))
@@ -4474,7 +4792,7 @@ read-capability.")
     (build-system guile-build-system)
     (arguments
      `(#:compile-flags '("--r6rs")))
-    (inputs
+    (native-inputs
      `(("guile" ,guile-3.0)))
     (home-page "https://gitlab.com/joolean/r6rs-protobuf/")
     (synopsis "Scheme implementation of Protocol Buffers")
@@ -4517,7 +4835,8 @@ including parsing and code generation.")
     (inputs
      `(("guile" ,guile-3.0)))
     (native-inputs
-     `(("texinfo" ,texinfo)))
+     `(("texinfo" ,texinfo)
+       ("guile" ,guile-3.0)))
     (home-page "https://github.com/HugoNikanor/guile-shapefile")
     (synopsis "Parse shapefiles in Guile")
     (description
@@ -4552,18 +4871,22 @@ including parsing and code generation.")
          (modify-phases %standard-phases
            (delete 'configure)
            (add-after 'unpack 'remove-unused-files
-             (lambda* (#:key inputs #:allow-other-keys)
+             (lambda* (#:key native-inputs inputs #:allow-other-keys)
                (for-each delete-file
                          '("guix.scm" "demo1.yml" "demo1.scm"
                            "yaml/libyaml.scm"
                            ;; This file is mismatched with the generated FFI code.
                            "yaml/ffi-help-rt.scm"))
-               (copy-file (string-append (assoc-ref inputs "nyacc")
+               ;; The file ffi-help-rt.scm is the same across architectures,
+               ;; so there's no need to add nyacc to the (non-native) inputs.
+               (copy-file (string-append (assoc-ref (or native-inputs inputs)
+                                                    "nyacc")
                                          "/share/guile/site/3.0/system/ffi-help-rt.scm")
                           "yaml/ffi-help-rt.scm")
                (substitute* "yaml/ffi-help-rt.scm"
                  (("system ffi-help-rt") "yaml ffi-help-rt"))
                #true))
+           ;; TODO when cross-compiling, this fails to find "yaml.h"
            (add-before 'build 'build-ffi
              (lambda* (#:key inputs #:allow-other-keys)
                (invoke "guild" "compile-ffi"
@@ -4584,7 +4907,8 @@ including parsing and code generation.")
       (propagated-inputs
        `(("guile-bytestructures" ,guile-bytestructures)))
       (native-inputs
-       `(("nyacc" ,nyacc)))
+       `(("nyacc" ,nyacc)
+         ("guile" ,guile-3.0)))
       (home-page "https://github.com/mwette/guile-libyaml")
       (synopsis "Guile wrapper for libyaml")
       (description
@@ -4610,9 +4934,9 @@ ffi-helper from nyacc.")
       (build-system cmake-build-system)
       (arguments `(#:tests? #f))
       (native-inputs
-       `(("pkg-config" ,pkg-config)))
-      (inputs
-       `(("guile" ,guile-2.2)))
+       `(("pkg-config" ,pkg-config)
+         ;; only used for tests
+         ("guile" ,guile-2.2)))
       (home-page "https://github.com/arximboldi/schmutz")
       (synopsis "Bind C++ code to Scheme")
       (description "Schmutz is a header-only library to declare Scheme bindings
@@ -4638,7 +4962,9 @@ or @code{LuaBind} but for Scheme.")
      `(("autoconf" ,autoconf)
        ("automake" ,automake)
        ("pkg-config" ,pkg-config)
-       ("texinfo" ,texinfo)))
+       ("texinfo" ,texinfo)
+       ;; for "guild compile" (TODO --target is not set).
+       ("guile" ,guile-3.0)))
     (inputs `(("guile" ,guile-3.0)))
     (synopsis "Guile implementation of CBOR")
     (description
-- 
2.31.0


[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]