me
/
guix
Archived
1
0
Fork 0
Code

gnu: e2fsck/static: Only copy e2fsck. 

* gnu/packages/linux.scm (e2fsck/static)[arguments]: Only copy e2fsck.
  [synopsis, description]: Adjust accordingly.
master
David Craven 2017-01-09 01:31:13 +01:00
parent f03168327f
commit 313880c73a
No known key found for this signature in database
GPG Key ID: C5E051C79C0BECDB
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/linux.scm
View File

@ -705,6 +705,8 @@ slabtop, and skill.")
(version (package-version e2fsprogs)) (version (package-version e2fsprogs))
(build-system trivial-build-system) (build-system trivial-build-system)
(source #f) (source #f)
(inputs
`(("e2fsprogs" ,e2fsprogs/static)))
(arguments (arguments
`(#:modules ((guix build utils)) `(#:modules ((guix build utils))
#:builder #:builder
@ -713,23 +715,18 @@ slabtop, and skill.")
(ice-9 ftw) (ice-9 ftw)
(srfi srfi-26)) (srfi srfi-26))
(let ((source (string-append (assoc-ref %build-inputs "e2fsprogs") (let ((e2fsck (string-append (assoc-ref %build-inputs "e2fsprogs")
"/sbin")) "/sbin/e2fsck"))
(bin (string-append (assoc-ref %outputs "out") "/sbin"))) (bin (string-append (assoc-ref %outputs "out") "/sbin")))
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(for-each (lambda (file) (copy-file e2fsck "e2fsck")
(copy-file (string-append source "/" file) (remove-store-references "e2fsck")
file) (chmod "e2fsck" #o555))))))
(remove-store-references file)
(chmod file #o555))
(scandir source (cut string-prefix? "fsck." <>))))))))
(inputs `(("e2fsprogs" ,e2fsprogs/static)))
(synopsis "Statically-linked fsck.* commands from e2fsprogs")
(description
"This package provides statically-linked command of fsck.ext[234] taken
from the e2fsprogs package. It is meant to be used in initrds.")
(home-page (package-home-page e2fsprogs)) (home-page (package-home-page e2fsprogs))
(synopsis "Statically-linked e2fsck command from e2fsprogs")
(description "This package provides statically-linked e2fsck command taken
from the e2fsprogs package. It is meant to be used in initrds.")
(license (package-license e2fsprogs)))) (license (package-license e2fsprogs))))
(define-public extundelete (define-public extundelete