guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Marius Bakke
Subject: bug#26819: [PATCH] gnu: Add f3.
Date: Mon, 08 May 2017 10:00:34 +0200
User-agent: Notmuch/0.24.1 (https://notmuchmail.org) Emacs/25.2.1 (x86_64-unknown-linux-gnu)

Hartmut Goebel <address@hidden> writes:

> * 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

Indentation is off here.

> +    '(#: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 ")))))))

Make sure this phase returns a #t.

> +   (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)))

I can't find any license version information in the source code. Unless
a version is explicitly mentioned in the source header, we default to
"or later".

Other than that LGTM.

Attachment: signature.asc
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]