TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: Add jfs_fsck-static.

Browse source 
* gnu/packages/file-systems.scm (jfs_fsck-static): New public variable.
This commit is contained in:
Tobias Geerinckx-Rice 2019-12-31 01:22:22 +01:00
parent 56dad973bc
commit 378994459a
No known key found for this signature in database
GPG key ID: D889B0F018C5493C
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/file-systems.scm
View file

@ -28,6 +28,7 @@ (define-module (gnu packages file-systems)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system linux-module)
#:use-module (guix build-system trivial)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages acl)
@ -154,6 +155,38 @@ (define-public jfsutils/static
`(("util-linux:static" ,util-linux "static")
,@(package-inputs jfsutils))))))
(define-public jfs_fsck/static
(package
(name "jfs_fsck-static")
(version (package-version jfsutils))
(source #f)
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils)
(ice-9 ftw)
(srfi srfi-26))
(let* ((jfsutils (assoc-ref %build-inputs "jfsutils"))
(fsck "jfs_fsck")
(out (assoc-ref %outputs "out"))
(sbin (string-append out "/sbin")))
(mkdir-p sbin)
(with-directory-excursion sbin
(install-file (string-append jfsutils "/sbin/" fsck)
".")
(remove-store-references fsck)
(chmod fsck #o555))
#t))))
(inputs
`(("jfsutils" ,jfsutils/static)))
(home-page (package-home-page jfsutils))
(synopsis "Statically-linked jfs_fsck command from jfsutils")
(description "This package provides statically-linked jfs_fsck command taken
from the jfsutils package. It is meant to be used in initrds.")
(license (package-license jfsutils))))
(define-public disorderfs
(package
(name "disorderfs")