[PATCH] gnu: Add sane-backends

[PATCH] gnu: Add sane-backends

[John Darrington]

* gnu/packages/scanner.scm: New file.
* gnu-system.am (gnu/packages/scanner.scm): Add it.
---
 gnu-system.am            |    1 +
 gnu/packages/scanner.scm |   49 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 gnu/packages/scanner.scm

diff --git a/gnu-system.am b/gnu-system.am
index c808c16..b8b5b2c 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -218,6 +218,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/ruby.scm				\
   gnu/packages/rush.scm				\
   gnu/packages/samba.scm			\
+  gnu/packages/scanner.scm			\
   gnu/packages/scheme.scm			\
   gnu/packages/screen.scm			\
   gnu/packages/scrot.scm			\
diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm
new file mode 100644
index 0000000..4a18ec3
--- /dev/null
+++ b/gnu/packages/scanner.scm
@@ -0,0 +1,49 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright 2014 John Darrington <jmd@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages scanner)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses)
+                #:renamer (symbol-prefix-proc 'license:)))
+
+(define-public sane-backends
+  (package
+    (name "sane-backends")
+    (version "1.0.24")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append 
+                   "http://fossies.org/linux/misc/" name "-" version ".tar.gz"))
+             ;; This is a private mirror.  The canonical download site is
+             ;; "https://alioth.debian.org/frs/download.php/file/3958/"
+             ;; but it seems not to work with gnutls atm
+             (sha256
+              (base32
+               "0ba68m6bzni54axjk15i51rya7hfsdliwvqyan5msl7iaid0iir7"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f)) ; It would seem that tests are not maintained
+    (home-page "http://www.sane-project.org")
+    (synopsis "Raster image scanner hardware API")
+    (description "SANE stands for \"Scanner Access Now Easy\" and is an API
+proving access to any raster image scanner hardware (flatbed scanner,
+hand-held scanner, video- and still-cameras, frame-grabbers, etc.)..")  
+    (license license:gpl2+))) ; plus linking exception
+
-- 
1.7.10.4

Re: [PATCH] gnu: Add sane-backends

[Ludovic Courtès]

John Darrington <jmd@gnu.org> skribis:

> * gnu/packages/scanner.scm: New file.
> * gnu-system.am (gnu/packages/scanner.scm): Add it.

Should be:

    * gnu-system.am (GNU_SYSTEM_MODULES): Add it.

> +  #:use-module ((guix licenses)
> +                #:renamer (symbol-prefix-proc 'license:)))

Use: #:prefix license: .

> +(define-public sane-backends
> +  (package
> +    (name "sane-backends")
> +    (version "1.0.24")
> +    (source (origin
> +             (method url-fetch)
> +             (uri (string-append 
> +                   "http://fossies.org/linux/misc/" name "-" version ".tar.gz"))
> +             ;; This is a private mirror.  The canonical download site is
> +             ;; "https://alioth.debian.org/frs/download.php/file/3958/"
> +             ;; but it seems not to work with gnutls atm

Indeed, I get 406 "Not Acceptable".  I’m not sure if this relates to
<http://bugs.gnu.org/18526>; could you open a bug?

In the meantime, can you put the two URLs, as in:

  (uri (list (string-append ...)
             (string-append ...)))

> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:tests? #f)) ; It would seem that tests are not maintained

What exactly is failing?  In the comment, please put facts on what’s
failing rather than guesses.  ;-)

> +    (home-page "http://www.sane-project.org")
> +    (synopsis "Raster image scanner hardware API")

Maybe “SANE hardware drivers”?

> +    (description "SANE stands for \"Scanner Access Now Easy\" and is an API
> +proving access to any raster image scanner hardware (flatbed scanner,
> +hand-held scanner, video- and still-cameras, frame-grabbers, etc.)..")  

Likewise, maybe state that this package provides the drivers.

Thanks,
Ludo’.

Re: [PATCH] gnu: Add sane-backends

[Ludovic Courtès]

ludo@gnu.org (Ludovic Courtès) skribis:

> John Darrington <jmd@gnu.org> skribis:

[...]

>> +             (uri (string-append 
>> +                   "http://fossies.org/linux/misc/" name "-" version ".tar.gz"))
>> +             ;; This is a private mirror.  The canonical download site is
>> +             ;; "https://alioth.debian.org/frs/download.php/file/3958/"
>> +             ;; but it seems not to work with gnutls atm
>
> Indeed, I get 406 "Not Acceptable".

A bit of investigation, and now commit 38bf090 fixes it.

Thanks,
Ludo’.

[PATCH] gnu: Add sane-backends

[John Darrington]

* gnu/packages/scanner.scm: New file.
* gnu-system.am (GNU_SYSTEM_MODULES): Add it.
---
 gnu-system.am            |    1 +
 gnu/packages/scanner.scm |   58 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 59 insertions(+)
 create mode 100644 gnu/packages/scanner.scm

diff --git a/gnu-system.am b/gnu-system.am
index c808c16..b8b5b2c 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -218,6 +218,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/ruby.scm				\
   gnu/packages/rush.scm				\
   gnu/packages/samba.scm			\
+  gnu/packages/scanner.scm			\
   gnu/packages/scheme.scm			\
   gnu/packages/screen.scm			\
   gnu/packages/scrot.scm			\
diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm
new file mode 100644
index 0000000..84d1dee
--- /dev/null
+++ b/gnu/packages/scanner.scm
@@ -0,0 +1,58 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright 2014 John Darrington <jmd@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages scanner)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses)
+                #:prefix licence:))
+
+(define-public sane-backends
+  (package
+    (name "sane-backends")
+    (version "1.0.24")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append 
+                   "https://alioth.debian.org/frs/download.php/file/3958/"
+                   name "-" version ".tar.gz"))
+             (sha256
+              (base32
+               "0ba68m6bzni54axjk15i51rya7hfsdliwvqyan5msl7iaid0iir7"))))
+    (build-system gnu-build-system)
+    (arguments
+      `(#:tests? #f)) 
+    ;; It would seem that tests are not maintained - fails with
+    ;; the following:
+    ;;
+    ;; < This page was last updated on Wed Jul 31 07:52:48 2013
+    ;; <  by sane-desc 3.5 from sane-backends 1.0.24git
+    ;; ---
+    ;; > This page was last updated on Sun Oct 19 15:41:39 2014
+    ;; >  by sane-desc 3.5 from sane-backends 1.0.24
+    ;; **** File generated for html-backends-split mode is different from reference
+    ;; Makefile:501: recipe for target 'check.local' failed
+    (home-page "http://www.sane-project.org")
+    (synopsis "Raster image scanner library and drivers")
+    (description "SANE stands for \"Scanner Access Now Easy\" and is an API
+proving access to any raster image scanner hardware (flatbed scanner,
+hand-held scanner, video- and still-cameras, frame-grabbers, etc.).  The
+package contains the library and drivers.")
+    (license licence:gpl2+))) ; plus linking exception
+
-- 
1.7.10.4

Re: [PATCH] gnu: Add sane-backends

[Ludovic Courtès]

John Darrington <jmd@gnu.org> skribis:

> +    ;; It would seem that tests are not maintained - fails with
> +    ;; the following:
> +    ;;
> +    ;; < This page was last updated on Wed Jul 31 07:52:48 2013
> +    ;; <  by sane-desc 3.5 from sane-backends 1.0.24git
> +    ;; ---
> +    ;; > This page was last updated on Sun Oct 19 15:41:39 2014
> +    ;; >  by sane-desc 3.5 from sane-backends 1.0.24
> +    ;; **** File generated for html-backends-split mode is different from reference
> +    ;; Makefile:501: recipe for target 'check.local' failed

Perhaps it would be worth trying to s/24git/24/ and see if it works.
WDYT?

Thanks,
Ludo’.

Re: [PATCH] gnu: Add sane-backends

[John Darrington]

[-- Attachment #1: Type: text/plain, Size: 1242 bytes --]

On Sun, Oct 19, 2014 at 07:44:28PM +0200, Ludovic Court??s wrote:
     John Darrington <jmd@gnu.org> skribis:
     
     > +    ;; It would seem that tests are not maintained - fails with
     > +    ;; the following:
     > +    ;;
     > +    ;; < This page was last updated on Wed Jul 31 07:52:48 2013
     > +    ;; <  by sane-desc 3.5 from sane-backends 1.0.24git
     > +    ;; ---
     > +    ;; > This page was last updated on Sun Oct 19 15:41:39 2014
     > +    ;; >  by sane-desc 3.5 from sane-backends 1.0.24
     > +    ;; **** File generated for html-backends-split mode is different from reference
     > +    ;; Makefile:501: recipe for target 'check.local' failed
     
     Perhaps it would be worth trying to s/24git/24/ and see if it works.
     WDYT?
     
Well presumably the date would have to be substituted too.

I wonder how much it is wise to second guess what the developers wanted.  Presumably 
upstream haven't run "make check" since Jul 31 2013, so it seems that they don't
consider it important.

J'
     

-- 
PGP Public key ID: 1024D/2DE827B3 
fingerprint = 8797 A26D 0854 2EAB 0285  A290 8A67 719C 2DE8 27B3
See http://sks-keyservers.net or any PGP keyserver for public key.


[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 198 bytes --]

Re: [PATCH] gnu: Add sane-backends

[Ludovic Courtès]

John Darrington <john@darrington.wattle.id.au> skribis:

> On Sun, Oct 19, 2014 at 07:44:28PM +0200, Ludovic Court??s wrote:
>      John Darrington <jmd@gnu.org> skribis:
>      
>      > +    ;; It would seem that tests are not maintained - fails with
>      > +    ;; the following:
>      > +    ;;
>      > +    ;; < This page was last updated on Wed Jul 31 07:52:48 2013
>      > +    ;; <  by sane-desc 3.5 from sane-backends 1.0.24git
>      > +    ;; ---
>      > +    ;; > This page was last updated on Sun Oct 19 15:41:39 2014
>      > +    ;; >  by sane-desc 3.5 from sane-backends 1.0.24
>      > +    ;; **** File generated for html-backends-split mode is different from reference
>      > +    ;; Makefile:501: recipe for target 'check.local' failed
>      
>      Perhaps it would be worth trying to s/24git/24/ and see if it works.
>      WDYT?
>      
> Well presumably the date would have to be substituted too.

Oh, right; I had overlooked that.

> I wonder how much it is wise to second guess what the developers wanted.  Presumably 
> upstream haven't run "make check" since Jul 31 2013, so it seems that they don't
> consider it important.

Yes, that makes sense.

OK to commit, then.

Thanks,
Ludo’.