From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:35038) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1imoWx-00073Z-S8 for guix-patches@gnu.org; Wed, 01 Jan 2020 19:40:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1imoWw-0003vp-Rh for guix-patches@gnu.org; Wed, 01 Jan 2020 19:40:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:60076) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1imoWw-0003vN-OZ for guix-patches@gnu.org; Wed, 01 Jan 2020 19:40:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1imoWw-0003eP-ME for guix-patches@gnu.org; Wed, 01 Jan 2020 19:40:02 -0500 Subject: [bug#38860] [PATCH 2/7] uuid: Add support for JFS. Resent-Message-ID: Date: Thu, 2 Jan 2020 01:38:57 +0100 Message-Id: <20200102003902.15205-2-me@tobias.gr> In-Reply-To: <20200102003902.15205-1-me@tobias.gr> References: <20200102003902.15205-1-me@tobias.gr> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" Reply-to: Tobias Geerinckx-Rice , Tobias Geerinckx-Rice via Guix-patches From: Tobias Geerinckx-Rice via Guix-patches via To: 38860@debbugs.gnu.org * gnu/system/uuid.scm (string->jfs-uuid): New procedure. (%uuid-parsers, %uuid-printers): Add ‘jfs’ file system type. --- gnu/system/uuid.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm index e7a3a0439d..225959e2b7 100644 --- a/gnu/system/uuid.scm +++ b/gnu/system/uuid.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès ;;; Copyright © 2017 Danny Milosavljevic +;;; Copyright © 2019 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,6 +44,7 @@ string->ext4-uuid string->btrfs-uuid string->fat-uuid + string->jfs-uuid iso9660-uuid->string ;; XXX: For lack of a better place. @@ -202,6 +204,7 @@ ISO9660 UUID representation." (define string->ext3-uuid string->dce-uuid) (define string->ext4-uuid string->dce-uuid) (define string->btrfs-uuid string->dce-uuid) +(define string->jfs-uuid string->dce-uuid) (define-syntax vhashq (syntax-rules (=>) @@ -215,13 +218,13 @@ ISO9660 UUID representation." (define %uuid-parsers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => string->dce-uuid) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => string->dce-uuid) ('fat32 'fat16 'fat => string->fat-uuid) ('iso9660 => string->iso9660-uuid))) (define %uuid-printers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => dce-uuid->string) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => dce-uuid->string) ('iso9660 => iso9660-uuid->string) ('fat32 'fat16 'fat => fat-uuid->string))) -- 2.23.0