From: Tobias Geerinckx-Rice via Guix-patches via <guix-patches@gnu.org>
To: 38860@debbugs.gnu.org
Subject: [bug#38860] [PATCH 4/7] gnu: Add jfs_fsck-static.
Date: Thu, 2 Jan 2020 01:38:59 +0100 [thread overview]
Message-ID: <20200102003902.15205-4-me@tobias.gr> (raw)
In-Reply-To: <20200102003902.15205-1-me@tobias.gr>
* 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 3a8848b3ad..a3dc993055 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")
--
2.23.0
next prev parent reply other threads:[~2020-01-02 0:40 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-01-02 0:27 [bug#38860] Support JFS! Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:38 ` [bug#38860] [PATCH 1/7] file-systems: Add support for JFS Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:38 ` [bug#38860] [PATCH 2/7] uuid: " Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:38 ` [bug#38860] [PATCH 3/7] gnu: Add jfsutils-static Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:38 ` Tobias Geerinckx-Rice via Guix-patches via [this message]
2020-01-02 0:39 ` [bug#38860] [PATCH 5/7] linux-initrd: Add support for JFS Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:39 ` [bug#38860] [PATCH 6/7] tests: install: Test a JFS root file system Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 0:39 ` [bug#38860] [PATCH 7/7] install: Add jfsutils to the installation image Tobias Geerinckx-Rice via Guix-patches via
2020-01-02 14:35 ` [bug#38860] Support JFS! Danny Milosavljevic
2020-01-03 12:56 ` bug#38860: " Tobias Geerinckx-Rice via Guix-patches via
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20200102003902.15205-4-me@tobias.gr \
--to=guix-patches@gnu.org \
--cc=38860@debbugs.gnu.org \
--cc=me@tobias.gr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).