From 8b680b00d49bdd1064918ffd221ffbcc11ba902a Mon Sep 17 00:00:00 2001 From: Pavel Shlyak Date: Thu, 26 May 2022 21:00:51 +0300 Subject: image: Add fat32 support. * gnu/build/image.scm (make-vfat-image): Pass fs-bits as an argument and force 1kb logical sector size only if "ESP" flag is set. (make-partition-image): Add "fat32" partition type, support explicit "fat16" type with vfat alias. * gnu/system/image.scm (partition->dos-type partition): Return file system IDs for "fat16" and "fat32" partitions. (partition->gpt-type partition): Ditto. Signed-off-by: Mathieu Othacehe --- gnu/system/image.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'gnu/system/image.scm') diff --git a/gnu/system/image.scm b/gnu/system/image.scm index dd32e58c2d..f02f6e0b8c 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -312,7 +312,9 @@ (define (partition->dos-type partition) (cond ((member 'esp flags) "0xEF") ((string-prefix? "ext" file-system) "0x83") - ((string=? file-system "vfat") "0x0E") + ((or (string=? file-system "vfat") + (string=? file-system "fat16")) "0x0E") + ((string=? file-system "fat32") "0x0C") (else (raise (condition (&message @@ -329,7 +331,9 @@ (define (partition->gpt-type partition) (cond ((member 'esp flags) "U") ((string-prefix? "ext" file-system) "L") - ((string=? file-system "vfat") "F") + ((or (string=? file-system "vfat") + (string=? file-system "fat16") + (string=? file-system "fat32")) "F") (else (raise (condition (&message -- cgit v1.2.3