ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Produce cpio archives with zeroed timestamps, etc.

Browse source 
* guix/cpio.scm (file->cpio-header*): New procedure.
* gnu/build/linux-initrd.scm (write-cpio-archive): Add #:file->header argument
  to 'cpio:write-cpio-archive'.
This commit is contained in:
Ludovic Courtès 2015-06-24 18:02:15 +02:00
parent 583323ca1d
commit eae5b3fff5
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/build/linux-initrd.scm
View file

@ -68,7 +68,8 @@ (define files
(call-with-output-file output (call-with-output-file output
(lambda (port) (lambda (port)
(cpio:write-cpio-archive files port))) (cpio:write-cpio-archive files port
#:file->header cpio:file->cpio-header*)))
(or (not compress?) (or (not compress?)
(and (zero? (system* gzip "--best" output)) (and (zero? (system* gzip "--best" output))

13
guix/cpio.scm
View file

@ -26,6 +26,7 @@ (define-module (guix cpio)
#:export (cpio-header? #:export (cpio-header?
make-cpio-header make-cpio-header
file->cpio-header file->cpio-header
file->cpio-header*
write-cpio-header write-cpio-header
read-cpio-header read-cpio-header
@ -174,6 +175,18 @@ (define* (file->cpio-header file #:optional (file-name file)
#:rdev (stat:rdev st) #:rdev (stat:rdev st)
#:name-size (string-length file-name)))) #:name-size (string-length file-name))))
(define* (file->cpio-header* file
#:optional (file-name file)
#:key (stat lstat))
"Similar to 'file->cpio-header', but return a header with a zeroed
modification time, inode number, UID/GID, etc. This allows archives to be
produced in a deterministic fashion."
(let ((st (stat file)))
(make-cpio-header #:mode (stat:mode st)
#:nlink (stat:nlink st)
#:size (stat:size st)
#:name-size (string-length file-name))))
(define %trailer (define %trailer
"TRAILER!!!") "TRAILER!!!")