futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

linux-initrd: Add special-file->cpio-header*.

Browse Source 
* guix/cpio.scm (special-file->cpio-header*): New public procedure.
This commit is contained in:
Danny Milosavljevic 2020-11-07 22:27:32 +01:00
parent b1dfc64552
commit 8e7c98963f
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
guix/cpio.scm
View File

@ -27,6 +27,7 @@
make-cpio-header make-cpio-header
file->cpio-header file->cpio-header
file->cpio-header* file->cpio-header*
special-file->cpio-header*
write-cpio-header write-cpio-header
read-cpio-header read-cpio-header
@ -190,6 +191,25 @@ produced in a deterministic fashion."
#:size (stat:size st) #:size (stat:size st)
#:name-size (string-length file-name)))) #:name-size (string-length file-name))))
(define* (special-file->cpio-header* file
device-type
device-major
device-minor
permission-bits
#:optional (file-name file))
"Create a character or block device header.
DEVICE-TYPE is either 'char-special or 'block-special.
The number of hard links is assumed to be 1."
(make-cpio-header #:mode (logior (match device-type
('block-special C_ISBLK)
('char-special C_ISCHR))
permission-bits)
#:nlink 1
#:rdev (device-number device-major device-minor)
#:name-size (string-length file-name)))
(define %trailer (define %trailer
"TRAILER!!!") "TRAILER!!!")