bug#26819: [PATCH] gnu: Add f3.

[Hartmut Goebel <h.goebel@crazy-compilers.com>]

* gnu/packages/disk.scm (f3): New variable.
---
 gnu/packages/disk.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index 9389527..2889509 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -337,3 +337,44 @@ project to detect and manipulate partition tables.  Optional file system tools
 permit managing file systems not included in libparted.")
     ;; The home page says GPLv2, but the source code says GPLv2+.
     (license license:gpl2+)))
+
+
+(define-public f3
+  (package
+    (name "f3")
+    (version "6.0")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "https://github.com/AltraMayor/f3/archive/"
+                          "v" version ".tar.gz"))
+      (file-name (string-append name "-" version ".tar.gz"))
+      (sha256
+       (base32
+        "1mgbzc1swvgil45md1336j0aqkmkhwmpxical0ln5g09b2qxsanp"))))
+    (build-system gnu-build-system)
+   (arguments
+    '(#:tests? #f ; no check target
+      #:make-flags (list "CC=gcc"
+                         (string-append "PREFIX=" %output))
+      #:phases
+      (modify-phases %standard-phases
+        (delete 'configure)
+        (add-before 'build 'fix-makefile
+          (lambda _
+            (substitute* "Makefile"
+              ((" -oroot -groot ") " ")
+              ;; also build and install experimental tools
+              (("^all: ") "all: $(EXPERIMENTAL_TARGETS) ")
+              (("^install: ") "install-all: ")
+              (("^install-experimental: ") "install: install-all ")))))))
+   (inputs
+    `(("eudev" ,eudev)
+      ("parted" ,parted)))
+    (home-page "http://oss.digirati.com.br/f3/")
+    (synopsis "Test real capacity of flash memory cards and such.")
+    (description "F3 (Fight Flash Fraud or Fight Fake Flash) tests the full
+capacity of a flash card (flash drive, flash disk, pendrive).  F3 writes to
+the card and then checks if can read it.  It will assure you haven't been sold
+a card with a smaller capacity than stated.")
+    (license license:gpl3)))
-- 
2.7.4