GNU logs - #41949, boring messages

Message sent to guix-patches@HIDDEN:

Subject: [bug#41949] Adding the Gerbil scheme language, build system and two packages
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:16:02 +0000
Resent-Message-ID: <handler.41949.B.159257250323165 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 41949 <at> debbugs.gnu.org
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <875zbn2o5i.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:14:33 +0200
MIME-Version: 1.0
Content-Type: text/plain
Received-SPF: pass client-ip=136.143.188.11; envelope-from=edk@HIDDEN;
 helo=sender4-op-o11.zoho.com
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H4=-0.01, RCVD_IN_MSPIKE_WL=-0.01,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001, URIBL_BLOCKED=0.001 autolearn=_AUTOLEARN
X-Spam_action: no action
X-Spam-Score: -1.4 (-)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.4 (--)

Dear Guix,

The patches I'm about to send add the Gerbil scheme programming language
(https://cons.io), which could be described as Gambit, but with
batteries included.

The authors are friendly to Nix (they edited the source to make it
Nix-compatible) so I expect the addition to Guix to be welcomed there.

I've added the gerbil packages, which will allow one to start hacking in
Gerbil in no time, as well as the gerbil build system, as deployment
of software coded in gerbil is not easy. In theory static binaries are
possible, in practice it was easier to add gerbil to guix and use guix
pack ;)

Two packages are provided, to seed the addition of further packages to
the ecosystem, and to check that the build system works.

I'd be more than happy to apply the changes that will probably be
necessary (it's my first time working so deep in guix).

Cheers,

Edouard.

Message sent:

Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Edouard Klein <edk@HIDDEN>
Subject: bug#41949: Acknowledgement (Adding the Gerbil scheme language,
 build system and two packages)
Message-ID: <handler.41949.B.159257250323165.ack <at> debbugs.gnu.org>
References: <875zbn2o5i.fsf@HIDDEN>
X-Gnu-PR-Message: ack 41949
X-Gnu-PR-Package: guix-patches
Reply-To: 41949 <at> debbugs.gnu.org
Date: Fri, 19 Jun 2020 13:16:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 guix-patches@HIDDEN

If you wish to submit further information on this problem, please
send it to 41949 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
41949: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D41949
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Message sent to guix-patches@HIDDEN:

Subject: [bug#41949] [PATCH 1/5] gnu: Add gerbil
References: <875zbn2o5i.fsf@HIDDEN>
In-Reply-To: <875zbn2o5i.fsf@HIDDEN>
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:36:02 +0000
Resent-Message-ID: <handler.41949.B41949.1592573747959 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 41949 <at> debbugs.gnu.org
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <87366r2n6n.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:35:29 +0200
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
 
 Content preview:  * gnu/packages/scheme.scm: (gerbil): New variable. --- gnu/packages/scheme.scm
    | 108 +++++++++++++++++++++++++++++++++++++++- 1 file changed, 107 insertions(+),
    1 deletion(-) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
    index 4551e57d4a..4ceabb1996 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm
    @@ -12,6 +12,7 @@ ;;; Copyright =?UTF-8?Q?=C2=A9?= 2018 A [...] 
 
 Content analysis details:   (2.0 points, 10.0 required)
 
  pts rule name              description
 ---- ---------------------- --------------------------------------------------
  0.0 SPF_HELO_NONE          SPF: HELO does not publish an SPF Record
  2.0 PDS_OTHER_BAD_TLD      Untrustworthy TLDs
                             [URI: ambrevar.xyz (xyz)]
 -0.0 SPF_PASS               SPF: sender matches SPF record
 -0.0 RCVD_IN_DNSWL_NONE     RBL: Sender listed at https://www.dnswl.org/,
                              no trust
                             [136.143.188.11 listed in list.dnswl.org]
  0.0 RCVD_IN_MSPIKE_H4      RBL: Very Good reputation (+4)
                             [136.143.188.11 listed in wl.mailspike.net]
  0.0 RCVD_IN_MSPIKE_WL      Mailspike good senders
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 1.0 (+)


* gnu/packages/scheme.scm: (gerbil): New variable.
---
 gnu/packages/scheme.scm | 108 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 107 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 4551e57d4a..4ceabb1996 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -12,6 +12,7 @@
 ;;; Copyright =C2=A9 2018 Adam Massmann <massmannak@HIDDEN>
 ;;; Copyright =C2=A9 2018 Gabriel Hondet <gabrielhondet@HIDDEN>
 ;;; Copyright =C2=A9 2020 Pierre Neidhardt <mail@HIDDEN>
+;;; Copyright =C2=A9 2020 Edouard Klein <edk@HIDDEN>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -31,7 +32,7 @@
 (define-module (gnu packages scheme)
   #:use-module (gnu packages)
   #:use-module ((guix licenses)
-                #:select (gpl2+ lgpl2.0+ lgpl2.1+ lgpl3+ asl2.0 bsd-3
+                #:select (gpl2+ lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3+ asl2.0 bs=
d-3
                           cc-by-sa4.0 non-copyleft expat))
   #:use-module (guix packages)
   #:use-module (guix download)
@@ -70,6 +71,7 @@
   #:use-module (gnu packages tls)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages libedit)
+  #:use-module (gnu packages linux)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match))
=20
@@ -1076,3 +1078,107 @@ multilingual support are some of the goals.  Gauche=
 comes with a package
 manager/installer @code{gauche-package} which can download, compile, insta=
ll
 and list gauche extension packages.")
     (license bsd-3)))
+
+(define-public gerbil
+  (package
+    (name "gerbil")
+    (version "0.16")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/vyzo/gerbil.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0vng0kxpnwsg8jbjdpyn4sdww36jz7zfpfbzayg9sdpz6bjxjy0f"))))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (delete 'bootstrap)
+         (add-before 'configure 'chdir
+           (lambda _
+             (chdir "src")
+             #t))
+         (replace 'configure
+           (lambda* (#:key outputs inputs #:allow-other-keys)
+             (invoke "chmod" "755" "-R" ".")
+             ;; Otherwise fails when editing an r--r--r-- file.
+             (invoke "gsi-script" "configure"
+                     "--prefix" (assoc-ref outputs "out")
+                     "--with-gambit" (assoc-ref inputs "gambit-c"))))
+         (add-before 'patch-generated-file-shebangs 'fix-gxi-shebangs
+           (lambda _
+             ;; Some .ss files refer to gxi using /usr/bin/env gxi
+             ;; and 'patch-generated-file-shebangs can't fix that
+             ;; because gxi has not been compiled yet.
+             ;; We know where gxi is going to end up so we
+             ;; Doctor Who our fix here before the problem
+             ;; happens towards the end of the build.sh script.
+             (let ((abs-srcdir (getcwd)))
+               (for-each
+                (lambda (f)
+                   (substitute* f
+                     (("#!/usr/bin/env gxi")
+                      (string-append "#!" abs-srcdir "/../bin/gxi"))))
+                 '("./gerbil/gxc"
+                   "./lang/build.ss"
+                   "./misc/http-perf/build.ss"
+                   "./misc/rpc-perf/build.ss"
+                   "./misc/scripts/docsnarf.ss"
+                   "./misc/scripts/docstub.ss"
+                   "./misc/scripts/docsyms.ss"
+                   "./r7rs-large/build.ss"
+                   "./release.ss"
+                   "./std/build.ss"
+                   "./std/run-tests.ss"
+                   "./std/web/fastcgi-test.ss"
+                   "./std/web/rack-test.ss"
+                   "./tools/build.ss"
+                   "./tutorial/httpd/build.ss"
+                   "./tutorial/kvstore/build.ss"
+                   "./tutorial/lang/build.ss"
+                   "./tutorial/proxy/build-static.ss"
+                   "./tutorial/proxy/build.ss")))
+             #t))
+         (replace
+          'build
+          (lambda*
+           (#:key inputs #:allow-other-keys)
+           (setenv "HOME" (getcwd))
+             (invoke
+              ;; The build script needs a tty or it'll crash on an ioctl
+              ;; trying to find the width of the terminal it's running on.
+              ;; Calling in script prevents that.
+              "script"
+              "-qefc"
+              "./build.sh")))
+         (delete 'check)
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin"))
+                    (lib (string-append out "/lib")))
+               (mkdir-p bin)
+               (mkdir-p lib)
+               (copy-recursively "../bin" bin)
+               (copy-recursively "../lib" lib)))))))
+    (native-inputs
+     `(("coreutils" ,coreutils)
+       ("util-linux" ,util-linux)))
+    (propagated-inputs
+     `(("gambit-c" ,gambit-c)
+       ("zlib" ,zlib)
+       ("openssl" ,openssl)
+       ("sqlite" ,sqlite)))
+    (build-system gnu-build-system)
+    (synopsis "Meta-dialect of Scheme with post-modern features")
+    (description "Gerbil is an opinionated dialect of Scheme designed for =
Systems
+Programming, with a state of the art macro and module system on top of the=
 Gambit
+runtime.  The macro system is based on quote-syntax, and provides the full=
 meta-syntactic
+tower with a native implementation of syntax-case.  It also provides a ful=
l-blown module
+system, similar to PLT Scheme's (sorry, Racket) modules.  The main differe=
nce from Racket
+is that Gerbil modules are single instantiation, supporting high performan=
ce ahead of
+time compilation and compiled macros.")
+    (home-page "https://cons.io")
+    (license `(,lgpl2.1 ,asl2.0))))
--=20
2.26.2

Message sent to guix-patches@HIDDEN:

Subject: [bug#41949] [PATCH 2/5] gnu: Add xlsxio
References: <875zbn2o5i.fsf@HIDDEN>
In-Reply-To: <875zbn2o5i.fsf@HIDDEN>
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:37:01 +0000
Resent-Message-ID: <handler.41949.B41949.15925737721030 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 41949 <at> debbugs.gnu.org
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <87zh8z18lb.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:36:00 +0200
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>


* gnu/packages/xml.scm: (xlsxio): New variable.
---
 gnu/packages/xml.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 90181a1773..2246a5fab2 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -23,6 +23,7 @@
 ;;; Copyright =C2=A9 2018 Jack Hill <jackhill@HIDDEN>
 ;;; Copyright =C2=A9 2019 Giacomo Leidi <goodoldpaul@HIDDEN>
 ;;; Copyright =C2=A9 2020 Paul Garlick <pgarlick@HIDDEN=
m>
+;;; Copyright =C2=A9 2020 Edouard Klein <edk@HIDDEN>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -41,6 +42,7 @@
=20
 (define-module (gnu packages xml)
   #:use-module (gnu packages)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
@@ -1312,6 +1314,42 @@ generating, manipulating, and validating XML documen=
ts using the DOM, SAX, and
 SAX2 APIs.")
     (license license:asl2.0)))
=20
+(define-public xlsxio
+  (package
+    (name "xlsxio")
+    (version "0.2.26")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/brechtsanders/xlsxio.git")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0j8jral3yc2aib2ykp527lyb62a1d9p7qmfbszy7iy3s65pkma9b"))))
+    (native-inputs
+     `(("expat" ,expat)
+       ("make" ,gnu-make)
+       ("minizip" ,minizip)
+       ("which" ,which)))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (delete 'check)
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (invoke "make" "install"
+                     (string-append
+                      "PREFIX=3D" (assoc-ref outputs "out"))))))))
+    (synopsis "C library for reading and writing .xlsx files")
+    (description "XLSX I/O aims to provide a C library for reading and wri=
ting
+.xlsx files.  The .xlsx file format is the native format used by Microsoft=
(R)
+Excel(TM) since version 2007.")
+    (home-page "https://github.com/brechtsanders/xlsxio")
+    (license license:expat)))
+
 (define-public java-simple-xml
   (package
     (name "java-simple-xml")
--=20
2.26.2

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 3/5] guix: Add gerbil-build-system
References: <875zbn2o5i.fsf@HIDDEN>
In-Reply-To: <875zbn2o5i.fsf@HIDDEN>
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:37:02 +0000
Resent-Message-ID: <handler.41949.B41949.15925737941067 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.15925737941067
          (code B ref 41949); Fri, 19 Jun 2020 13:37:02 +0000
Received: (at 41949) by debbugs.gnu.org; 19 Jun 2020 13:36:34 +0000
Received: from localhost ([127.0.0.1]:55449 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jmHC5-0000H8-EM
	for submit <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:36:33 -0400
Received: from sender4-op-o11.zoho.com ([136.143.188.11]:17131)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <edk@HIDDEN>) id 1jmHC3-0000Gz-Bl
 for 41949 <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:36:32 -0400
ARC-Seal: i=1; a=rsa-sha256; t=1592573788; cv=none; 
 d=zohomail.com; s=zohoarc; 
 b=X+MmEuesCb4kqUYgpNcQ8rcpEgsNs2D8MtoTyA2iuT2p3uEFmL2dMRXfeIgFpR4wQqgu/gB90s37whLxIyOYfwPaO4LnZjwIroCP6kUVGosvmdoVYRiwbHD+tvKU3lnYgckA67hC6xzcX8H07AoCjW3SeHg1tYKRsL2IBg0p970=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc; t=1592573788;
 h=Content-Type:Content-Transfer-Encoding:Date:From:MIME-Version:Message-ID:Subject:To;
 bh=aVrQLLbpbnJ8eLff7y9O4br9VFcO+gyWDm8PjHZAqZ4=; 
 b=JIaC5lREPW/yM5dcOIICJNcHhItgzrZt08ScuI9L1pT9AgWL24BNlRP1AwJIGGHz2dMeSrc7HxZa71JMRUZ8/nzoAhH/Ewr3YSV7Te29nDwzJAyLvbMjmiI9tUsEZ/ckBkLEEkj2LPfgPtxDl2G+RvVbb7EDWXHzomra9f9rn/Y=
ARC-Authentication-Results: i=1; mx.zohomail.com;
 dkim=pass  header.i=beaver-labs.com;
 spf=pass  smtp.mailfrom=edk@HIDDEN;
 dmarc=pass header.from=<edk@HIDDEN> header.from=<edk@HIDDEN>
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1592573788; 
 s=zoho; d=beaver-labs.com; i=edk@HIDDEN;
 h=From:To:Subject:Message-ID:Date:MIME-Version:Content-Type:Content-Transfer-Encoding;
 bh=aVrQLLbpbnJ8eLff7y9O4br9VFcO+gyWDm8PjHZAqZ4=;
 b=bXpinrr97B6570eNzd4h+9nVB0KFYfDKUqa9HHSoPSr8/9sqWawps8MNHMPvpxI8
 kJhUl7U8b0lCb03+EV/LweCooa6oYHckEgak7ukJGr62+FTcSMdCAGPa2Lb4MKSV93h
 XMT7CHjnDAOmLjOZn0pXqhUBv0fC2j6XDaWrmk/Q=
Received: from alice.lan (lfbn-idf1-1-1299-119.w90-79.abo.wanadoo.fr
 [90.79.23.119]) by mx.zohomail.com
 with SMTPS id 1592573787941652.1032957369371;
 Fri, 19 Jun 2020 06:36:27 -0700 (PDT)
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <87wo4318kn.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:36:24 +0200
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-ZohoMailClient: External
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


* guix/build-system/gerbil.scm: New file.
(%gerbil-build-system-modules): New variable.
(gerbil-build): New variable
(gerbil-build-system): New variable

* guix/build/gerbil-build-system.scm: New file.
(%standard-phases): New variable.
(gerbil-build): New variable.
---
 guix/build-system/gerbil.scm       | 119 +++++++++++++++++++++++++++++
 guix/build/gerbil-build-system.scm | 102 +++++++++++++++++++++++++
 2 files changed, 221 insertions(+)
 create mode 100644 guix/build-system/gerbil.scm
 create mode 100644 guix/build/gerbil-build-system.scm

diff --git a/guix/build-system/gerbil.scm b/guix/build-system/gerbil.scm
new file mode 100644
index 0000000000..eea0261b2a
--- /dev/null
+++ b/guix/build-system/gerbil.scm
@@ -0,0 +1,119 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright =C2=A9 2020 Edouard Klein <edk@HIDDEN>
+;;;
+;;; 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 (guix build-system gerbil)
+  #:use-module (guix store)
+  #:use-module (guix utils)
+  #:use-module (guix derivations)
+  #:use-module (guix search-paths)
+  #:use-module (guix build-system)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix packages)
+  #:use-module (ice-9 match)
+  #:export (%gerbil-build-system-modules
+            gerbil-build
+            gerbil-build-system))
+
+(define %gerbil-build-system-modules
+  ;; Build-side modules imported by default.
+  `((guix build gerbil-build-system)
+    ,@%gnu-build-system-modules))
+
+(define (default-gerbil)
+  "Return the default Gerbil package."
+  ;; Do not use `@' to avoid introducing circular dependencies.
+  (let ((module (resolve-interface '(gnu packages scheme))))
+    (module-ref module 'gerbil)))
+
+(define* (lower name
+                #:key source inputs native-inputs outputs system target
+                (gerbil (default-gerbil))
+                #:allow-other-keys
+                #:rest arguments)
+  "Return a bag for NAME."
+  (define private-keywords
+    '(#:source #:target #:inputs #:native-inputs))
+  (bag
+    (name name)
+    (system system)
+    (target target)
+    (host-inputs `(,@(if source
+                         `(("source" ,source))
+                         '())
+                   ,@inputs
+                   ;; Keep the standard inputs of 'gnu-build-system'.
+                   ,@(standard-packages)))
+    (build-inputs `(("gerbil" ,gerbil)
+                    ,@native-inputs))
+    (outputs outputs)
+    (build gerbil-build)
+    (arguments (strip-keyword-arguments private-keywords arguments))))
+
+(define* (gerbil-build store name inputs
+                       #:key
+                       (phases '(@ (guix build gerbil-build-system)
+                                   %standard-phases))
+                       (outputs '("out"))
+                       (search-paths '())
+                       (system (%current-system))
+                       (guile #f)
+                       (imported-modules %gerbil-build-system-modules)
+                       (modules '((guix build gerbil-build-system)
+                                  (guix build utils))))
+  "Build SOURCE using GERBIL and with INPUTS."
+  (define builder
+    `(begin
+       (use-modules ,@modules)
+       (gerbil-build #:name ,name
+                     #:source ,(match (assoc-ref inputs "source")
+                                 (((? derivation? source))
+                                  (derivation->output-path source))
+                                 ((source)
+                                  source)
+                                 (source
+                                  source))
+                     #:system ,system
+                     #:phases ,phases
+                     #:outputs %outputs
+                     #:search-paths ',(map search-path-specification->sexp
+                                           search-paths)
+                     #:inputs %build-inputs)))
+
+  (define guile-for-build
+    (match guile
+      ((? package?)
+       (package-derivation store guile system #:graft? #f))
+      (#f                                         ; the default
+       (let* ((distro (resolve-interface '(gnu packages commencement)))
+              (guile  (module-ref distro 'guile-final)))
+         (package-derivation store guile system #:graft? #f)))))
+
+  (build-expression->derivation store name builder
+                                #:inputs inputs
+                                #:system system
+                                #:modules imported-modules
+                                #:outputs outputs
+                                #:guile-for-build guile-for-build))
+
+(define gerbil-build-system
+  (build-system
+    (name 'gerbil)
+    (description "The standard Gerbil build system")
+    (lower lower)))
+
+;;; gerbil.scm ends here
diff --git a/guix/build/gerbil-build-system.scm b/guix/build/gerbil-build-s=
ystem.scm
new file mode 100644
index 0000000000..e6763b841a
--- /dev/null
+++ b/guix/build/gerbil-build-system.scm
@@ -0,0 +1,102 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright =C2=A9 2020 Edouard Klein <edk@HIDDEN>
+;;;
+;;; 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 (guix build gerbil-build-system)
+  #:use-module ((guix build gnu-build-system) #:prefix gnu:)
+  #:use-module (guix build utils)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 ftw)
+  #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26)
+  #:export (%standard-phases
+            gerbil-build))
+
+;; Gerbil's build system and package management is documented at
+;; https://cons.io/guide/package-manager.html
+;; https://cons.io/guide/build.html
+;; https://cons.io/guide/env-vars.html
+;;
+;; The compiler is writing its output in the directory
+;; pointed to by GERBIL_PATH (or ~/.gerbil by default).
+;;
+;; Every package is supposed to have a build.ss script
+;; whose default action (when called with no argument)
+;; is to compile the package.
+;;
+;; The GERBIL_LOADPATH env variable tells gerbil's runtime
+;; where it can find its loadable code.
+;;
+;; GERBIL_HOME tells gerbil where to find its runtime
+;; and standard library
+;;
+;; This build system therefore just
+;; - makes GERBIL_PATH point to the output directory in the store,
+;; - makes GERBIL_LOADPATH point to the lib subdir
+;; of all the gerbil inputs,
+;; - calls ./build.ss,
+;; - wrap any executable with GERBIL_LOADPATH set the the lib
+;; subdir of all the gerbil inputs plus the lib subdir
+;; of the current package's output, and with GERBIL_HOME
+;; set to the lib directory of the 'gerbil' input
+
+(define (loadpath inputs)
+  (string-join (map (match-lambda
+                      ((_ . path)
+                       (string-append path "/lib")))
+                    ;; Restrict to inputs beginning with "gerbil-".
+                    (filter (match-lambda
+                              ((name . _)
+                               (string-prefix? "gerbil-" name)))
+                            inputs))
+               ":"))
+
+(define (gerbil-home inputs)
+  (assoc-ref inputs "gerbil"))
+
+(define* (install #:key inputs outputs #:allow-other-keys)
+  "Install a given Gerbil package."
+  (let ((out (assoc-ref outputs "out"))
+        (in (loadpath inputs)))
+    (setenv "GERBIL_PATH" out)
+    (setenv "GERBIL_LOADPATH" in)
+    (invoke "./build.ss"))
+  #t)
+
+(define* (wrap #:key inputs outputs #:allow-other-keys)
+  "Wrap any executable with a proper GERBIL_LOADPATH and GERBIL_HOME"
+  (let* ((out (assoc-ref outputs "out"))
+         (in (loadpath inputs))
+         (gerbil-loadpath (string-append out "/lib:" in)))
+    (for-each (cut wrap-program <>
+                   `("GERBIL_LOADPATH" =3D (,gerbil-loadpath))
+                   `("GERBIL_HOME" =3D (,(gerbil-home inputs))))
+              (find-files (string-append out "/bin")))))
+
+(define %standard-phases
+  (modify-phases gnu:%standard-phases
+    (delete 'bootstrap)
+    (delete 'configure)                 ;not needed
+    (delete 'build)                     ;build.ss does both build and inst=
all
+    (delete 'check)                     ;no standard way of testing
+    (replace 'install install)
+    (add-after 'install 'wrap wrap)))
+
+(define* (gerbil-build #:key inputs (phases %standard-phases)
+                       #:allow-other-keys #:rest args)
+  "Build the given Gerbil package, applying all of PHASES in order."
+  (apply gnu:gnu-build #:inputs inputs #:phases phases args))
--=20
2.26.2

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 4/5] gnu: Add gerbil-srfi-54
References: <875zbn2o5i.fsf@HIDDEN>
In-Reply-To: <875zbn2o5i.fsf@HIDDEN>
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:37:02 +0000
Resent-Message-ID: <handler.41949.B41949.15925738171103 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.15925738171103
          (code B ref 41949); Fri, 19 Jun 2020 13:37:02 +0000
Received: (at 41949) by debbugs.gnu.org; 19 Jun 2020 13:36:57 +0000
Received: from localhost ([127.0.0.1]:55452 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jmHCS-0000Hi-W8
	for submit <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:36:57 -0400
Received: from sender4-op-o11.zoho.com ([136.143.188.11]:17140)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <edk@HIDDEN>) id 1jmHCR-0000Ha-8x
 for 41949 <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:36:55 -0400
ARC-Seal: i=1; a=rsa-sha256; t=1592573813; cv=none; 
 d=zohomail.com; s=zohoarc; 
 b=cYP0WIa4UL1IUXvwlFtEHX+6aK1k8e494kQPg5KOWZbIdq/0PcFNtQJzROn3wcsWZAPeP66pCIrKbIvRnqs0rG+3ZS6R75QMIQX/l4QaIPq0MrDgLoGBJGK4gAeOcA5uc8cRgeapwtF1R2BCRdgUpyrGYlNLQ7eI5tACdG2/Kto=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc; 
 t=1592573813; h=Content-Type:Date:From:MIME-Version:Message-ID:Subject:To; 
 bh=R9BQRRuzHexZ+z+KXQHEm+04zn0EhaNEa8rJESWXtvs=; 
 b=VjNQJK2UgBDm/7SBGUTDfL5A7kh0AdJm3rR1p0BNEhc74547AxGPEdh5mk87F9we4C8rgikCTLQ0Dn6LF3VW7CJhALsmTiRKtK6pXTtczFnQbXveGz44WyMHLtkQyAVXXwpv4TWuJBlLyMSYBCC+tHfFFRFS2XONj1spGe+m7ao=
ARC-Authentication-Results: i=1; mx.zohomail.com;
 dkim=pass  header.i=beaver-labs.com;
 spf=pass  smtp.mailfrom=edk@HIDDEN;
 dmarc=pass header.from=<edk@HIDDEN> header.from=<edk@HIDDEN>
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1592573813; 
 s=zoho; d=beaver-labs.com; i=edk@HIDDEN;
 h=From:To:Subject:Message-ID:Date:MIME-Version:Content-Type;
 bh=R9BQRRuzHexZ+z+KXQHEm+04zn0EhaNEa8rJESWXtvs=;
 b=FkTpiPnNzA3Z8SmtERCamon5gYn80xwQpe6kcE6fp9DgNp0DRZrohWQPsq5dv/SJ
 gwkYwTIMChgJtqTJ+F+XMPNf6afotNjbuNZGxzowGMOYn4U+m8BSfZQaaxxiGsNpPdB
 /pkojvKlFxqWgXHNcv8TSiiqdNk2HB7ZwGigS8dQ=
Received: from alice.lan (lfbn-idf1-1-1299-119.w90-79.abo.wanadoo.fr
 [90.79.23.119]) by mx.zohomail.com
 with SMTPS id 1592573811840960.416925106682;
 Fri, 19 Jun 2020 06:36:51 -0700 (PDT)
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <87tuz718jz.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:36:48 +0200
MIME-Version: 1.0
Content-Type: text/plain
X-ZohoMailClient: External
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


* gnu/packages/scheme-xyz.scm: New File
(gerbil-srfi-54): New variable.
---
 gnu/packages/scheme-xyz.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 gnu/packages/scheme-xyz.scm

diff --git a/gnu/packages/scheme-xyz.scm b/gnu/packages/scheme-xyz.scm
new file mode 100644
index 0000000000..8b553848ee
--- /dev/null
+++ b/gnu/packages/scheme-xyz.scm
@@ -0,0 +1,28 @@
+(define-module (gnu packages scheme-xyz)
+  #:use-module (guix packages)
+  #:use-module (guix build-system gerbil)
+  #:use-module (gnu packages scheme)
+  #:use-module (gnu packages xml)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public gerbil-srfi-54
+  (package
+    (name "gerbil-srfi-54")
+    (version "git")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/hckiang/srfi-54")
+             (commit "master")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0k1ddfhvbmf9njxm1ybs61n9kpzjvha2j63mf756r7b3x5rk51b0"))))
+    (build-system gerbil-build-system)
+    (synopsis "SRFI-54 for Gerbil Scheme")
+    (description "This SRFI introduces the CAT procedure that converts any object
+to a string.  It takes one object as the first argument and accepts a variable
+number of optional arguments, unlike the procedure called FORMAT.")
+    (home-page "https://github.com/hckiang/srfi-54")
+    (license license:lgpl3)))
-- 
2.26.2

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 5/5] gnu: Add gerbil-denatting
References: <875zbn2o5i.fsf@HIDDEN>
In-Reply-To: <875zbn2o5i.fsf@HIDDEN>
Resent-From: Edouard Klein <edk@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 19 Jun 2020 13:38:01 +0000
Resent-Message-ID: <handler.41949.B41949.15925738571197 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.15925738571197
          (code B ref 41949); Fri, 19 Jun 2020 13:38:01 +0000
Received: (at 41949) by debbugs.gnu.org; 19 Jun 2020 13:37:37 +0000
Received: from localhost ([127.0.0.1]:55458 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jmHD7-0000JE-9h
	for submit <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:37:37 -0400
Received: from sender4-op-o11.zoho.com ([136.143.188.11]:17151)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <edk@HIDDEN>) id 1jmHD5-0000J6-F8
 for 41949 <at> debbugs.gnu.org; Fri, 19 Jun 2020 09:37:36 -0400
ARC-Seal: i=1; a=rsa-sha256; t=1592573853; cv=none; 
 d=zohomail.com; s=zohoarc; 
 b=feqXsLjBPLROdRLKTmyjIIQxamkoLzi/z1j2CtASfnjN3nMWju6JLa+D+uXv+TojycPSxiPMaffHLy+45sABSJ/Wl2N5tXNZdhoheTHwmsKwiYC1/6bVF+4VJS4QKzz7J/sctUrgpdBiqdYeqCgwb3ebJtYzaPZhjat8xemOV4c=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc; 
 t=1592573853; h=Content-Type:Date:From:MIME-Version:Message-ID:Subject:To; 
 bh=feJlwaIjKrBPTOhA/sW7QlNiTfJ/L5w4I06ONmvU0co=; 
 b=EHvWT88Un2ekeB1ZugoiY57XTq4lHo5d/i5Dolrfsi942V3QTqOwRYFguulYehaJEIvfH0o0p3Vdd1uZkzdC54zzrInSkf9m8NqNjfShOqSI5wDzDhsrwzlq0biBjURKlgWc1/jvvRiJPUd1IkVderI4XRkRrr+d/k/h9UlkkU8=
ARC-Authentication-Results: i=1; mx.zohomail.com;
 dkim=pass  header.i=beaver-labs.com;
 spf=pass  smtp.mailfrom=edk@HIDDEN;
 dmarc=pass header.from=<edk@HIDDEN> header.from=<edk@HIDDEN>
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1592573853; 
 s=zoho; d=beaver-labs.com; i=edk@HIDDEN;
 h=From:To:Subject:Message-ID:Date:MIME-Version:Content-Type;
 bh=feJlwaIjKrBPTOhA/sW7QlNiTfJ/L5w4I06ONmvU0co=;
 b=St6/tWCL4fHRtfvaZ56Qg2E7D45zSTvxmCmWVwgMN2zmoFPAfNFRL0+cGZuqS7dR
 G7SnrIIwdkZruB4KhVpr2prM3tFEEsOLYfu10C9xQdHKZQQYx07k5SYUaZ0scPfto3w
 O+UZzl0DWuDOVqFZhmqRxUJlTw6gLLyNVLthHr90=
Received: from alice.lan (lfbn-idf1-1-1299-119.w90-79.abo.wanadoo.fr
 [90.79.23.119]) by mx.zohomail.com
 with SMTPS id 1592573852565962.7031510993095;
 Fri, 19 Jun 2020 06:37:32 -0700 (PDT)
User-agent: mu4e 1.4.6; emacs 26.3
From: Edouard Klein <edk@HIDDEN>
Message-ID: <87r1ub18iu.fsf@HIDDEN>
Date: Fri, 19 Jun 2020 15:37:29 +0200
MIME-Version: 1.0
Content-Type: text/plain
X-ZohoMailClient: External
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


* gnu/packages/scheme-xyz.scm: (gerbil-denatting): New variable.
---
 gnu/packages/scheme-xyz.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/scheme-xyz.scm b/gnu/packages/scheme-xyz.scm
index 8b553848ee..39991c5807 100644
--- a/gnu/packages/scheme-xyz.scm
+++ b/gnu/packages/scheme-xyz.scm
@@ -26,3 +26,37 @@ to a string.  It takes one object as the first argument and accepts a variable
 number of optional arguments, unlike the procedure called FORMAT.")
     (home-page "https://github.com/hckiang/srfi-54")
     (license license:lgpl3)))
+
+(define-public gerbil-denatting
+  (package
+    (name "gerbil-denatting")
+    (version "0.0.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/edouardklein/denatting.git")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0m8nlqjs1bqhs7cqdf9ddj9hnm9xfmngzd5iawc0fz3qamsw1wyp"))))
+    (propagated-inputs
+     `(("gerbil" ,gerbil)
+       ("xlsxio" ,xlsxio)
+       ("gerbil-srfi-54" ,gerbil-srfi-54)))
+    (build-system gerbil-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'wrap 'rewrap ;Allow denat to find xlsxio's shared object
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((denat (string-append (assoc-ref outputs "out") "/bin/denat"))
+                   (xlsxio (string-append (assoc-ref inputs "xlsxio") "/lib")))
+               (wrap-program denat `("LD_LIBRARY_PATH" = (,xlsxio)))))))))
+    (synopsis "Find who is hiding behind a mobile IPv4")
+    (description "Denatting is a Europol-backed project whose goal is to allow
+investigators in participating countries to discover which Internet Service Provider
+(ISP) client is responsible for a set of network events as reported by content
+providers within the legal framework of a judicial investigation.")
+    (home-page "https://gitlab.com/edouardklein/denatting")
+    (license license:agpl3+)))
-- 
2.26.2

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] Acknowledgement (Adding the Gerbil scheme language, build system and two packages)
Resent-From: edk@HIDDEN
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 24 Jul 2020 18:11:01 +0000
Resent-Message-ID: <handler.41949.B41949.159561421710611 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.159561421710611
          (code B ref 41949); Fri, 24 Jul 2020 18:11:01 +0000
Received: (at 41949) by debbugs.gnu.org; 24 Jul 2020 18:10:17 +0000
Received: from localhost ([127.0.0.1]:48713 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jz29B-0002l4-7m
	for submit <at> debbugs.gnu.org; Fri, 24 Jul 2020 14:10:17 -0400
Received: from sender4-op-o11.zoho.com ([136.143.188.11]:17177)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <edk@HIDDEN>) id 1jz29A-0002kw-2v
 for 41949 <at> debbugs.gnu.org; Fri, 24 Jul 2020 14:10:16 -0400
ARC-Seal: i=1; a=rsa-sha256; t=1595614214; cv=none; 
 d=zohomail.com; s=zohoarc; 
 b=mZpBi234+mfr9Fa77WjjPdw0xFQfaIFoXZtRCbW2iD8ZKxtWW9mDrsd/NBi7ZuU4RQ6YYbhyqL4Ru8IL6qlytpp3uMXWeAq38Mxj50WTa9h9ZZyFBJunFVCS9MbF+E1w8zb7L+95BUyNehVkJ+414xAPZmEZ+99MJT8CayfzR9s=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc; t=1595614214;
 h=Content-Type:Date:From:In-Reply-To:MIME-Version:Message-ID:References:Subject:To;
 bh=MBHvOcCkhPiGlbrv04gsKzxif0Vx6Wxeh7AvVI6FRrk=; 
 b=GUQv1DwoNONfn5386Zl69ldKBLDitTPpKzM/U/3eDg2S2kKwqCZVmyYVlgaI4Wx6Pzi4WtWD0B2aCDSkgDuFRxRV48hoJlzYe1iXgu2D5Ix5Bbe+e+kePlxn9ZrN9/xnq7StVlKskZ2cUfpKqAS5PBjrrUNF/UZNF7EGmFuNgC0=
ARC-Authentication-Results: i=1; mx.zohomail.com;
 dkim=pass  header.i=beaver-labs.com;
 spf=pass  smtp.mailfrom=edk@HIDDEN;
 dmarc=pass header.from=<edk@HIDDEN> header.from=<edk@HIDDEN>
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1595614214; 
 s=zoho; d=beaver-labs.com; i=edk@HIDDEN;
 h=References:From:To:Subject:In-reply-to:Message-ID:Date:MIME-Version:Content-Type;
 bh=MBHvOcCkhPiGlbrv04gsKzxif0Vx6Wxeh7AvVI6FRrk=;
 b=TUUqeCRZeu+AQDvwPECbBX9mXKCOciREwWcGHQi0gJkhEvK8nVXC/zTrElXda0rC
 CnVa7OWdNcaOyKL1EKIbeXmCN6zgzVliz3L/p8wJQo+EGhJS+0XPeTmstAu/HiiW2eD
 +1QeO5Tw/GD/cIiSZDoLuU2hBE8c9cmB9C3c5EXA=
Received: from Rasoir (lfbn-idf1-1-1299-119.w90-79.abo.wanadoo.fr
 [90.79.23.119]) by mx.zohomail.com
 with SMTPS id 1595614208658102.889639745502;
 Fri, 24 Jul 2020 11:10:08 -0700 (PDT)
References: <875zbn2o5i.fsf@HIDDEN>
 <handler.41949.B.159257250323165.ack <at> debbugs.gnu.org>
User-agent: mu4e 1.4.4; emacs 26.3
From: edk@HIDDEN
In-reply-to: <handler.41949.B.159257250323165.ack <at> debbugs.gnu.org>
Message-ID: <878sf8pyx7.fsf@HIDDEN>
Date: Fri, 24 Jul 2020 20:09:56 +0200
MIME-Version: 1.0
Content-Type: text/plain
X-ZohoMailClient: External
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

Dear Guix Community,

May I please get a go/no-go on these patches ?

I understand more work may be needed, but I need to know if there is a
chance they will ever make it into master, because I'm switching jobs at
the end of August and I won't have any free time left to hack on Guix,
so If they're not merged by then, they never will.

Thanks in advance, and my apologies if this seems pushy, it's just that
I'm running out or time.

Cheers,

Edouard.


GNU bug Tracking System writes:

> Thank you for filing a new bug report with debbugs.gnu.org.
>
> This is an automatically generated reply to let you know your message
> has been received.
>
> Your message is being forwarded to the package maintainers and other
> interested parties for their attention; they will reply in due course.
>
> Your message has been sent to the package maintainer(s):
>  guix-patches@HIDDEN
>
> If you wish to submit further information on this problem, please
> send it to 41949 <at> debbugs.gnu.org.
>
> Please do not send mail to help-debbugs@HIDDEN unless you wish
> to report a problem with the Bug-tracking system.

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] Acknowledgement (Adding the Gerbil scheme language, build system and two packages)
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 02 Sep 2020 15:04:01 +0000
Resent-Message-ID: <handler.41949.B41949.159905902910906 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: edk@HIDDEN
Cc: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.159905902910906
          (code B ref 41949); Wed, 02 Sep 2020 15:04:01 +0000
Received: (at 41949) by debbugs.gnu.org; 2 Sep 2020 15:03:49 +0000
Received: from localhost ([127.0.0.1]:60308 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1kDUIf-0002pq-2Y
	for submit <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:03:49 -0400
Received: from eggs.gnu.org ([209.51.188.92]:59030)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1kDUIc-0002pa-GL
 for 41949 <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:03:48 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:46654)
 by eggs.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@HIDDEN>)
 id 1kDUIW-0006Sf-TX; Wed, 02 Sep 2020 11:03:40 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=54444 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1kDUIW-0007uC-GI; Wed, 02 Sep 2020 11:03:40 -0400
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
References: <875zbn2o5i.fsf@HIDDEN>
 <handler.41949.B.159257250323165.ack <at> debbugs.gnu.org>
 <878sf8pyx7.fsf@HIDDEN>
Date: Wed, 02 Sep 2020 17:03:37 +0200
In-Reply-To: <878sf8pyx7.fsf@HIDDEN> (edk@HIDDEN's message of
 "Fri, 24 Jul 2020 20:09:56 +0200")
Message-ID: <87blio5igm.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Score: -2.3 (--)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Hi!

edk@HIDDEN skribis:

> May I please get a go/no-go on these patches ?

I=E2=80=99m looking into it!

> I understand more work may be needed, but I need to know if there is a
> chance they will ever make it into master, because I'm switching jobs at
> the end of August and I won't have any free time left to hack on Guix,
> so If they're not merged by then, they never will.
>
> Thanks in advance, and my apologies if this seems pushy, it's just that
> I'm running out or time.

Understood, and apologies it took so long.  I guess many of us took some
time off over the last couple of months, and then your patch set was
already at the bottom of the list when everybody came back.  Sorry!

Anyway, patches pushed & feedback coming soon!

Ludo=E2=80=99.

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 1/5] gnu: Add gerbil
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 02 Sep 2020 15:05:01 +0000
Resent-Message-ID: <handler.41949.B41949.159905909511010 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: Edouard Klein <edk@HIDDEN>
Cc: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.159905909511010
          (code B ref 41949); Wed, 02 Sep 2020 15:05:01 +0000
Received: (at 41949) by debbugs.gnu.org; 2 Sep 2020 15:04:55 +0000
Received: from localhost ([127.0.0.1]:60312 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1kDUJi-0002rW-H5
	for submit <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:04:55 -0400
Received: from eggs.gnu.org ([209.51.188.92]:59306)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1kDUJh-0002rK-LW
 for 41949 <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:04:53 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:46661)
 by eggs.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@HIDDEN>)
 id 1kDUJa-0006xx-5z; Wed, 02 Sep 2020 11:04:47 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=54450 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1kDUJW-00040L-15; Wed, 02 Sep 2020 11:04:42 -0400
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
References: <875zbn2o5i.fsf@HIDDEN> <87366r2n6n.fsf@HIDDEN>
Date: Wed, 02 Sep 2020 17:04:39 +0200
In-Reply-To: <87366r2n6n.fsf@HIDDEN> (Edouard Klein's message of "Fri, 19
 Jun 2020 15:35:29 +0200")
Message-ID: <874kog5iew.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -2.3 (--)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Edouard Klein <edk@HIDDEN> skribis:

> * gnu/packages/scheme.scm: (gerbil): New variable.

Another Scheme, yay!  :-)

Applied!

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 2/5] gnu: Add xlsxio
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 02 Sep 2020 15:06:02 +0000
Resent-Message-ID: <handler.41949.B41949.159905910411063 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: Edouard Klein <edk@HIDDEN>
Cc: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.159905910411063
          (code B ref 41949); Wed, 02 Sep 2020 15:06:02 +0000
Received: (at 41949) by debbugs.gnu.org; 2 Sep 2020 15:05:04 +0000
Received: from localhost ([127.0.0.1]:60316 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1kDUJs-0002sM-Bc
	for submit <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:05:04 -0400
Received: from eggs.gnu.org ([209.51.188.92]:59326)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1kDUJr-0002rh-1r
 for 41949 <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:05:03 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:46664)
 by eggs.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@HIDDEN>)
 id 1kDUJl-0006z0-S2; Wed, 02 Sep 2020 11:04:57 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=54456 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1kDUJl-0005an-8E; Wed, 02 Sep 2020 11:04:57 -0400
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
References: <875zbn2o5i.fsf@HIDDEN> <87zh8z18lb.fsf@HIDDEN>
Date: Wed, 02 Sep 2020 17:04:54 +0200
In-Reply-To: <87zh8z18lb.fsf@HIDDEN> (Edouard Klein's message of "Fri, 19
 Jun 2020 15:36:00 +0200")
Message-ID: <87zh6843u1.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -2.3 (--)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Edouard Klein <edk@HIDDEN> skribis:

> * gnu/packages/xml.scm: (xlsxio): New variable.

Applied, thanks!

Message sent to guix-patches@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: [bug#41949] [PATCH 3/5] guix: Add gerbil-build-system
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 02 Sep 2020 15:11:02 +0000
Resent-Message-ID: <handler.41949.B41949.159905942111529 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 41949
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: 
To: Edouard Klein <edk@HIDDEN>
Cc: 41949 <at> debbugs.gnu.org
Received: via spool by 41949-submit <at> debbugs.gnu.org id=B41949.159905942111529
          (code B ref 41949); Wed, 02 Sep 2020 15:11:02 +0000
Received: (at 41949) by debbugs.gnu.org; 2 Sep 2020 15:10:21 +0000
Received: from localhost ([127.0.0.1]:60330 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1kDUOy-0002zt-L1
	for submit <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:10:20 -0400
Received: from eggs.gnu.org ([209.51.188.92]:60670)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1kDUOw-0002zd-OP
 for 41949 <at> debbugs.gnu.org; Wed, 02 Sep 2020 11:10:19 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:46727)
 by eggs.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@HIDDEN>)
 id 1kDUOr-0007qA-7c; Wed, 02 Sep 2020 11:10:13 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=54458 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1kDUOq-0006Mh-Jv; Wed, 02 Sep 2020 11:10:12 -0400
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
References: <875zbn2o5i.fsf@HIDDEN> <87wo4318kn.fsf@HIDDEN>
Date: Wed, 02 Sep 2020 17:10:09 +0200
In-Reply-To: <87wo4318kn.fsf@HIDDEN> (Edouard Klein's message of "Fri, 19
 Jun 2020 15:36:24 +0200")
Message-ID: <87tuwg43la.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Score: -2.3 (--)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Edouard Klein <edk@HIDDEN> skribis:

> * guix/build-system/gerbil.scm: New file.
> (%gerbil-build-system-modules): New variable.
> (gerbil-build): New variable
> (gerbil-build-system): New variable
>
> * guix/build/gerbil-build-system.scm: New file.
> (%standard-phases): New variable.
> (gerbil-build): New variable.

[...]

> +;; Gerbil's build system and package management is documented at
> +;; https://cons.io/guide/package-manager.html
> +;; https://cons.io/guide/build.html
> +;; https://cons.io/guide/env-vars.html
> +;;
> +;; The compiler is writing its output in the directory
> +;; pointed to by GERBIL_PATH (or ~/.gerbil by default).
> +;;
> +;; Every package is supposed to have a build.ss script
> +;; whose default action (when called with no argument)
> +;; is to compile the package.
> +;;
> +;; The GERBIL_LOADPATH env variable tells gerbil's runtime
> +;; where it can find its loadable code.
> +;;
> +;; GERBIL_HOME tells gerbil where to find its runtime
> +;; and standard library
> +;;
> +;; This build system therefore just
> +;; - makes GERBIL_PATH point to the output directory in the store,
> +;; - makes GERBIL_LOADPATH point to the lib subdir
> +;; of all the gerbil inputs,
> +;; - calls ./build.ss,
> +;; - wrap any executable with GERBIL_LOADPATH set the the lib
> +;; subdir of all the gerbil inputs plus the lib subdir
> +;; of the current package's output, and with GERBIL_HOME
> +;; set to the lib directory of the 'gerbil' input
> +
> +(define (loadpath inputs)
> +  (string-join (map (match-lambda
> +                      ((_ . path)
> +                       (string-append path "/lib")))
> +                    ;; Restrict to inputs beginning with "gerbil-".
> +                    (filter (match-lambda
> +                              ((name . _)
> +                               (string-prefix? "gerbil-" name)))
> +                            inputs))
> +               ":"))

Shouldn=E2=80=99t =E2=80=98GERBIL_LOADPATH=E2=80=99 be in =E2=80=98native-s=
earch-paths=E2=80=99 of Gerbil, just
like =E2=80=98GUILE_LOAD_PATH=E2=80=99 for Guile?

In that case, you wouldn=E2=80=99t need this procedure.  Perhaps, you=E2=80=
=99d need to
adjust the convention, though, so that libraries are installed to
lib/gerbil/ instead of lib/gerbil-* (not strictly necessary because the
search path mechanism accepts regexps, as used for XML_CATALOG_FILES,
but somewhat =E2=80=9Cnicer=E2=80=9D IMO).

Thoughts?

We=E2=80=99d also need an item in doc/guix.texi under =E2=80=9CBuild System=
s=E2=80=9D.

Please let us know if you cannot work on it in the foreseeable future.
I might be able to make these changes if they make sense to you.

Thanks,
Ludo=E2=80=99.

Last modified: Wed, 2 Sep 2020 15:15:01 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.