From debbugs-submit-bounces@debbugs.gnu.org Sat Jun 05 16:03:40 2021 Received: (at submit) by debbugs.gnu.org; 5 Jun 2021 20:03:40 +0000 Received: from localhost ([127.0.0.1]:50061 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpcWC-00078J-2g for submit@debbugs.gnu.org; Sat, 05 Jun 2021 16:03:40 -0400 Received: from lists.gnu.org ([209.51.188.17]:43686) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpcW9-00077d-5t for submit@debbugs.gnu.org; Sat, 05 Jun 2021 16:03:38 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:43778) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpboa-0005WC-Gm for guix-patches@gnu.org; Sat, 05 Jun 2021 15:18:36 -0400 Received: from h87-96-130-155.cust.a3fiber.se ([87.96.130.155]:53300 helo=mail.yoctocell.xyz) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpboY-0001DM-AB for guix-patches@gnu.org; Sat, 05 Jun 2021 15:18:36 -0400 From: Xinglu Chen DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=yoctocell.xyz; s=mail; t=1622920706; bh=q5fEmA04psi8qgMkGf8y88kSAPQlU28W6vnFwH7OnhE=; h=From:To:Subject:Date; b=TFCuSObIAPyy4GTTr9MR9HLrPxIxPDEBJ8Frlv+9hbWmMSACQES9cHyNjLIH25KKj uTA0wd8eJBb/0azJ0AGasUiLzqF6zfhSwLP+Z0r64M8VcEYVaqtAsvP6py0J5EgEov oSKEsw658fEHKpzn/3ldl/I3izZZ7hDkCDGlWsiE= To: guix-patches@gnu.org Subject: [PATCH] hg-download: Add helpers for defining packages. Message-Id: Date: Sat, 05 Jun 2021 21:18:26 +0200 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=87.96.130.155; envelope-from=public@yoctocell.xyz; helo=mail.yoctocell.xyz X-Spam_score_int: 30 X-Spam_score: 3.0 X-Spam_bar: +++ X-Spam_report: (3.0 / 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, FROM_SUSPICIOUS_NTLD=0.498, FROM_SUSPICIOUS_NTLD_FP=1.599, PDS_OTHER_BAD_TLD=1.997, RDNS_DYNAMIC=0.982, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-Spam-Score: 2.8 (++) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Hg followup to commit ee17a9e06e636400e3354796a42ac445dbcc8f96. * hg-download.scm (hg-version, hg-file-name): New procedures. --- guix/hg-download.scm | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) Content analysis details: (2.8 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.0 RCVD_IN_MSPIKE_H4 RBL: Very Good reputation (+4) [209.51.188.17 listed in wl.mailspike.net] -2.3 RCVD_IN_DNSWL_MED RBL: Sender listed at https://www.dnswl.org/, medium trust [209.51.188.17 listed in list.dnswl.org] 1.0 SPF_SOFTFAIL SPF: sender does not match SPF record (softfail) 2.0 PDS_OTHER_BAD_TLD Untrustworthy TLDs [URI: yoctocell.xyz (xyz)] -0.0 SPF_HELO_PASS SPF: HELO matches SPF record 1.6 FROM_SUSPICIOUS_NTLD_FP From abused NTLD 0.0 RCVD_IN_MSPIKE_WL Mailspike good senders 0.5 FROM_SUSPICIOUS_NTLD From abused NTLD X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.2 (/) Hg followup to commit ee17a9e06e636400e3354796a42ac445dbcc8f96. * hg-download.scm (hg-version, hg-file-name): New procedures. --- guix/hg-download.scm | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/guix/hg-download.scm b/guix/hg-download.scm index c6cee2dbb8..9f23e4c40d 100644 --- a/guix/hg-download.scm +++ b/guix/hg-download.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2014, 2015, 2016, 2017, 2019 Ludovic Court=C3=A8s ;;; Copyright =C2=A9 2016 Ricardo Wurmus +;;; Copyright =C2=A9 2021 Xinglu Chen ;;; ;;; This file is part of GNU Guix. ;;; @@ -34,7 +35,9 @@ hg-reference-changeset hg-reference-recursive? hg-predicate - hg-fetch)) + hg-fetch + hg-version + hg-file-name)) =20 ;;; Commentary: ;;; @@ -102,6 +105,23 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a= generic name if #f." #:recursive? #t #:guile-for-build guile))) =20 +(define (hg-version version revision changeset) + "Return the version string for packages using hg-download." + ;; hg-version is almost exclusively executed while modules are being loa= ded. + ;; This makes any errors hide their backtrace. Avoid the mysterious error + ;; "Value out of range 0 to N: 7" when the commit ID is too short, which + ;; can happen, for example, when the user swapped the revision and commit + ;; arguments by mistake. + (when (< (string-length changeset) 7) + (raise + (condition + (&message (message "hg-version: changeset ID unexpectedly short"))))) + (string-append version "-" revision "." (string-take changeset 7))) + +(define (hg-file-name name version) + "Return the file-name for packages using hg-download." + (string-append name "-" version "-checkout")) + (define (hg-file-list directory) "Evaluates to a list of files contained in the repository at path @var{directory}" base-commit: 9da90938c63208b7721276f8cefcdac82ba765f2 --=20 2.31.1 From debbugs-submit-bounces@debbugs.gnu.org Sat Jun 05 17:13:39 2021 Received: (at 48852-done) by debbugs.gnu.org; 5 Jun 2021 21:13:39 +0000 Received: from localhost ([127.0.0.1]:50184 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpdbu-0004mo-Td for submit@debbugs.gnu.org; Sat, 05 Jun 2021 17:13:39 -0400 Received: from eggs.gnu.org ([209.51.188.92]:38520) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpdbp-0004mX-Hv for 48852-done@debbugs.gnu.org; Sat, 05 Jun 2021 17:13:37 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:59326) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lpdbj-0008SZ-TZ; Sat, 05 Jun 2021 17:13:27 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=53900 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpdbj-0005k8-Ln; Sat, 05 Jun 2021 17:13:27 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Xinglu Chen Subject: Re: bug#48852: [PATCH] hg-download: Add helpers for defining packages. References: Date: Sat, 05 Jun 2021 23:13:26 +0200 In-Reply-To: (Xinglu Chen's message of "Sat, 05 Jun 2021 21:18:26 +0200") Message-ID: <87k0n8m2vd.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.3 (/) X-Debbugs-Envelope-To: 48852-done Cc: 48852-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.3 (-) Hi, Xinglu Chen skribis: > Hg followup to commit ee17a9e06e636400e3354796a42ac445dbcc8f96. > > * hg-download.scm (hg-version, hg-file-name): New procedures. Applied, thanks! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Sat Jun 05 17:17:26 2021 Received: (at 48852) by debbugs.gnu.org; 5 Jun 2021 21:17:26 +0000 Received: from localhost ([127.0.0.1]:50196 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpdfa-0004tY-Ir for submit@debbugs.gnu.org; Sat, 05 Jun 2021 17:17:26 -0400 Received: from eggs.gnu.org ([209.51.188.92]:39530) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lpdfZ-0004tJ-2T for 48852@debbugs.gnu.org; Sat, 05 Jun 2021 17:17:25 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:59476) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lpdfT-0002Vn-TL; Sat, 05 Jun 2021 17:17:19 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=53928 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpdfT-00065D-LI; Sat, 05 Jun 2021 17:17:19 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Xinglu Chen Subject: Re: bug#48852: [PATCH] hg-download: Add helpers for defining packages. References: Date: Sat, 05 Jun 2021 23:17:18 +0200 In-Reply-To: (Xinglu Chen's message of "Sat, 05 Jun 2021 21:18:26 +0200") Message-ID: <87fsxwm2ox.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 48852 Cc: 48852@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) I added the missing srfi-3[45] imports too. Ludo=E2=80=99. From unknown Sat Jun 21 03:19:13 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sun, 04 Jul 2021 11:24:09 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator