From: Pavel Shlyak <p.shlyak@pantherx.org>
To: Tobias Geerinckx-Rice <me@tobias.gr>
Cc: 55663@debbugs.gnu.org
Subject: [bug#55663] [PATCH] Image API: add FAT32 support
Date: Thu, 26 May 2022 23:54:45 +0300 [thread overview]
Message-ID: <DE6446E5-48C6-49A3-8372-7E1FC7DD7941@pantherx.org> (raw)
In-Reply-To: <87bkvk6tp0@nckx>
[-- Attachment #1: Type: text/plain, Size: 113 bytes --]
Thank you for a quick response!
I have changed it according to your recommendations. I hope it’s better now.
[-- Attachment #2: 0001-Image-API-support-FAT32-partitions.patch --]
[-- Type: application/octet-stream, Size: 2815 bytes --]
From 8128aa174f76646eedbf94c3f03cf1cff0f304d0 Mon Sep 17 00:00:00 2001
From: Pavel Shlyak <p.shlyak@pantherx.org>
Date: Thu, 26 May 2022 21:00:51 +0300
Subject: [PATCH] Image API: support FAT32 partitions
---
gnu/build/image.scm | 10 ++++++----
gnu/system/image.scm | 9 +++++++--
2 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/gnu/build/image.scm b/gnu/build/image.scm
index 3e8b94e2d6..d1398144a5 100644
--- a/gnu/build/image.scm
+++ b/gnu/build/image.scm
@@ -95,12 +95,12 @@ (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"
+ "-F" (number->string fs_bits) "-S" "1024"
(size-in-kib
(if (eq? size 'guess)
(estimate-partition-size root)
@@ -120,8 +120,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
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index dd32e58c2d..7e45f750d9 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -312,7 +312,8 @@ (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 +330,11 @@ (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
--
2.32.1 (Apple Git-133)
[-- Attachment #3: Type: text/plain, Size: 613 bytes --]
> 26 мая 2022 г., в 21:07, Tobias Geerinckx-Rice <me@tobias.gr> написал(а):
>
> Hi Pavel,
>
> Pavel Shlyak 写道:
>> I believe it is an important change as Raspberry PI (and I suppose some other boards) cannot boot with fat16 boot partitions.
>
> LGTM in principle.
>
> The FS_BITS argument should be a regular number. You can coerce it with number->string in the command line.
>
> On the subject of being explicit is good: we should add "fat16" type and treat "vfat" as a softly deprecated alias. But that can be done in a later patch.
>
> Kind regards,
>
> T G-R
next prev parent reply other threads:[~2022-05-26 20:55 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-05-26 18:02 [bug#55663] [PATCH] Image API: add FAT32 support Pavel Shlyak
2022-05-26 18:07 ` Tobias Geerinckx-Rice via Guix-patches via
2022-05-26 20:54 ` Pavel Shlyak [this message]
2022-05-29 11:46 ` Pavel Shlyak
2022-05-29 14:35 ` Pavel Shlyak
2022-05-30 7:01 ` Mathieu Othacehe
2022-05-30 9:01 ` Pavel Shlyak
2022-05-31 13:07 ` bug#55663: " Mathieu Othacehe
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=DE6446E5-48C6-49A3-8372-7E1FC7DD7941@pantherx.org \
--to=p.shlyak@pantherx.org \
--cc=55663@debbugs.gnu.org \
--cc=me@tobias.gr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.