Commit | Line | Data |
---|---|---|
9208d0c1 LC |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> | |
3 | ;;; | |
4 | ;;; This file is part of GNU Guix. | |
5 | ;;; | |
6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
7 | ;;; under the terms of the GNU General Public License as published by | |
8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
9 | ;;; your option) any later version. | |
10 | ;;; | |
11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | ;;; GNU General Public License for more details. | |
15 | ;;; | |
16 | ;;; You should have received a copy of the GNU General Public License | |
17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
18 | ||
19 | (define-module (gnu packages photo) | |
20 | #:use-module (guix licenses) | |
21 | #:use-module (guix packages) | |
22 | #:use-module (guix download) | |
23 | #:use-module (guix build-system gnu) | |
24 | #:use-module (gnu packages pkg-config) | |
25 | #:use-module (gnu packages libusb) | |
26 | #:use-module (gnu packages autotools) | |
27 | #:use-module (gnu packages readline) | |
28 | #:use-module (gnu packages popt) | |
29 | #:use-module ((gnu packages base) #:select (tzdata))) | |
30 | ||
31 | (define-public libexif | |
32 | (package | |
33 | (name "libexif") | |
34 | (version "0.6.21") | |
35 | (source (origin | |
36 | (method url-fetch) | |
37 | (uri (string-append "mirror://sourceforge/libexif/libexif-" | |
38 | version ".tar.bz2")) | |
39 | (sha256 | |
40 | (base32 | |
41 | "06nlsibr3ylfwp28w8f5466l6drgrnydgxrm4jmxzrmk5svaxk8n")))) | |
42 | (build-system gnu-build-system) | |
43 | (home-page "http://libexif.sourceforge.net/") | |
44 | (synopsis "Read and manipulate EXIF data in digital photographs") | |
45 | (description | |
46 | "The libexif C library allows applications to read, edit, and save EXIF | |
47 | data as produced by digital cameras.") | |
48 | (license lgpl2.1+))) | |
49 | ||
50 | (define-public libgphoto2 | |
51 | (package | |
52 | (name "libgphoto2") | |
53 | (version "2.5.2") | |
54 | (source (origin | |
55 | (method url-fetch) | |
56 | (uri (string-append "mirror://sourceforge/gphoto/libgphoto2-" | |
57 | version ".tar.bz2")) | |
58 | (sha256 | |
59 | (base32 | |
60 | "0f1818l1vs5fbmrihzyv3qasddbqi3r01jik5crrxddwalsi2bd3")))) | |
61 | (build-system gnu-build-system) | |
62 | (native-inputs `(("pkg-config" ,pkg-config))) | |
63 | (inputs | |
64 | `(;; ("libjpeg-turbo" ,libjpeg-turbo) | |
65 | ("libtool" ,libtool) | |
66 | ("libusb" ,libusb))) | |
67 | (propagated-inputs | |
68 | `(;; The .pc refers to libexif. | |
69 | ("libexif" ,libexif))) | |
70 | (home-page "http://www.gphoto.org/proj/libgphoto2/") | |
71 | (synopsis "Accessing digital cameras") | |
72 | (description | |
73 | "This is the library backend for gphoto2. It contains the code for PTP, | |
74 | MTP, and other vendor specific protocols for controlling and transferring data | |
75 | from digital cameras.") | |
76 | ||
77 | ;; 'COPYING' says LGPLv2.1+, but in practices files are under LGPLv2+. | |
78 | (license lgpl2.1+))) | |
79 | ||
80 | (define-public gphoto2 | |
81 | (package | |
82 | (name "gphoto2") | |
83 | (version "2.5.2") | |
84 | (source (origin | |
85 | (method url-fetch) | |
86 | (uri (string-append "mirror://sourceforge/gphoto/gphoto2-" | |
87 | version ".tar.bz2")) | |
88 | (sha256 | |
89 | (base32 | |
90 | "16c8k1cxfypg7v5h8xi87grclw7a5ayaamn548ys3zkj727r5fcf")))) | |
91 | (build-system gnu-build-system) | |
92 | (native-inputs | |
93 | `(("pkg-config" ,pkg-config))) | |
94 | (inputs | |
95 | `(("readline" ,readline) | |
96 | ;; ("libjpeg-turbo" ,libjpeg-turbo) | |
97 | ("popt" ,popt) | |
98 | ("libexif" ,libexif) | |
99 | ("libgphoto2" ,libgphoto2))) | |
100 | (arguments | |
101 | '(#:phases (alist-cons-before | |
102 | 'check 'pre-check | |
103 | (lambda* (#:key inputs #:allow-other-keys) | |
104 | (substitute* (find-files "tests/data" "\\.param$") | |
105 | (("/usr/bin/env") | |
106 | (which "env")))) | |
107 | %standard-phases) | |
108 | ||
109 | ;; FIXME: There are 2 test failures, most likely related to the build | |
110 | ;; environment. | |
111 | #:tests? #f)) | |
112 | ||
113 | (home-page "http://www.gphoto.org/") | |
114 | (synopsis "Command-line tools to access digital cameras") | |
115 | (description | |
116 | "Gphoto2 is a set of command line utilities for manipulating a large | |
117 | number of different digital cameras. Through libgphoto2, it supports PTP, | |
118 | MTP, and much more.") | |
119 | ||
120 | ;; Files are typically under LGPLv2+, but 'COPYING' says GPLv2+. | |
121 | (license gpl2+))) |