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

gnu: Add exfat-utils.

Browse source 
* gnu/packages/mtools.scm (exfat-utils): New variable.
This commit is contained in:
Ludovic Courtès 2015-08-20 20:50:13 +02:00
parent 4a9999871c
commit 8f43d1ba99
1 changed files with 56 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
gnu/packages/mtools.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 John Darrington <jmd@gnu.org>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -20,7 +21,8 @@ (define-module (gnu packages mtools)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
#:use-module (guix build-system gnu)
#:use-module (gnu packages python))
(define-public mtools
(package
@ -43,3 +45,56 @@ (define-public mtools
also supports some FAT-specific features such as volume labels and
FAT-specific file attributes.")
(license gpl3+)))
(define-public exfat-utils
(package
(name "exfat-utils")
(version "1.1.1")
(source (origin
(method url-fetch)
(uri "https://docs.google.com/uc?export=download&\
id=0B7CLI-REKbE3UzNtSkRvdHBpdjQ")
(sha256
(base32
"0ck2snhlhp965bb9a4y1g2lpl979sw1yznm79wbavyv174458i66"))
(file-name (string-append name "-" version ".tar.gz"))))
(build-system gnu-build-system)
(native-inputs `(("scons" ,scons)))
(arguments
'(#:tests? #f ;no test suite
#:phases (modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'scons-propagate-environment
(lambda _
;; Modify the SConstruct file to arrange for
;; environment variables to be propagated.
(substitute* "SConstruct"
(("^env = Environment\\(")
"env = Environment(ENV=os.environ, "))))
(replace 'build
(lambda _
(zero? (system* "scons"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man8 (string-append out
"/share/man/man8")))
(mkdir-p bin)
(mkdir-p man8)
(for-each (lambda (file)
(copy-file
file
(string-append man8 "/"
(basename file))))
(find-files "." "\\.8$"))
(zero? (system* "scons" "install"
(string-append "DESTDIR="
bin)))))))))
(home-page "https://code.google.com/p/exfat")
(synopsis "Utilities to manipulate exFAT file systems")
(description
"This package provides an implementation of the exFAT file system,
including command-line tools to validate exFAT file systems and to create new
ones.")
(license gpl2+)))