[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
25/28: gnu: Add jfs_fsck-static.
From: |
guix-commits |
Subject: |
25/28: gnu: Add jfs_fsck-static. |
Date: |
Fri, 3 Jan 2020 07:54:47 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 378994459a1f5234edb2bf7773dc14dbf71a9420
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Tue Dec 31 01:22:22 2019 +0100
gnu: Add jfs_fsck-static.
* gnu/packages/file-systems.scm (jfs_fsck-static): New public variable.
---
gnu/packages/file-systems.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm
index 3a8848b..a3dc993 100644
--- a/gnu/packages/file-systems.scm
+++ b/gnu/packages/file-systems.scm
@@ -28,6 +28,7 @@
#: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 @@ transaction log.
`(("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")
- 15/28: gnu: drumkv1: Update to 0.9.12., (continued)
- 15/28: gnu: drumkv1: Update to 0.9.12., guix-commits, 2020/01/03
- 14/28: gnu: synthv1: Update to 0.9.12., guix-commits, 2020/01/03
- 22/28: file-systems: Add support for JFS., guix-commits, 2020/01/03
- 21/28: gnu: gloox: Update to 1.0.23., guix-commits, 2020/01/03
- 17/28: gnu: padthv1: Update to 0.9.12., guix-commits, 2020/01/03
- 18/28: gnu: qtractor: Update to 0.9.12., guix-commits, 2020/01/03
- 20/28: gnu: hexchat: Update to 2.14.3., guix-commits, 2020/01/03
- 24/28: gnu: Add jfsutils-static., guix-commits, 2020/01/03
- 27/28: tests: install: Test a JFS root file system., guix-commits, 2020/01/03
- 09/28: gnu: whois: Update to 5.5.4., guix-commits, 2020/01/03
- 25/28: gnu: Add jfs_fsck-static.,
guix-commits <=
- 19/28: gnu: tuxguitar: Update to 1.5.3., guix-commits, 2020/01/03
- 11/28: gnu: x42-plugins: Update to 20191215., guix-commits, 2020/01/03
- 26/28: linux-initrd: Add support for JFS., guix-commits, 2020/01/03
- 28/28: install: Add jfsutils to the installation image., guix-commits, 2020/01/03
- 23/28: uuid: Add support for JFS., guix-commits, 2020/01/03