GNU bug report logs

#41330 Patch to expose #:scheme-file-regexp in guile build system

PackageSource(s)Maintainer(s)
guix-patches PTS Buildd Popcon
Full log

Message #5 received at submit@debbugs.gnu.org (full text, mbox, reply):

Received: (at submit) by debbugs.gnu.org; 16 May 2020 16:35:55 +0000
From debbugs-submit-bounces@debbugs.gnu.org Sat May 16 12:35:55 2020
Received: from localhost ([127.0.0.1]:41577 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1jZzn0-0001El-T1
	for submit@debbugs.gnu.org; Sat, 16 May 2020 12:35:55 -0400
Received: from lists.gnu.org ([209.51.188.17]:50182)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <alex@komputilo.eu>) id 1jZx0m-0004yR-Op
 for submit@debbugs.gnu.org; Sat, 16 May 2020 09:37:57 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:54668)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <alex@komputilo.eu>) id 1jZx0m-0004eC-Ht
 for guix-patches@gnu.org; Sat, 16 May 2020 09:37:56 -0400
Received: from www140.your-server.de ([88.198.28.10]:55882)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <alex@komputilo.eu>) id 1jZx0k-00007G-TW
 for guix-patches@gnu.org; Sat, 16 May 2020 09:37:56 -0400
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed;
 d=komputilo.eu; s=default1904; h=Content-Type:MIME-Version:Message-ID:Date:
 Reply-To:Subject:To:From:Sender:Cc:Content-Transfer-Encoding:Content-ID:
 Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc
 :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:
 List-Subscribe:List-Post:List-Owner:List-Archive;
 bh=ky2caq247lFUUptaOb+p+/VGdGPwrxRaO5GQCbrZF78=; b=jEwTpFn25aumXQLMYvx9wxsy23
 usil5T+HHqyaIc0RLAN9Ue2DYGvoIRyBLKQ62bjtfQ1odciGFfG4EBBQRq5ncnfO9CCSzccJlk6FR
 mYxkd6pOI9HBzZKQ9luqYKuFxzJYYrDK4h7Q6MwjrkHoLyclkqvh/ADqFXj4CbPdhOKYkugkl//0t
 8iqDT9Jg5pl8pkmimBbc7LEv41tYxrIzFFNQjzOkgdYjM4H9LNhd9SPlGBkTLB32kTMD1HJSoiwOI
 MA6LpcE9ganyE+k3J9ngDWqTvBYH0i8MyNtNrKoQSVczXEpKn1Ve8Wj2LIS0Y7yMt1vxTrO7V9ChV
 hXf6Pg/Q==;
Received: from sslproxy05.your-server.de ([78.46.172.2])
 by www140.your-server.de with esmtpsa (TLSv1.3:TLS_AES_256_GCM_SHA384:256)
 (Exim 4.92.3) (envelope-from <alex@komputilo.eu>) id 1jZx0d-0003EM-Tx
 for guix-patches@gnu.org; Sat, 16 May 2020 15:37:47 +0200
Received: from [2a02:a03f:643c:5900:f200:b379:1817:18a7] (helo=watership)
 by sslproxy05.your-server.de with esmtpsa (TLSv1.3:TLS_AES_256_GCM_SHA384:256)
 (Exim 4.92) (envelope-from <alex@komputilo.eu>) id 1jZx0d-00045N-QP
 for guix-patches@gnu.org; Sat, 16 May 2020 15:37:47 +0200
User-agent: mu4e 1.2.0; emacs 26.3
From: Alex Sassmannshausen <alex@komputilo.eu>
To: "guix-patches\@gnu.org" <guix-patches@gnu.org>
Subject: Patch to expose #:scheme-file-regexp in guile build system
Date: Sat, 16 May 2020 15:37:47 +0200
Message-ID: <87lflsc85w.fsf@komputilo.eu>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Authenticated-Sender: alex@komputilo.eu
X-Virus-Scanned: Clear (ClamAV 0.102.2/25814/Sat May 16 14:13:59 2020)
Received-SPF: pass client-ip=88.198.28.10; envelope-from=alex@komputilo.eu;
 helo=www140.your-server.de
X-detected-operating-system: by eggs.gnu.org: First seen = 2020/05/16 09:37:48
X-ACL-Warn: Detected OS   = Linux 2.2.x-3.x (no timestamps) [generic] [fuzzy]
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, SPF_PASS=-0.001,
 URIBL_BLOCKED=0.001 autolearn=_AUTOLEARN
X-Spam_action: no action
X-Spam-Score: -1.4 (-)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Sat, 16 May 2020 12:35:54 -0400
X-BeenThere: debbugs-submit@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@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Reply-To: alex@komputilo.eu
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -2.4 (--)

[Message part 1 (text/plain, inline)]
Hello,

Please see proposition below.  Exposing this argument makes it possible
to only install specific scheme files in a project using the
guile-build-system.

WDYT?

Alex


[0001-build-system-guile-Expose-scheme-file-regexp.patch (text/x-diff, inline)]
From b798fef327c86b82f336e3fec0e96b791032f470 Mon Sep 17 00:00:00 2001
From: Alex Sassmannshausen <alex@komputilo.eu>
Date: Sat, 16 May 2020 15:32:45 +0200
Subject: [PATCH] build-system/guile: Expose #:scheme-file-regexp.

* guix/build-system/guile.scm (%scheme-file-regexp): New variable.
  (guile-build): Accept #:scheme-file-regexp and pass it on to builder.
---
 guix/build-system/guile.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 3693014694..45e735b987 100644
--- a/guix/build-system/guile.scm
+++ b/guix/build-system/guile.scm
@@ -29,6 +29,10 @@
   #:export (%guile-build-system-modules
             guile-build-system))
 
+(define %scheme-file-regexp
+  ;; Regexp to match Scheme files.
+  "\\.(scm|sls)$")
+
 (define %guile-build-system-modules
   ;; Build-side modules imported by default.
   `((guix build guile-build-system)
@@ -80,6 +84,7 @@
                       (system (%current-system))
                       (source-directory ".")
                       not-compiled-file-regexp
+                      (scheme-file-regexp %scheme-file-regexp)
                       (compile-flags %compile-flags)
                       (imported-modules %guile-build-system-modules)
                       (modules '((guix build guile-build-system)
@@ -97,6 +102,7 @@
                                 (source
                                  source))
                     #:source-directory ,source-directory
+                    #:scheme-file-regexp ,scheme-file-regexp
                     #:not-compiled-file-regexp ,not-compiled-file-regexp
                     #:compile-flags ,compile-flags
                     #:phases ,phases
-- 
2.23.0

Send a report that this bug log contains spam.

debbugs.gnu.org maintainers <help-debbugs@gnu.org>. Last modified: Tue Nov 5 04:15:37 2024; Machine Name: wallace-server

GNU bug tracking system

Debbugs is free software and licensed under the terms of the GNU Public License version 2. The current version can be obtained from https://bugs.debian.org/debbugs-source/.

Copyright © 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson, 2005-2017 Don Armstrong, and many other contributors.