gnu/packages/libusb.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
   3 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
   5 ;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
   6 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org>
   8 ;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
   9 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  10 ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
  11 ;;;
  12 ;;; This file is part of GNU Guix.
  13 ;;;
  14 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  15 ;;; under the terms of the GNU General Public License as published by
  16 ;;; the Free Software Foundation; either version 3 of the License, or (at
  17 ;;; your option) any later version.
  18 ;;;
  19 ;;; GNU Guix is distributed in the hope that it will be useful, but
  20 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ;;; GNU General Public License for more details.
  23 ;;;
  24 ;;; You should have received a copy of the GNU General Public License
  25 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  26
  27 (define-module (gnu packages libusb)
  28   #:use-module (gnu packages)
  29   #:use-module ((guix licenses) #:prefix license:)
  30   #:use-module (guix packages)
  31   #:use-module (guix utils)
  32   #:use-module (guix download)
  33   #:use-module (guix git-download)
  34   #:use-module (guix build-system ant)
  35   #:use-module (guix build-system cmake)
  36   #:use-module (guix build-system gnu)
  37   #:use-module (guix build-system glib-or-gtk)
  38   #:use-module (guix build-system python)
  39   #:use-module (gnu packages autotools)
  40   #:use-module (gnu packages gnupg)
  41   #:use-module (gnu packages gtk)
  42   #:use-module (gnu packages java)
  43   #:use-module (gnu packages linux)
  44   #:use-module (gnu packages mp3)
  45   #:use-module (gnu packages pkg-config)
  46   #:use-module (gnu packages python)
  47   #:use-module (gnu packages python-xyz)
  48   #:use-module (gnu packages xiph))
  49
  50 (define-public libusb
  51   (package
  52     (name "libusb")
  53     (version "1.0.22")
  54     (source
  55      (origin
  56       (method url-fetch)
  57       (uri (string-append "mirror://sourceforge/libusb/libusb-1.0/"
  58                           "libusb-" version "/libusb-" version ".tar.bz2"))
  59       (sha256
  60        (base32
  61         "0mw1a5ss4alg37m6bd4k44v35xwrcwp5qm4s686q1nsgkbavkbkm"))))
  62     (build-system gnu-build-system)
  63
  64     ;; XXX: Enabling udev is now recommended, but eudev indirectly depends on
  65     ;; libusb.
  66     (arguments `(#:configure-flags '("--disable-udev")))
  67     ;; (inputs `(("eudev" ,eudev)))
  68
  69     (home-page "https://libusb.info")
  70     (synopsis "User-space USB library")
  71     (description
  72      "Libusb is a library that gives applications easy access to USB
  73 devices on various operating systems.")
  74     (license license:lgpl2.1+)))
  75
  76 (define-public libusb-compat
  77   (package
  78     (name "libusb-compat")
  79     (version "0.1.5")
  80     (source
  81      (origin
  82       (method url-fetch)
  83       (uri (string-append "mirror://sourceforge/libusb/"
  84                           name "-" (version-major+minor version) "/"
  85                           name "-" version "/"
  86                           name "-" version ".tar.bz2"))
  87       (sha256
  88        (base32
  89         "0nn5icrfm9lkhzw1xjvaks9bq3w6mjg86ggv3fn7kgi4nfvg8kj0"))))
  90     (build-system gnu-build-system)
  91     (native-inputs
  92      `(("pkg-config" ,pkg-config)))
  93     (inputs
  94      `(("libusb" ,libusb)))
  95     (home-page "https://libusb.info")
  96     (synopsis "Compatibility shim for libusb")
  97     (description
  98      "Libusb-compat provides a shim allowing applications based on older
  99 version of libusb to run with newer libusb.")
 100     (license license:lgpl2.1+)))
 101
 102 ;; required by 0xffff, which compiles with libusb-compat, but executes only
 103 ;; with libusb-0.1
 104 (define-public libusb-0.1
 105   (package (inherit libusb)
 106     (version "0.1.12")
 107     (source
 108      (origin
 109       (method url-fetch)
 110       (uri (string-append "mirror://sourceforge/libusb/libusb-0.1 (LEGACY)/"
 111                           version "/libusb-" version ".tar.gz"))
 112       (sha256
 113        (base32
 114         "0i4bacxkyr7xyqxbmb00ypkrv4swkgm0mghbzjsnw6blvvczgxip"))
 115       (patches (search-patches "libusb-0.1-disable-tests.patch"))))))
 116
 117 (define-public libusb4java
 118   ;; There is no public release so we take the latest version from git.
 119   (let ((commit "396d642a57678a0d9663b062c980fe100cc0ea1e")
 120         (revision "1"))
 121     (package
 122       (name "libusb4java")
 123       (version (string-append "0-" revision "." (string-take commit 9)))
 124       (source (origin
 125                 (method git-fetch)
 126                 (uri (git-reference
 127                       (url "https://github.com/usb4java/libusb4java.git")
 128                       (commit commit)))
 129                 (file-name (git-file-name name version))
 130                 (sha256
 131                  (base32
 132                   "0wqgapalhfh9v38ycbl6i2f5lh1wpr6fzwn5dwd0rdacypkd1gml"))))
 133       (build-system cmake-build-system)
 134       (arguments
 135        `(#:tests? #f                    ; there are no tests
 136          #:phases
 137          (modify-phases %standard-phases
 138            ;; FIXME: libusb 1.0.22 deprecated libusb_set_debug, so the build
 139            ;; fails because libusb4java uses a deprecated procedure.
 140            (add-after 'unpack 'disable-Werror
 141              (lambda _
 142                (substitute* "CMakeLists.txt"
 143                  (("-Werror") ""))
 144                #t))
 145            (add-before 'configure 'set-JAVA_HOME
 146              (lambda* (#:key inputs #:allow-other-keys)
 147                (setenv "JAVA_HOME" (assoc-ref inputs "jdk"))
 148                #t)))))
 149       (inputs
 150        `(("libusb" ,libusb)))
 151       (native-inputs
 152        `(("jdk" ,icedtea "jdk")))
 153       (home-page "https://github.com/usb4java/libusb4java/")
 154       (synopsis "JNI bindings to libusb")
 155       (description
 156        "This package provides Java JNI bindings to the libusb library for use
 157 with usb4java.")
 158       (license license:expat))))
 159
 160 (define-public java-usb4java
 161   (package
 162     (name "java-usb4java")
 163     (version "1.2.0")
 164     (source (origin
 165               (method url-fetch)
 166               (uri (string-append "https://github.com/usb4java/usb4java/"
 167                                   "archive/usb4java-" version ".tar.gz"))
 168               (sha256
 169                (base32
 170                 "0gzpsnzwgsdyra3smq288yvxnwrgvdwxr6g8jbknnsk56kv6wc34"))))
 171     (build-system ant-build-system)
 172     (arguments
 173      `(#:jar-name "usb4java.jar"
 174        #:phases
 175        (modify-phases %standard-phases
 176          ;; Usually, native libusb4java libraries for all supported systems
 177          ;; would be included in the jar and extracted at runtime.  Since we
 178          ;; build everything from source we cannot just bundle pre-built
 179          ;; binaries for other systems.  Instead, we patch the loader to
 180          ;; directly return the appropriate library for this system.  The
 181          ;; downside is that the jar will only work on the same architecture
 182          ;; that it was built on.
 183          (add-after 'unpack 'copy-libusb4java
 184            (lambda* (#:key inputs #:allow-other-keys)
 185              (substitute* "src/main/java/org/usb4java/Loader.java"
 186                (("private static String extractLibrary" line)
 187                 (string-append
 188                  line "(final String a, final String b) {"
 189                  "return \""
 190                  (assoc-ref inputs "libusb4java") "/lib/libusb4java.so"
 191                  "\"; }\n"
 192                  "private static String _extractLibrary")))
 193              #t))
 194          (add-after 'unpack 'disable-broken-tests
 195            (lambda _
 196              (with-directory-excursion "src/test/java/org/usb4java"
 197                ;; These tests should only be run when USB devices are present.
 198                (substitute* '("LibUsbGlobalTest.java"
 199                               "TransferTest.java")
 200                  (("this.context = new Context\\(\\);")
 201                   "this.context = null;")
 202                  (("LibUsb.init") "//"))
 203                (substitute* "DeviceListIteratorTest.java"
 204                  (("this.iterator.remove" line)
 205                   (string-append "assumeUsbTestsEnabled();" line))))
 206              #t)))))
 207     (inputs
 208      `(("libusb4java" ,libusb4java)
 209        ("java-commons-lang3" ,java-commons-lang3)
 210        ("java-junit" ,java-junit)
 211        ("java-hamcrest-core" ,java-hamcrest-core)))
 212     (home-page "http://usb4java.org/")
 213     (synopsis "USB library for Java")
 214     (description
 215      "This package provides a USB library for Java based on libusb and
 216 implementing @code{javax.usb} (JSR-80).")
 217     (license license:expat)))
 218
 219 (define-public python-libusb1
 220   (package
 221     (name "python-libusb1")
 222     (version "1.6.4")
 223     (source
 224      (origin
 225        (method url-fetch)
 226        (uri (pypi-uri "libusb1" version))
 227        (sha256
 228         (base32
 229          "03b7xrz8vqg8w0za5r503jhcmbd1ls5610jcja1rqz833nf0v4wc"))))
 230     (build-system python-build-system)
 231     (arguments
 232      `(#:modules ((srfi srfi-1)
 233                   (guix build utils)
 234                   (guix build python-build-system))
 235        #:phases
 236        (modify-phases %standard-phases
 237          (add-before 'install-license-files 'remove-incorrect-license
 238            (lambda* (#:key out #:allow-other-keys)
 239              ;; Was relicensed to LGPL 2.1+, but old COPYING file still left
 240              ;; in source. Remove it so it does not get installed.
 241              (delete-file "COPYING")
 242              #t))
 243          (add-after 'unpack 'fix-libusb-reference
 244            (lambda* (#:key inputs #:allow-other-keys)
 245              (substitute* "usb1/libusb1.py"
 246                (("libusb_path = ctypes.util.find_library\\(base_name\\)")
 247                 (string-append
 248                  "libusb_path = \""
 249                  (find (negate symbolic-link?)
 250                        (find-files (assoc-ref inputs "libusb")
 251                                    "^libusb.*\\.so\\..*"))
 252                  "\"")))
 253              #t)))))
 254     (inputs `(("libusb" ,libusb)))
 255     (home-page "https://github.com/vpelletier/python-libusb1")
 256     (synopsis "Pure-python wrapper for libusb-1.0")
 257     (description "Libusb is a library that gives applications easy access to
 258 USB devices on various operating systems.  This package provides a Python
 259 wrapper for accessing libusb-1.0.")
 260     (license license:lgpl2.1+)))
 261
 262 (define-public python-pyusb
 263   (package
 264     (name "python-pyusb")
 265     (version "1.0.2")
 266     (source
 267      (origin
 268        (method url-fetch)
 269        (uri (pypi-uri "pyusb" version))
 270        (sha256
 271         (base32
 272          "0qkk2jn270jwwl1x26hmdhb14m9kkbrzzwzizdjcl1a29b6756sf"))))
 273     (build-system python-build-system)
 274     (arguments
 275      `(#:tests? #f                      ; no tests
 276        #:modules ((srfi srfi-1)
 277                   (srfi srfi-26)
 278                   (guix build utils)
 279                   (guix build python-build-system))
 280        #:phases
 281        (modify-phases %standard-phases
 282          (add-after 'unpack 'fix-libusb-reference
 283            (lambda* (#:key inputs #:allow-other-keys)
 284              (substitute* "usb/libloader.py"
 285                (("lib = locate_library\\(candidates, find_library\\)")
 286                 (string-append
 287                  "lib = \""
 288                  (find (negate symbolic-link?)
 289                        (find-files (assoc-ref inputs "libusb")
 290                                    "^libusb-.*\\.so\\..*"))
 291                  "\"")))
 292              #t)))))
 293     (inputs
 294      `(("libusb" ,libusb)))
 295     (home-page "https://pyusb.github.io/pyusb/")
 296     (synopsis "Python bindings to the libusb library")
 297     (description
 298      "PyUSB aims to be an easy to use Python module to access USB devices.")
 299     (license license:bsd-3)))
 300
 301 (define-public python2-pyusb
 302   (package-with-python2 python-pyusb))
 303
 304 (define-public libplist
 305   (package
 306     (name "libplist")
 307     (version "2.0.0")
 308     (source (origin
 309               (method url-fetch)
 310               (uri (string-append "http://www.libimobiledevice.org/downloads/"
 311                                   "libplist-" version ".tar.bz2"))
 312               (sha256
 313                (base32
 314                 "00pnh9zf3iwdji2faccns7vagbmbrwbj9a8zp9s53a6rqaa9czis"))))
 315     (build-system gnu-build-system)
 316     (inputs
 317      `(("python" ,python)))
 318     (native-inputs
 319      `(("pkg-config" ,pkg-config)
 320        ("python-cython" ,python-cython)))
 321     (home-page "http://www.libimobiledevice.org/")
 322     (synopsis "C library to handle Apple Property List files")
 323     (description "This package provides a small portable C library to handle
 324 Apple Property List files in binary or XML.")
 325     (license license:lgpl2.1+)))
 326
 327 (define-public libmtp
 328   (package
 329     (name "libmtp")
 330     (version "1.1.16")
 331     (source (origin
 332              (method url-fetch)
 333              (uri (string-append "mirror://sourceforge/libmtp/libmtp/" version
 334                                  "/libmtp-" version ".tar.gz"))
 335              (sha256
 336               (base32
 337                "185vh9bds6dcy00ycggg69g4v7m3api40zv8vrcfb3fk3vfzjs2v"))))
 338     (build-system gnu-build-system)
 339     (native-inputs
 340      `(("pkg-config" ,pkg-config)))
 341     (propagated-inputs
 342      ;; libmtp.pc refers to all these.
 343      `(("libgcrypt" ,libgcrypt)
 344        ("libusb" ,libusb)))
 345     (arguments
 346      `(#:configure-flags
 347        (list (string-append "--with-udev="
 348                             (assoc-ref %outputs "out")
 349                             "/lib/udev"))))
 350     (home-page "http://libmtp.sourceforge.net/")
 351     (synopsis "Library implementing the Media Transfer Protocol")
 352     (description "Libmtp implements an MTP (Media Transfer Protocol)
 353 initiator, which means that it initiates MTP sessions with devices.  The
 354 devices responding are known as MTP responders.  Libmtp runs on devices
 355 with a USB host controller interface.  It implements MTP Basic, which was
 356 proposed for standardization.")
 357     ;; COPYING contains lgpl2.1, while files headers give
 358     ;; "GNU Lesser General Public License as published by the Free Software
 359     ;; Foundation; either version 2 of the License, or (at your option) any
 360     ;; later version."
 361     (license license:lgpl2.1+)))
 362
 363 (define-public gmtp
 364   (package
 365     (name "gmtp")
 366     (version "1.3.11")
 367     (source (origin
 368               (method url-fetch)
 369               (uri (string-append "mirror://sourceforge/gmtp/gMTP-" version
 370                                   "/gmtp-" version ".tar.gz"))
 371               (sha256
 372                (base32
 373                 "04q6byyq002fhzkc2rkkahwh5b6272xakaj4m3vwm8la8jf0r0ss"))))
 374     (build-system glib-or-gtk-build-system)
 375     (arguments
 376      '(#:configure-flags
 377        (let ((libid3tag (assoc-ref %build-inputs "libid3tag")))
 378          (list
 379           ;; libid3tag provides no .pc file, so pkg-config fails to find them.
 380           (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include")
 381           (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz")))))
 382     (inputs
 383      `(("gtk+" ,gtk+)
 384        ("flac" ,flac)
 385        ("libvorbis" ,libvorbis)
 386        ("libid3tag" ,libid3tag)
 387        ("libmtp" ,libmtp)))
 388     (native-inputs
 389      `(("pkg-config" ,pkg-config)))
 390     (home-page "http://gmtp.sourceforge.net/")
 391     (synopsis "Simple graphical MTP client")
 392     (description "gMTP is a simple graphical client for the Media Transfer Protocol
 393   (MTP), which allows media files to be transferred to and from many portable
 394 devices.")
 395     (license license:bsd-3)))
 396
 397 (define-public hidapi
 398   (package
 399     (name "hidapi")
 400     (version "0.8.0-rc1")
 401     (source (origin
 402               (method url-fetch)
 403               (uri (string-append "https://github.com/signal11/hidapi/archive/hidapi-"
 404                                   version ".tar.gz"))
 405               (sha256
 406                (base32
 407                 "0qdgyj9rgb7n0nk3ghfswrhzzknxqn4ibn3wj8g4r828pw07451w"))))
 408     (build-system gnu-build-system)
 409     (inputs
 410      `(("libusb" ,libusb)
 411        ("udev" ,eudev)))
 412     (native-inputs
 413      `(("autoconf" ,autoconf)
 414        ("automake" ,automake)
 415        ("libtool" ,libtool)
 416        ("pkg-config" ,pkg-config)))
 417     (home-page "http://www.signal11.us/oss/hidapi/")
 418     (synopsis "HID API library")
 419     (description
 420      "HIDAPI is a library which allows an application to interface with USB and Bluetooth
 421 HID-Class devices.")
 422     ;; HIDAPI can be used under one of three licenses.
 423     (license (list license:gpl3
 424                    license:bsd-3
 425                    (license:non-copyleft "file://LICENSE-orig.txt")))))
 426
 427 (define-public python-hidapi
 428   (package
 429     (name "python-hidapi")
 430     (version "0.7.99.post21")
 431     (source
 432      (origin
 433        (method url-fetch)
 434        (uri (pypi-uri "hidapi" version))
 435        (sha256
 436         (base32
 437          "15ws59zdrxahf3k7z5rcrwc4jgv1307anif8ixm2cyb9ask1mgp0"))
 438        (modules '((guix build utils)))
 439        (snippet
 440         ;; Remove bundled libraries.
 441         '(begin
 442            (delete-file-recursively "hidapi")
 443            #t))))
 444     (build-system python-build-system)
 445     (arguments
 446      `(#:phases
 447        (modify-phases %standard-phases
 448          (add-after 'unpack 'patch-configuration
 449            (lambda* (#:key inputs #:allow-other-keys)
 450              (substitute* "setup.py"
 451                (("'/usr/include/libusb-1.0'")
 452                 (string-append "'" (assoc-ref inputs "libusb")
 453                                "/include/libusb-1.0'"))
 454                (("'/usr/include/hidapi'")
 455                 (string-append "'" (assoc-ref inputs "hidapi")
 456                                "/include/hidapi'")))
 457              #t))
 458          ;; XXX Necessary because python-build-system drops the arguments.
 459          (replace 'build
 460            (lambda _
 461              (invoke "python" "setup.py" "build" "--with-system-hidapi")))
 462          (replace 'check
 463            (lambda _
 464              (invoke "python" "setup.py" "test" "--with-system-hidapi")))
 465          (replace 'install
 466            (lambda* (#:key outputs #:allow-other-keys)
 467              (invoke "python" "setup.py" "install" "--with-system-hidapi"
 468                      (string-append "--prefix=" (assoc-ref outputs "out"))
 469                      "--single-version-externally-managed" "--root=/"))))))
 470     (inputs
 471      `(("hidapi" ,hidapi)
 472        ("libusb" ,libusb)
 473        ("eudev" ,eudev)))
 474     (native-inputs
 475      `(("python-cython" ,python-cython)))
 476     (home-page "https://github.com/trezor/cython-hidapi")
 477     (synopsis "Cython interface to hidapi")
 478     (description "This package provides a Cython interface to @code{hidapi}.")
 479     ;; The library can be used under either of these licenses.
 480     (license (list license:gpl3
 481                    license:bsd-3
 482                    (license:non-copyleft
 483                     "https://github.com/trezor/cython-hidapi/blob/master/LICENSE-orig.txt"
 484                     "You are free to use cython-hidapi code for any purpose.")))))
 485
 486 (define-public python2-hidapi
 487   (package-with-python2 python-hidapi))