[PATCH] distro: Add Libjpeg.

[PATCH] distro: Add Libjpeg.

[Andreas Enge]

[-- Attachment #1.1: Type: text/plain, Size: 25 bytes --]

Patch attached.

Andreas

[-- Attachment #1.2: Type: text/html, Size: 946 bytes --]

[-- Attachment #2: 0001-distro-Add-Libjpeg.patch --]
[-- Type: text/x-patch, Size: 2956 bytes --]

From 7c3674c3878e46d40ad5f952df30216ec88aeae8 Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Thu, 17 Jan 2013 21:42:12 +0100
Subject: [PATCH] distro: Add Libjpeg.

* distro/packages/libjpeg.scm: New file.
* Makefile.am (MODULES): Add it.
---
 Makefile.am                 |    1 +
 distro/packages/libjpeg.scm |   45 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 distro/packages/libjpeg.scm

diff --git a/Makefile.am b/Makefile.am
index beba7df..f7ba777 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -81,6 +81,7 @@ MODULES =					\
   distro/packages/less.scm			\
   distro/packages/libffi.scm			\
   distro/packages/libidn.scm			\
+  distro/packages/libjpeg.scm			\
   distro/packages/libsigsegv.scm		\
   distro/packages/libunistring.scm		\
   distro/packages/libusb.scm			\
diff --git a/distro/packages/libjpeg.scm b/distro/packages/libjpeg.scm
new file mode 100644
index 0000000..5add26f
--- /dev/null
+++ b/distro/packages/libjpeg.scm
@@ -0,0 +1,45 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
+;;;
+;;; 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 (distro packages libjpeg)
+  #:use-module (distro)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu))
+
+(define-public libjpeg
+  (package
+   (name "libjpeg")
+   (version "9")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "http://www.ijg.org/files/jpegsrc.v"
+                   version ".tar.gz"))
+            (sha256 (base32
+                     "0dg5wxcx3cw0hal9gvivj97vid9z0s5sb1yvg55hpxmafn9rxqn4"))))
+   (build-system gnu-build-system)
+   (synopsis "Libjpeg, a library for handling JPEG files")
+   (description
+    "Libjpeg implements JPEG image encoding, decoding, and transcoding.
+JPEG is a standardized compression method for full-color and gray-scale
+images.
+The included programs provide conversion between the JPEG format and
+image files in PBMPLUS PPM/PGM, GIF, BMP, and Targa file formats.")
+   (license ijg)
+   (home-page "http://www.ijg.org/")))
-- 
1.7.10.4

Re: [PATCH] distro: Add Libjpeg.

[Ludovic Courtès]

Andreas Enge <andreas@enge.fr> skribis:

> From 7c3674c3878e46d40ad5f952df30216ec88aeae8 Mon Sep 17 00:00:00 2001
> From: Andreas Enge <andreas@enge.fr>
> Date: Thu, 17 Jan 2013 21:42:12 +0100
> Subject: [PATCH] distro: Add Libjpeg.
>
> * distro/packages/libjpeg.scm: New file.
> * Makefile.am (MODULES): Add it.

Likewise, feel free to commit if it builds.

> +            (uri (string-append "http://www.ijg.org/files/jpegsrc.v"
> +                   version ".tar.gz"))

Seems that you’re using tabs.  Please avoid them in Scheme source (using
spaces allows for copy/paste to a Guile REPL without triggering Readline
completion.)

Thanks!

Ludo’.

Re: [PATCH] distro: Add Libjpeg.

[Andreas Enge]

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

Am Donnerstag, 17. Januar 2013 schrieb Ludovic Courtès:
> > +            (uri (string-append "http://www.ijg.org/files/jpegsrc.v"
> > +                   version ".tar.gz"))
> Seems that you’re using tabs.  Please avoid them in Scheme source (using
> spaces allows for copy/paste to a Guile REPL without triggering Readline
> completion.)

No, I am using spaces, but probably my indentation is not orthodox. (Does 
"indent" handle scheme?)

Andreas

[-- Attachment #2: Type: text/html, Size: 2287 bytes --]