tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-22 00:55:56 +02:00
Code Activity

image: Add fat32 support.

Browse Source 
* 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 <othacehe@gnu.org>
This commit is contained in:
Pavel Shlyak
2022-05-26 21:00:51 +03:00
committed by Mathieu Othacehe
parent 6169c582d1
commit 8b680b00d4
2 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/image.scm
+6 -2
View File
@@ -312,7 +312,9 @@ used in the image."
(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 @@ used in the image."
(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