gnu: bcachefs-tools: Restore mount.bcachefs shell script version.

* gnu/packages/file-systems.scm (bcachefs-tools): Add back the old
'promote-mount.bcachefs.sh, tweaked to remove the new symlink.
[inputs]: Add back coreutils-minimal, gawk, and util-linux.
This commit is contained in:
Tobias Geerinckx-Rice 2023-09-24 02:00:00 +02:00
parent 21363801ae
commit bd6af33dbf
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -619,7 +619,24 @@ (define-public bcachefs-tools
"not test_fsck and "
"not test_list and "
"not test_list_inodes and "
"not test_list_dirent"))))))))
"not test_list_dirent")))))
(add-after 'install 'promote-mount.bcachefs.sh
;; The (optional) mount.bcachefs requires rust:cargo.
;; This shell alternative does the job well enough for now.
(lambda* (#:key inputs #:allow-other-keys)
(define (whence file)
(dirname (search-input-file inputs file)))
(let ((mount (string-append #$output
"/sbin/mount.bcachefs")))
(delete-file mount) ; symlink to bcachefs
(copy-file "mount.bcachefs.sh" mount)
;; WRAP-SCRIPT causes bogus Insufficient arguments errors.
(wrap-program mount
`("PATH" ":" prefix
,(list (getcwd)
(whence "bin/tail")
(whence "bin/awk")
(whence "bin/mount"))))))))))
(native-inputs
(cons* pkg-config
;; For generating documentation with rst2man.
@ -640,7 +657,12 @@ (define-public bcachefs-tools
`(,util-linux "lib")
lz4
zlib
`(,zstd "lib")))
`(,zstd "lib")
;; Only for mount.bcachefs.sh.
coreutils-minimal
gawk
util-linux))
(home-page "https://bcachefs.org/")
(synopsis "Tools to create and manage bcachefs file systems")
(description