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 <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
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 20 additions and 12 deletions

View file

@ -95,16 +95,18 @@ (define* (make-ext-image partition target root
(estimate-partition-size root)
size)))))))
(define* (make-vfat-image partition target root)
(define* (make-vfat-image partition target root fs-bits)
"Handle the creation of VFAT partition images. See 'make-partition-image'."
(let ((size (partition-size partition))
(label (partition-label partition)))
(invoke "fakeroot" "mkdosfs" "-n" label "-C" target
"-F" "16" "-S" "1024"
(size-in-kib
(if (eq? size 'guess)
(estimate-partition-size root)
size)))
(label (partition-label partition))
(flags (partition-flags partition)))
(apply invoke "fakeroot" "mkdosfs" "-n" label "-C" target
"-F" (number->string fs-bits)
(size-in-kib
(if (eq? size 'guess)
(estimate-partition-size root)
size))
(if (member 'esp flags) (list "-S" "1024") '()))
(for-each (lambda (file)
(unless (member file '("." ".."))
(invoke "mcopy" "-bsp" "-i" target
@ -120,8 +122,10 @@ (define* (make-partition-image partition-sexp target root)
(cond
((string-prefix? "ext" type)
(make-ext-image partition target root))
((string=? type "vfat")
(make-vfat-image partition target root))
((or (string=? type "vfat") (string=? type "fat16"))
(make-vfat-image partition target root 16))
((string=? type "fat32")
(make-vfat-image partition target root 32))
(else
(raise (condition
(&message

View file

@ -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