ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add fatfsck-static.

Browse source 
* gnu/packages/disk.scm (dosfstools/static): New private variable.
(fatfsck/static): New variable.
This commit is contained in:
Marius Bakke 2016-11-03 09:43:30 +00:00
parent 64e43c674e
commit 51ad11ad62
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 36 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/disk.scm
View file

@ -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 @@ (define-module (gnu packages disk)
#: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 @@ (define-public dosfstools
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 ((src (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 src "/" 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 @command{fsck.fat}
and a @command{fsck.vfat} compatibility symlink for use in an initrd.")
(license (package-license dosfstools))))
(define-public sdparm
(package
(name "sdparm")