From: Marius Bakke <mbakke@fastmail.com>
To: guix-devel@gnu.org
Cc: Marius Bakke <mbakke@fastmail.com>
Subject: [PATCH 1/6] gnu: Add fatfsck-static.
Date: Sat, 5 Nov 2016 12:55:06 +0000 [thread overview]
Message-ID: <20161105125511.29383-2-mbakke@fastmail.com> (raw)
In-Reply-To: <20161105125511.29383-1-mbakke@fastmail.com>
* gnu/packages/disk.scm (dosfstools/static): New private variable.
(fatfsck/static): New variable.
---
gnu/packages/disk.scm | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index db050d6..477c25a 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -6,6 +6,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
+;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -27,6 +28,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages docbook)
@@ -197,6 +199,40 @@ to recover data more efficiently by only reading the necessary blocks.")
which respectively make and check MS-DOS FAT file systems.")
(license license:gpl3+)))
+(define dosfstools/static
+ (static-package
+ (package (inherit dosfstools))))
+
+(define-public fatfsck/static
+ (package
+ (name "fatfsck-static")
+ (version (package-version dosfstools))
+ (build-system trivial-build-system)
+ (source #f)
+ (arguments
+ `(#:modules ((guix build utils))
+ #:builder
+ (begin
+ (use-modules (guix build utils))
+ (let ((source (string-append (assoc-ref %build-inputs "dosfstools")
+ "/sbin/"))
+ (exe "fsck.fat")
+ (bin (string-append (assoc-ref %outputs "out") "/sbin")))
+ (mkdir-p bin)
+ (with-directory-excursion bin
+ (copy-file (string-append source exe) exe)
+ (remove-store-references exe)
+ (chmod exe #o555)
+ ;; Add fsck.vfat symlink to match the Linux driver name.
+ (symlink exe "fsck.vfat")
+ #t)))))
+ (inputs `(("dosfstools" ,dosfstools/static)))
+ (home-page (package-home-page dosfstools))
+ (synopsis "Statically linked fsck.fat from dosfstools")
+ (description "This package provides a statically-linked fsck.fat
+and a fsck.vfat compatibility symlink for use in an initrd.")
+ (license (package-license dosfstools))))
+
(define-public sdparm
(package
(name "sdparm")
--
2.10.2
next prev parent reply other threads:[~2016-11-05 12:55 UTC|newest]
Thread overview: 46+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-11-05 12:55 Initial vfat support Marius Bakke
2016-11-05 12:55 ` Marius Bakke [this message]
2016-11-05 16:01 ` [PATCH 1/6] gnu: Add fatfsck-static Hartmut Goebel
2016-11-05 16:11 ` Marius Bakke
2016-11-06 21:42 ` Ludovic Courtès
2016-11-05 12:55 ` [PATCH 2/6] linux-initrd: Support FAT filesystems Marius Bakke
2016-11-06 21:44 ` Ludovic Courtès
2016-11-05 12:55 ` [PATCH 3/6] file-systems: Suppress fsck status completion bar Marius Bakke
2016-11-06 21:47 ` Ludovic Courtès
2016-11-07 0:00 ` Marius Bakke
2016-11-07 8:59 ` Ludovic Courtès
2016-11-07 9:29 ` Marius Bakke
2016-11-07 10:15 ` Danny Milosavljevic
2016-12-17 9:40 ` Marius Bakke
2016-12-18 10:57 ` Ludovic Courtès
2016-11-05 12:55 ` [PATCH 4/6] gnu: Add efivar Marius Bakke
2016-11-06 21:51 ` Ludovic Courtès
2016-11-05 12:55 ` [PATCH 5/6] gnu: Add efibootmgr Marius Bakke
2016-11-06 21:52 ` Ludovic Courtès
2016-11-05 12:55 ` [PATCH 6/6] gnu: Add grub-efi Marius Bakke
2016-11-05 18:58 ` Leo Famulari
2016-11-05 19:38 ` Marius Bakke
2016-11-06 22:00 ` Ludovic Courtès
2016-11-07 0:19 ` Marius Bakke
2016-11-07 9:00 ` Ludovic Courtès
2016-11-07 9:23 ` Marius Bakke
2016-12-16 17:09 ` Ludovic Courtès
2016-12-16 17:16 ` Danny Milosavljevic
2016-12-16 17:33 ` Marius Bakke
2016-12-18 10:54 ` Ludovic Courtès
2016-12-18 14:36 ` Marius Bakke
2016-12-19 10:48 ` Ludovic Courtès
2016-12-19 15:49 ` Marius Bakke
2016-12-19 21:16 ` Ludovic Courtès
2016-12-19 22:48 ` Marius Bakke
2016-12-20 13:53 ` Ludovic Courtès
2016-12-20 14:42 ` Marius Bakke
2016-12-20 16:53 ` Ludovic Courtès
2016-12-20 18:43 ` Marius Bakke
2016-12-21 9:12 ` Ludovic Courtès
2016-12-21 18:55 ` Danny Milosavljevic
2017-01-03 16:06 ` Ludovic Courtès
2017-01-03 16:16 ` Chris Marusich
2017-01-04 22:18 ` Ludovic Courtès
2016-12-17 9:38 ` Marius Bakke
2016-12-17 10:15 ` Marius Bakke
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20161105125511.29383-2-mbakke@fastmail.com \
--to=mbakke@fastmail.com \
--cc=guix-devel@gnu.org \
/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 external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.