From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57391) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7RCz-0008ME-U0 for guix-patches@gnu.org; Sun, 07 May 2017 14:47:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7RCw-0005N4-Sa for guix-patches@gnu.org; Sun, 07 May 2017 14:47:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:34242) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d7RCw-0005My-Pa for guix-patches@gnu.org; Sun, 07 May 2017 14:47:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d7RCw-0004pa-JU for guix-patches@gnu.org; Sun, 07 May 2017 14:47:02 -0400 Subject: bug#26819: [PATCH] gnu: Add f3. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57280) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7RCH-0008Ep-6A for guix-patches@gnu.org; Sun, 07 May 2017 14:46:22 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7RCE-00051D-49 for guix-patches@gnu.org; Sun, 07 May 2017 14:46:21 -0400 Received: from mail-out.m-online.net ([212.18.0.9]:57434) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d7RCD-0004zp-UE for guix-patches@gnu.org; Sun, 07 May 2017 14:46:18 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 3wLZN76jntz1rg74 for ; Sun, 7 May 2017 20:46:15 +0200 (CEST) Received: from localhost (dynscan01.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 3wLZN74dPBz3jRBW for ; Sun, 7 May 2017 20:46:15 +0200 (CEST) Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan01.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id 2Zn7HLFpJ8RE for ; Sun, 7 May 2017 20:46:13 +0200 (CEST) Received: from hermia.goebel-consult.de (ppp-46-244-140-221.dynamic.mnet-online.de [46.244.140.221]) (using TLSv1 with cipher DHE-RSA-CAMELLIA256-SHA (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPS for ; Sun, 7 May 2017 20:46:13 +0200 (CEST) Received: from lenashee.goebel-consult.de (lenashee.goebel-consult.de [192.168.110.2]) by hermia.goebel-consult.de (Postfix) with ESMTP id 650F7602FD for ; Sun, 7 May 2017 22:42:00 +0200 (CEST) From: Hartmut Goebel Date: Sun, 7 May 2017 20:46:12 +0200 Message-Id: <1494182772-22001-1-git-send-email-h.goebel@crazy-compilers.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26819@debbugs.gnu.org * 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