From 0750452a98c83e92d155a8ec9710d57a427040b9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 10 Feb 2013 23:48:41 +0100
Subject: gnu: Add e2fsprogs.

* gnu/packages/linux.scm (e2fsprogs): New variable.
---
 gnu/packages/linux.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 4d51d8b310..58cddc0d1c 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -257,3 +257,42 @@ (define-public usbutils
     (description
      "Tools for working with USB devices, such as lsusb.")
     (license gpl2+)))
+
+(define-public e2fsprogs
+  (package
+    (name "e2fsprogs")
+    (version "1.42.7")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "mirror://sourceforge/e2fsprogs/e2fsprogs-"
+                                 version ".tar.gz"))
+             (sha256
+              (base32
+               "0ibkkvp6kan0hn0d1anq4n2md70j5gcm7mwna515w82xwyr02rfw"))))
+    (build-system gnu-build-system)
+    (inputs `(("util-linux" ,util-linux)
+              ("pkg-config" ,pkg-config)))
+    (arguments
+     '(#:phases (alist-cons-before
+                 'configure 'patch-shells
+                 (lambda _
+                   (substitute* "configure"
+                     (("/bin/sh (.*)parse-types.sh" _ dir)
+                      (string-append (which "sh") " " dir
+                                     "parse-types.sh")))
+                   (substitute* (find-files "." "^Makefile.in$")
+                     (("#!/bin/sh")
+                      (string-append "#!" (which "sh")))))
+                 %standard-phases)
+
+       ;; FIXME: Tests work by comparing the stdout/stderr of programs, that
+       ;; they fail because we get an extra line that says "Can't check if
+       ;; filesystem is mounted due to missing mtab file".
+       #:tests? #f))
+    (home-page "http://e2fsprogs.sourceforge.net/")
+    (synopsis "Tools for creating and checking ext2/ext3/ext4 filesystems")
+    (description
+     "This package provides tools for manipulating ext2/ext3/ext4 file systems.")
+    (license (list gpl2                           ; programs
+                   lgpl2.0                        ; libext2fs
+                   x11))))                        ; libuuid
-- 
cgit v1.2.3