bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Support UUIDs for FAT12.

Browse source 
* gnu/build/file-systems.scm (fat16-superblock?): Support FAT12.

Change-Id: Ia14899134e02bda54b0796efb0bc1c6f89e95c0d
Signed-off-by: Danny Milosavljevic <dannym@friendly-machines.com>
This commit is contained in:
Quentin Vincent 2025-06-15 07:35:04 +02:00 • committed by Danny Milosavljevic
parent e417692c4b
commit f6b65101dc
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/build/file-systems.scm
View file

@ -608,13 +608,16 @@ using the least destructive approach."
;;;
;;; FAT16 file systems.
;;; FAT16/FAT12 file systems.
;;;
(define (fat16-superblock? sblock)
"Return #t when SBLOCK is a fat16 boot record."
(bytevector=? (sub-bytevector sblock 54 8)
(string->utf8 "FAT16 ")))
"Return #t when SBLOCK is a fat16 or fat12 boot record."
(let ((boot-record (sub-bytevector sblock 54 8)))
(or (bytevector=? boot-record
(string->utf8 "FAT16 "))
(bytevector=? boot-record
(string->utf8 "FAT12 ")))))
(define (read-fat16-superblock device)
"Return the raw contents of DEVICE's fat16 superblock as a bytevector, or