gnu/packages/audio.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
   3 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   4 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   5 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
   7 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
   9 ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
  10 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
  11 ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
  12 ;;;
  13 ;;; This file is part of GNU Guix.
  14 ;;;
  15 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  16 ;;; under the terms of the GNU General Public License as published by
  17 ;;; the Free Software Foundation; either version 3 of the License, or (at
  18 ;;; your option) any later version.
  19 ;;;
  20 ;;; GNU Guix is distributed in the hope that it will be useful, but
  21 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 ;;; GNU General Public License for more details.
  24 ;;;
  25 ;;; You should have received a copy of the GNU General Public License
  26 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  27
  28 (define-module (gnu packages audio)
  29   #:use-module (guix packages)
  30   #:use-module (guix download)
  31   #:use-module (guix git-download)
  32   #:use-module (guix utils)
  33   #:use-module ((guix licenses) #:prefix license:)
  34   #:use-module (guix build-system gnu)
  35   #:use-module (guix build-system waf)
  36   #:use-module (guix build-system trivial)
  37   #:use-module (guix build-system cmake)
  38   #:use-module (guix build-system python)
  39   #:use-module (gnu packages)
  40   #:use-module (gnu packages algebra)
  41   #:use-module (gnu packages autotools)
  42   #:use-module (gnu packages avahi)
  43   #:use-module (gnu packages boost)
  44   #:use-module (gnu packages backup)
  45   #:use-module (gnu packages base)
  46   #:use-module (gnu packages bison)
  47   #:use-module (gnu packages check)
  48   #:use-module (gnu packages compression)
  49   #:use-module (gnu packages curl)
  50   #:use-module (gnu packages databases)
  51   #:use-module (gnu packages emacs)
  52   #:use-module (gnu packages file)
  53   #:use-module (gnu packages flex)
  54   #:use-module (gnu packages fltk)
  55   #:use-module (gnu packages fontutils)
  56   #:use-module (gnu packages gettext)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages gtk)
  59   #:use-module (gnu packages gnome)
  60   #:use-module (gnu packages gnunet) ; libmicrohttpd
  61   #:use-module (gnu packages gperf)
  62   #:use-module (gnu packages image)
  63   #:use-module (gnu packages ncurses)
  64   #:use-module (gnu packages qt)
  65   #:use-module (gnu packages linux)
  66   #:use-module (gnu packages llvm)
  67   #:use-module (gnu packages mp3) ;taglib
  68   #:use-module (gnu packages perl)
  69   #:use-module (gnu packages pkg-config)
  70   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
  71   #:use-module (gnu packages python)
  72   #:use-module (gnu packages rdf)
  73   #:use-module (gnu packages readline)
  74   #:use-module (gnu packages tls)
  75   #:use-module (gnu packages video)
  76   #:use-module (gnu packages vim) ;xxd
  77   #:use-module (gnu packages webkit)
  78   #:use-module (gnu packages wxwidgets)
  79   #:use-module (gnu packages xiph)
  80   #:use-module (gnu packages xml)
  81   #:use-module (gnu packages xorg)
  82   #:use-module (gnu packages zip)
  83   #:use-module (srfi srfi-1))
  84
  85 (define-public alsa-modular-synth
  86   (package
  87     (name "alsa-modular-synth")
  88     (version "2.1.2")
  89     (source (origin
  90               (method url-fetch)
  91               (uri (string-append "mirror://sourceforge/alsamodular/alsamodular"
  92                                   "/" version "/ams-" version ".tar.bz2"))
  93               (sha256
  94                (base32
  95                 "1azbrhpfk4nnybr7kgmc7w6al6xnzppg853vas8gmkh185kk11l0"))))
  96     (build-system gnu-build-system)
  97     (arguments
  98      `(#:configure-flags
  99        '("--enable-qt5"
 100          "CXXFLAGS=-std=gnu++11")
 101        #:phases
 102        (modify-phases %standard-phases
 103          ;; Insert an extra space between linker flags.
 104          (add-before 'configure 'add-missing-space
 105            (lambda _
 106              (substitute* "configure"
 107                (("LIBS\\+=\\$LIBSsave") "LIBS+=\" $LIBSsave\"")
 108                (("CFLAGS\\+=\\$CFLAGSsave") "CFLAGS+=\" $CFLAGSsave\""))
 109              #t)))))
 110     (inputs
 111      `(("alsa-lib" ,alsa-lib)
 112        ;; We cannot use zita-alsa-pcmi (the successor of clalsadrv) due to
 113        ;; license incompatibility.
 114        ("clalsadrv" ,clalsadrv)
 115        ("fftw" ,fftw)
 116        ("jack" ,jack-1)
 117        ("ladspa" ,ladspa)
 118        ("liblo" ,liblo)
 119        ("qtbase" ,qtbase)
 120        ("qttools" ,qttools)))
 121     (native-inputs
 122      `(("pkg-config" ,pkg-config)))
 123     (home-page "http://alsamodular.sourceforge.net/")
 124     (synopsis "Realtime modular synthesizer and effect processor")
 125     (description
 126      "AlsaModularSynth is a digital implementation of a classical analog
 127 modular synthesizer system.  It uses virtual control voltages to control the
 128 parameters of the modules.  The control voltages which control the frequency
 129 e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
 130 Filter) modules follow the convention of 1V / Octave.")
 131     (license license:gpl2)))
 132
 133 (define-public aubio
 134   (package
 135     (name "aubio")
 136     (version "0.4.1")
 137     (source (origin
 138              (method url-fetch)
 139              (uri (string-append
 140                    "http://aubio.org/pub/aubio-" version ".tar.bz2"))
 141              (sha256
 142               (base32
 143                "15f6nf76y7iyl2kl4ny7ky0zpxfxr8j3902afvd6ydnnkh5dzmr5"))))
 144     (build-system waf-build-system)
 145     (arguments
 146      `(#:tests? #f  ; no check target
 147        #:configure-flags
 148        '("--enable-fftw3f"
 149          "--enable-jack"
 150          "--enable-sndfile"
 151          "--enable-samplerate"
 152          ;; enable compilation with avcodec once available
 153          "--disable-avcodec")
 154        #:python ,python-2))
 155     (inputs
 156      `(("jack" ,jack-1)
 157        ("libsndfile" ,libsndfile)
 158        ("libsamplerate" ,libsamplerate)
 159        ("fftwf" ,fftwf)))
 160     (native-inputs
 161      `(("pkg-config" ,pkg-config)))
 162     (home-page "http://aubio.org/")
 163     (synopsis "Library for audio labelling")
 164     (description
 165      "aubio is a tool designed for the extraction of annotations from audio
 166 signals.  Its features include segmenting a sound file before each of its
 167 attacks, performing pitch detection, tapping the beat and producing MIDI
 168 streams from live audio.")
 169     (license license:gpl3+)))
 170
 171 (define (ardour-rpath-phase major-version)
 172   `(lambda* (#:key outputs #:allow-other-keys)
 173      (let ((libdir (string-append (assoc-ref outputs "out")
 174                                   "/lib/ardour" ,major-version)))
 175        (substitute* "wscript"
 176          (("linker_flags = \\[\\]")
 177           (string-append "linker_flags = [\""
 178                          "-Wl,-rpath="
 179                          libdir ":"
 180                          libdir "/backends" ":"
 181                          libdir "/engines" ":"
 182                          libdir "/panners" ":"
 183                          libdir "/surfaces" ":"
 184                          libdir "/vamp" "\"]"))))
 185      #t))
 186
 187 (define-public ardour
 188   (package
 189     (name "ardour")
 190     (version "5.8")
 191     (source (origin
 192               (method git-fetch)
 193               (uri (git-reference
 194                     (url "git://git.ardour.org/ardour/ardour.git")
 195                     (commit version)))
 196               (snippet
 197                ;; Ardour expects this file to exist at build time.  The revision
 198                ;; is the output of
 199                ;;    git describe HEAD | sed 's/^[A-Za-z]*+//'
 200                `(call-with-output-file
 201                     "libs/ardour/revision.cc"
 202                   (lambda (port)
 203                     (format port ,(string-append "#include \"ardour/revision.h\"
 204 namespace ARDOUR { const char* revision = \"" version "\" ; }")))))
 205               (sha256
 206                (base32
 207                 "1lcvslrcw6g4kp9w0h1jx46x6ilz4nzz0k2yrw4gd545k1rwx0c1"))
 208               (file-name (string-append name "-" version))))
 209     (build-system waf-build-system)
 210     (arguments
 211      `(#:configure-flags '("--cxx11"          ; required by gtkmm
 212                            "--no-phone-home"  ; don't contact ardour.org
 213                            "--freedesktop"    ; install .desktop file
 214                            "--test")          ; build unit tests
 215        #:phases
 216        (modify-phases %standard-phases
 217          (add-after
 218           'unpack 'set-rpath-in-LDFLAGS
 219           ,(ardour-rpath-phase (version-prefix version 1))))
 220        #:test-target "test"
 221        #:python ,python-2))
 222     (inputs
 223      `(("alsa-lib" ,alsa-lib)
 224        ("aubio" ,aubio)
 225        ("lrdf" ,lrdf)
 226        ("boost" ,boost)
 227        ("atkmm" ,atkmm)
 228        ("cairomm" ,cairomm)
 229        ("eudev" ,eudev)
 230        ("gtkmm" ,gtkmm-2)
 231        ("glibmm" ,glibmm)
 232        ("libart-lgpl" ,libart-lgpl)
 233        ("libgnomecanvasmm" ,libgnomecanvasmm)
 234        ("pangomm" ,pangomm)
 235        ("liblo" ,liblo)
 236        ("libsndfile" ,libsndfile)
 237        ("libsamplerate" ,libsamplerate)
 238        ("libxml2" ,libxml2)
 239        ("libogg" ,libogg)
 240        ("libvorbis" ,libvorbis)
 241        ("flac" ,flac)
 242        ("lv2" ,lv2)
 243        ("vamp" ,vamp)
 244        ("curl" ,curl)
 245        ("fftw" ,fftw)
 246        ("fftwf" ,fftwf)
 247        ("jack" ,jack-1)
 248        ("serd" ,serd)
 249        ("sord" ,sord)
 250        ("sratom" ,sratom)
 251        ("suil" ,suil)
 252        ("lilv" ,lilv)
 253        ("readline" ,readline)
 254        ("redland" ,redland)
 255        ("rubberband" ,rubberband)
 256        ("libarchive" ,libarchive)
 257        ("taglib" ,taglib)
 258        ("python-rdflib" ,python-rdflib)))
 259     (native-inputs
 260      `(("perl" ,perl)
 261        ("cppunit" ,cppunit)
 262        ("itstool" ,itstool)
 263        ("gettext" ,gettext-minimal)
 264        ("pkg-config" ,pkg-config)))
 265     (home-page "http://ardour.org")
 266     (synopsis "Digital audio workstation")
 267     (description
 268      "Ardour is a multi-channel digital audio workstation, allowing users to
 269 record, edit, mix and master audio and MIDI projects.  It is targeted at audio
 270 engineers, musicians, soundtrack editors and composers.")
 271     (license license:gpl2+)))
 272
 273 (define-public audacity
 274   (package
 275     (name "audacity")
 276     (version "2.1.3")
 277     (source
 278      (origin
 279        (method url-fetch)
 280        (uri (string-append "https://github.com/audacity/audacity/archive"
 281                            "/Audacity-" version ".tar.gz"))
 282        (sha256
 283         (base32 "11mx7gb4dbqrgfp7hm0154x3m76ddnmhf2675q5zkxn7jc5qfc6b"))))
 284     (build-system gnu-build-system)
 285     (inputs
 286      ;; TODO: Add portSMF and libwidgetextra once they're packaged.  In-tree
 287      ;; versions shipping with Audacity are used for now.
 288      `(("wxwidgets" ,wxwidgets-gtk2)
 289        ("gtk" ,gtk+-2)
 290        ("alsa-lib" ,alsa-lib)
 291        ("jack" ,jack-1)
 292        ("expat" ,expat)
 293        ("ffmpeg" ,ffmpeg)
 294        ("lame" ,lame)
 295        ("flac" ,flac)
 296        ("libid3tag" ,libid3tag)
 297        ("libmad" ,libmad)
 298        ("libsbsms" ,libsbsms)
 299        ("libsndfile" ,libsndfile)
 300        ("soundtouch" ,soundtouch)
 301        ("soxr" ,soxr)                   ;replaces libsamplerate
 302        ("twolame" ,twolame)
 303        ("vamp" ,vamp)
 304        ("libvorbis" ,libvorbis)
 305        ("lv2" ,lv2)
 306        ("lilv" ,lilv)
 307        ("portaudio" ,portaudio)))
 308     (native-inputs
 309      `(("autoconf" ,autoconf)
 310        ("automake" ,automake)
 311        ("gettext" ,gettext-minimal)     ;for msgfmt
 312        ("libtool" ,libtool)
 313        ("pkg-config" ,pkg-config)
 314        ("python" ,python-2)
 315        ("which" ,which)))
 316     (arguments
 317      '(#:configure-flags
 318        (let ((libid3tag (assoc-ref %build-inputs "libid3tag"))
 319              (libmad (assoc-ref %build-inputs "libmad")))
 320          (list
 321           ;; Loading FFmpeg dynamically is problematic.
 322           "--disable-dynamic-loading"
 323           ;; libid3tag and libmad provide no .pc files, so pkg-config fails to
 324           ;; find them.  Force their inclusion.
 325           (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include")
 326           (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz")
 327           (string-append "LIBMAD_CFLAGS=-I" libmad "/include")
 328           (string-append "LIBMAD_LIBS=-L" libmad "/lib -lmad")))
 329        #:phases
 330        (modify-phases %standard-phases
 331          ;; FFmpeg is only detected if autoreconf runs.
 332          (add-before 'configure 'autoreconf
 333            (lambda _
 334              (zero? (system* "autoreconf" "-vfi")))))
 335        ;; The test suite is not "well exercised" according to the developers,
 336        ;; and fails with various errors.  See
 337        ;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.
 338        #:tests? #f))
 339     (home-page "http://audacity.sourceforge.net/")
 340     (synopsis "Software for recording and editing sounds")
 341     (description
 342      "Audacity is a multi-track audio editor designed for recording, playing
 343 and editing digital audio.  It features digital effects and spectrum analysis
 344 tools.")
 345     (license license:gpl2+)))
 346
 347 (define-public azr3
 348   (package
 349     (name "azr3")
 350     (version "1.2.3")
 351     (source (origin
 352               (method url-fetch)
 353               (uri (string-append "mirror://savannah/ll-plugins/azr3-jack-"
 354                                   version
 355                                   ".tar.bz2"))
 356               (sha256
 357                (base32
 358                 "18mdw6nc0vgj6k9rsy0x8w64wvzld0frqshrxxbxfj9qi9843vlc"))
 359               (patches (search-patches "azr3.patch"))))
 360     (build-system gnu-build-system)
 361     (arguments
 362      `(#:tests? #f ; no check target
 363        #:make-flags
 364        (list "LV2PEG=ttl2c"
 365              "CXXFLAGS=-std=gnu++11"
 366              "CFLAGS=-std=gnu++11"
 367              (string-append "prefix=" %output)
 368              (string-append "pkgdatadir=" %output "/share/azr3-jack"))))
 369     (inputs
 370      `(("gtkmm" ,gtkmm-2)
 371        ("lvtk" ,lvtk)
 372        ("jack" ,jack-1)
 373        ("lash" ,lash)))
 374     (native-inputs
 375      `(("pkg-config" ,pkg-config)))
 376     (home-page "http://ll-plugins.nongnu.org/azr3/")
 377     (synopsis "Tonewheel organ synthesizer")
 378     (description
 379      "AZR-3 is a port of the free VST plugin AZR-3.  It is a tonewheel organ
 380 with drawbars, distortion and rotating speakers.  The organ has three
 381 sections, two polyphonic sections with nine drawbars each and one monophonic
 382 bass section with five drawbars.  A standalone JACK application and LV2
 383 plugins are provided.")
 384     (license license:gpl2)))
 385
 386 (define-public calf
 387   (package
 388     (name "calf")
 389     (version "0.0.60")
 390     (source (origin
 391               (method url-fetch)
 392               (uri (string-append "http://calf-studio-gear.org/files/calf-"
 393                                   version ".tar.gz"))
 394               (sha256
 395                (base32
 396                 "019fwg00jv217a5r767z7szh7vdrarybac0pr2sk26xp81kibrx9"))))
 397     (build-system gnu-build-system)
 398     (inputs
 399      `(("fluidsynth" ,fluidsynth)
 400        ("expat" ,expat)
 401        ("glib" ,glib)
 402        ("gtk" ,gtk+-2)
 403        ("cairo" ,cairo)
 404        ("lash" ,lash)
 405        ("jack" ,jack-1)
 406        ("lv2" ,lv2)
 407        ("ladspa" ,ladspa)
 408        ("fftw" ,fftw)))
 409     (native-inputs
 410      `(("pkg-config" ,pkg-config)))
 411     (native-search-paths
 412      (list (search-path-specification
 413             (variable "LV2_PATH")
 414             (files '("lib/lv2")))))
 415     (home-page "http://calf.sourceforge.net/")
 416     (synopsis "Audio plug-in pack for LV2 and JACK environments")
 417     (description
 418      "Calf Studio Gear is an audio plug-in pack for LV2 and JACK environments.
 419 The suite contains lots of effects (delay, modulation, signal processing,
 420 filters, equalizers, dynamics, distortion and mastering effects),
 421 instruments (SF2 player, organ simulator and a monophonic synthesizer) and
 422 tools (analyzer, mono/stereo tools, crossovers).")
 423     ;; calfjackhost is released under GPLv2+
 424     ;; The plugins are released under LGPLv2.1+
 425     (license (list license:lgpl2.1+ license:gpl2+))))
 426
 427 (define-public espeak
 428   (package
 429     (name "espeak")
 430     (version "1.48.04")
 431     (source (origin
 432               (method url-fetch)
 433               (uri (string-append "mirror://sourceforge/espeak/espeak/"
 434                                   "espeak-" (version-major+minor version)
 435                                   "/espeak-" version "-source.zip"))
 436               (sha256
 437                (base32
 438                 "0n86gwh9pw0jqqpdz7mxggllfr8k0r7pc67ayy7w5z6z79kig6mz"))
 439               (modules '((guix build utils)))
 440               (snippet
 441                ;; remove prebuilt binaries
 442                '(delete-file-recursively "linux_32bit"))))
 443     (build-system gnu-build-system)
 444     (arguments
 445      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 446                           (string-append "DATADIR="
 447                                          (assoc-ref %outputs "out")
 448                                          "/share/espeak-data")
 449                           (string-append "LDFLAGS=-Wl,-rpath="
 450                                          (assoc-ref %outputs "out")
 451                                          "/lib")
 452                           "AUDIO=pulseaudio")
 453        #:tests? #f ; no check target
 454        #:phases
 455        (modify-phases %standard-phases
 456          (replace 'configure
 457            (lambda _
 458              (chdir "src")
 459              ;; We use version 19 of the PortAudio library, so we must copy the
 460              ;; corresponding file to be sure that espeak compiles correctly.
 461              (copy-file "portaudio19.h" "portaudio.h")
 462              (substitute* "Makefile"
 463                (("/bin/ln") "ln"))
 464              #t)))))
 465        (inputs
 466         `(("portaudio" ,portaudio)
 467           ("pulseaudio" ,pulseaudio)))
 468        (native-inputs `(("unzip" ,unzip)))
 469        (home-page "http://espeak.sourceforge.net/")
 470        (synopsis "Software speech synthesizer")
 471        (description "eSpeak is a software speech synthesizer for English and
 472 other languages.  eSpeak uses a \"formant synthesis\" method.  This allows many
 473 languages to be provided in a small size.  The speech is clear, and can be used
 474 at high speeds, but is not as natural or smooth as larger synthesizers which are
 475 based on human speech recordings.")
 476        (license license:gpl3+)))
 477
 478 (define-public infamous-plugins
 479   (package
 480     (name "infamous-plugins")
 481     (version "0.2.02")
 482     (source (origin
 483               (method url-fetch)
 484               (uri (string-append "https://github.com/ssj71/infamousPlugins/"
 485                                   "archive/v" version ".tar.gz"))
 486               (file-name (string-append name "-" version ".tar.gz"))
 487               (sha256
 488                (base32
 489                 "0qm3ak07vc1l3f5c3c2lq9gkfknlxwn8ks03cysw1pk8hj7dwnv6"))))
 490     (build-system cmake-build-system)
 491     (arguments
 492      `(#:tests? #f ; There are no tests
 493        #:phases
 494        (modify-phases %standard-phases
 495          (add-after 'unpack 'remove-compiler-flags
 496            (lambda _
 497              (substitute* '("src/casynth/CMakeLists.txt"
 498                             "src/cheapdist/CMakeLists.txt"
 499                             "src/duffer/CMakeLists.txt"
 500                             "src/envfollower/CMakeLists.txt"
 501                             "src/ewham/CMakeLists.txt"
 502                             "src/hip2b/CMakeLists.txt"
 503                             "src/lushlife/CMakeLists.txt"
 504                             "src/powercut/CMakeLists.txt"
 505                             "src/powerup/CMakeLists.txt"
 506                             "src/stuck/CMakeLists.txt")
 507                           (("-msse2 -mfpmath=sse") ""))
 508              #t)))))
 509     (inputs
 510      `(("cairo" ,cairo)
 511        ("fftwf" ,fftwf)
 512        ("lv2" ,lv2)
 513        ("ntk" ,ntk)
 514        ("zita-resampler" ,zita-resampler)))
 515     (native-inputs
 516      `(("pkg-config" ,pkg-config)))
 517     (home-page "http://ssj71.github.io/infamousPlugins")
 518     (synopsis "LV2 plugins for live use")
 519     (description
 520      "The infamous plugins are a collection of LV2 audio plugins for live
 521 performances.  The plugins include a cellular automaton synthesizer, an
 522 envelope follower, distortion effects, tape effects and more.")
 523     (license license:gpl2+)))
 524
 525 (define-public swh-plugins-lv2
 526   (package
 527     (name "swh-plugins-lv2")
 528     (version "1.0.16")
 529     (source (origin
 530               (method url-fetch)
 531               (uri (string-append "https://github.com/swh/"
 532                                   "lv2/archive/v" version ".tar.gz"))
 533               (file-name (string-append name "-" version ".tar.gz"))
 534               (sha256
 535                (base32
 536                 "0j1mih0lp4fds07knp5i32in515sh0df1qi6694pmyz2wqnm295w"))))
 537     (build-system gnu-build-system)
 538     (arguments
 539      `(#:tests? #f ; no check target
 540        #:make-flags (list "CC=gcc"
 541                           (string-append "PREFIX="
 542                                          (assoc-ref %outputs "out")))
 543        #:phases
 544        (modify-phases %standard-phases
 545          ;; no configure script
 546          (delete 'configure)
 547          (add-after 'unpack 'patch-makefile-and-enter-directory
 548            ;; The default install target doesn't install, but the
 549            ;; "install-system" target does.
 550            (lambda _
 551              (substitute* "Makefile"
 552                (("install:") "install: install-system"))
 553              #t)))))
 554     (inputs
 555      `(("lv2" ,lv2)
 556        ("fftwf" ,fftwf)))
 557     (native-inputs
 558      `(("libxslt" ,libxslt)
 559        ("pkg-config" ,pkg-config)))
 560     (home-page "http://plugin.org.uk")
 561     (synopsis "SWH plugins in LV2 format")
 562     (description
 563      "Swh-plugins-lv2 is a collection of audio plugins in LV2 format.  Plugin
 564 classes include: dynamics (compressor, limiter), time (delay, chorus,
 565 flanger), ringmodulator, distortion, filters, pitchshift, oscillators,
 566 emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
 567     (license license:gpl3+)))
 568
 569 (define-public csound
 570   (package
 571     (name "csound")
 572     (version "6.05")
 573     (source (origin
 574               (method url-fetch)
 575               (uri (string-append
 576                     "mirror://sourceforge/csound/csound6/Csound"
 577                     version "/Csound" version ".tar.gz"))
 578               (sha256
 579                (base32
 580                 "0a1sni6lr7qpwywpggbkp0ia3h9bwwgf9i87gsag8ra2h30v82hd"))
 581               (patches (search-patches "csound-header-ordering.patch"))))
 582     (build-system cmake-build-system)
 583     (arguments
 584      ;; Work around this error on x86_64 with libc 2.22+:
 585      ;;    libmvec.so.1: error adding symbols: DSO missing from command line
 586      (if (string-prefix? "x86_64" (or (%current-target-system) (%current-system)))
 587          '(#:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-lmvec"))
 588          '()))
 589     (inputs
 590      `(("alsa-lib" ,alsa-lib)
 591        ("boost" ,boost)
 592        ("pulseaudio" ,pulseaudio)
 593        ("libsndfile" ,libsndfile)
 594        ("liblo" ,liblo)
 595        ("ladspa" ,ladspa)
 596        ("jack" ,jack-1)
 597        ("gettext" ,gettext-minimal)))
 598     (native-inputs
 599      `(("bison" ,bison)
 600        ("flex" ,flex)
 601        ("zlib" ,zlib)))
 602     (home-page "http://csound.github.io/")
 603     (synopsis "Sound and music computing system")
 604     (description
 605      "Csound is a user-programmable and user-extensible sound processing
 606 language and software synthesizer.")
 607     (license license:lgpl2.1+)))
 608
 609 (define-public clalsadrv
 610   (package
 611     (name "clalsadrv")
 612     (version "2.0.0")
 613     (source (origin
 614               (method url-fetch)
 615               (uri (string-append
 616                     "http://kokkinizita.linuxaudio.org"
 617                     "/linuxaudio/downloads/clalsadrv-"
 618                     version ".tar.bz2"))
 619               (sha256
 620                (base32
 621                 "0bsacx3l9065gk8g4137qmz2ij7s9x06aldvacinzlcslw7bd1kq"))))
 622     (build-system gnu-build-system)
 623     (arguments
 624      `(#:tests? #f ; no "check" target
 625        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 626        #:phases
 627        (alist-cons-after
 628         'unpack 'patch-makefile-and-enter-directory
 629         (lambda _
 630           (substitute* "libs/Makefile"
 631             (("/sbin/ldconfig") "true")
 632             (("^LIBDIR =.*") "LIBDIR = lib\n"))
 633           (chdir "libs")
 634           #t)
 635         (alist-cons-after
 636          'install
 637          'install-symlink
 638          (lambda _
 639            (symlink "libclalsadrv.so"
 640                     (string-append (assoc-ref %outputs "out")
 641                                    "/lib/libclalsadrv.so.2")))
 642          ;; no configure script
 643          (alist-delete 'configure %standard-phases)))))
 644     (inputs
 645      `(("alsa-lib" ,alsa-lib)
 646        ("fftw" ,fftw)))
 647     (home-page "http://kokkinizita.linuxaudio.org")
 648     (synopsis "C++ wrapper around the ALSA API")
 649     (description
 650      "clalsadrv is a C++ wrapper around the ALSA API simplifying access to
 651 ALSA PCM devices.")
 652     (license license:gpl2+)))
 653
 654 (define-public amb-plugins
 655   (package
 656     (name "amb-plugins")
 657     (version "0.8.1")
 658     (source (origin
 659               (method url-fetch)
 660               (uri (string-append
 661                     "http://kokkinizita.linuxaudio.org"
 662                     "/linuxaudio/downloads/AMB-plugins-"
 663                     version ".tar.bz2"))
 664               (sha256
 665                (base32
 666                 "0x4blm4visjqj0ndqr0cg776v3b7lvplpc8cgi9n51llhavn0jpl"))))
 667     (build-system gnu-build-system)
 668     (arguments
 669      `(#:tests? #f ; no "check" target
 670        #:phases
 671        (modify-phases %standard-phases
 672          ;; no configure script
 673          (delete 'configure)
 674          (add-before 'install 'prepare-target-directory
 675            (lambda* (#:key outputs #:allow-other-keys)
 676              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 677              #t))
 678          (add-after 'unpack 'override-target-directory-and-tool-paths
 679            (lambda* (#:key outputs #:allow-other-keys)
 680              (substitute* "Makefile"
 681                (("/usr/lib/ladspa")
 682                 (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 683                (("/usr/bin/install") (which "install"))
 684                (("/bin/rm") "#"))
 685              #t)))))
 686     (home-page "http://kokkinizita.linuxaudio.org")
 687     (synopsis "LADSPA ambisonics plugins")
 688     (description
 689      "The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
 690 used within Ardour.  Features include: mono and stereo to B-format panning,
 691 horizontal rotator, square, hexagon and cube decoders.")
 692     (license license:gpl2+)))
 693
 694 (define-public mcp-plugins
 695   (package
 696     (name "mcp-plugins")
 697     (version "0.4.0")
 698     (source (origin
 699               (method url-fetch)
 700               (uri (string-append
 701                     "http://kokkinizita.linuxaudio.org"
 702                     "/linuxaudio/downloads/MCP-plugins-"
 703                     version ".tar.bz2"))
 704               (sha256
 705                (base32
 706                 "06a9r1l85jmg7l1cvc3788mk8ra0xagjfy1rmhw3b80y4n0vlnvc"))))
 707     (build-system gnu-build-system)
 708     (arguments
 709      `(#:tests? #f ; no "check" target
 710        #:phases
 711        (modify-phases %standard-phases
 712          ;; no configure script
 713          (delete 'configure)
 714          (add-before 'install 'prepare-target-directory
 715            (lambda* (#:key outputs #:allow-other-keys)
 716              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 717              #t))
 718          (add-after 'unpack 'override-target-directory
 719            (lambda* (#:key outputs #:allow-other-keys)
 720              (substitute* "Makefile"
 721                (("/usr") (assoc-ref outputs "out")))
 722              #t)))))
 723     (home-page "http://kokkinizita.linuxaudio.org")
 724     (synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
 725     (description
 726      "This package provides various LADSPA plugins.  @code{cs_chorus} and
 727 @code{cs_phaser} provide chorus and phaser effects, respectively;
 728 @code{mvclpf24} provides four implementations of the low-pass filter used in
 729 vintage Moog synthesizers; @code{mvchpf24} is based on the voltage-controlled
 730 high-pass filter by Robert Moog.  The filters attempt to accurately emulate
 731 the non-linear circuit elements of their original analog counterparts.")
 732     (license license:gpl2+)))
 733
 734 (define-public rev-plugins
 735   (package
 736     (name "rev-plugins")
 737     (version "0.7.1")
 738     (source (origin
 739               (method url-fetch)
 740               (uri (string-append
 741                     "http://kokkinizita.linuxaudio.org"
 742                     "/linuxaudio/downloads/REV-plugins-"
 743                     version ".tar.bz2"))
 744               (sha256
 745                (base32
 746                 "1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
 747     (build-system gnu-build-system)
 748     (arguments
 749      `(#:tests? #f ; no "check" target
 750        #:phases
 751        (modify-phases %standard-phases
 752          ;; no configure script
 753          (delete 'configure)
 754          (add-before 'install 'prepare-target-directory
 755            (lambda* (#:key outputs #:allow-other-keys)
 756              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 757              #t))
 758          (add-after 'unpack 'override-target-directory
 759            (lambda* (#:key outputs #:allow-other-keys)
 760              (substitute* "Makefile"
 761                (("/usr") (assoc-ref outputs "out")))
 762              #t)))))
 763     (home-page "http://kokkinizita.linuxaudio.org")
 764     (synopsis "LADSPA reverb plugin")
 765     (description
 766      "This package provides a stereo reverb LADSPA plugin based on the
 767 well-known greverb.")
 768     (license license:gpl2+)))
 769
 770 (define-public fil-plugins
 771   (package
 772     (name "fil-plugins")
 773     (version "0.3.0")
 774     (source (origin
 775               (method url-fetch)
 776               (uri (string-append
 777                     "http://kokkinizita.linuxaudio.org"
 778                     "/linuxaudio/downloads/FIL-plugins-"
 779                     version ".tar.bz2"))
 780               (sha256
 781                (base32
 782                 "1scfv9j7jrp50r565haa4rvxn1vk2ss86xssl5qgcr8r45qz42qw"))))
 783     (build-system gnu-build-system)
 784     (arguments
 785      `(#:tests? #f ; no "check" target
 786        #:phases
 787        (modify-phases %standard-phases
 788          ;; no configure script
 789          (delete 'configure)
 790          (add-before 'install 'prepare-target-directory
 791            (lambda* (#:key outputs #:allow-other-keys)
 792              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 793              #t))
 794          (add-after 'unpack 'override-target-directory
 795            (lambda* (#:key outputs #:allow-other-keys)
 796              (substitute* "Makefile"
 797                (("/usr") (assoc-ref outputs "out")))
 798              #t)))))
 799     (home-page "http://kokkinizita.linuxaudio.org")
 800     (synopsis "LADSPA four-band parametric equalizer plugin")
 801     (description
 802      "This package provides a LADSPA plugin for a four-band parametric
 803 equalizer.  Each section has an active/bypass switch, frequency, bandwidth and
 804 gain controls.  There is also a global bypass switch and gain control.
 805
 806 The 2nd order resonant filters are implemented using a Mitra-Regalia style
 807 lattice filter, which is stable even while parameters are being changed.
 808
 809 All switches and controls are internally smoothed, so they can be used 'live'
 810 without any clicks or zipper noises.  This makes this plugin suitable for use
 811 in systems that allow automation of plugin control ports, such as Ardour, or
 812 for stage use.")
 813     (license license:gpl2+)))
 814
 815 (define-public ste-plugins
 816   (package
 817     (name "ste-plugins")
 818     (version "0.0.2")
 819     (source (origin
 820               (method url-fetch)
 821               (uri (string-append
 822                     "http://kokkinizita.linuxaudio.org"
 823                     "/linuxaudio/downloads/STE-plugins-"
 824                     version ".tar.bz2"))
 825               (sha256
 826                (base32
 827                 "0s3c9w5xihs87cnd1lh9xgj3maabjdyh6bl766qp5lhkg3ax8zy6"))))
 828     (build-system gnu-build-system)
 829     (arguments
 830      `(#:tests? #f ; no "check" target
 831        #:phases
 832        (modify-phases %standard-phases
 833          ;; no configure script
 834          (delete 'configure)
 835          (add-before 'install 'prepare-target-directory
 836            (lambda* (#:key outputs #:allow-other-keys)
 837              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 838              #t))
 839          (add-after 'unpack 'override-target-directory
 840            (lambda* (#:key outputs #:allow-other-keys)
 841              (substitute* "Makefile"
 842                (("/usr") (assoc-ref outputs "out")))
 843              #t)))))
 844     (home-page "http://kokkinizita.linuxaudio.org")
 845     (synopsis "LADSPA stereo width plugin")
 846     (description
 847      "This package provides a LADSPA plugin to manipulate the stereo width of
 848 audio signals.")
 849     (license license:gpl2+)))
 850
 851 (define-public vco-plugins
 852   (package
 853     (name "vco-plugins")
 854     (version "0.3.0")
 855     (source (origin
 856               (method url-fetch)
 857               (uri (string-append
 858                     "http://kokkinizita.linuxaudio.org"
 859                     "/linuxaudio/downloads/VCO-plugins-"
 860                     version ".tar.bz2"))
 861               (sha256
 862                (base32
 863                 "1xzqdg3b07r7zww05y9bb737l9dxvfkv28m3fyak1aazaci3rsgl"))))
 864     (build-system gnu-build-system)
 865     (arguments
 866      `(#:tests? #f ; no "check" target
 867        #:phases
 868        (modify-phases %standard-phases
 869          ;; no configure script
 870          (delete 'configure)
 871          (add-before 'install 'prepare-target-directory
 872            (lambda* (#:key outputs #:allow-other-keys)
 873              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 874              #t))
 875          (add-after 'unpack 'override-target-directory
 876            (lambda* (#:key outputs #:allow-other-keys)
 877              (substitute* "Makefile"
 878                (("/usr") (assoc-ref outputs "out"))
 879                (("/bin/cp") (which "cp")))
 880              #t)))))
 881     (home-page "http://kokkinizita.linuxaudio.org")
 882     (synopsis "LADSPA plugin for synthesizer oscillators")
 883     (description
 884      "The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
 885
 886 @enumerate
 887 @item Pulse-VCO, a dirac pulse oscillator with flat amplitude spectrum
 888 @item Saw-VCO, a sawtooth oscillator with 1/F amplitude spectrum
 889 @item Rec-VCO, a square / rectange oscillator
 890 @end enumerate\n
 891
 892 All oscillators are low-pass filtered to provide waveforms similar to the
 893 output of analog synthesizers such as the Moog Voyager.")
 894     (license license:gpl2+)))
 895
 896 (define-public wah-plugins
 897   (package
 898     (name "wah-plugins")
 899     (version "0.1.0")
 900     (source (origin
 901               (method url-fetch)
 902               (uri (string-append
 903                     "http://kokkinizita.linuxaudio.org"
 904                     "/linuxaudio/downloads/WAH-plugins-"
 905                     version ".tar.bz2"))
 906               (sha256
 907                (base32
 908                 "1wkbjarxdhjixkh7d5abralj11dj2xxg644fz3ycd7qyfgfvjfgd"))))
 909     (build-system gnu-build-system)
 910     (arguments
 911      `(#:tests? #f ; no "check" target
 912        #:phases
 913        (modify-phases %standard-phases
 914          ;; no configure script
 915          (delete 'configure)
 916          (add-before 'install 'prepare-target-directory
 917            (lambda* (#:key outputs #:allow-other-keys)
 918              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 919              #t))
 920          (add-after 'unpack 'override-target-directory
 921            (lambda* (#:key outputs #:allow-other-keys)
 922              (substitute* "Makefile"
 923                (("/usr") (assoc-ref outputs "out")))
 924              #t)))))
 925     (home-page "http://kokkinizita.linuxaudio.org")
 926     (synopsis "LADSPA Autowah effect plugin")
 927     (description
 928      "This package provides a LADSPA plugin for a Wah effect with envelope
 929 follower.")
 930     (license license:gpl2+)))
 931
 932 (define-public g2reverb
 933   (package
 934     (name "g2reverb")
 935     (version "0.7.1")
 936     (source (origin
 937               (method url-fetch)
 938               (uri (string-append
 939                     "http://kokkinizita.linuxaudio.org"
 940                     "/linuxaudio/downloads/g2reverb-"
 941                     version ".tar.bz2"))
 942               (sha256
 943                (base32
 944                 "18wb8vj1kky5glr76s34awbi8qzplsmf3wjbd7a12hfv4j0bkwrj"))))
 945     (build-system gnu-build-system)
 946     (arguments
 947      `(#:tests? #f ; no "check" target
 948        #:phases
 949        (modify-phases %standard-phases
 950          ;; no configure script
 951          (delete 'configure)
 952          (add-before 'install 'prepare-target-directory
 953            (lambda* (#:key outputs #:allow-other-keys)
 954              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 955              #t))
 956          (add-after 'unpack 'override-target-directory
 957            (lambda* (#:key outputs #:allow-other-keys)
 958              (substitute* "Makefile"
 959                (("/usr") (assoc-ref outputs "out")))
 960              #t)))))
 961     (home-page "http://kokkinizita.linuxaudio.org")
 962     (synopsis "LADSPA stereo reverb plugin")
 963     (description
 964      "This package provides a LADSPA plugin for a stereo reverb effect.")
 965     (license license:gpl2+)))
 966
 967 (define-public fluidsynth
 968   (package
 969     (name "fluidsynth")
 970     (version "1.1.6")
 971     (source (origin
 972               (method url-fetch)
 973               (uri (string-append
 974                     "mirror://sourceforge/fluidsynth/fluidsynth-"
 975                     version "/fluidsynth-" version ".tar.gz"))
 976               (sha256
 977                (base32
 978                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
 979     (build-system gnu-build-system)
 980     (arguments
 981      `(#:phases
 982        (alist-cons-after
 983         'unpack
 984         'remove-broken-symlinks
 985         (lambda _ (delete-file-recursively "m4") #t)
 986         %standard-phases)))
 987     (inputs
 988      `(("libsndfile" ,libsndfile)
 989        ("alsa-lib" ,alsa-lib)
 990        ("jack" ,jack-1)
 991        ("ladspa" ,ladspa)
 992        ("lash" ,lash)
 993        ("readline" ,readline)
 994        ("glib" ,glib)))
 995     (native-inputs
 996      `(("pkg-config" ,pkg-config)))
 997     (home-page "http://www.fluidsynth.org/")
 998     (synopsis "SoundFont synthesizer")
 999     (description
1000      "FluidSynth is a real-time software synthesizer based on the SoundFont 2
1001 specifications.  FluidSynth reads and handles MIDI events from the MIDI input
1002 device.  It is the software analogue of a MIDI synthesizer.  FluidSynth can
1003 also play midifiles using a Soundfont.")
1004     (license license:gpl2+)))
1005
1006 (define-public faad2
1007   (package
1008     (name "faad2")
1009     (version "2.7")
1010     (source (origin
1011               (method url-fetch)
1012               (uri (string-append "mirror://sourceforge/faac/faad2-src/faad2-"
1013                                   version "/faad2-" version ".zip"))
1014               (sha256
1015                (base32
1016                 "16f3l16c00sg0wkrkm3vzv0gy3g97x309vw788igs0cap2x1ak3z"))))
1017     (build-system gnu-build-system)
1018     (native-inputs
1019      `(("autoconf" ,autoconf)
1020        ("automake" ,automake)
1021        ("libtool" ,libtool)
1022        ("unzip" ,unzip)))
1023     (arguments
1024      '(#:phases
1025        (alist-cons-after
1026         'unpack 'bootstrap
1027         (lambda _
1028           (substitute* "bootstrap" (("\r\n") "\n"))
1029           (zero? (system* "sh" "bootstrap")))
1030         %standard-phases)))
1031     (home-page "http://www.audiocoding.com/faad2.html")
1032     (synopsis "MPEG-4 and MPEG-2 AAC decoder")
1033     (description
1034      "FAAD2 is an MPEG-4 and MPEG-2 AAC decoder supporting LC, Main, LTP, SBR,
1035 PS, and DAB+.")
1036     (license license:gpl2)))
1037
1038 (define-public faust
1039   (package
1040     (name "faust")
1041     (version "0.9.67")
1042     (source (origin
1043               (method url-fetch)
1044               (uri (string-append
1045                     "mirror://sourceforge/faudiostream/faust-" version ".zip"))
1046               (sha256
1047                (base32
1048                 "068vl9536zn0j4pknwfcchzi90rx5pk64wbcbd67z32w0csx8xm1"))
1049               (snippet
1050                ;; Remove prebuilt library
1051                '(delete-file "architecture/android/libs/armeabi-v7a/libfaust_dsp.so"))))
1052     (build-system gnu-build-system)
1053     (arguments
1054      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
1055        #:tests? #f
1056        #:phases
1057        (modify-phases %standard-phases
1058          ;; no "configure" script
1059          (delete 'configure))))
1060     (native-inputs
1061      `(("unzip" ,unzip)))
1062     (home-page "http://faust.grame.fr/")
1063     (synopsis "Signal processing language")
1064     (description
1065      "Faust is a programming language for realtime audio signal processing.")
1066     (license license:gpl2+)))
1067
1068 (define-public faust-2
1069   (package
1070     (inherit faust)
1071     (version "2.0.a51")
1072     (source (origin
1073               (method url-fetch)
1074               (uri (string-append
1075                     "mirror://sourceforge/faudiostream/faust-" version ".tgz"))
1076               (sha256
1077                (base32
1078                 "1yryjqfqmxs7lxy95hjgmrncvl9kig3rcsmg0v49ghzz7vs7haxf"))))
1079     (build-system gnu-build-system)
1080     (arguments
1081      (substitute-keyword-arguments (package-arguments faust)
1082        ((#:make-flags flags)
1083         `(list (string-append "prefix=" (assoc-ref %outputs "out"))
1084                "world"))))
1085     (native-inputs
1086      `(("llvm" ,llvm-with-rtti)
1087        ("which" ,which)
1088        ("xxd" ,vim)
1089        ("ctags" ,emacs-minimal)  ; for ctags
1090        ("pkg-config" ,pkg-config)))
1091     (inputs
1092      `(("libsndfile" ,libsndfile)
1093        ("libmicrohttpd" ,libmicrohttpd)
1094        ("ncurses" ,ncurses)
1095        ("openssl" ,openssl)
1096        ("zlib" ,zlib)))))
1097
1098 (define-public freepats
1099   (package
1100     (name "freepats")
1101     (version "20060219")
1102     (source (origin
1103               (method url-fetch)
1104               (uri (string-append "http://freepats.zenvoid.org/freepats-"
1105                                   version ".tar.bz2"))
1106               (sha256
1107                (base32
1108                 "12iw36rd94zirll96cd5k0va7p5hxmf2shvjlhzihcmjaw8flq82"))))
1109     (build-system trivial-build-system)
1110     (arguments
1111      `(#:modules ((guix build utils))
1112        #:builder (begin
1113                    (use-modules (guix build utils))
1114                    (let ((out (string-append %output "/share/freepats")))
1115                      (setenv "PATH" (string-append
1116                                      (assoc-ref %build-inputs "bzip2") "/bin:"
1117                                      (assoc-ref %build-inputs "tar") "/bin"))
1118                      (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
1119                      (chdir "freepats")
1120                      ;; Use absolute pattern references
1121                      (substitute* "freepats.cfg"
1122                        (("Tone_000") (string-append out "/Tone_000"))
1123                        (("Drum_000") (string-append out "/Drum_000")))
1124                      (mkdir-p out)
1125                      (copy-recursively "." out)))))
1126     (native-inputs
1127      `(("tar" ,tar)
1128        ("bzip2" ,bzip2)))
1129     (home-page "http://freepats.zenvoid.org")
1130     (synopsis "GUS compatible patches for MIDI players")
1131     (description
1132      "FreePats is a project to create a free and open set of GUS compatible
1133 patches that can be used with softsynths such as Timidity and WildMidi.")
1134     ;; GPLv2+ with exception for compositions using these patches.
1135     (license license:gpl2+)))
1136
1137 (define-public guitarix
1138   (package
1139     (name "guitarix")
1140     (version "0.35.3")
1141     (source (origin
1142              (method url-fetch)
1143              (uri (string-append
1144                    "mirror://sourceforge/guitarix/guitarix/guitarix2-"
1145                    version ".tar.xz"))
1146              (sha256
1147               (base32
1148                "0pvw4ijkq6lcn45vrif9b4mqmgzi0qg1dp5b33kb5zan6n1aci4j"))))
1149     (build-system waf-build-system)
1150     (arguments
1151      `(#:tests? #f ; no "check" target
1152        #:python ,python-2
1153        #:configure-flags
1154        (list
1155         ;; Add the output lib directory to the RUNPATH.
1156         (string-append "--ldflags=-Wl,-rpath=" %output "/lib")
1157         "--cxxflags=-std=c++11")))
1158     (inputs
1159      `(("libsndfile" ,libsndfile)
1160        ("boost" ,boost)
1161        ("avahi" ,avahi)
1162        ("eigen" ,eigen)
1163        ("lv2" ,lv2)
1164        ("lilv" ,lilv)
1165        ("ladspa" ,ladspa)
1166        ("jack" ,jack-1)
1167        ("gtkmm" ,gtkmm-2)
1168        ("gtk+" ,gtk+-2)
1169        ("fftwf" ,fftwf)
1170        ("lrdf" ,lrdf)
1171        ("zita-resampler" ,zita-resampler)
1172        ("zita-convolver" ,zita-convolver)))
1173     (native-inputs
1174      `(("gperf" ,gperf)
1175        ("faust" ,faust)
1176        ("intltool" ,intltool)
1177        ("gettext" ,gettext-minimal)
1178        ("pkg-config" ,pkg-config)))
1179     (native-search-paths
1180      (list (search-path-specification
1181             (variable "LV2_PATH")
1182             (files '("lib/lv2")))))
1183     (home-page "http://guitarix.org/")
1184     (synopsis "Virtual guitar amplifier")
1185     (description "Guitarix is a virtual guitar amplifier running JACK.
1186 Guitarix takes the signal from your guitar as a mono-signal from your sound
1187 card.  The input is processed by a main amp and a rack-section.  Both can be
1188 routed separately and deliver a processed stereo-signal via JACK.  You may
1189 fill the rack with effects from more than 25 built-in modules including stuff
1190 from a simple noise gate to modulation effects like flanger, phaser or
1191 auto-wah.")
1192     (license license:gpl2+)))
1193
1194 (define-public guitarix-lv2
1195   (package (inherit guitarix)
1196     (name "guitarix-lv2")
1197     (arguments
1198      (substitute-keyword-arguments (package-arguments guitarix)
1199        ((#:configure-flags flags)
1200         `(cons "--lv2-only" ,flags))))
1201     (inputs
1202      (alist-delete "webkitgtk/gtk+-2" (package-inputs guitarix)))))
1203
1204 (define-public rakarrack
1205   (package
1206     (name "rakarrack")
1207     (version "0.6.1")
1208     (source (origin
1209               (method url-fetch)
1210               (uri (string-append "mirror://sourceforge/rakarrack/rakarrack/"
1211                                   "rakarrack-" version "/rakarrack-"
1212                                   version ".tar.bz2"))
1213               (sha256
1214                (base32
1215                 "1rpf63pdn54c4yg13k7cb1w1c7zsvl97c4qxcpz41c8l91xd55kn"))
1216               (modules '((guix build utils)))
1217               (snippet
1218                '(begin
1219                   (substitute* '("src/process.C"
1220                                  "src/global.h")
1221                     (("#include <Fl/") "#include <FL/"))
1222                   #t))))
1223     (build-system gnu-build-system)
1224     (inputs
1225      `(("alsa-utils" ,alsa-utils)
1226        ("fltk" ,fltk)
1227        ("libx11" ,libx11)
1228        ("libxext" ,libxext)
1229        ("libxfixes" ,libxfixes)
1230        ("libxft" ,libxft)
1231        ("libxrender" ,libxrender)
1232        ("libxpm" ,libxpm)
1233        ("fontconfig" ,fontconfig)
1234        ("freetype" ,freetype)
1235        ("jack" ,jack-1)
1236        ("alsa-lib" ,alsa-lib)
1237        ("libsndfile" ,libsndfile)
1238        ("libsamplerate" ,libsamplerate)
1239        ("zlib" ,zlib)))
1240     (home-page "http://rakarrack.sourceforge.net/")
1241     (synopsis "Audio effects processor")
1242     (description
1243      "Rakarrack is a richly featured multi-effects processor emulating a
1244 guitar effects pedalboard.  Effects include compressor, expander, noise gate,
1245 equalizers, exciter, flangers, chorus, various delay and reverb effects,
1246 distortion modules and many more.  Most of the effects engine is built from
1247 modules found in the excellent software synthesizer ZynAddSubFX.  Presets and
1248 user interface are optimized for guitar, but Rakarrack processes signals in
1249 stereo while it does not apply internal band-limiting filtering, and thus is
1250 well suited to all musical instruments and vocals.")
1251     ;; The code is explicitly licensed under the GPL version 2 only.
1252     (license license:gpl2)))
1253
1254 (define-public ir
1255   (package
1256     (name "ir")
1257     (version "1.3.2")
1258     (source (origin
1259              (method url-fetch)
1260              ;; The original home-page is gone. Download the tarball from an
1261              ;; archive mirror instead.
1262              (uri (list (string-append
1263                          "https://web.archive.org/web/20150803095032/"
1264                          "http://factorial.hu/system/files/ir.lv2-"
1265                          version ".tar.gz")
1266                         (string-append
1267                          "https://mirrors.kernel.org/gentoo/distfiles/ir.lv2-"
1268                          version ".tar.gz")))
1269              (sha256
1270               (base32
1271                "1jh2z01l9m4ar7yz0n911df07dygc7n4cl59p7qdjbh0nvkm747g"))))
1272     (build-system gnu-build-system)
1273     (arguments
1274      `(#:tests? #f                              ; no tests
1275        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1276        #:phases (modify-phases %standard-phases
1277                   (delete 'configure))))        ; no configure script
1278     (inputs
1279      `(("libsndfile" ,libsndfile)
1280        ("libsamplerate" ,libsamplerate)
1281        ("lv2" ,lv2)
1282        ("glib" ,glib)
1283        ("gtk+" ,gtk+-2)
1284        ("zita-convolver" ,zita-convolver)))
1285     (native-inputs
1286      `(("pkg-config" ,pkg-config)))
1287     (native-search-paths
1288      (list (search-path-specification
1289             (variable "LV2_PATH")
1290             (files '("lib/lv2")))))
1291     ;; Link to an archived copy of the home-page since the original is gone.
1292     (home-page (string-append "https://web.archive.org/web/20150803095032/"
1293                               "http://factorial.hu/plugins/lv2/ir"))
1294     (synopsis "LV2 convolution reverb")
1295     (description
1296      "IR is a low-latency, real-time, high performance signal convolver
1297 especially for creating reverb effects.  It supports impulse responses with 1,
1298 2 or 4 channels, in any soundfile format supported by libsndfile.")
1299     (license license:gpl2+)))
1300
1301 (define-public jack-1
1302   (package
1303     (name "jack")
1304     (version "0.125.0")
1305     (source (origin
1306              (method url-fetch)
1307              (uri (string-append
1308                    "http://jackaudio.org/downloads/jack-audio-connection-kit-"
1309                    version
1310                    ".tar.gz"))
1311              (sha256
1312               (base32
1313                "0i6l25dmfk2ji2lrakqq9icnwjxklgcjzzk65dmsff91z2zva5rm"))))
1314     (build-system gnu-build-system)
1315     (inputs
1316      `(("alsa-lib" ,alsa-lib)
1317        ("readline" ,readline)))
1318     ;; uuid.h is included in the JACK type headers
1319     ;; db.h is included in the libjack metadata headers
1320     (propagated-inputs
1321      `(("libuuid" ,util-linux)
1322        ("bdb" ,bdb)))
1323     (native-inputs
1324      `(("pkg-config" ,pkg-config)))
1325     (home-page "http://jackaudio.org/")
1326     (synopsis "JACK audio connection kit")
1327     (description
1328      "JACK is a low-latency audio server.  It can connect a number of
1329 different applications to an audio device, as well as allowing them to share
1330 audio between themselves.  JACK is different from other audio server efforts
1331 in that it has been designed from the ground up to be suitable for
1332 professional audio work.  This means that it focuses on two key areas:
1333 synchronous execution of all clients, and low latency operation.")
1334     ;; Most files are licensed under the GPL. However, the libjack/ tree is
1335     ;; licensed under the LGPL in order to allow for proprietary usage.
1336     (license (list license:gpl2+ license:lgpl2.1+))))
1337
1338 ;; Packages depending on JACK should always prefer jack-1.  Both jack-1 and
1339 ;; jack-2 implement the same API.  JACK2 is provided primarily as a client
1340 ;; program for users who might benefit from the D-BUS features.
1341 (define-public jack-2
1342   (package (inherit jack-1)
1343     (name "jack2")
1344     (version "1.9.10")
1345     (source (origin
1346              (method url-fetch)
1347              (uri (string-append
1348                    "https://github.com/jackaudio/jack2/archive/v"
1349                    version
1350                    ".tar.gz"))
1351              (file-name (string-append name "-" version ".tar.gz"))
1352              (sha256
1353               (base32
1354                "03b0iiyk3ng3vh5s8gaqwn565vik7910p56mlbk512bw3dhbdwc8"))))
1355     (build-system waf-build-system)
1356     (arguments
1357      `(#:python ,python-2
1358        #:tests? #f  ; no check target
1359        #:configure-flags '("--dbus"
1360                            "--alsa")
1361        #:phases
1362        (modify-phases %standard-phases
1363          (add-after 'unpack 'patch-fast_rand
1364            (lambda _
1365              (substitute* "common/memops.c"
1366                ;; Fixed in upstream commit d3c8e2d8d78899fba40a3e677ed4dbe388d82269
1367                (("^inline unsigned int fast_rand" line)
1368                 (string-append "static " line))
1369                ;; Fixed in upstream commit 0279a2d65a36d1378f5bab56d95bf9e99cc8cefb
1370                ((" 96314165") " 196314165"))
1371              #t))
1372          (add-before
1373           'configure 'set-linkflags
1374           (lambda _
1375             ;; Add $libdir to the RUNPATH of all the binaries.
1376             (substitute* "wscript"
1377               ((".*CFLAGS.*-Wall.*" m)
1378                (string-append m
1379                               "    conf.env.append_unique('LINKFLAGS',"
1380                               "'-Wl,-rpath=" %output "/lib')\n")))))
1381          (add-after 'install 'wrap-python-scripts
1382           (lambda* (#:key inputs outputs #:allow-other-keys)
1383             ;; Make sure 'jack_control' runs with the correct PYTHONPATH.
1384             (let* ((out (assoc-ref outputs "out"))
1385                    (path (getenv "PYTHONPATH")))
1386               (wrap-program (string-append out "/bin/jack_control")
1387                 `("PYTHONPATH" ":" prefix (,path))))
1388             #t)))))
1389     (inputs
1390      `(("alsa-lib" ,alsa-lib)
1391        ("dbus" ,dbus)
1392        ("expat" ,expat)
1393        ("libsamplerate" ,libsamplerate)
1394        ("opus" ,opus)
1395        ("python2-dbus" ,python2-dbus)
1396        ("readline" ,readline)))
1397     (native-inputs
1398      `(("pkg-config" ,pkg-config)))
1399     ;; Most files are under GPLv2+, but some headers are under LGPLv2.1+
1400     (license (list license:gpl2+ license:lgpl2.1+))))
1401
1402 (define-public jalv
1403   (package
1404     (name "jalv")
1405     (version "1.6.0")
1406     (source (origin
1407               (method url-fetch)
1408               (uri (string-append "http://download.drobilla.net/jalv-"
1409                                   version ".tar.bz2"))
1410               (sha256
1411                (base32
1412                 "1x2wpzzx2cgvz3dgdcgsj8dr0w3zsasy62mvl199bsdj5fbjaili"))))
1413     (build-system waf-build-system)
1414     (arguments
1415      `(#:tests? #f ; no check target
1416        #:phases
1417        (modify-phases %standard-phases
1418          (add-before
1419           'configure 'set-flags
1420           (lambda _
1421             ;; Compile with C++11, required by gtkmm.
1422             (setenv "CXXFLAGS" "-std=c++11")
1423             #t)))))
1424     (inputs
1425      `(("lv2" ,lv2)
1426        ("lilv" ,lilv)
1427        ("suil" ,suil)
1428        ("gtk" ,gtk+)
1429        ("gtkmm" ,gtkmm)
1430        ("jack" ,jack-1)))
1431     (native-inputs
1432      `(("pkg-config" ,pkg-config)))
1433     (home-page "http://drobilla.net/software/jalv/")
1434     (synopsis "Simple LV2 host for JACK")
1435     (description
1436      "Jalv is a simple but fully featured LV2 host for JACK.  It runs LV2
1437 plugins and exposes their ports as JACK ports, essentially making any LV2
1438 plugin function as a JACK application.")
1439     (license license:isc)))
1440
1441 (define-public ladspa
1442   (package
1443     (name "ladspa")
1444     (version "1.13")
1445     (source
1446      (origin
1447        (method url-fetch)
1448        ;; Since the official link is dead,
1449        ;; we download the tarball from Debian or Internet Archive.
1450        (uri (list (string-append "http://http.debian.net"
1451                                  "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
1452                                  version ".orig.tar.gz")
1453                   (string-append "https://web.archive.org/web/20140717172251/"
1454                                  "http://www.ladspa.org/download/ladspa_sdk_"
1455                                  version ".tgz")))
1456        (sha256
1457         (base32
1458          "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
1459     (build-system gnu-build-system)
1460     (arguments
1461      `(#:tests? #f  ; the "test" target is a listening test only
1462        #:phases
1463        (alist-replace
1464         'configure
1465         (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1466           (chdir "src")
1467           (let ((out (assoc-ref outputs "out")))
1468             (substitute* "makefile"
1469               (("/usr/lib/ladspa/") (string-append out "/lib/ladspa/"))
1470               (("/usr/include/")    (string-append out "/include/"))
1471               (("/usr/bin/")        (string-append out "/bin/"))
1472               (("-mkdirhier")       "mkdir -p")
1473               (("^CC.*")            "CC = gcc\n")
1474               (("^CPP.*")           "CPP = g++\n"))))
1475         (alist-delete 'build %standard-phases))))
1476     ;; Since the home page is gone, we provide a link to the archived version.
1477     (home-page
1478      "https://web.archive.org/web/20140729190945/http://www.ladspa.org/")
1479     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
1480     (description
1481      "LADSPA is a standard that allows software audio processors and effects
1482 to be plugged into a wide range of audio synthesis and recording packages.")
1483     (license license:lgpl2.1+)))
1484
1485 (define-public lash
1486   (package
1487     (name "lash")
1488     (version "0.6.0-rc2")
1489     (source (origin
1490               (method url-fetch)
1491               ;; The tilde is not permitted in the builder name, but is used
1492               ;; in the tarball.
1493               (uri (string-append
1494                     "mirror://savannah/lash/lash-"
1495                     (string-join (string-split version #\-) "~")
1496                     ".tar.bz2"))
1497               (file-name (string-append name "-" version ".tar.bz2"))
1498               (sha256
1499                (base32
1500                 "12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
1501     (build-system gnu-build-system)
1502     (inputs
1503      `(("bdb" ,bdb)
1504        ("gtk" ,gtk+-2)
1505        ("jack" ,jack-1)
1506        ("readline" ,readline)
1507        ("python" ,python-2)))
1508     ;; According to pkg-config, packages depending on lash also need to have
1509     ;; at least the following packages declared as inputs.
1510     (propagated-inputs
1511      `(("alsa-lib" ,alsa-lib)
1512        ("dbus" ,dbus)
1513        ("libxml2" ,libxml2)))
1514     (native-inputs
1515      `(("pkg-config" ,pkg-config)))
1516     (home-page "http://www.nongnu.org/lash/")
1517     (synopsis "Audio application session manager")
1518     (description
1519      "LASH is a session management system for audio applications.  It allows
1520 you to save and restore audio sessions consisting of multiple interconneced
1521 applications, restoring program state (i.e. loaded patches) and the
1522 connections between them.")
1523     (license license:gpl2+)))
1524
1525 (define-public libbs2b
1526   (package
1527     (name "libbs2b")
1528     (version "3.1.0")
1529     (source (origin
1530               (method url-fetch)
1531               (uri (string-append "mirror://sourceforge/bs2b/libbs2b/" version
1532                                   "/libbs2b-" version ".tar.lzma"))
1533               (sha256
1534                (base32
1535                 "1mcc4gjkmphczjybnsrip3gq1f974knzys7x49bv197xk3fn8wdr"))))
1536     (build-system gnu-build-system)
1537     (native-inputs `(("pkg-config" ,pkg-config)))
1538     (inputs `(("libsndfile" ,libsndfile)))
1539     (home-page "https://sourceforge.net/projects/bs2b/")
1540     (synopsis "Bauer stereophonic-to-binaural DSP")
1541     (description
1542      "The Bauer stereophonic-to-binaural DSP (bs2b) library and plugins is
1543 designed to improve headphone listening of stereo audio records.  Recommended
1544 for headphone prolonged listening to disable superstereo fatigue without
1545 essential distortions.")
1546     (license license:expat)))
1547
1548 (define-public liblo
1549   (package
1550     (name "liblo")
1551     (version "0.28")
1552     (source (origin
1553              (method url-fetch)
1554              (uri (string-append "mirror://sourceforge/liblo/liblo/" version
1555                                  "/liblo-" version ".tar.gz"))
1556              (sha256
1557               (base32
1558                "02drgnpirvl2ihvzgsmn02agr5sj3vipzzw9vma56qlkgfvak56s"))))
1559     (build-system gnu-build-system)
1560     (arguments
1561      `(;; liblo test FAILED
1562        ;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
1563        #:tests? #f))
1564     (home-page "http://liblo.sourceforge.net")
1565     (synopsis "Implementation of the Open Sound Control protocol")
1566     (description
1567      "liblo is a lightweight library that provides an easy to use
1568 implementation of the Open Sound Control (OSC) protocol.")
1569     (license license:lgpl2.1+)))
1570
1571 (define-public python-pyliblo
1572   (package
1573     (name "python-pyliblo")
1574     (version "0.10.0")
1575     (source (origin
1576              (method url-fetch)
1577              (uri (string-append "http://das.nasophon.de/download/pyliblo-"
1578                                  version ".tar.gz"))
1579              (sha256
1580               (base32
1581                "13vry6xhxm7adnbyj28w1kpwrh0kf7nw83cz1yq74wl21faz2rzw"))))
1582     (build-system python-build-system)
1583     (arguments `(#:tests? #f)) ;no tests
1584     (native-inputs
1585      `(("python-cython" ,python-cython)))
1586     (inputs
1587      `(("liblo" ,liblo)))
1588     (home-page "http://das.nasophon.de/pyliblo/")
1589     (synopsis "Python bindings for liblo")
1590     (description
1591      "Pyliblo is a Python wrapper for the liblo Open Sound Control (OSC)
1592 library.  It supports almost the complete functionality of liblo, allowing you
1593 to send and receive OSC messages using a nice and simple Python API.  Also
1594 included are the command line utilities @code{send_osc} and @code{dump_osc}.")
1595     (license license:lgpl2.1+)))
1596
1597 (define-public python2-pyliblo
1598   (package-with-python2 python-pyliblo))
1599
1600 (define-public lilv
1601   (package
1602     (name "lilv")
1603     (version "0.24.2")
1604     (source (origin
1605              (method url-fetch)
1606              (uri (string-append "http://download.drobilla.net/lilv-"
1607                                  version ".tar.bz2"))
1608              (sha256
1609               (base32
1610                "08m5a372pr1l7aii9s3pic5nm68gynx1n1bc7bnlswziq6qnbv7p"))))
1611     (build-system waf-build-system)
1612     (arguments
1613      `(#:tests? #f ; no check target
1614        #:phases
1615        (modify-phases %standard-phases
1616          (add-before
1617           'configure 'set-ldflags
1618           (lambda* (#:key outputs #:allow-other-keys)
1619             (setenv "LDFLAGS"
1620                     (string-append "-Wl,-rpath="
1621                                    (assoc-ref outputs "out") "/lib")))))))
1622     ;; required by lilv-0.pc
1623     (propagated-inputs
1624      `(("serd" ,serd)
1625        ("sord" ,sord)
1626        ("sratom" ,sratom)))
1627     (inputs
1628      `(("lv2" ,lv2)))
1629     (native-inputs
1630      `(("pkg-config" ,pkg-config)))
1631     (home-page "http://drobilla.net/software/lilv/")
1632     (synopsis "Library to simplify use of LV2 plugins in applications")
1633     (description
1634      "Lilv is a C library to make the use of LV2 plugins as simple as possible
1635 for applications.  Lilv is the successor to SLV2, rewritten to be
1636 significantly faster and have minimal dependencies.")
1637     (license license:isc)))
1638
1639 (define-public lv2
1640   (package
1641     (name "lv2")
1642     (version "1.14.0")
1643     (source (origin
1644              (method url-fetch)
1645              (uri (string-append "http://lv2plug.in/spec/lv2-"
1646                                  version ".tar.bz2"))
1647              (sha256
1648               (base32
1649                "0chxwys3vnn3nxc9x2vchm74s9sx0vfra6y893byy12ci61jc1dq"))))
1650     (build-system waf-build-system)
1651     (arguments
1652      `(#:tests? #f  ; no check target
1653        #:configure-flags '("--no-plugins")))
1654     (inputs
1655      ;; Leaving off cairo and gtk+-2.0 which are needed for example plugins
1656      `(("libsndfile" ,libsndfile)))
1657     (native-inputs
1658      `(("pkg-config" ,pkg-config)))
1659     (home-page "http://lv2plug.in/")
1660     (synopsis "LV2 audio plugin specification")
1661     (description
1662      "LV2 is an open specification for audio plugins and host applications.
1663 At its core, LV2 is a simple stable interface, accompanied by extensions which
1664 add functionality to support the needs of increasingly powerful audio
1665 software.")
1666     (license license:isc)))
1667
1668 (define-public lv2-mda-piano
1669   (package
1670     (name "lv2-mda-piano")
1671     (version "0.0.2")
1672     (source (origin
1673               (method git-fetch)
1674               (uri (git-reference
1675                     (url "http://git.elephly.net/software/lv2-mdametapiano.git")
1676                     (commit version)))
1677               (sha256
1678                (base32
1679                 "07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
1680     (build-system gnu-build-system)
1681     (arguments
1682      `(#:make-flags (list
1683                      "TYPE=mdaPiano"
1684                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1685        #:tests? #f ; no check target
1686        #:phases (alist-delete 'configure %standard-phases)))
1687     (inputs
1688      `(("lv2" ,lv2)
1689        ("lvtk" ,lvtk)))
1690     (native-inputs
1691      `(("pkg-config" ,pkg-config)))
1692     (native-search-paths
1693      (list (search-path-specification
1694             (variable "LV2_PATH")
1695             (files '("lib/lv2")))))
1696     (home-page "http://elephly.net/lv2/mdapiano.html")
1697     (synopsis "LV2 port of the mda Piano plugin")
1698     (description "An LV2 port of the mda Piano VSTi.")
1699     (license license:gpl3+)))
1700
1701 (define-public lv2-mda-epiano
1702   (package (inherit lv2-mda-piano)
1703     (name "lv2-mda-epiano")
1704     (arguments
1705      `(#:make-flags (list
1706                      "TYPE=mdaEPiano"
1707                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1708        #:tests? #f ; no check target
1709        #:phases (alist-delete 'configure %standard-phases)))
1710     (home-page "http://elephly.net/lv2/mdaepiano.html")
1711     (synopsis "LV2 port of the mda EPiano plugin")
1712     (description "An LV2 port of the mda EPiano VSTi.")))
1713
1714 (define-public lvtk
1715   (package
1716     (name "lvtk")
1717     (version "1.2.0")
1718     (source (origin
1719              (method url-fetch)
1720              (uri (string-append "https://github.com/lvtk/lvtk/archive/"
1721                                  version
1722                                  ".tar.gz"))
1723              (file-name (string-append name "-" version ".tar.gz"))
1724              (sha256
1725               (base32
1726                "03nbj2cqcklqwh50zj2gwm07crh5iwqbpxbpzwbg5hvgl4k4rnjd"))))
1727     (build-system waf-build-system)
1728     (arguments
1729      `(#:tests? #f  ; no check target
1730        #:python ,python-2
1731        #:configure-flags
1732        (list (string-append "--boost-includes="
1733                             (assoc-ref %build-inputs "boost")
1734                             "/include"))
1735        #:phases (modify-phases %standard-phases
1736                   (add-before
1737                    'configure 'set-flags
1738                    (lambda* (#:key inputs #:allow-other-keys)
1739                      ;; See e.g. https://github.com/lvtk/lvtk/issues/21
1740                      (setenv "LDFLAGS"
1741                              (string-append
1742                               "-L" (assoc-ref inputs "boost") "/lib "
1743                               "-lboost_system"))
1744                      ;; Needed for gtkmm
1745                      (substitute* '("src/wscript_build"
1746                                     "examples/wscript_build")
1747                        (("cxxflags.*= \\[" line)
1748                         (string-append line "\"-std=c++11\", ")))
1749                      #t)))))
1750     (inputs
1751      `(("boost" ,boost)
1752        ("gtkmm" ,gtkmm-2)
1753        ("lv2" ,lv2)))
1754     (native-inputs
1755      `(("pkg-config" ,pkg-config)))
1756     (home-page "https://github.com/lvtk/lvtk")
1757     (synopsis "C++ libraries for LV2 plugins")
1758     (description
1759      "The LV2 Toolkit (LVTK) contains libraries that wrap the LV2 C API and
1760 extensions into easy to use C++ classes.  It is the successor of
1761 lv2-c++-tools.")
1762     (license license:gpl3+)))
1763
1764 (define-public openal
1765   (package
1766     (name "openal")
1767     (version "1.17.2")
1768     (source (origin
1769               (method url-fetch)
1770               (uri (string-append
1771                     "http://kcat.strangesoft.net/openal-releases/openal-soft-"
1772                     version ".tar.bz2"))
1773               (sha256
1774                (base32
1775                 "051k5fy8pk4fd9ha3qaqcv08xwbks09xl5qs4ijqq2qz5xaghhd3"))))
1776     (build-system cmake-build-system)
1777     (arguments
1778      `(#:tests? #f  ; no check target
1779        #:phases
1780        (modify-phases %standard-phases
1781          (add-after
1782           'unpack 'use-full-library-paths
1783           (lambda* (#:key inputs #:allow-other-keys)
1784             (substitute* "Alc/backends/pulseaudio.c"
1785               (("#define PALIB \"libpulse\\.so\\.0\"")
1786                (string-append "#define PALIB \""
1787                               (assoc-ref inputs "pulseaudio")
1788                               "/lib/libpulse.so.0"
1789                               "\"")))
1790             (substitute* "Alc/backends/alsa.c"
1791               (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
1792                (string-append "LoadLib(\""
1793                               (assoc-ref inputs "alsa-lib")
1794                               "/lib/libasound.so.2"
1795                               "\")")))
1796             #t)))))
1797     (inputs
1798      `(("alsa-lib" ,alsa-lib)
1799        ("pulseaudio" ,pulseaudio)))
1800     (synopsis "3D audio API")
1801     (description
1802      "OpenAL provides capabilities for playing audio in a virtual 3D
1803 environment.  Distance attenuation, doppler shift, and directional sound
1804 emitters are among the features handled by the API.  More advanced effects,
1805 including air absorption, occlusion, and environmental reverb, are available
1806 through the EFX extension.  It also facilitates streaming audio, multi-channel
1807 buffers, and audio capture.")
1808     (home-page "http://kcat.strangesoft.net/openal.html")
1809     (license license:lgpl2.0+)))
1810
1811 (define-public freealut
1812   (package
1813     (name "freealut")
1814     (version "1.1.0")
1815     (source (origin
1816               (method url-fetch)
1817               ;; Upstream url is unclear, many systems use Fedora, there is also
1818               ;; https://github.com/vancegroup/freealut though the status of it
1819               ;; (official? unofficial?) is not clear.
1820               (uri (string-append
1821                     "https://pkgs.fedoraproject.org/repo/pkgs/" name "/" name "-"
1822                     version ".tar.gz" "/e089b28a0267faabdb6c079ee173664a/" name
1823                     "-" version ".tar.gz"))
1824               (sha256
1825                (base32
1826                 "0kzlil6112x2429nw6mycmif8y6bxr2cwjcvp18vh6s7g63ymlb0"))))
1827     (build-system cmake-build-system)
1828     (arguments
1829      `(#:tests? #f))  ; no check target
1830     (inputs
1831      `(("openal" ,openal)))
1832     (synopsis "Free implementation of OpenAL's ALUT standard")
1833     (description "freealut is the OpenAL Utility Toolkit.")
1834     (home-page "http://kcat.strangesoft.net/openal.html")
1835     (license license:lgpl2.0)))
1836
1837 (define-public patchage
1838   (package
1839     (name "patchage")
1840     (version "1.0.0")
1841     (source (origin
1842               (method url-fetch)
1843               (uri (string-append "http://download.drobilla.net/patchage-"
1844                                   version
1845                                   ".tar.bz2"))
1846               (sha256
1847                (base32
1848                 "1agdpwwi42176l4mxj0c4fsvdiv1ig56bfnnx0msckxmy57df8bb"))))
1849     (build-system waf-build-system)
1850     (arguments `(#:tests? #f)) ; no check target
1851     (inputs
1852      `(("alsa-lib" ,alsa-lib)
1853        ("boost" ,boost)
1854        ("jack" ,jack-1)
1855        ("ganv" ,ganv)
1856        ("glibmm" ,glibmm)
1857        ("gtkmm" ,gtkmm-2)
1858        ("dbus-glib" ,dbus-glib)))
1859     (native-inputs
1860      `(("pkg-config" ,pkg-config)))
1861     (home-page "http://drobilla.net/software/patchage/")
1862     (synopsis "Modular patch bay for audio and MIDI systems")
1863     (description
1864      "Patchage is a modular patch bay for audio and MIDI systems based on JACK
1865 and ALSA.")
1866     (license license:gpl3+)))
1867
1868 (define-public qjackctl
1869   (package
1870     (name "qjackctl")
1871     (version "0.4.4")
1872     (source (origin
1873               (method url-fetch)
1874               (uri
1875                (string-append
1876                 "mirror://sourceforge/qjackctl/qjackctl/"
1877                 version "/qjackctl-" version ".tar.gz"))
1878               (sha256
1879                (base32
1880                 "19bbljb3iz5ss4s5fmra1dxabg2fnp61sa51d63zsm56xkvv47ak"))))
1881     (build-system gnu-build-system)
1882     (arguments
1883      '(#:tests? #f)) ; no check target
1884     (inputs
1885      `(("jack-2" ,jack-2)
1886        ("qtbase" ,qtbase)
1887        ("qtx11extras" ,qtx11extras)))
1888     (native-inputs
1889      `(("pkg-config" ,pkg-config)
1890        ("qttools" ,qttools)))
1891     (home-page "https://qjackctl.sourceforge.io/")
1892     (synopsis "Jack server control application")
1893     (description "Control a Jack server.  Allows you to plug various sources
1894 into various outputs and to start, stop and configure jackd")
1895     (license license:gpl2+)))
1896
1897
1898 (define-public raul
1899   (package
1900     (name "raul")
1901     (version "0.8.0")
1902     (source (origin
1903               (method url-fetch)
1904               (uri (string-append "http://download.drobilla.net/raul-"
1905                                   version ".tar.bz2"))
1906               (sha256
1907                (base32
1908                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
1909     (build-system waf-build-system)
1910     (arguments
1911      `(#:python ,python-2
1912        #:tests? #f)) ; no check target
1913     (inputs
1914      `(("glib" ,glib)
1915        ("boost" ,boost)))
1916     (native-inputs
1917      `(("pkg-config" ,pkg-config)))
1918     (home-page "http://drobilla.net/software/raul/")
1919     (synopsis "Real-time audio utility library")
1920     (description
1921      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
1922 aimed at audio/musical applications.")
1923     (license license:gpl2+)))
1924
1925 (define-public raul-devel
1926   (let ((commit "f8bf77d3c3b77830aedafb9ebb5cdadfea7ed07a")
1927         (revision "1"))
1928     (package (inherit raul)
1929       (name "raul")
1930       (version (string-append "0.8.4-" revision "."
1931                               (string-take commit 9)))
1932       (source (origin
1933                 (method git-fetch)
1934                 (uri (git-reference
1935                       (url "http://git.drobilla.net/raul.git")
1936                       (commit commit)))
1937                 (file-name (string-append name "-" version "-checkout"))
1938                 (sha256
1939                  (base32
1940                   "1lby508fb0n8ks6iz959sh18fc37br39d6pbapwvbcw5nckdrxwj")))))))
1941
1942 (define-public rubberband
1943   (package
1944     (name "rubberband")
1945     (version "1.8.1")
1946     (source (origin
1947               (method url-fetch)
1948               (uri
1949                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
1950                               version
1951                               ".tar.bz2"))
1952               (sha256
1953                (base32
1954                 "05amrbrxx0da3w7m237q51799r8xgs4ffqabi2qv06hq8dpcj386"))))
1955     (build-system gnu-build-system)
1956     (arguments `(#:tests? #f)) ; no check target
1957     (inputs
1958      `(("ladspa" ,ladspa)
1959        ("libsamplerate" ,libsamplerate)
1960        ("vamp" ,vamp)))
1961     (native-inputs
1962      `(("pkg-config" ,pkg-config)))
1963     (home-page "http://breakfastquay.com/rubberband/")
1964     (synopsis "Audio time-stretching and pitch-shifting library")
1965     (description
1966      "Rubber Band is a library and utility program that permits changing the
1967 tempo and pitch of an audio recording independently of one another.")
1968     (license license:gpl2+)))
1969
1970 (define-public rtmidi
1971   (package
1972     (name "rtmidi")
1973     (version "2.1.0")
1974     (source (origin
1975               (method url-fetch)
1976               (uri
1977                (string-append "https://github.com/powertab/rtmidi/archive/"
1978                               version ".tar.gz"))
1979               (file-name (string-append name "-" version ".tar.gz"))
1980               (sha256
1981                (base32
1982                 "0d49lapnmdgmjxh4vw57h6xk74nn5r0zwysv7jbd7m8kqhpq5rjj"))))
1983     (build-system gnu-build-system)
1984     (arguments
1985      `(#:tests? #f ;no "check" target
1986        #:phases (modify-phases %standard-phases
1987                   (add-before
1988                    'configure 'autoconf
1989                    (lambda _ (zero? (system* "autoreconf" "-vfi"))))
1990                   (add-before
1991                    'build 'fix-makefile
1992                    (lambda _
1993                      (substitute* "Makefile"
1994                        (("/bin/ln") "ln")
1995                        (("RtMidi.h RtError.h") "RtMidi.h"))
1996                      #t))
1997                   (add-before
1998                    'install 'make-target-dirs
1999                    (lambda _
2000                      (let ((out (assoc-ref %outputs "out")))
2001                        (mkdir-p (string-append out "/bin"))
2002                        (mkdir (string-append out "/lib"))
2003                        (mkdir (string-append out "/include")))
2004                      #t)))))
2005     (inputs
2006      `(("jack" ,jack-1)
2007        ("alsa-lib" ,alsa-lib)))
2008     (native-inputs
2009      `(("autoconf" ,autoconf)
2010        ("automake" ,automake)
2011        ("libtool" ,libtool)
2012        ("pkg-config" ,pkg-config)))
2013     (home-page "https://github.com/powertab/rtmidi")
2014     (synopsis "Cross-platform MIDI library for C++")
2015     (description
2016      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
2017 classes) that provide a common cross-platform API for realtime MIDI
2018 input/output.")
2019     (license license:expat)))
2020
2021 (define-public sratom
2022   (package
2023     (name "sratom")
2024     (version "0.6.0")
2025     (source (origin
2026              (method url-fetch)
2027              (uri (string-append "http://download.drobilla.net/sratom-"
2028                                  version ".tar.bz2"))
2029              (sha256
2030               (base32
2031                "0hrxd9i66s06bpn6i3s9ka95134g3sm8yscmif7qgdzhyjqw42j4"))))
2032     (build-system waf-build-system)
2033     (arguments `(#:tests? #f)) ; no check target
2034     (inputs
2035      `(("lv2" ,lv2)
2036        ("serd" ,serd)
2037        ("sord" ,sord)))
2038     (native-inputs
2039      `(("pkg-config" ,pkg-config)))
2040     (home-page "http://drobilla.net/software/sratom/")
2041     (synopsis "Library for serialising LV2 atoms to/from RDF")
2042     (description
2043      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
2044 the Turtle syntax.")
2045     (license license:isc)))
2046
2047 (define-public suil
2048   (package
2049     (name "suil")
2050     (version "0.8.4")
2051     (source (origin
2052              (method url-fetch)
2053              (uri (string-append "http://download.drobilla.net/suil-"
2054                                  version ".tar.bz2"))
2055              (sha256
2056               (base32
2057                "1kji3lhha26qr6xm9j8ic5c40zbrrb5qnwm2qxzmsfxgmrz29wkf"))))
2058     (build-system waf-build-system)
2059     (arguments `(#:tests? #f)) ; no check target
2060     (inputs
2061      `(("lv2" ,lv2)
2062        ("gtk+-2" ,gtk+-2)
2063        ("qt-4" ,qt-4)))
2064     (native-inputs
2065      `(("pkg-config" ,pkg-config)))
2066     (home-page "http://drobilla.net/software/suil/")
2067     (synopsis "Library for loading and wrapping LV2 plugin UIs")
2068     (description
2069      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
2070
2071 Suil makes it possible to load a UI of a toolkit in a host using another
2072 toolkit.  The API is designed such that hosts do not need to explicitly
2073 support specific toolkits – if Suil supports a particular toolkit, then UIs in
2074 that toolkit will work in all hosts that use Suil automatically.
2075
2076 Suil currently supports every combination of Gtk 2, Qt 4, and X11.")
2077     (license license:isc)))
2078
2079 (define-public timidity++
2080   (package
2081     (name "timidity++")
2082     (version "2.14.0")
2083     (source (origin
2084               (method url-fetch)
2085               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
2086                                   "/TiMidity++-" version
2087                                   "/TiMidity++-" version ".tar.bz2"))
2088               (sha256
2089                (base32
2090                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
2091     (build-system gnu-build-system)
2092     (arguments
2093      '(#:configure-flags
2094        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
2095              "--enable-ncurses"
2096              "--enable-server"
2097              "--enable-alsaseq"
2098              (string-append "--with-default-path="
2099                             (assoc-ref %outputs "out") "/etc/timidity"))
2100        #:phases
2101        (alist-cons-after
2102         'install 'install-config
2103         (lambda _
2104           (let ((out (string-append (assoc-ref %outputs "out")
2105                                     "/etc/timidity")))
2106             (mkdir-p out)
2107             (call-with-output-file
2108                 (string-append out "/timidity.cfg")
2109               (lambda (port)
2110                 (format port (string-append "source "
2111                                             (assoc-ref %build-inputs "freepats")
2112                                             "/share/freepats/freepats.cfg"))))))
2113         %standard-phases)))
2114     (inputs
2115      `(("alsa-lib" ,alsa-lib)
2116        ("ao" ,ao)
2117        ("flac" ,flac)
2118        ("jack" ,jack-1)
2119        ("libogg" ,libogg)
2120        ("speex" ,speex)
2121        ("ncurses" ,ncurses)
2122        ("freepats" ,freepats)))
2123     (native-inputs
2124      `(("pkg-config" ,pkg-config)))
2125     (home-page "http://timidity.sourceforge.net/")
2126     (synopsis "Software synthesizer for playing MIDI files")
2127     (description
2128      "TiMidity++ is a software synthesizer.  It can play MIDI files by
2129 converting them into PCM waveform data; give it a MIDI data along with digital
2130 instrument data files, then it synthesizes them in real-time, and plays.  It
2131 can not only play sounds, but also can save the generated waveforms into hard
2132 disks as various audio file formats.")
2133     (license license:gpl2+)))
2134
2135 (define-public vamp
2136   (package
2137     (name "vamp")
2138     (version "2.6")
2139     (source (origin
2140               (method url-fetch)
2141               (uri (string-append
2142                     "https://code.soundsoftware.ac.uk"
2143                     "/attachments/download/1520/vamp-plugin-sdk-"
2144                     version ".tar.gz"))
2145               (sha256
2146                (base32
2147                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
2148     (build-system gnu-build-system)
2149     (arguments
2150      `(#:tests? #f                      ; no check target
2151        #:phases
2152        (alist-cons-after
2153         'install 'remove-libvamp-hostsdk.la
2154         (lambda* (#:key outputs #:allow-other-keys)
2155           ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
2156           (for-each delete-file
2157                     (let ((out (assoc-ref outputs "out")))
2158                       (list (string-append out "/lib/libvamp-sdk.la")
2159                             (string-append out "/lib/libvamp-hostsdk.la"))))
2160           #t)
2161         %standard-phases)))
2162     (inputs
2163      `(("libsndfile" ,libsndfile)))
2164     (native-inputs
2165      `(("pkg-config" ,pkg-config)))
2166     (home-page "http://vamp-plugins.org")
2167     (synopsis "Modular and extensible audio processing system")
2168     (description
2169      "Vamp is an audio processing plugin system for plugins that extract
2170 descriptive information from audio data — typically referred to as audio
2171 analysis plugins or audio feature extraction plugins.")
2172     (license
2173      (license:x11-style
2174       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
2175
2176 (define-public libsbsms
2177   (package
2178     (name "libsbsms")
2179     (version "2.0.2")
2180     (source
2181      (origin
2182        (method url-fetch)
2183        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
2184                            "/libsbsms-" version ".tar.gz"))
2185        (sha256
2186         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
2187     (build-system gnu-build-system)
2188     (native-inputs `(("automake" ,automake)))
2189     (arguments
2190      `(#:configure-flags
2191        ;; Disable the use of SSE unless on x86_64.
2192        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
2193                                               (%current-system))))
2194             ''("--disable-sse")
2195             ''())
2196        #:phases
2197        (modify-phases %standard-phases
2198          (add-after
2199           'unpack 'fix-ar-lib-path
2200           (lambda* (#:key inputs #:allow-other-keys)
2201             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
2202             (delete-file "ar-lib")
2203             (symlink
2204              (string-append (assoc-ref inputs "automake") "/share/automake-"
2205                             ,(package-version automake) "/ar-lib")
2206              "ar-lib"))))))
2207     (home-page "http://sbsms.sourceforge.net/")
2208     (synopsis "Library for time stretching and pitch scaling of audio")
2209     (description
2210      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
2211 stretching and pitch scaling of audio.  This package contains the library.")
2212     ;; There is no explicit declaration of a license, but a COPYING file
2213     ;; containing gpl2.
2214     (license license:gpl2)))
2215
2216 (define-public wavpack
2217   (package
2218     (name "wavpack")
2219     (version "5.1.0")
2220     (source (origin
2221               (method url-fetch)
2222               (uri (string-append "http://www.wavpack.com/"
2223                                   name "-" version ".tar.bz2"))
2224               (sha256
2225                (base32
2226                 "0i19c6krc0p9krwrqy9s5xahaafigqzxcn31piidmlaqadyn4f8r"))))
2227     (build-system gnu-build-system)
2228     (home-page "http://www.wavpack.com/")
2229     (synopsis "Hybrid lossless audio codec")
2230     (description
2231      "WavPack is an audio compression format with lossless, lossy and hybrid
2232 compression modes.  This package contains command-line programs and library to
2233 encode and decode wavpack files.")
2234     (license license:bsd-3)))
2235
2236 (define-public libmodplug
2237   (package
2238     (name "libmodplug")
2239     (version "0.8.8.5")
2240     (source (origin
2241               (method url-fetch)
2242               (uri (string-append
2243                     "mirror://sourceforge/modplug-xmms/"
2244                     name "/" version "/" name "-" version ".tar.gz"))
2245               (sha256
2246                (base32
2247                 "1bfsladg7h6vnii47dd66f5vh1ir7qv12mfb8n36qiwrxq92sikp"))))
2248     (build-system gnu-build-system)
2249     (home-page "http://modplug-xmms.sourceforge.net/")
2250     (synopsis "Mod file playing library")
2251     (description
2252      "Libmodplug renders mod music files as raw audio data, for playing or
2253 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2254 supported.  Optional features include high-quality resampling, bass expansion,
2255 surround and reverb.")
2256     (license license:public-domain)))
2257
2258 (define-public libxmp
2259   (package
2260     (name "libxmp")
2261     (version "4.4.1")
2262     (source (origin
2263               (method url-fetch)
2264               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2265                                   name "-" version ".tar.gz"))
2266               (sha256
2267                (base32
2268                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2269     (build-system gnu-build-system)
2270     (home-page "http://xmp.sourceforge.net/")
2271     (synopsis "Module player library")
2272     (description
2273      "Libxmp is a library that renders module files to PCM data.  It supports
2274 over 90 mainstream and obscure module formats including Protracker (MOD),
2275 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2276     (license license:lgpl2.1+)))
2277
2278 (define-public xmp
2279   (package
2280     (name "xmp")
2281     (version "4.1.0")
2282     (source (origin
2283               (method url-fetch)
2284               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2285                                   name "-" version ".tar.gz"))
2286               (sha256
2287                (base32
2288                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2289     (build-system gnu-build-system)
2290     (native-inputs
2291      `(("pkg-config" ,pkg-config)))
2292     (inputs
2293      `(("libxmp" ,libxmp)
2294        ("pulseaudio" ,pulseaudio)))
2295     (home-page "http://xmp.sourceforge.net/")
2296     (synopsis "Extended module player")
2297     (description
2298      "Xmp is a portable module player that plays over 90 mainstream and
2299 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2300 Tracker 3 S3M and Impulse Tracker IT files.")
2301     (license license:gpl2+)))
2302
2303 (define-public soundtouch
2304   (package
2305     (name "soundtouch")
2306     (version "1.8.0")
2307     (source
2308      (origin
2309        (method url-fetch)
2310        (uri
2311         (string-append
2312          "http://www.surina.net/soundtouch/soundtouch-" version ".tar.gz"))
2313        (sha256
2314         (base32 "0sqn3wk4qz20vf0vz853l6dl1gnj1yhqxfwxqsc5lp529kbn2h9x"))))
2315     (build-system gnu-build-system)
2316     (native-inputs
2317      `(("autoconf" ,autoconf)
2318        ("automake" ,automake)
2319        ("libtool" ,libtool)
2320        ("file" ,file)))
2321     (arguments
2322      '(#:phases
2323        (alist-cons-after
2324         'unpack 'bootstrap
2325         (lambda _
2326           (zero? (system* "sh" "bootstrap")))
2327         %standard-phases)))
2328     (home-page "http://www.surina.net/soundtouch/")
2329     (synopsis
2330      "Audio processing library for changing tempo, pitch and playback rate")
2331     (description
2332      "SoundTouch is an audio processing library for changing the tempo, pitch
2333 and playback rates of audio streams or audio files.  It is intended for
2334 application developers writing sound processing tools that require tempo/pitch
2335 control functionality, or just for playing around with the sound effects.")
2336     (license license:lgpl2.1+)))
2337
2338 (define-public sox
2339   (package
2340     (name "sox")
2341     (version "14.4.2")
2342     (source (origin
2343               (method url-fetch)
2344               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2345                                   name "-" version ".tar.bz2"))
2346               (sha256
2347                (base32
2348                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2349     (build-system gnu-build-system)
2350     (arguments
2351      '(#:configure-flags
2352        ;; The upstream asks to identify the distribution to diagnose SoX
2353        ;; bug reports.
2354        '("--with-distro=Guix System Distribution")))
2355     (native-inputs
2356      `(("pkg-config" ,pkg-config)))
2357     (inputs
2358      `(("alsa-lib" ,alsa-lib)
2359        ("ao" ,ao)
2360        ("flac" ,flac)
2361        ("lame" ,lame)
2362        ("libid3tag" ,libid3tag)
2363        ("libltdl" ,libltdl)
2364        ("libmad" ,libmad)
2365        ("libpng" ,libpng)
2366        ("libvorbis" ,libvorbis)
2367        ("pulseaudio" ,pulseaudio)))
2368     (home-page "http://sox.sourceforge.net")
2369     (synopsis "Sound processing utility")
2370     (description
2371      "SoX (Sound eXchange) is a command line utility that can convert
2372 various formats of computer audio files to other formats.  It can also
2373 apply various effects to these sound files, and, as an added bonus, SoX
2374 can play and record audio files.")
2375     ;; sox.c is distributed under GPL, while the files that make up
2376     ;; libsox are licensed under LGPL.
2377     (license (list license:gpl2+ license:lgpl2.1+))))
2378
2379 (define-public soxr
2380   (package
2381     (name "soxr")
2382     (version "0.1.2")
2383     (source
2384      (origin
2385        (method url-fetch)
2386        (uri
2387         (string-append "mirror://sourceforge/soxr/soxr-" version
2388                        "-Source.tar.xz"))
2389        (sha256
2390         (base32 "0xf2w3piwz9gfr1xqyrj4k685q5dy53kq3igv663i4f4y4sg9rjl"))))
2391     (build-system cmake-build-system)
2392     (arguments '(#:tests? #f))          ;no 'check' target
2393     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2394     (synopsis "One-dimensional sample-rate conversion library")
2395     (description
2396      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2397 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2398     (license license:lgpl2.1+)))
2399
2400 (define-public twolame
2401   (package
2402     (name "twolame")
2403     (version "0.3.13")
2404     (source
2405      (origin
2406        (method url-fetch)
2407        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2408                            "/twolame-" version ".tar.gz"))
2409        (sha256
2410         (base32 "0ahiqqng5pidwhj1wzph4vxxgxxgcfa3gl0gywipzx2ii7s35wwq"))
2411        (modules '((guix build utils)))
2412        ;; The tests break with Perl 5.24:
2413        ;; https://github.com/njh/twolame/issues/21
2414        ;; TODO: Remove this snippet when upgrading twolame.
2415        (snippet
2416         '(begin
2417            (substitute* "tests/test.pl" (("\\(@_\\)") "($_[0])"))
2418            #t))))
2419     (build-system gnu-build-system)
2420     (inputs
2421      `(("libsndfile" ,libsndfile)))
2422     (native-inputs
2423      `(("perl" ,perl)
2424        ("which" ,which)))               ;used in tests/test.pl
2425     (home-page "http://www.twolame.org/")
2426     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2427     (description
2428      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2429 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2430 portions of LAME.")
2431     (license license:lgpl2.1+)))
2432
2433 (define-public portaudio
2434   (package
2435     (name "portaudio")
2436     (version "190600.20161030")
2437     (source
2438      (origin
2439        (method url-fetch)
2440        (uri (string-append
2441              "http://www.portaudio.com/archives/pa_stable_v"
2442              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2443              ".tgz"))
2444        (sha256
2445         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2446        (patches (search-patches "portaudio-audacity-compat.patch"))))
2447     (build-system gnu-build-system)
2448     (inputs
2449      ;; TODO: Add ASIHPI.
2450      `(("alsa-lib" ,alsa-lib)
2451        ("jack" ,jack-1)))
2452     (native-inputs
2453      `(("autoconf" ,autoconf)
2454        ("automake" ,automake)
2455        ("libtool" ,libtool)
2456        ("pkg-config" ,pkg-config)))
2457     (arguments
2458      '(#:phases
2459        ;; Autoreconf is necessary because the audacity-compat patch modifies
2460        ;; .in files.
2461        (alist-cons-after
2462         'unpack 'autoreconf
2463         (lambda _
2464           (zero? (system* "autoreconf" "-vif")))
2465         %standard-phases)
2466        #:tests? #f))                    ;no 'check' target
2467     (home-page "http://www.portaudio.com/")
2468     (synopsis "Audio I/O library")
2469     (description
2470      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2471 to record and/or play sound using a callback function or a blocking read/write
2472 interface.")
2473     (license license:expat)))
2474
2475 (define-public qsynth
2476   (package
2477     (name "qsynth")
2478     (version "0.4.3")
2479     (source
2480      (origin
2481        (method url-fetch)
2482        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2483                            "/qsynth-" version ".tar.gz"))
2484        (sha256
2485         (base32 "1j5hm99fjrnaw8wbmlh4qixkv3rw5dl429mp1ag7js2ydrx0j9yy"))))
2486     (build-system gnu-build-system)
2487     (arguments
2488      `(#:tests? #f ; no "check" phase
2489        #:configure-flags
2490        '("CXXFLAGS=-std=gnu++11")))
2491     (native-inputs
2492      `(("qttools" ,qttools)
2493        ("pkg-config" ,pkg-config)))
2494     (inputs
2495      `(("fluidsynth" ,fluidsynth)
2496        ("qtbase" ,qtbase)
2497        ("qtx11extras" ,qtx11extras)))
2498     (home-page "http://qsynth.sourceforge.net")
2499     (synopsis "Graphical user interface for FluidSynth")
2500     (description
2501      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2502 synthesizer written in C++.")
2503     (license license:gpl2+)))
2504
2505 (define-public rsound
2506   (package
2507     (name "rsound")
2508     (version "1.1")
2509     (source
2510      (origin
2511        (method url-fetch)
2512        (uri (string-append "https://github.com/Themaister/RSound/archive/v"
2513                            version ".tar.gz"))
2514        (file-name (string-append name "-" version))
2515        (sha256
2516         (base32 "1wzs40c0k5zpkmm5ffl6c17xmr399sxli7ys0fbb9ib0fd334knx"))))
2517     (build-system gnu-build-system)
2518     (inputs
2519      `(("alsa-lib" ,alsa-lib)
2520        ("jack" ,jack-1)
2521        ("ao" ,ao)
2522        ("libsamplerate" ,libsamplerate)
2523        ("openal" ,openal)
2524        ("portaudio" ,portaudio)
2525        ("pulseaudio" ,pulseaudio)))
2526     (arguments
2527      '(#:phases
2528        (alist-replace
2529         'configure
2530         (lambda* (#:key outputs #:allow-other-keys)
2531           (setenv "CC" "gcc")
2532           (zero?
2533            (system* "./configure"
2534                     (string-append "--prefix=" (assoc-ref outputs "out")))))
2535         %standard-phases)
2536        ;; No 'check' target.
2537        #:tests? #f))
2538     (home-page "http://themaister.net/rsound.html")
2539     (synopsis "Networked audio system")
2540     (description
2541      "RSound allows you to send audio from an application and transfer it
2542 directly to a different computer on your LAN network.  It is an audio daemon
2543 with a much different focus than most other audio daemons.")
2544     (license license:gpl3+)))
2545
2546 (define-public xjackfreak
2547   (package
2548     (name "xjackfreak")
2549     (version "1.0")
2550     (source (origin
2551               (method url-fetch)
2552               (uri (string-append
2553                     "https://github.com/johnhldavis/xjackfreak/archive/v"
2554                     version ".tar.gz"))
2555               (file-name (string-append name "-" version ".tar.gz"))
2556               (sha256
2557                (base32
2558                 "0xj6gpxfnw9jbdgwgm0x23xgfvj2kwmwb1nk0drw8lxgcchkq7d9"))))
2559     (build-system gnu-build-system)
2560     (arguments
2561      `(#:make-flags
2562        (list (string-append "docdir=" (assoc-ref %outputs "out")
2563                             "/share/doc/xjackfreak"))))
2564     (inputs
2565      `(("jack" ,jack-1)
2566        ("libx11" ,libx11)
2567        ("libxt" ,libxt)
2568        ("libxext" ,libxext)))
2569     (native-inputs
2570      `(("pkg-config" ,pkg-config)))
2571     (home-page "https://github.com/johnhldavis/xjackfreak")
2572     (synopsis "JACK audio frequency analyzer and display")
2573     (description
2574      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
2575 Connection Kit.  It can display the FFT of any input, modify it and output the
2576 result.")
2577     (license license:gpl3+)))
2578
2579 (define-public zita-convolver
2580   (package
2581     (name "zita-convolver")
2582     (version "3.1.0")
2583     (source (origin
2584               (method url-fetch)
2585               (uri (string-append
2586                     "http://kokkinizita.linuxaudio.org"
2587                     "/linuxaudio/downloads/zita-convolver-"
2588                     version ".tar.bz2"))
2589               (snippet
2590                ;; Don't optimize for a specific processor architecture.
2591                '(substitute* "libs/Makefile"
2592                   (("^CXXFLAGS \\+= -march=native") "")))
2593               (modules '((guix build utils)))
2594               (sha256
2595                (base32
2596                 "14qrnczhp5mbwhky64il7kxc4hl1mmh495v60va7i2qnhasr6zmz"))))
2597     (build-system gnu-build-system)
2598     (arguments
2599      `(#:tests? #f ; no "check" target
2600        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2601        #:phases
2602        (alist-cons-after
2603         'unpack 'patch-makefile-and-enter-directory
2604         (lambda _
2605           (substitute* "libs/Makefile"
2606             (("ldconfig") "true")
2607             (("^LIBDIR =.*") "LIBDIR = lib\n"))
2608           (chdir "libs") #t)
2609         (alist-cons-after
2610          'install
2611          'install-symlink
2612          (lambda _
2613            (symlink "libzita-convolver.so"
2614                     (string-append (assoc-ref %outputs "out")
2615                                    "/lib/libzita-convolver.so.3")))
2616          ;; no configure script
2617          (alist-delete 'configure %standard-phases)))))
2618     (inputs `(("fftwf" ,fftwf)))
2619     (home-page "http://kokkinizita.linuxaudio.org")
2620     (synopsis "Fast, partitioned convolution engine library")
2621     (description
2622      "Zita convolver is a C++ library providing a real-time convolution
2623 engine.")
2624     (license license:gpl3+)))
2625
2626 (define-public zita-resampler
2627   (package
2628     (name "zita-resampler")
2629     (version "1.3.0")
2630     (source (origin
2631               (method url-fetch)
2632               (uri (string-append
2633                     "http://kokkinizita.linuxaudio.org"
2634                     "/linuxaudio/downloads/zita-resampler-"
2635                     version ".tar.bz2"))
2636               (snippet
2637                ;; Don't optimize for a specific processor architecture.
2638                '(substitute* '("apps/Makefile" "libs/Makefile")
2639                   (("^CXXFLAGS \\+= -march=native") "")))
2640               (modules '((guix build utils)))
2641               (sha256
2642                (base32
2643                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
2644     (build-system gnu-build-system)
2645     (arguments
2646      `(#:tests? #f ; no "check" target
2647        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2648        #:phases
2649        (modify-phases %standard-phases
2650          (add-after
2651           'unpack 'patch-makefile-and-enter-directory
2652           (lambda _
2653             (substitute* "libs/Makefile"
2654               (("ldconfig") "true")
2655               (("^LIBDIR =.*") "LIBDIR = lib\n"))
2656             (chdir "libs")
2657             #t))
2658          (add-after
2659           'install 'install-symlink
2660           (lambda _
2661             (symlink "libzita-resampler.so"
2662                      (string-append (assoc-ref %outputs "out")
2663                                     "/lib/libzita-resampler.so.1"))))
2664          ;; no configure script
2665          (delete 'configure))))
2666     (home-page "http://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
2667     (synopsis "C++ library for resampling audio signals")
2668     (description
2669      "Libzita-resampler is a C++ library for resampling audio signals.  It is
2670 designed to be used within a real-time processing context, to be fast, and to
2671 provide high-quality sample rate conversion.")
2672     (license license:gpl3+)))
2673
2674 (define-public zita-alsa-pcmi
2675   (package
2676     (name "zita-alsa-pcmi")
2677     (version "0.2.0")
2678     (source (origin
2679               (method url-fetch)
2680               (uri (string-append
2681                     "http://kokkinizita.linuxaudio.org"
2682                     "/linuxaudio/downloads/zita-alsa-pcmi-"
2683                     version ".tar.bz2"))
2684               (sha256
2685                (base32
2686                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
2687     (build-system gnu-build-system)
2688     (arguments
2689      `(#:tests? #f ; no "check" target
2690        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2691        #:phases
2692        (alist-cons-after
2693         'unpack 'patch-makefile-and-enter-directory
2694         (lambda _
2695           (substitute* "libs/Makefile"
2696             (("ldconfig") "true")
2697             (("^LIBDIR =.*") "LIBDIR = lib\n"))
2698           (chdir "libs")
2699           #t)
2700         (alist-cons-after
2701          'install
2702          'install-symlink
2703          (lambda _
2704            (symlink "libzita-alsa-pcmi.so"
2705                     (string-append (assoc-ref %outputs "out")
2706                                    "/lib/libzita-alsa-pcmi.so.0")))
2707          ;; no configure script
2708          (alist-delete 'configure %standard-phases)))))
2709     (inputs
2710      `(("alsa-lib" ,alsa-lib)
2711        ("fftw" ,fftw)))
2712     (home-page "http://kokkinizita.linuxaudio.org")
2713     (synopsis "C++ wrapper around the ALSA API")
2714     (description
2715      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
2716 access to ALSA PCM devices, taking care of the many functions required to
2717 open, initialise and use a hw: device in mmap mode, and providing floating
2718 point audio data.")
2719     (license license:gpl3+)))
2720
2721 (define-public cuetools
2722   (package
2723     (name "cuetools")
2724     (version "1.4.1")
2725     (source (origin
2726              (method url-fetch)
2727              (uri (string-append "https://github.com/svend/cuetools/archive/"
2728                                  version ".tar.gz"))
2729              (file-name (string-append name "-" version ".tar.gz"))
2730              (sha256
2731               (base32
2732                "01xi3rvdmil9nawsha04iagjylqr1l9v9vlzk99scs8c207l58i4"))))
2733     (build-system gnu-build-system)
2734     ;; The source tarball is not bootstrapped.
2735     (arguments
2736      `(#:phases
2737         (modify-phases %standard-phases
2738           (add-after 'unpack 'bootstrap
2739             (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
2740     ;; Bootstrapping tools
2741     (native-inputs
2742      `(("autoconf" ,autoconf)
2743        ("automake" ,automake)
2744        ("flex" ,flex)
2745        ("bison" ,bison)))
2746     (synopsis "Cue and toc file parsers and utilities")
2747     (description "Cuetools is a set of programs that are useful for manipulating
2748 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
2749 files are a way to represent the layout of a data or audio CD in a
2750 machine-readable ASCII format.")
2751     (home-page "https://github.com/svend/cuetools")
2752     (license license:gpl2+)))
2753
2754 (define-public shntool
2755   (package
2756     (name "shntool")
2757     (version "3.0.10")
2758     (source (origin
2759              (method url-fetch)
2760              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
2761                                  "shntool-" version ".tar.gz"))
2762              (sha256
2763               (base32
2764                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
2765     (build-system gnu-build-system)
2766     (synopsis "WAVE audio data processing tool")
2767     (description "shntool is a multi-purpose WAVE data processing and reporting
2768 utility.  File formats are abstracted from its core, so it can process any file
2769 that contains WAVE data, compressed or not---provided there exists a format
2770 module to handle that particular file type.")
2771     (home-page "http://etree.org/shnutils/shntool/")
2772     ;; 'install-sh' bears the x11 license
2773     (license (list license:gpl2+ license:x11))))
2774
2775 (define-public dcadec
2776   (package
2777     (name "dcadec")
2778     (version "0.2.0")
2779     (source (origin
2780               (method url-fetch)
2781               (uri (string-append "https://github.com/foo86/dcadec/archive/v"
2782                                   version ".tar.gz"))
2783               (file-name (string-append name "-" version ".tar.gz"))
2784               (sha256
2785                (base32
2786                 "0i0dpypgqkhhi4v1fmsp2way6w9kbcix3c7q79pmg39yvrzj17gd"))))
2787     (build-system gnu-build-system)
2788     (arguments
2789      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
2790      '(#:tests? #f
2791        #:make-flags
2792        (list "CC=gcc"
2793              ;; Build shared library.
2794              "CONFIG_SHARED=1"
2795              (string-append "PREFIX=" (assoc-ref %outputs "out"))
2796              ;; Set proper runpath.
2797              (string-append "LDFLAGS=-Wl,-rpath="
2798                             (assoc-ref %outputs "out")
2799                             "/lib"))
2800        #:phases
2801        (modify-phases %standard-phases
2802          ;; No configure script, just a hand-written Makefile.
2803          (delete 'configure))))
2804     (synopsis "DTS Coherent Acoustics decoder")
2805     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
2806 with support for HD extensions.")
2807     (home-page "https://github.com/foo86/dcadec")
2808     (license license:lgpl2.1+)))
2809
2810 (define-public bs1770gain
2811   (package
2812     (name "bs1770gain")
2813     (version "0.4.12")
2814     (source
2815      (origin
2816        (method url-fetch)
2817        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
2818                            version "/bs1770gain-" version ".tar.gz"))
2819        (sha256
2820         (base32
2821          "0n9skdap1vnl6w52fx0gsrjlk7w3xgdwi62ycyf96h29rx059z6a"))))
2822     (build-system gnu-build-system)
2823     (inputs `(("ffmpeg" ,ffmpeg)
2824               ("sox" ,sox)))
2825     (home-page "http://bs1770gain.sourceforge.net/")
2826     (synopsis "Tool to adjust loudness of media files")
2827     (description
2828      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
2829 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
2830 loudness of audio and video files to the same level.")
2831     (license license:gpl2+)))
2832
2833 (define-public filteraudio
2834   (let ((revision "1")
2835         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
2836     (package
2837       (name "filteraudio")
2838       (version (string-append "0.0.0-" revision "."
2839                               (string-take commit 7)))
2840       (source
2841        (origin
2842          (method git-fetch)
2843          (uri (git-reference
2844                (url "https://github.com/irungentoo/filter_audio.git")
2845                (commit commit)))
2846          (file-name (string-append name "-" version "-checkout"))
2847          (sha256
2848           (base32
2849            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
2850       (build-system gnu-build-system)
2851       (arguments
2852        '(#:make-flags (list (string-append "PREFIX=" %output)
2853                             "CC=gcc")
2854          #:tests? #f ; No tests
2855          #:phases
2856          (modify-phases %standard-phases
2857            ;; No configure script
2858            (delete 'configure))))
2859       (synopsis "Lightweight audio filtering library")
2860       (description "An easy to use audio filtering library made from webrtc
2861 code, used in @code{libtoxcore}.")
2862       (home-page "https://github.com/irungentoo/filter_audio")
2863       (license license:bsd-3))))
2864
2865 (define-public gsm
2866   (package
2867     (name "gsm")
2868     (version "1.0.14")
2869     (source
2870      (origin
2871        (method url-fetch)
2872        (uri
2873         (string-append "http://www.quut.com/" name "/" name
2874                        "-" version ".tar.gz"))
2875        (sha256
2876         (base32
2877          "0b1mx69jq88wva3wk0hi6fcl5a52qhnq2f9p3f3jdh5k61ma252q"))))
2878     (build-system gnu-build-system)
2879     (arguments
2880      `(#:test-target "tst"
2881        #:phases
2882        (modify-phases %standard-phases
2883          (add-before 'install 'pre-install
2884            (lambda _
2885              (let ((out (assoc-ref %outputs "out")))
2886                (substitute* "Makefile"
2887                  (("INSTALL_ROOT\t=")
2888                   (string-append "INSTALL_ROOT\t=\t" out)))
2889                (mkdir-p (string-append out "/inc"))
2890                (mkdir-p (string-append out "/man"))
2891                (mkdir-p (string-append out "/man/man1"))
2892                (mkdir-p (string-append out "/man/man3"))
2893                (mkdir-p (string-append out "/bin"))
2894                (mkdir-p (string-append out "/lib")))))
2895          (add-after 'install 'post-install
2896            (lambda _
2897              (let ((out (assoc-ref %outputs "out")))
2898                (rename-file (string-append out "/inc")
2899                             (string-append out "/include"))
2900                (mkdir-p (string-append out "/include/gsm"))
2901                (copy-recursively "inc"
2902                                  (string-append out "/include/gsm")))))
2903          (delete 'configure))))
2904     (synopsis "GSM 06.10 lossy speech compression library")
2905     (description "This C library provides an encoder and a decoder for the GSM
2906 06.10 RPE-LTP lossy speech compression algorithm.")
2907     (home-page "http://quut.com/gsm/")
2908     (license (license:non-copyleft "file://COPYRIGHT"))))