diff options
| -rw-r--r-- | gnu/packages/mtools.scm | 57 |
1 files changed, 56 insertions, 1 deletions
diff --git a/gnu/packages/mtools.scm b/gnu/packages/mtools.scm index 0e418dcfb9..ca8af84fc3 100644 --- a/gnu/packages/mtools.scm +++ b/gnu/packages/mtools.scm @@ -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 @@ #: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 @@ or Unix system. It supports long file names and multiple disk formats. It 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+))) |