From unknown Tue Aug 19 14:22:51 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27290: [PATCH] file-systems: Provide string->iso9660-uuid. Resent-From: Danny Milosavljevic Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 08 Jun 2017 19:28:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 27290 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 27290@debbugs.gnu.org Cc: Danny Milosavljevic X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.14969500445345 (code B ref -1); Thu, 08 Jun 2017 19:28:02 +0000 Received: (at submit) by debbugs.gnu.org; 8 Jun 2017 19:27:24 +0000 Received: from localhost ([127.0.0.1]:35472 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJ35X-0001O8-NE for submit@debbugs.gnu.org; Thu, 08 Jun 2017 15:27:23 -0400 Received: from eggs.gnu.org ([208.118.235.92]:37604) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJ35V-0001Ns-Jg for submit@debbugs.gnu.org; Thu, 08 Jun 2017 15:27:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJ35P-0003kl-0U for submit@debbugs.gnu.org; Thu, 08 Jun 2017 15:27:16 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50 autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:43649) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dJ35O-0003kd-TZ for submit@debbugs.gnu.org; Thu, 08 Jun 2017 15:27:14 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56790) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJ35K-0006Dr-Ml for guix-patches@gnu.org; Thu, 08 Jun 2017 15:27:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJ35A-0003ZQ-90 for guix-patches@gnu.org; Thu, 08 Jun 2017 15:27:04 -0400 Received: from dd1012.kasserver.com ([85.13.128.8]:52660) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dJ35A-0003Z1-1u for guix-patches@gnu.org; Thu, 08 Jun 2017 15:27:00 -0400 Received: from dayas.3.home (178.113.246.10.wireless.dyn.drei.com [178.113.246.10]) by dd1012.kasserver.com (Postfix) with ESMTPSA id B49271CA0925; Thu, 8 Jun 2017 21:26:57 +0200 (CEST) From: Danny Milosavljevic Date: Thu, 8 Jun 2017 21:26:52 +0200 Message-Id: <20170608192652.28420-1-dannym@scratchpost.org> X-Mailer: git-send-email 2.12.1 Tags: patch X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -5.0 (-----) 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: -5.0 (-----) * gnu/build/file-systems.scm (string->iso9660-uuid): New variable. Export it. --- gnu/build/file-systems.scm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 7737de3d0..1c733f43b 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -43,6 +43,7 @@ uuid->string string->uuid + string->iso9660-uuid bind-mount @@ -235,6 +236,27 @@ Trailing spaces are trimmed." ;; . +(define %iso9660-uuid-rx + ;; Y m d H M S ss + (make-regexp "^([[:digit:]]{4})-([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})$")) + +(define (string->iso9660-uuid str) + "Parse STR as a ISO9660 UUID (which is really a timestamp - see /dev/disk/by-uuid). +Return its contents as a 16-byte bytevector. Return #f if STR is not a valid +ISO9660 UUID representation." + (and=> (regexp-exec %iso9660-uuid-rx str) + (lambda (match) + (letrec-syntax ((match-numerals + (syntax-rules () + ((_ index (name rest ...) body) + (let ((name (match:substring match index))) + (match-numerals (+ 1 index) (rest ...) body))) + ((_ index () body) + body)))) + (match-numerals 1 (year month day hour minute second hundredths) + (string->utf8 (string-append year month day + hour minute second hundredths))))))) + (define (iso9660-superblock? sblock) "Return #t when SBLOCK is an iso9660 volume descriptor." (bytevector=? (sub-bytevector sblock 1 6) From unknown Tue Aug 19 14:22:51 2025 X-Loop: help-debbugs@gnu.org Subject: bug#27290: [PATCH] file-systems: Provide string->iso9660-uuid. Resent-From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 08 Jun 2017 21:21:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 27290 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Danny Milosavljevic Cc: 27290@debbugs.gnu.org Received: via spool by 27290-submit@debbugs.gnu.org id=B27290.149695684817509 (code B ref 27290); Thu, 08 Jun 2017 21:21:02 +0000 Received: (at 27290) by debbugs.gnu.org; 8 Jun 2017 21:20:48 +0000 Received: from localhost ([127.0.0.1]:35565 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJ4rH-0004YL-SP for submit@debbugs.gnu.org; Thu, 08 Jun 2017 17:20:48 -0400 Received: from eggs.gnu.org ([208.118.235.92]:37015) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJ4rF-0004Y7-Sh for 27290@debbugs.gnu.org; Thu, 08 Jun 2017 17:20:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJ4r5-0001UV-Fp for 27290@debbugs.gnu.org; Thu, 08 Jun 2017 17:20:38 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,T_RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:57937) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJ4r5-0001UR-CB; Thu, 08 Jun 2017 17:20:35 -0400 Received: from reverse-83.fdn.fr ([80.67.176.83]:50468 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1dJ4r4-00069M-O8; Thu, 08 Jun 2017 17:20:35 -0400 From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) References: <20170608192652.28420-1-dannym@scratchpost.org> X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 20 Prairial an 225 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-unknown-linux-gnu Date: Thu, 08 Jun 2017 23:20:32 +0200 In-Reply-To: <20170608192652.28420-1-dannym@scratchpost.org> (Danny Milosavljevic's message of "Thu, 8 Jun 2017 21:26:52 +0200") Message-ID: <87bmpynplr.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) 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: -5.0 (-----) Danny Milosavljevic skribis: > * gnu/build/file-systems.scm (string->iso9660-uuid): New variable. Export it. LGTM, thanks! Ludo'. From debbugs-submit-bounces@debbugs.gnu.org Fri Jun 09 07:28:13 2017 Received: (at control) by debbugs.gnu.org; 9 Jun 2017 11:28:13 +0000 Received: from localhost ([127.0.0.1]:36053 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJI5N-0007HA-7v for submit@debbugs.gnu.org; Fri, 09 Jun 2017 07:28:13 -0400 Received: from dd1012.kasserver.com ([85.13.128.8]:35906) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dJI5L-0007H1-Lz for control@debbugs.gnu.org; Fri, 09 Jun 2017 07:28:12 -0400 Received: from localhost (unknown [193.170.94.190]) by dd1012.kasserver.com (Postfix) with ESMTPSA id 498BE1CA0845 for ; Fri, 9 Jun 2017 13:28:10 +0200 (CEST) Date: Fri, 9 Jun 2017 13:28:06 +0200 From: Danny Milosavljevic To: Message-ID: <20170609132806.41f25a43@scratchpost.org> X-Mailer: Claws Mail 3.14.1 (GTK+ 2.24.31; x86_64-unknown-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Spam-Score: 1.3 (+) 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: close 27290 [...] Content analysis details: (1.3 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -0.7 RCVD_IN_DNSWL_LOW RBL: Sender listed at http://www.dnswl.org/, low trust [85.13.128.8 listed in list.dnswl.org] 1.8 MISSING_SUBJECT Missing Subject: header 0.2 NO_SUBJECT Extra score for no subject X-Debbugs-Envelope-To: control 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 (+) 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: close 27290 [...] Content analysis details: (1.3 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -0.7 RCVD_IN_DNSWL_LOW RBL: Sender listed at http://www.dnswl.org/, low trust [85.13.128.8 listed in list.dnswl.org] 1.8 MISSING_SUBJECT Missing Subject: header 0.2 NO_SUBJECT Extra score for no subject 0.0 TVD_SPACE_RATIO No description available. close 27290