guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: guix-commits
Subject: 02/03: linux-initrd: Add special-file->cpio-header*.
Date: Sun, 22 Nov 2020 05:05:46 -0500 (EST)

dannym pushed a commit to branch master
in repository guix.

commit 8e7c98963f7e51b2ee9fd140f1aa59cf0f762a60
Author: Danny Milosavljevic <dannym@scratchpost.org>
AuthorDate: Sat Nov 7 22:27:32 2020 +0100

    linux-initrd: Add special-file->cpio-header*.
    
    * guix/cpio.scm (special-file->cpio-header*): New public procedure.
---
 guix/cpio.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/guix/cpio.scm b/guix/cpio.scm
index 5d38573..c9932f5 100644
--- a/guix/cpio.scm
+++ b/guix/cpio.scm
@@ -27,6 +27,7 @@
             make-cpio-header
             file->cpio-header
             file->cpio-header*
+            special-file->cpio-header*
             write-cpio-header
             read-cpio-header
 
@@ -190,6 +191,25 @@ produced in a deterministic fashion."
                       #:size (stat:size st)
                       #: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
   "TRAILER!!!")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]