gnu/packages/audio.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 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, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
   9 ;;; Copyright © 2016 ng0 <ng0@n0.is>
  10 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
  11 ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  12 ;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
  13 ;;; Copyright © 2018 okapi <okapi@firemail.cc>
  14 ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  15 ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
  16 ;;; Copyright © 2018 Brett Gilio <brettg@gnu.org>
  17 ;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
  18 ;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
  19 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
  20 ;;; Copyright © 2018 Brendan Tildesley <mail@brendan.scot>
  21 ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
  22 ;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
  23 ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
  24 ;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
  25 ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
  26 ;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
  27 ;;; Copyright © 2019 Christopher Lemmer Webber <cwebber@dustycloud.org>
  28 ;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
  29 ;;; Copyright © 2019 Hartmt Goebel <h.goebel@crazy-compilers.com>
  30 ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  31 ;;;
  32 ;;; This file is part of GNU Guix.
  33 ;;;
  34 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  35 ;;; under the terms of the GNU General Public License as published by
  36 ;;; the Free Software Foundation; either version 3 of the License, or (at
  37 ;;; your option) any later version.
  38 ;;;
  39 ;;; GNU Guix is distributed in the hope that it will be useful, but
  40 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  41 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  42 ;;; GNU General Public License for more details.
  43 ;;;
  44 ;;; You should have received a copy of the GNU General Public License
  45 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  46
  47 (define-module (gnu packages audio)
  48   #:use-module (guix packages)
  49   #:use-module (guix download)
  50   #:use-module (guix git-download)
  51   #:use-module (guix utils)
  52   #:use-module ((guix licenses) #:prefix license:)
  53   #:use-module (guix build-system gnu)
  54   #:use-module (guix build-system waf)
  55   #:use-module (guix build-system trivial)
  56   #:use-module (guix build-system cmake)
  57   #:use-module (guix build-system python)
  58   #:use-module (guix build-system glib-or-gtk)
  59   #:use-module (gnu packages)
  60   #:use-module (gnu packages algebra)
  61   #:use-module (gnu packages autotools)
  62   #:use-module (gnu packages avahi)
  63   #:use-module (gnu packages boost)
  64   #:use-module (gnu packages backup)
  65   #:use-module (gnu packages base)
  66   #:use-module (gnu packages bison)
  67   #:use-module (gnu packages check)
  68   #:use-module (gnu packages compression)
  69   #:use-module (gnu packages curl)
  70   #:use-module (gnu packages dbm)
  71   #:use-module (gnu packages documentation)
  72   #:use-module (gnu packages emacs)
  73   #:use-module (gnu packages file)
  74   #:use-module (gnu packages flex)
  75   #:use-module (gnu packages fltk)
  76   #:use-module (gnu packages fontutils)
  77   #:use-module (gnu packages gcc)
  78   #:use-module (gnu packages gettext)
  79   #:use-module (gnu packages glib)
  80   #:use-module (gnu packages gtk)
  81   #:use-module (gnu packages gnome)
  82   #:use-module (gnu packages gnunet) ; libmicrohttpd
  83   #:use-module (gnu packages gperf)
  84   #:use-module (gnu packages icu4c)
  85   #:use-module (gnu packages image)
  86   #:use-module (gnu packages ncurses)
  87   #:use-module (gnu packages onc-rpc)
  88   #:use-module (gnu packages qt)
  89   #:use-module (gnu packages libbsd)
  90   #:use-module (gnu packages linux)
  91   #:use-module (gnu packages libusb)
  92   #:use-module (gnu packages llvm)
  93   #:use-module (gnu packages mp3) ;taglib
  94   #:use-module (gnu packages perl)
  95   #:use-module (gnu packages pkg-config)
  96   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
  97   #:use-module (gnu packages python)
  98   #:use-module (gnu packages python-xyz)
  99   #:use-module (gnu packages rdf)
 100   #:use-module (gnu packages readline)
 101   #:use-module (gnu packages sdl)
 102   #:use-module (gnu packages serialization)
 103   #:use-module (gnu packages telephony)
 104   #:use-module (gnu packages tls)
 105   #:use-module (gnu packages video)
 106   #:use-module (gnu packages vim) ;xxd
 107   #:use-module (gnu packages webkit)
 108   #:use-module (gnu packages wxwidgets)
 109   #:use-module (gnu packages xiph)
 110   #:use-module (gnu packages xml)
 111   #:use-module (gnu packages xorg)
 112   #:use-module (gnu packages maths)
 113   #:use-module (gnu packages multiprecision)
 114   #:use-module (gnu packages music)
 115   #:use-module (srfi srfi-1)
 116   #:use-module (srfi srfi-26))
 117
 118 (define-public alsa-modular-synth
 119   (package
 120     (name "alsa-modular-synth")
 121     (version "2.1.2")
 122     (source (origin
 123               (method url-fetch)
 124               (uri (string-append "mirror://sourceforge/alsamodular/alsamodular"
 125                                   "/" version "/ams-" version ".tar.bz2"))
 126               (sha256
 127                (base32
 128                 "1azbrhpfk4nnybr7kgmc7w6al6xnzppg853vas8gmkh185kk11l0"))))
 129     (build-system gnu-build-system)
 130     (arguments
 131      `(#:configure-flags
 132        '("--enable-qt5"
 133          "CXXFLAGS=-std=gnu++11")
 134        #:phases
 135        (modify-phases %standard-phases
 136          ;; Insert an extra space between linker flags.
 137          (add-before 'configure 'add-missing-space
 138            (lambda _
 139              (substitute* "configure"
 140                (("LIBS\\+=\\$LIBSsave") "LIBS+=\" $LIBSsave\"")
 141                (("CFLAGS\\+=\\$CFLAGSsave") "CFLAGS+=\" $CFLAGSsave\""))
 142              #t)))))
 143     (inputs
 144      `(("alsa-lib" ,alsa-lib)
 145        ;; We cannot use zita-alsa-pcmi (the successor of clalsadrv) due to
 146        ;; license incompatibility.
 147        ("clalsadrv" ,clalsadrv)
 148        ("fftw" ,fftw)
 149        ("jack" ,jack-1)
 150        ("ladspa" ,ladspa)
 151        ("liblo" ,liblo)
 152        ("qtbase" ,qtbase)
 153        ("qttools" ,qttools)))
 154     (native-inputs
 155      `(("pkg-config" ,pkg-config)
 156        ("gcc" ,gcc-5)))
 157     (home-page "http://alsamodular.sourceforge.net/")
 158     (synopsis "Realtime modular synthesizer and effect processor")
 159     (description
 160      "AlsaModularSynth is a digital implementation of a classical analog
 161 modular synthesizer system.  It uses virtual control voltages to control the
 162 parameters of the modules.  The control voltages which control the frequency
 163 e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
 164 Filter) modules follow the convention of 1V / Octave.")
 165     (license license:gpl2)))
 166
 167 (define-public aubio
 168   (package
 169     (name "aubio")
 170     (version "0.4.9")
 171     (source (origin
 172              (method url-fetch)
 173              (uri (string-append
 174                    "https://aubio.org/pub/aubio-" version ".tar.bz2"))
 175              (sha256
 176               (base32
 177                "1npks71ljc48w6858l9bq30kaf5nph8z0v61jkfb70xb9np850nl"))))
 178     (build-system waf-build-system)
 179     (arguments
 180      `(#:tests? #f                      ; no check target
 181        #:configure-flags
 182        (list
 183         (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib")
 184         "--enable-fftw3f"
 185         "--enable-jack"
 186         "--enable-sndfile"
 187         "--enable-samplerate"
 188         "--enable-avcodec")
 189        #:python ,python-2))
 190     (inputs
 191      `(("jack" ,jack-1)
 192        ("libsndfile" ,libsndfile)
 193        ("libsamplerate" ,libsamplerate)
 194        ("fftwf" ,fftwf)
 195        ("ffmpeg" ,ffmpeg))) ; for libavcodec
 196     (native-inputs
 197      `(("pkg-config" ,pkg-config)))
 198     (home-page "https://aubio.org/")
 199     (synopsis "Library for audio labelling")
 200     (description
 201      "aubio is a tool designed for the extraction of annotations from audio
 202 signals.  Its features include segmenting a sound file before each of its
 203 attacks, performing pitch detection, tapping the beat and producing MIDI
 204 streams from live audio.")
 205     (license license:gpl3+)))
 206
 207 (define (ardour-rpath-phase major-version)
 208   `(lambda* (#:key outputs #:allow-other-keys)
 209      (let ((libdir (string-append (assoc-ref outputs "out")
 210                                   "/lib/ardour" ,major-version)))
 211        (substitute* "wscript"
 212          (("linker_flags = \\[\\]")
 213           (string-append "linker_flags = [\""
 214                          "-Wl,-rpath="
 215                          libdir ":"
 216                          libdir "/backends" ":"
 217                          libdir "/engines" ":"
 218                          libdir "/panners" ":"
 219                          libdir "/surfaces" ":"
 220                          libdir "/vamp" "\"]"))))
 221      #t))
 222
 223 (define-public ardour
 224   (package
 225     (name "ardour")
 226     (version "5.12")
 227     (source (origin
 228               (method git-fetch)
 229               (uri (git-reference
 230                     (url "https://git.ardour.org/ardour/ardour.git")
 231                     (commit version)))
 232               (snippet
 233                ;; Ardour expects this file to exist at build time.  The revision
 234                ;; is the output of
 235                ;;    git describe HEAD | sed 's/^[A-Za-z]*+//'
 236                `(call-with-output-file
 237                     "libs/ardour/revision.cc"
 238                   (lambda (port)
 239                     (format port ,(string-append "#include \"ardour/revision.h\"
 240 namespace ARDOUR { const char* revision = \"" version "\" ; }"))
 241                     #t)))
 242               (sha256
 243                (base32
 244                 "0mla5lm51ryikc2rrk53max2m7a5ds6i1ai921l2h95wrha45nkr"))
 245               (file-name (string-append name "-" version))))
 246     (build-system waf-build-system)
 247     (arguments
 248      `(#:configure-flags '("--cxx11"          ; required by gtkmm
 249                            "--no-phone-home"  ; don't contact ardour.org
 250                            "--freedesktop"    ; build .desktop file
 251                            "--test")          ; build unit tests
 252        #:phases
 253        (modify-phases %standard-phases
 254          (add-after 'unpack 'set-rpath-in-LDFLAGS
 255           ,(ardour-rpath-phase (version-major version)))
 256          (add-after 'install 'install-freedesktop-files
 257            (lambda* (#:key outputs #:allow-other-keys)
 258              (let* ((out   (assoc-ref outputs "out"))
 259                     (share (string-append out "/share"))
 260                     (ver   ,(version-major version)))
 261                (for-each
 262                  (lambda (size)
 263                    (let ((dir (string-append share "/icons/hicolor/"
 264                                              size "x" size "/apps")))
 265                      (mkdir-p dir)
 266                      (copy-file
 267                        (string-append "gtk2_ardour/resources/Ardour-icon_"
 268                                       size "px.png")
 269                        (string-append dir "/ardour" ver ".png"))))
 270                  '("16" "22" "32" "48" "256"))
 271                (install-file (string-append "build/gtk2_ardour/ardour"
 272                                             ver ".desktop")
 273                              (string-append share "/applications/"))
 274                (install-file (string-append "build/gtk2_ardour/ardour"
 275                                             ver ".appdata.xml")
 276                              (string-append share "/appdata/")))
 277              #t)))
 278        #:test-target "test"
 279        #:python ,python-2))
 280     (inputs
 281      `(("alsa-lib" ,alsa-lib)
 282        ("atkmm" ,atkmm)
 283        ("aubio" ,aubio)
 284        ("boost" ,boost)
 285        ("cairomm" ,cairomm)
 286        ("curl" ,curl)
 287        ("eudev" ,eudev)
 288        ("fftw" ,fftw)
 289        ("fftwf" ,fftwf)
 290        ("flac" ,flac)
 291        ("glibmm" ,glibmm)
 292        ("gtkmm" ,gtkmm-2)
 293        ("jack" ,jack-1)
 294        ("libarchive" ,libarchive)
 295        ("libart-lgpl" ,libart-lgpl)
 296        ("libgnomecanvasmm" ,libgnomecanvasmm)
 297        ("liblo" ,liblo)
 298        ("libogg" ,libogg)
 299        ("libsamplerate" ,libsamplerate)
 300        ("libsndfile" ,libsndfile)
 301        ("libusb" ,libusb)
 302        ("libvorbis" ,libvorbis)
 303        ("libxml2" ,libxml2)
 304        ("lilv" ,lilv)
 305        ("lrdf" ,lrdf)
 306        ("lv2" ,lv2)
 307        ("pangomm" ,pangomm)
 308        ("python-rdflib" ,python-rdflib)
 309        ("readline" ,readline)
 310        ("redland" ,redland)
 311        ("rubberband" ,rubberband)
 312        ("serd" ,serd)
 313        ("sord" ,sord)
 314        ("sratom" ,sratom)
 315        ("suil" ,suil)
 316        ("taglib" ,taglib)
 317        ("vamp" ,vamp)))
 318     (native-inputs
 319      `(("cppunit" ,cppunit)
 320        ("gettext" ,gettext-minimal)
 321        ("itstool" ,itstool)
 322        ("perl" ,perl)
 323        ("pkg-config" ,pkg-config)))
 324     (home-page "http://ardour.org")
 325     (synopsis "Digital audio workstation")
 326     (description
 327      "Ardour is a multi-channel digital audio workstation, allowing users to
 328 record, edit, mix and master audio and MIDI projects.  It is targeted at audio
 329 engineers, musicians, soundtrack editors and composers.")
 330     (license license:gpl2+)))
 331
 332 (define-public audacity
 333   (package
 334     (name "audacity")
 335     (version "2.3.3")
 336     (source
 337      (origin
 338        (method git-fetch)
 339        (uri (git-reference
 340              (url "https://github.com/audacity/audacity.git")
 341              (commit (string-append "Audacity-" version))))
 342        (file-name (git-file-name name version))
 343        (sha256
 344         (base32
 345          "0707fsnrl4vjalsi21w4blwgz024qhd0w8rdd5j5vpxf5lyk2rbk"))
 346        (patches (search-patches "audacity-build-with-system-portaudio.patch"))
 347        (modules '((guix build utils)))
 348        (snippet
 349         ;; Remove bundled libraries.
 350         '(begin
 351            (for-each
 352             (lambda (dir)
 353               (delete-file-recursively (string-append "lib-src/" dir)))
 354             '("expat" "ffmpeg" "lame" "libflac" "libid3tag" "libmad" "libogg"
 355               "libsndfile" "libsoxr" "libvamp" "libvorbis" "lv2"
 356               "portaudio-v19" "portmidi" "soundtouch" "twolame"
 357               ;; FIXME: these libraries have not been packaged yet:
 358               ;; "libnyquist"
 359               ;; "libscorealign"
 360               ;; "libwidgetextra"
 361               ;; "portburn"
 362               ;; "portsmf"
 363               ;; "portmixer"
 364
 365               ;; FIXME: we have this library, but it differs in that the Slide
 366               ;; class does not have a member "getInverseStretchedTime".
 367               ;; "sbsms"
 368               ))
 369            #t))))
 370     (build-system glib-or-gtk-build-system)
 371     (inputs
 372      `(("wxwidgets" ,wxwidgets)
 373        ("gtk+" ,gtk+)
 374        ("alsa-lib" ,alsa-lib)
 375        ("jack" ,jack-1)
 376        ("expat" ,expat)
 377        ("ffmpeg" ,ffmpeg)
 378        ("lame" ,lame)
 379        ("flac" ,flac)
 380        ("libid3tag" ,libid3tag)
 381        ("libmad" ,libmad)
 382        ;;("libsbsms" ,libsbsms)         ;bundled version is modified
 383        ("libsndfile" ,libsndfile)
 384        ("soundtouch" ,soundtouch)
 385        ("soxr" ,soxr)                   ;replaces libsamplerate
 386        ("twolame" ,twolame)
 387        ("vamp" ,vamp)
 388        ("libvorbis" ,libvorbis)
 389        ("lv2" ,lv2)
 390        ("lilv" ,lilv)                   ;for lv2
 391        ("suil" ,suil)                   ;for lv2
 392        ("portaudio" ,portaudio)
 393        ("portmidi" ,portmidi)))
 394     (native-inputs
 395      `(("autoconf" ,autoconf)
 396        ("automake" ,automake)
 397        ("gettext" ,gettext-minimal)     ;for msgfmt
 398        ("libtool" ,libtool)
 399        ("pkg-config" ,pkg-config)
 400        ("python" ,python-2)
 401        ("which" ,which)))
 402     (arguments
 403      `(#:configure-flags
 404        (let ((libid3tag (assoc-ref %build-inputs "libid3tag"))
 405              (libmad (assoc-ref %build-inputs "libmad"))
 406              (portmidi (assoc-ref %build-inputs "portmidi")))
 407          (list
 408           ;; Loading FFmpeg dynamically is problematic.
 409           "--disable-dynamic-loading"
 410           ;; SSE instructions are available on Intel systems only.
 411           ,@(if (any (cute string-prefix? <> (or (%current-target-system)
 412                                                  (%current-system)))
 413                     '("x64_64" "i686"))
 414               '()
 415               '("--enable-sse=no"))
 416           ;; portmidi, libid3tag and libmad provide no .pc files, so
 417           ;; pkg-config fails to find them.  Force their inclusion.
 418           (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include")
 419           (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz")
 420           (string-append "LIBMAD_CFLAGS=-I" libmad "/include")
 421           (string-append "LIBMAD_LIBS=-L" libmad "/lib -lmad")
 422           (string-append "PORTMIDI_CFLAGS=-I" portmidi "/include")
 423           (string-append "PORTMIDI_LIBS=-L" portmidi "/lib -lportmidi")
 424           "EXPAT_USE_SYSTEM=yes"
 425           "FFMPEG_USE_SYSTEM=yes"
 426           "LAME_USE_SYSTEM=yes"
 427           "LIBFLAC_USE_SYSTEM=yes"
 428           "LIBID3TAG_USE_SYSTEM=yes"
 429           "LIBMAD_USE_SYSTEM=yes"
 430           "USE_LOCAL_LIBNYQUIST="      ;not packaged yet
 431           ;;"LIBSBSMS_USE_SYSTEM=yes"  ;bundled version is patched
 432           "LIBSNDFILE_USE_SYSTEM=yes"
 433           "LIBSOUNDTOUCH_USE_SYSTEM=yes"
 434           "LIBSOXR_USE_SYSTEM=yes"
 435           "LIBTWOLAME_USE_SYSTEM=yes"
 436           "LIBVAMP_USE_SYSTEM=yes"
 437           "LIBVORBIS_USE_SYSTEM=yes"
 438           "LV2_USE_SYSTEM=yes"
 439           "PORTAUDIO_USE_SYSTEM=yes"))
 440        #:phases
 441        (modify-phases %standard-phases
 442          (add-after 'unpack 'fix-sbsms-check
 443            (lambda _
 444              ;; This check is wrong: there is no 2.2.0 release; not even the
 445              ;; bundled sources match this release string.
 446              (substitute* '("m4/audacity_checklib_libsbsms.m4"
 447                             "configure")
 448                (("sbsms >= 2.2.0") "sbsms >= 2.0.0"))
 449              #t))
 450          (add-after 'unpack 'use-upstream-headers
 451            (lambda* (#:key inputs #:allow-other-keys)
 452              (substitute* '("src/NoteTrack.cpp"
 453                             "src/AudioIO.cpp"
 454                             "src/AudioIO.h"
 455                             "src/AudioIOBase.cpp")
 456                (("../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")
 457                (("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
 458              (substitute* "src/prefs/MidiIOPrefs.cpp"
 459                (("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h"))
 460              #t)))
 461        ;; The test suite is not "well exercised" according to the developers,
 462        ;; and fails with various errors.  See
 463        ;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.
 464        #:tests? #f))
 465     (home-page "https://www.audacityteam.org/")
 466     (synopsis "Software for recording and editing sounds")
 467     (description
 468      "Audacity is a multi-track audio editor designed for recording, playing
 469 and editing digital audio.  It features digital effects and spectrum analysis
 470 tools.")
 471     (license license:gpl2+)))
 472
 473 (define-public audiofile
 474   (package
 475     (name "audiofile")
 476     (version "0.3.6")
 477     (source
 478      (origin
 479        (method url-fetch)
 480        (uri (string-append
 481              "https://audiofile.68k.org/audiofile-" version ".tar.gz"))
 482        (sha256
 483         (base32 "0rb927zknk9kmhprd8rdr4azql4gn2dp75a36iazx2xhkbqhvind"))
 484        (patches
 485         ;; CVE references according to nixpgs
 486         (search-patches
 487          "audiofile-fix-datatypes-in-tests.patch"
 488          "audiofile-fix-sign-conversion.patch"
 489          "audiofile-hurd.patch"
 490          "audiofile-CVE-2015-7747.patch"
 491          ;; CVE-2017-6829:
 492          "audiofile-Fix-index-overflow-in-IMA.cpp.patch"
 493          ;; CVE-2017-6827, CVE-2017-6828, CVE-2017-6832, CVE-2017-6835,
 494          ;; CVE-2017-6837:
 495          "audiofile-Check-the-number-of-coefficients.patch"
 496          ;; CVE-2017-6839:
 497          "audiofile-Fix-overflow-in-MSADPCM-decodeSam.patch"
 498          ;; CVE-2017-6830, CVE-2017-6834, CVE-2017-6836, CVE-2017-6838:
 499          "audiofile-Fix-multiply-overflow-sfconvert.patch"
 500          "audiofile-signature-of-multiplyCheckOverflow.patch"
 501          ;; CVE-2017-6831:
 502          "audiofile-Fail-on-error-in-parseFormat.patch"
 503          ;; CVE-2017-6833:
 504          "audiofile-division-by-zero-BlockCodec-runPull.patch"
 505          "audiofile-CVE-2018-13440.patch"
 506          "audiofile-CVE-2018-17095.patch"))))
 507     (build-system gnu-build-system)
 508     (inputs
 509      `(("alsa-lib" ,alsa-lib)))
 510     (home-page "https://audiofile.68k.org/")
 511     (synopsis "Library to handle various audio file formats")
 512     (description "This is an open-source version of SGI's audiofile library.
 513 It provides a uniform programming interface for processing of audio data to
 514 and from audio files of many common formats.
 515
 516 Currently supported file formats include AIFF/AIFF-C, WAVE, and NeXT/Sun
 517 .snd/.au, BICS, and raw data.  Supported compression formats are currently
 518 G.711 mu-law and A-law.")
 519     (license license:lgpl2.1+)))
 520
 521 (define-public autotalent
 522   (package
 523     (name "autotalent")
 524     (version "0.2")
 525     (source (origin
 526               (method url-fetch)
 527               (uri (string-append "http://tombaran.info/autotalent-"
 528                                   version ".tar.gz"))
 529               (sha256
 530                (base32
 531                 "1n04qm66f14195ly6gsy3ra7v2j7zad5n19d8dwfmh0qs6h9hphh"))))
 532     (build-system gnu-build-system)
 533     (arguments
 534      `(#:tests? #f ; no check target
 535        #:phases
 536        (modify-phases %standard-phases
 537          ;; no configure script
 538          (delete 'configure)
 539          (add-before 'install 'prepare-target-directory
 540            (lambda* (#:key outputs #:allow-other-keys)
 541              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 542              #t))
 543          (add-after 'unpack 'override-target-directory
 544            (lambda* (#:key outputs #:allow-other-keys)
 545              (substitute* "Makefile"
 546                (("/usr/lib64/ladspa")
 547                 (string-append (assoc-ref outputs "out") "/lib/ladspa")))
 548              #t)))))
 549     (inputs
 550      `(("ladspa" ,ladspa)))
 551     (home-page "http://tombaran.info/autotalent.html")
 552     (synopsis "Pitch-correction LADSPA audio plugin")
 553     (description
 554      "Autotalent is a LADSPA plugin for real-time pitch-correction.  Among its
 555 controls are allowable notes, strength of correction, LFO for vibrato and
 556 formant warp.")
 557     ;; All code except the FFT routine is licensed under GPLv2+.
 558     ;; The FFT routine is under BSD-3.
 559     (license license:gpl2+)))
 560
 561 (define-public azr3
 562   (package
 563     (name "azr3")
 564     (version "1.2.3")
 565     (source (origin
 566               (method url-fetch)
 567               (uri (string-append "mirror://savannah/ll-plugins/azr3-jack-"
 568                                   version
 569                                   ".tar.bz2"))
 570               (sha256
 571                (base32
 572                 "18mdw6nc0vgj6k9rsy0x8w64wvzld0frqshrxxbxfj9qi9843vlc"))
 573               (patches (search-patches "azr3.patch"))))
 574     (build-system gnu-build-system)
 575     (arguments
 576      `(#:tests? #f ; no check target
 577        #:make-flags
 578        (list "LV2PEG=ttl2c"
 579              (string-append "prefix=" %output)
 580              (string-append "pkgdatadir=" %output "/share/azr3-jack"))
 581        #:phases
 582        (modify-phases %standard-phases
 583          (add-before 'install 'fix-timestamp
 584            (lambda _
 585              (let ((early-1980 315619200)) ; 1980-01-02 UTC
 586                (utime "azr3.1" early-1980 early-1980))
 587              #t)))))
 588     (inputs
 589      `(("gtkmm" ,gtkmm-2)
 590        ("lvtk" ,lvtk)
 591        ("jack" ,jack-1)
 592        ("lash" ,lash)))
 593     (native-inputs
 594      `(("pkg-config" ,pkg-config)))
 595     (home-page "http://ll-plugins.nongnu.org/azr3/")
 596     (synopsis "Tonewheel organ synthesizer")
 597     (description
 598      "AZR-3 is a port of the free VST plugin AZR-3.  It is a tonewheel organ
 599 with drawbars, distortion and rotating speakers.  The organ has three
 600 sections, two polyphonic sections with nine drawbars each and one monophonic
 601 bass section with five drawbars.  A standalone JACK application and LV2
 602 plugins are provided.")
 603     (license license:gpl2)))
 604
 605 (define-public calf
 606   (package
 607     (name "calf")
 608     (version "0.90.3")
 609     (source (origin
 610               (method url-fetch)
 611               (uri (string-append "https://calf-studio-gear.org/files/calf-"
 612                                   version ".tar.gz"))
 613               (sha256
 614                (base32
 615                 "17x4hylgq4dn9qycsdacfxy64f5cv57n2qgkvsdp524gnqzw4az3"))))
 616     (build-system gnu-build-system)
 617     (inputs
 618      `(("fluidsynth" ,fluidsynth)
 619        ("expat" ,expat)
 620        ("glib" ,glib)
 621        ("gtk" ,gtk+-2)
 622        ("cairo" ,cairo)
 623        ("lash" ,lash)
 624        ("jack" ,jack-1)
 625        ("lv2" ,lv2)
 626        ("ladspa" ,ladspa)
 627        ("fftw" ,fftw)))
 628     (native-inputs
 629      `(("pkg-config" ,pkg-config)))
 630     (native-search-paths
 631      (list (search-path-specification
 632             (variable "LV2_PATH")
 633             (files '("lib/lv2")))))
 634     (home-page "http://calf.sourceforge.net/")
 635     (synopsis "Audio plug-in pack for LV2 and JACK environments")
 636     (description
 637      "Calf Studio Gear is an audio plug-in pack for LV2 and JACK environments.
 638 The suite contains lots of effects (delay, modulation, signal processing,
 639 filters, equalizers, dynamics, distortion and mastering effects),
 640 instruments (SF2 player, organ simulator and a monophonic synthesizer) and
 641 tools (analyzer, mono/stereo tools, crossovers).")
 642     ;; calfjackhost is released under GPLv2+
 643     ;; The plugins are released under LGPLv2.1+
 644     (license (list license:lgpl2.1+ license:gpl2+))))
 645
 646 (define-public caps-plugins-lv2
 647   (package
 648     (name "caps-plugins-lv2")
 649     (version "0.9.24") ; version that has been ported.
 650     (source
 651      (origin
 652        ;; The Github project hasn't tagged a release.
 653        (method git-fetch)
 654        (uri (git-reference
 655              ;; Actually https://github.com/moddevices/caps-lv2.git, but it's
 656              ;; missing fixes for newer glibc, so using the origin of a pull
 657              ;; request regarding this issue:
 658              (url "https://github.com/jujudusud/caps-lv2.git")
 659              (commit "9c9478b7fbd8f9714f552ebe2a6866398b0babfb")))
 660        (file-name (git-file-name name version))
 661        (sha256
 662         (base32
 663          "1idfnazin3cca41zw1a8vwgnxjnkrap7bxxjamjqvgpmvydgcam1"))))
 664     (build-system gnu-build-system)
 665     (arguments
 666      `(#:tests? #f ; no check target
 667        #:phases
 668        (modify-phases %standard-phases
 669          ;; no configure script
 670          (delete 'configure)
 671          (add-after 'unpack 'override-target-directory
 672            (lambda* (#:key outputs #:allow-other-keys)
 673              (substitute* (find-files "plugins" "Makefile")
 674                (("/usr/local")(assoc-ref outputs "out")))
 675              #t)))))
 676     (inputs
 677      `(("lv2" ,lv2)))
 678     ;; home-page of the original LADSPA version: http://quitte.de/dsp/caps.html
 679     (home-page "https://github.com/moddevices/caps-lv2")
 680     (synopsis "LV2 port of the CAPS audio plugin colection")
 681     (description
 682      "LV2 port of CAPS, a collection of audio plugins comprising basic virtual
 683 guitar amplification and a small range of classic effects, signal processors and
 684 generators of mostly elementary and occasionally exotic nature.")
 685     (license license:gpl3+)))
 686
 687 (define-public infamous-plugins
 688   (package
 689     (name "infamous-plugins")
 690     (version "0.2.04")
 691     (source (origin
 692               (method git-fetch)
 693               (uri (git-reference
 694                     (url "https://github.com/ssj71/infamousPlugins.git")
 695                     (commit (string-append "v" version))))
 696               (file-name (git-file-name name version))
 697               (sha256
 698                (base32
 699                 "0hmqk80w4qxq09iag7b7srf2g0wigkyhzq0ywxvhz2iz0hq9k0dh"))))
 700     (build-system cmake-build-system)
 701     (arguments
 702      `(#:tests? #f                      ; there are no tests
 703        #:phases
 704        (modify-phases %standard-phases
 705          (add-after 'unpack 'remove-compiler-flags
 706            (lambda _
 707              (substitute* (find-files "." "CMakeLists.txt")
 708                (("-msse2 -mfpmath=sse") ""))
 709              #t)))))
 710     (inputs
 711      `(("cairo" ,cairo)
 712        ("fftwf" ,fftwf)
 713        ("lv2" ,lv2)
 714        ("ntk" ,ntk)
 715        ("zita-resampler" ,zita-resampler)))
 716     (native-inputs
 717      `(("pkg-config" ,pkg-config)))
 718     (home-page "https://ssj71.github.io/infamousPlugins")
 719     (synopsis "LV2 plugins for live use")
 720     (description
 721      "The infamous plugins are a collection of LV2 audio plugins for live
 722 performances.  The plugins include a cellular automaton synthesizer, an
 723 envelope follower, distortion effects, tape effects and more.")
 724     (license license:gpl2+)))
 725
 726 (define-public swh-plugins
 727   (package
 728     (name "swh-plugins")
 729     (version "0.4.17")
 730     (source (origin
 731               (method git-fetch)
 732               (uri (git-reference
 733                     (url "https://github.com/swh/ladspa.git")
 734                     (commit (string-append "v" version))))
 735               (file-name (git-file-name name version))
 736               (sha256
 737                (base32
 738                 "1c98z2xxz9pgcb4dg99gz8qrylh5cnag0j18a52d88ifsy24isvq"))))
 739     (native-inputs
 740      `(("autoconf" ,autoconf)
 741        ("automake" ,automake)
 742        ("gettext" ,gettext-minimal) ;for autopoint
 743        ("libtool" ,libtool)
 744        ("perl" ,perl)
 745        ("pkg-config" ,pkg-config)
 746        ("which" ,which)))
 747     (inputs
 748      `(("fftwf" ,fftwf)
 749        ("perl-xml-parser" ,perl-xml-parser)))
 750     (build-system gnu-build-system)
 751     (home-page "http://plugin.org.uk")
 752     (synopsis "The SWH Plugins package for the LADSPA plugin system")
 753     (description "This package provides Steve Harris's LADSPA plugins.")
 754     (license license:gpl2+)))
 755
 756 (define-public swh-plugins-lv2
 757   (package
 758     (name "swh-plugins-lv2")
 759     (version "1.0.16")
 760     (source (origin
 761               (method git-fetch)
 762               (uri (git-reference
 763                     (url "https://github.com/swh/lv2.git")
 764                     (commit (string-append "v" version))))
 765               (file-name (git-file-name name version))
 766               (sha256
 767                (base32
 768                 "0y7nnww864mm4k6ayy2lhcws3wlbhb2gkyjbrwk921fvc18qk9mz"))))
 769     (build-system gnu-build-system)
 770     (arguments
 771      `(#:tests? #f ; no check target
 772        #:make-flags (list "CC=gcc"
 773                           (string-append "PREFIX="
 774                                          (assoc-ref %outputs "out")))
 775        #:phases
 776        (modify-phases %standard-phases
 777          ;; no configure script
 778          (delete 'configure)
 779          (add-after 'unpack 'patch-makefile-and-enter-directory
 780            ;; The default install target doesn't install, but the
 781            ;; "install-system" target does.
 782            (lambda _
 783              (substitute* "Makefile"
 784                (("install:") "install: install-system"))
 785              #t)))))
 786     (inputs
 787      `(("lv2" ,lv2)
 788        ("fftwf" ,fftwf)))
 789     (native-inputs
 790      `(("libxslt" ,libxslt)
 791        ("pkg-config" ,pkg-config)))
 792     (home-page "http://plugin.org.uk")
 793     (synopsis "SWH plugins in LV2 format")
 794     (description
 795      "Swh-plugins-lv2 is a collection of audio plugins in LV2 format.  Plugin
 796 classes include: dynamics (compressor, limiter), time (delay, chorus,
 797 flanger), ringmodulator, distortion, filters, pitchshift, oscillators,
 798 emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
 799     (license license:gpl3+)))
 800
 801 (define-public csound
 802   (package
 803     (name "csound")
 804     (version "6.13.0")
 805     (source (origin
 806               (method git-fetch)
 807               (uri (git-reference
 808                     (url "https://github.com/csound/csound.git")
 809                     (commit version)))
 810               (file-name (git-file-name name version))
 811               (sha256
 812                (base32
 813                 "14822ybqyp31z18gky2y9zadr9dkbhabg97y139py73w7v3af1bh"))))
 814     (build-system cmake-build-system)
 815     (inputs
 816      `(("alsa-lib" ,alsa-lib)
 817        ("boost" ,boost)
 818        ("pulseaudio" ,pulseaudio)
 819        ("libsndfile" ,libsndfile)
 820        ("liblo" ,liblo)
 821        ("ladspa" ,ladspa)
 822        ("jack" ,jack-1)
 823        ("gettext" ,gettext-minimal)))
 824     (native-inputs
 825      `(("bison" ,bison)
 826        ("flex" ,flex)
 827        ("zlib" ,zlib)))
 828     (home-page "https://csound.com/")
 829     (synopsis "Sound and music computing system")
 830     (description
 831      "Csound is a user-programmable and user-extensible sound processing
 832 language and software synthesizer.")
 833     (license license:lgpl2.1+)))
 834
 835 (define-public clalsadrv
 836   (package
 837     (name "clalsadrv")
 838     (version "2.0.0")
 839     (source (origin
 840               (method url-fetch)
 841               (uri (string-append
 842                     "http://kokkinizita.linuxaudio.org"
 843                     "/linuxaudio/downloads/clalsadrv-"
 844                     version ".tar.bz2"))
 845               (sha256
 846                (base32
 847                 "0bsacx3l9065gk8g4137qmz2ij7s9x06aldvacinzlcslw7bd1kq"))))
 848     (build-system gnu-build-system)
 849     (arguments
 850      `(#:tests? #f ; no "check" target
 851        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 852        #:phases
 853        (modify-phases %standard-phases
 854          (add-after 'unpack 'patch-makefile-and-enter-directory
 855            (lambda _
 856              (substitute* "libs/Makefile"
 857                (("/sbin/ldconfig") "true")
 858                (("^LIBDIR =.*") "LIBDIR = lib\n"))
 859              (chdir "libs")
 860              #t))
 861          (add-after 'install 'install-symlink
 862            (lambda _
 863              (symlink "libclalsadrv.so"
 864                       (string-append (assoc-ref %outputs "out")
 865                                      "/lib/libclalsadrv.so.2"))
 866              #t))
 867          ;; no configure script
 868          (delete 'configure))))
 869     (inputs
 870      `(("alsa-lib" ,alsa-lib)
 871        ("fftw" ,fftw)))
 872     (home-page "https://kokkinizita.linuxaudio.org")
 873     (synopsis "C++ wrapper around the ALSA API")
 874     (description
 875      "clalsadrv is a C++ wrapper around the ALSA API simplifying access to
 876 ALSA PCM devices.")
 877     (license license:gpl2+)))
 878
 879 (define-public amb-plugins
 880   (package
 881     (name "amb-plugins")
 882     (version "0.8.1")
 883     (source (origin
 884               (method url-fetch)
 885               (uri (string-append
 886                     "http://kokkinizita.linuxaudio.org"
 887                     "/linuxaudio/downloads/AMB-plugins-"
 888                     version ".tar.bz2"))
 889               (sha256
 890                (base32
 891                 "0x4blm4visjqj0ndqr0cg776v3b7lvplpc8cgi9n51llhavn0jpl"))))
 892     (build-system gnu-build-system)
 893     (arguments
 894      `(#:tests? #f ; no "check" target
 895        #:phases
 896        (modify-phases %standard-phases
 897          ;; no configure script
 898          (delete 'configure)
 899          (add-before 'install 'prepare-target-directory
 900            (lambda* (#:key outputs #:allow-other-keys)
 901              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 902              #t))
 903          (add-after 'unpack 'override-target-directory-and-tool-paths
 904            (lambda* (#:key outputs #:allow-other-keys)
 905              (substitute* "Makefile"
 906                (("/usr/lib/ladspa")
 907                 (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 908                (("/usr/bin/install") (which "install"))
 909                (("/bin/rm") "#"))
 910              #t)))))
 911     (home-page "https://kokkinizita.linuxaudio.org")
 912     (synopsis "LADSPA ambisonics plugins")
 913     (description
 914      "The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
 915 used within Ardour.  Features include: mono and stereo to B-format panning,
 916 horizontal rotator, square, hexagon and cube decoders.")
 917     (license license:gpl2+)))
 918
 919 (define-public mcp-plugins
 920   (package
 921     (name "mcp-plugins")
 922     (version "0.4.0")
 923     (source (origin
 924               (method url-fetch)
 925               (uri (string-append
 926                     "http://kokkinizita.linuxaudio.org"
 927                     "/linuxaudio/downloads/MCP-plugins-"
 928                     version ".tar.bz2"))
 929               (sha256
 930                (base32
 931                 "06a9r1l85jmg7l1cvc3788mk8ra0xagjfy1rmhw3b80y4n0vlnvc"))))
 932     (build-system gnu-build-system)
 933     (arguments
 934      `(#:tests? #f ; no "check" target
 935        #:phases
 936        (modify-phases %standard-phases
 937          ;; no configure script
 938          (delete 'configure)
 939          (add-before 'install 'prepare-target-directory
 940            (lambda* (#:key outputs #:allow-other-keys)
 941              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 942              #t))
 943          (add-after 'unpack 'override-target-directory
 944            (lambda* (#:key outputs #:allow-other-keys)
 945              (substitute* "Makefile"
 946                (("/usr") (assoc-ref outputs "out")))
 947              #t)))))
 948     (home-page "https://kokkinizita.linuxaudio.org")
 949     (synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
 950     (description
 951      "This package provides various LADSPA plugins.  @code{cs_chorus} and
 952 @code{cs_phaser} provide chorus and phaser effects, respectively;
 953 @code{mvclpf24} provides four implementations of the low-pass filter used in
 954 vintage Moog synthesizers; @code{mvchpf24} is based on the voltage-controlled
 955 high-pass filter by Robert Moog.  The filters attempt to accurately emulate
 956 the non-linear circuit elements of their original analog counterparts.")
 957     (license license:gpl2+)))
 958
 959 (define-public rev-plugins
 960   (package
 961     (name "rev-plugins")
 962     (version "0.7.1")
 963     (source (origin
 964               (method url-fetch)
 965               (uri (string-append
 966                     "http://kokkinizita.linuxaudio.org"
 967                     "/linuxaudio/downloads/REV-plugins-"
 968                     version ".tar.bz2"))
 969               (sha256
 970                (base32
 971                 "1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
 972     (build-system gnu-build-system)
 973     (arguments
 974      `(#:tests? #f ; no "check" target
 975        #:phases
 976        (modify-phases %standard-phases
 977          ;; no configure script
 978          (delete 'configure)
 979          (add-before 'install 'prepare-target-directory
 980            (lambda* (#:key outputs #:allow-other-keys)
 981              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 982              #t))
 983          (add-after 'unpack 'override-target-directory
 984            (lambda* (#:key outputs #:allow-other-keys)
 985              (substitute* "Makefile"
 986                (("/usr") (assoc-ref outputs "out")))
 987              #t)))))
 988     (home-page "https://kokkinizita.linuxaudio.org")
 989     (synopsis "LADSPA reverb plugin")
 990     (description
 991      "This package provides a stereo reverb LADSPA plugin based on the
 992 well-known greverb.")
 993     (license license:gpl2+)))
 994
 995 (define-public fil-plugins
 996   (package
 997     (name "fil-plugins")
 998     (version "0.3.0")
 999     (source (origin
1000               (method url-fetch)
1001               (uri (string-append
1002                     "http://kokkinizita.linuxaudio.org"
1003                     "/linuxaudio/downloads/FIL-plugins-"
1004                     version ".tar.bz2"))
1005               (sha256
1006                (base32
1007                 "1scfv9j7jrp50r565haa4rvxn1vk2ss86xssl5qgcr8r45qz42qw"))))
1008     (build-system gnu-build-system)
1009     (arguments
1010      `(#:tests? #f ; no "check" target
1011        #:phases
1012        (modify-phases %standard-phases
1013          ;; no configure script
1014          (delete 'configure)
1015          (add-before 'install 'prepare-target-directory
1016            (lambda* (#:key outputs #:allow-other-keys)
1017              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1018              #t))
1019          (add-after 'unpack 'override-target-directory
1020            (lambda* (#:key outputs #:allow-other-keys)
1021              (substitute* "Makefile"
1022                (("/usr") (assoc-ref outputs "out")))
1023              #t)))))
1024     (home-page "https://kokkinizita.linuxaudio.org")
1025     (synopsis "LADSPA four-band parametric equalizer plugin")
1026     (description
1027      "This package provides a LADSPA plugin for a four-band parametric
1028 equalizer.  Each section has an active/bypass switch, frequency, bandwidth and
1029 gain controls.  There is also a global bypass switch and gain control.
1030
1031 The 2nd order resonant filters are implemented using a Mitra-Regalia style
1032 lattice filter, which is stable even while parameters are being changed.
1033
1034 All switches and controls are internally smoothed, so they can be used @code{live}
1035 without any clicks or zipper noises.  This makes this plugin suitable for use
1036 in systems that allow automation of plugin control ports, such as Ardour, or
1037 for stage use.")
1038     (license license:gpl2+)))
1039
1040 (define-public ste-plugins
1041   (package
1042     (name "ste-plugins")
1043     (version "0.0.2")
1044     (source (origin
1045               (method url-fetch)
1046               (uri (string-append
1047                     "http://kokkinizita.linuxaudio.org"
1048                     "/linuxaudio/downloads/STE-plugins-"
1049                     version ".tar.bz2"))
1050               (sha256
1051                (base32
1052                 "0s3c9w5xihs87cnd1lh9xgj3maabjdyh6bl766qp5lhkg3ax8zy6"))))
1053     (build-system gnu-build-system)
1054     (arguments
1055      `(#:tests? #f ; no "check" target
1056        #:phases
1057        (modify-phases %standard-phases
1058          ;; no configure script
1059          (delete 'configure)
1060          (add-before 'install 'prepare-target-directory
1061            (lambda* (#:key outputs #:allow-other-keys)
1062              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1063              #t))
1064          (add-after 'unpack 'override-target-directory
1065            (lambda* (#:key outputs #:allow-other-keys)
1066              (substitute* "Makefile"
1067                (("/usr") (assoc-ref outputs "out")))
1068              #t)))))
1069     (home-page "https://kokkinizita.linuxaudio.org")
1070     (synopsis "LADSPA stereo width plugin")
1071     (description
1072      "This package provides a LADSPA plugin to manipulate the stereo width of
1073 audio signals.")
1074     (license license:gpl2+)))
1075
1076 (define-public vco-plugins
1077   (package
1078     (name "vco-plugins")
1079     (version "0.3.0")
1080     (source (origin
1081               (method url-fetch)
1082               (uri (string-append
1083                     "http://kokkinizita.linuxaudio.org"
1084                     "/linuxaudio/downloads/VCO-plugins-"
1085                     version ".tar.bz2"))
1086               (sha256
1087                (base32
1088                 "1xzqdg3b07r7zww05y9bb737l9dxvfkv28m3fyak1aazaci3rsgl"))))
1089     (build-system gnu-build-system)
1090     (arguments
1091      `(#:tests? #f ; no "check" target
1092        #:phases
1093        (modify-phases %standard-phases
1094          ;; no configure script
1095          (delete 'configure)
1096          (add-before 'install 'prepare-target-directory
1097            (lambda* (#:key outputs #:allow-other-keys)
1098              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1099              #t))
1100          (add-after 'unpack 'override-target-directory
1101            (lambda* (#:key outputs #:allow-other-keys)
1102              (substitute* "Makefile"
1103                (("/usr") (assoc-ref outputs "out"))
1104                (("/bin/cp") (which "cp")))
1105              #t)))))
1106     (home-page "https://kokkinizita.linuxaudio.org")
1107     (synopsis "LADSPA plugin for synthesizer oscillators")
1108     (description
1109      "The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
1110
1111 @enumerate
1112 @item Pulse-VCO, a dirac pulse oscillator with flat amplitude spectrum
1113 @item Saw-VCO, a sawtooth oscillator with 1/F amplitude spectrum
1114 @item Rec-VCO, a square / rectangle oscillator
1115 @end enumerate\n
1116
1117 All oscillators are low-pass filtered to provide waveforms similar to the
1118 output of analog synthesizers such as the Moog Voyager.")
1119     (license license:gpl2+)))
1120
1121 (define-public wah-plugins
1122   (package
1123     (name "wah-plugins")
1124     (version "0.1.0")
1125     (source (origin
1126               (method url-fetch)
1127               (uri (string-append
1128                     "http://kokkinizita.linuxaudio.org"
1129                     "/linuxaudio/downloads/WAH-plugins-"
1130                     version ".tar.bz2"))
1131               (sha256
1132                (base32
1133                 "1wkbjarxdhjixkh7d5abralj11dj2xxg644fz3ycd7qyfgfvjfgd"))))
1134     (build-system gnu-build-system)
1135     (arguments
1136      `(#:tests? #f ; no "check" target
1137        #:phases
1138        (modify-phases %standard-phases
1139          ;; no configure script
1140          (delete 'configure)
1141          (add-before 'install 'prepare-target-directory
1142            (lambda* (#:key outputs #:allow-other-keys)
1143              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1144              #t))
1145          (add-after 'unpack 'override-target-directory
1146            (lambda* (#:key outputs #:allow-other-keys)
1147              (substitute* "Makefile"
1148                (("/usr") (assoc-ref outputs "out")))
1149              #t)))))
1150     (home-page "https://kokkinizita.linuxaudio.org")
1151     (synopsis "LADSPA Autowah effect plugin")
1152     (description
1153      "This package provides a LADSPA plugin for a Wah effect with envelope
1154 follower.")
1155     (license license:gpl2+)))
1156
1157 (define-public g2reverb
1158   (package
1159     (name "g2reverb")
1160     (version "0.7.1")
1161     (source (origin
1162               (method url-fetch)
1163               (uri (string-append
1164                     "http://kokkinizita.linuxaudio.org"
1165                     "/linuxaudio/downloads/g2reverb-"
1166                     version ".tar.bz2"))
1167               (sha256
1168                (base32
1169                 "18wb8vj1kky5glr76s34awbi8qzplsmf3wjbd7a12hfv4j0bkwrj"))))
1170     (build-system gnu-build-system)
1171     (arguments
1172      `(#:tests? #f ; no "check" target
1173        #:phases
1174        (modify-phases %standard-phases
1175          ;; no configure script
1176          (delete 'configure)
1177          (add-before 'install 'prepare-target-directory
1178            (lambda* (#:key outputs #:allow-other-keys)
1179              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1180              #t))
1181          (add-after 'unpack 'override-target-directory
1182            (lambda* (#:key outputs #:allow-other-keys)
1183              (substitute* "Makefile"
1184                (("/usr") (assoc-ref outputs "out")))
1185              #t)))))
1186     (home-page "https://kokkinizita.linuxaudio.org")
1187     (synopsis "LADSPA stereo reverb plugin")
1188     (description
1189      "This package provides a LADSPA plugin for a stereo reverb effect.")
1190     (license license:gpl2+)))
1191
1192 (define-public fluidsynth
1193   (package
1194     (name "fluidsynth")
1195     (version "2.1.0")
1196     (source (origin
1197               (method git-fetch)
1198               (uri (git-reference
1199                     (url "https://github.com/FluidSynth/fluidsynth.git")
1200                     (commit (string-append "v" version))))
1201               (file-name (git-file-name name version))
1202               (sha256
1203                (base32
1204                 "0jhla1641rx77va4b6n4shn8srj87rpwvp170byj1bg8z8g89ji1"))))
1205     (build-system cmake-build-system)
1206     (arguments
1207      '(#:tests? #f                      ; no check target
1208        #:phases
1209        (modify-phases %standard-phases
1210          (add-after 'unpack 'fix-libdir
1211            (lambda _
1212              ;; Install libraries to /lib, not /lib64.
1213              (substitute* "CMakeLists.txt"
1214                (("LIB_SUFFIX \\$\\{_init_lib_suffix\\}")
1215                 "LIB_SUFFIX \"\""))
1216              #t)))))
1217     (inputs
1218      `(("libsndfile" ,libsndfile)
1219        ("alsa-lib" ,alsa-lib)
1220        ("jack" ,jack-1)
1221        ("ladspa" ,ladspa)
1222        ("lash" ,lash)
1223        ("readline" ,readline)
1224        ("glib" ,glib)))
1225     (native-inputs
1226      `(("pkg-config" ,pkg-config)))
1227     (home-page "http://www.fluidsynth.org/")
1228     (synopsis "SoundFont synthesizer")
1229     (description
1230      "FluidSynth is a real-time software synthesizer based on the SoundFont 2
1231 specifications.  FluidSynth reads and handles MIDI events from the MIDI input
1232 device.  It is the software analogue of a MIDI synthesizer.  FluidSynth can
1233 also play midifiles using a Soundfont.")
1234     (license license:lgpl2.1+)))
1235
1236 ;; gzdoom@3.3.0 and lmms@1.1.3 requires this version.  Remove once no longer
1237 ;; needed.
1238 (define-public fluidsynth-1
1239   (package
1240     (inherit fluidsynth)
1241     (version "1.1.11")
1242     (source (origin
1243               (inherit (package-source fluidsynth))
1244               (uri (git-reference
1245                     (url "https://github.com/FluidSynth/fluidsynth")
1246                     (commit (string-append "v" version))))
1247               (file-name (git-file-name "fluidsynth" version))
1248               (sha256
1249                (base32
1250                 "0n75jq3xgq46hfmjkaaxz3gic77shs4fzajq40c8gk043i84xbdh"))))))
1251
1252 (define-public faad2
1253   (package
1254     (name "faad2")
1255     (version "2.8.6")
1256     (source (origin
1257               (method url-fetch)
1258               (uri (string-append "mirror://sourceforge/faac/faad2-src/faad2-"
1259                                   (version-major+minor version) ".0/"
1260                                   "faad2-" version ".tar.gz"))
1261               (sha256
1262                (base32
1263                 "089zqykqgmmysznvk0bi2pfvdqwclnn540d0zks83sv2pynpfjb5"))))
1264     (build-system gnu-build-system)
1265     (home-page "https://www.audiocoding.com/faad2.html")
1266     (synopsis "MPEG-4 and MPEG-2 AAC decoder")
1267     (description
1268      "FAAD2 is an MPEG-4 and MPEG-2 AAC decoder supporting LC, Main, LTP, SBR,
1269 PS, and DAB+.")
1270     (license license:gpl2)))
1271
1272 (define-public faust
1273   (package
1274     (name "faust")
1275     (version "0.9.90")
1276     (source (origin
1277               (method git-fetch)
1278               (uri (git-reference
1279                     (url "https://github.com/grame-cncm/faust.git")
1280                     (commit (string-append "v"
1281                                            (string-map (lambda (c)
1282                                                          (if (char=? c #\.) #\- c))
1283                                                        version)))))
1284               (file-name (string-append "faust-" version "-checkout"))
1285               (sha256
1286                (base32
1287                 "0qc6iwjd3i80jdyjc186c6ywipmjzl8wlsp4050pbr56q4rlkd4z"))))
1288     (build-system gnu-build-system)
1289     (arguments
1290      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
1291        #:tests? #f
1292        #:phases
1293        (modify-phases %standard-phases
1294          ;; no "configure" script
1295          (delete 'configure)
1296          ;; Files appear under $out/share/faust that are read-only.  The
1297          ;; install phase tries to overwrite them and fails, so we change
1298          ;; the permissions first.
1299          (add-before 'install 'fix-permissions
1300            (lambda _
1301              (for-each (lambda (file)
1302                          (chmod file #o644))
1303                        (find-files "architecture/max-msp" ".*"))
1304              #t)))))
1305     (native-inputs
1306      `(("unzip" ,unzip)))
1307     (home-page "http://faust.grame.fr/")
1308     (synopsis "Signal processing language")
1309     (description
1310      "Faust is a programming language for realtime audio signal processing.")
1311     (license license:gpl2+)))
1312
1313 (define-public faust-2
1314   (package
1315     (inherit faust)
1316     (version "2.5.23")
1317     (source (origin
1318               (method url-fetch)
1319               (uri (string-append "https://github.com/grame-cncm/faust/"
1320                                   "releases/download/" version
1321                                   "/faust-" version ".tar.gz"))
1322               (sha256
1323                (base32
1324                 "1yz5jnr76hh7rmxkpdi7gyrw1wp4gyqfpq8zyl97qdi5ga5gjznq"))))
1325     (build-system gnu-build-system)
1326     (arguments
1327      (substitute-keyword-arguments (package-arguments faust)
1328        ((#:make-flags flags)
1329         `(list (string-append "prefix=" (assoc-ref %outputs "out"))
1330                "world"))))
1331     (native-inputs
1332      `(("llvm" ,llvm-3.8)
1333        ("which" ,which)
1334        ("xxd" ,xxd)
1335        ("ctags" ,emacs-minimal)  ; for ctags
1336        ("pkg-config" ,pkg-config)))
1337     (inputs
1338      `(("libsndfile" ,libsndfile)
1339        ("libmicrohttpd" ,libmicrohttpd)
1340        ("ncurses" ,ncurses)
1341        ("openssl" ,openssl)
1342        ("zlib" ,zlib)))))
1343
1344 (define-public freepats
1345   (package
1346     (name "freepats")
1347     (version "20060219")
1348     (source (origin
1349               (method url-fetch)
1350               (uri (string-append "http://freepats.zenvoid.org/freepats-"
1351                                   version ".tar.bz2"))
1352               (sha256
1353                (base32
1354                 "12iw36rd94zirll96cd5k0va7p5hxmf2shvjlhzihcmjaw8flq82"))))
1355     (build-system trivial-build-system)
1356     (arguments
1357      `(#:modules ((guix build utils))
1358        #:builder (begin
1359                    (use-modules (guix build utils))
1360                    (let ((out (string-append %output "/share/freepats")))
1361                      (setenv "PATH" (string-append
1362                                      (assoc-ref %build-inputs "bzip2") "/bin:"
1363                                      (assoc-ref %build-inputs "tar") "/bin"))
1364                      (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
1365                      (chdir "freepats")
1366                      ;; Use absolute pattern references
1367                      (substitute* "freepats.cfg"
1368                        (("Tone_000") (string-append out "/Tone_000"))
1369                        (("Drum_000") (string-append out "/Drum_000")))
1370                      (mkdir-p out)
1371                      (copy-recursively "." out)
1372                      #t))))
1373     (native-inputs
1374      `(("tar" ,tar)
1375        ("bzip2" ,bzip2)))
1376     (home-page "http://freepats.zenvoid.org")
1377     (synopsis "GUS compatible patches for MIDI players")
1378     (description
1379      "FreePats is a project to create a free and open set of GUS compatible
1380 patches that can be used with softsynths such as Timidity and WildMidi.")
1381     ;; GPLv2+ with exception for compositions using these patches.
1382     (license license:gpl2+)))
1383
1384 (define-public guitarix
1385   (package
1386     (name "guitarix")
1387     (version "0.38.1")
1388     (source (origin
1389              (method url-fetch)
1390              (uri (string-append
1391                    "mirror://sourceforge/guitarix/guitarix/guitarix2-"
1392                    version ".tar.xz"))
1393              (sha256
1394               (base32
1395                "0bw7xnrx062nwb1bfj9x660h7069ncmz77szcs8icpqxrvhs7z80"))))
1396     (build-system waf-build-system)
1397     (arguments
1398      `(#:tests? #f ; no "check" target
1399        #:python ,python-2
1400        #:configure-flags
1401        (list
1402         ;; Add the output lib directory to the RUNPATH.
1403         (string-append "--ldflags=-Wl,-rpath=" %output "/lib"))
1404        #:phases
1405        (modify-phases %standard-phases
1406          (add-after 'unpack 'fix-boost-includes
1407            (lambda _
1408              (substitute* "src/headers/gx_internal_plugins.h"
1409                (("namespace gx_jack" m)
1410                 (string-append "#include <boost/noncopyable.hpp>\n" m)))
1411              (substitute* '("src/headers/gx_system.h"
1412                             "src/headers/gx_parameter.h"
1413                             "src/headers/gx_json.h")
1414                (("namespace gx_system" m)
1415                 (string-append "#include <boost/noncopyable.hpp>\n" m)))
1416              #t)))))
1417     (inputs
1418      `(("libsndfile" ,libsndfile)
1419        ("boost" ,boost)
1420        ("curl" ,curl)
1421        ("avahi" ,avahi)
1422        ("eigen" ,eigen)
1423        ("lv2" ,lv2)
1424        ("lilv" ,lilv)
1425        ("ladspa" ,ladspa)
1426        ("jack" ,jack-1)
1427        ("gtkmm" ,gtkmm-2)
1428        ("gtk+" ,gtk+-2)
1429        ("fftwf" ,fftwf)
1430        ("lrdf" ,lrdf)
1431        ("zita-resampler" ,zita-resampler)
1432        ("zita-convolver" ,zita-convolver)))
1433     (native-inputs
1434      `(("gperf" ,gperf)
1435        ("faust" ,faust)
1436        ("intltool" ,intltool)
1437        ("gettext" ,gettext-minimal)
1438        ("pkg-config" ,pkg-config)))
1439     (native-search-paths
1440      (list (search-path-specification
1441             (variable "LV2_PATH")
1442             (files '("lib/lv2")))))
1443     (home-page "http://guitarix.org/")
1444     (synopsis "Virtual guitar amplifier")
1445     (description "Guitarix is a virtual guitar amplifier running JACK.
1446 Guitarix takes the signal from your guitar as a mono-signal from your sound
1447 card.  The input is processed by a main amp and a rack-section.  Both can be
1448 routed separately and deliver a processed stereo-signal via JACK.  You may
1449 fill the rack with effects from more than 25 built-in modules including stuff
1450 from a simple noise gate to modulation effects like flanger, phaser or
1451 auto-wah.")
1452     (license license:gpl2+)))
1453
1454 (define-public guitarix-lv2
1455   (package (inherit guitarix)
1456     (name "guitarix-lv2")
1457     (arguments
1458      (substitute-keyword-arguments (package-arguments guitarix)
1459        ((#:configure-flags flags)
1460         `(cons "--no-standalone" ,flags))))))
1461
1462 (define-public rakarrack
1463   (package
1464     (name "rakarrack")
1465     (version "0.6.1")
1466     (source (origin
1467               (method url-fetch)
1468               (uri (string-append "mirror://sourceforge/rakarrack/rakarrack/"
1469                                   "rakarrack-" version "/rakarrack-"
1470                                   version ".tar.bz2"))
1471               (sha256
1472                (base32
1473                 "1rpf63pdn54c4yg13k7cb1w1c7zsvl97c4qxcpz41c8l91xd55kn"))
1474               (modules '((guix build utils)))
1475               (snippet
1476                '(begin
1477                   (substitute* '("src/process.C"
1478                                  "src/global.h")
1479                     (("#include <Fl/") "#include <FL/"))
1480                   #t))))
1481     (build-system gnu-build-system)
1482     (inputs
1483      `(("alsa-utils" ,alsa-utils)
1484        ("fltk" ,fltk)
1485        ("libx11" ,libx11)
1486        ("libxext" ,libxext)
1487        ("libxfixes" ,libxfixes)
1488        ("libxft" ,libxft)
1489        ("libxrender" ,libxrender)
1490        ("libxpm" ,libxpm)
1491        ("fontconfig" ,fontconfig)
1492        ("freetype" ,freetype)
1493        ("jack" ,jack-1)
1494        ("alsa-lib" ,alsa-lib)
1495        ("libsndfile" ,libsndfile)
1496        ("libsamplerate" ,libsamplerate)
1497        ("zlib" ,zlib)))
1498     (home-page "http://rakarrack.sourceforge.net/")
1499     (synopsis "Audio effects processor")
1500     (description
1501      "Rakarrack is a richly featured multi-effects processor emulating a
1502 guitar effects pedalboard.  Effects include compressor, expander, noise gate,
1503 equalizers, exciter, flangers, chorus, various delay and reverb effects,
1504 distortion modules and many more.  Most of the effects engine is built from
1505 modules found in the excellent software synthesizer ZynAddSubFX.  Presets and
1506 user interface are optimized for guitar, but Rakarrack processes signals in
1507 stereo while it does not apply internal band-limiting filtering, and thus is
1508 well suited to all musical instruments and vocals.")
1509     ;; The code is explicitly licensed under the GPL version 2 only.
1510     (license license:gpl2)))
1511
1512 (define-public ir
1513   (package
1514     (name "ir")
1515     (version "1.3.4")
1516     (source (origin
1517              (method git-fetch)
1518              (uri (git-reference
1519                    (url "https://github.com/tomszilagyi/ir.lv2")
1520                    (commit version)))
1521              (file-name (git-file-name name version))
1522              (sha256
1523               (base32
1524                "0svmjhg4r6wy5ci5rwz43ybll7yxjv7nnj7nyqscbzhr3gi5aib0"))))
1525     (build-system gnu-build-system)
1526     (arguments
1527      `(#:tests? #f                              ; no tests
1528        #:make-flags
1529        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1530              (string-append "INSTDIR="
1531                             (assoc-ref %outputs "out") "/lib/lv2"))
1532        #:phases (modify-phases %standard-phases
1533                   (delete 'configure))))        ; no configure script
1534     (inputs
1535      `(("libsndfile" ,libsndfile)
1536        ("libsamplerate" ,libsamplerate)
1537        ("lv2" ,lv2)
1538        ("glib" ,glib)
1539        ("gtk+" ,gtk+-2)
1540        ("zita-convolver" ,zita-convolver)))
1541     (native-inputs
1542      `(("pkg-config" ,pkg-config)))
1543     (native-search-paths
1544      (list (search-path-specification
1545             (variable "LV2_PATH")
1546             (files '("lib/lv2")))))
1547     (home-page "https://tomszilagyi.github.io/plugins/ir.lv2")
1548     (synopsis "LV2 convolution reverb")
1549     (description
1550      "IR is a low-latency, real-time, high performance signal convolver
1551 especially for creating reverb effects.  It supports impulse responses with 1,
1552 2 or 4 channels, in any soundfile format supported by libsndfile.")
1553     (license license:gpl2+)))
1554
1555 (define-public jack-1
1556   (package
1557     (name "jack")
1558     (version "0.125.0")
1559     (source (origin
1560              (method url-fetch)
1561              (uri (string-append
1562                    "http://jackaudio.org/downloads/jack-audio-connection-kit-"
1563                    version
1564                    ".tar.gz"))
1565              (sha256
1566               (base32
1567                "0i6l25dmfk2ji2lrakqq9icnwjxklgcjzzk65dmsff91z2zva5rm"))))
1568     (build-system gnu-build-system)
1569     (arguments
1570      `(#:phases (modify-phases %standard-phases
1571                   (add-after 'unpack 'patch-configure
1572                     (lambda _
1573                       (substitute* "configure"
1574                         ;; Install to <out/lib> regardless of platform.
1575                         (("libnn=lib64") "libnn=lib"))
1576                       #t)))))
1577     (inputs
1578      `(("alsa-lib" ,alsa-lib)
1579        ("readline" ,readline)))
1580     ;; uuid.h is included in the JACK type headers
1581     ;; db.h is included in the libjack metadata headers
1582     (propagated-inputs
1583      `(("libuuid" ,util-linux)
1584        ("bdb" ,bdb)))
1585     (native-inputs
1586      `(("pkg-config" ,pkg-config)))
1587     (home-page "http://jackaudio.org/")
1588     (synopsis "JACK audio connection kit")
1589     (description
1590      "JACK is a low-latency audio server.  It can connect a number of
1591 different applications to an audio device, as well as allowing them to share
1592 audio between themselves.  JACK is different from other audio server efforts
1593 in that it has been designed from the ground up to be suitable for
1594 professional audio work.  This means that it focuses on two key areas:
1595 synchronous execution of all clients, and low latency operation.")
1596     ;; Most files are licensed under the GPL. However, the libjack/ tree is
1597     ;; licensed under the LGPL in order to allow for proprietary usage.
1598     (license (list license:gpl2+ license:lgpl2.1+))))
1599
1600 ;; Packages depending on JACK should always prefer jack-1.  Both jack-1 and
1601 ;; jack-2 implement the same API.  JACK2 is provided primarily as a client
1602 ;; program for users who might benefit from the D-BUS features.
1603 (define-public jack-2
1604   (package (inherit jack-1)
1605     (name "jack2")
1606     (version "1.9.13")
1607     (source (origin
1608              (method url-fetch)
1609              (uri (string-append "https://github.com/jackaudio/jack2/releases/"
1610                                  "download/v" version "/jack2-"
1611                                  version ".tar.gz"))
1612              (file-name (string-append name "-" version ".tar.gz"))
1613              (sha256
1614               (base32
1615                "1d1d403jn4366mqig6g8ghr8057b3rn7gs26b5p3rkal34j20qw2"))))
1616     (build-system waf-build-system)
1617     (arguments
1618      `(#:tests? #f  ; no check target
1619        #:configure-flags '("--dbus"
1620                            "--alsa")
1621        #:phases
1622        (modify-phases %standard-phases
1623          (add-before 'configure 'set-linkflags
1624            (lambda _
1625              ;; Add $libdir to the RUNPATH of all the binaries.
1626              (substitute* "wscript"
1627                ((".*CFLAGS.*-Wall.*" m)
1628                 (string-append m
1629                                "    conf.env.append_unique('LINKFLAGS',"
1630                                "'-Wl,-rpath=" %output "/lib')\n")))
1631              #t))
1632          (add-after 'install 'wrap-python-scripts
1633            (lambda* (#:key inputs outputs #:allow-other-keys)
1634              ;; Make sure 'jack_control' runs with the correct PYTHONPATH.
1635              (let* ((out (assoc-ref outputs "out"))
1636                     (path (getenv "PYTHONPATH")))
1637                (wrap-program (string-append out "/bin/jack_control")
1638                  `("PYTHONPATH" ":" prefix (,path))))
1639              #t)))))
1640     (inputs
1641      `(("alsa-lib" ,alsa-lib)
1642        ("dbus" ,dbus)
1643        ("expat" ,expat)
1644        ("libsamplerate" ,libsamplerate)
1645        ("opus" ,opus)
1646        ("python-dbus" ,python-dbus)
1647        ("readline" ,readline)))
1648     (native-inputs
1649      `(("pkg-config" ,pkg-config)))
1650     ;; Most files are under GPLv2+, but some headers are under LGPLv2.1+
1651     (license (list license:gpl2+ license:lgpl2.1+))))
1652
1653 (define-public jalv
1654   (package
1655     (name "jalv")
1656     (version "1.6.4")
1657     (source (origin
1658               (method url-fetch)
1659               (uri (string-append "https://download.drobilla.net/jalv-"
1660                                   version ".tar.bz2"))
1661               (sha256
1662                (base32
1663                 "1wwfn7yzbs37s2rdlfjgks63svd5g14yyzd2gdl7h0z12qncwsy2"))))
1664     (build-system waf-build-system)
1665     (arguments
1666      `(#:tests? #f                      ; no check target
1667        #:python ,python-2))
1668     (inputs
1669      `(("lv2" ,lv2)
1670        ("lilv" ,lilv)
1671        ("suil" ,suil)
1672        ("gtk2" ,gtk+-2)
1673        ("gtk3" ,gtk+)
1674        ("gtkmm" ,gtkmm-2)
1675        ("qtbase" ,qtbase)
1676        ("jack" ,jack-1)))
1677     (native-inputs
1678      `(("pkg-config" ,pkg-config)))
1679     (home-page "https://drobilla.net/software/jalv/")
1680     (synopsis "Simple LV2 host for JACK")
1681     (description
1682      "Jalv is a simple but fully featured LV2 host for JACK.  It runs LV2
1683 plugins and exposes their ports as JACK ports, essentially making any LV2
1684 plugin function as a JACK application.")
1685     (license license:isc)))
1686
1687 (define-public ladspa
1688   (package
1689     (name "ladspa")
1690     (version "1.13")
1691     (source
1692      (origin
1693        (method url-fetch)
1694        ;; Since the official link is dead,
1695        ;; we download the tarball from Debian or Internet Archive.
1696        (uri (list (string-append "http://http.debian.net"
1697                                  "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
1698                                  version ".orig.tar.gz")
1699                   (string-append "https://web.archive.org/web/20140717172251/"
1700                                  "http://www.ladspa.org/download/ladspa_sdk_"
1701                                  version ".tgz")))
1702        (sha256
1703         (base32
1704          "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
1705     (build-system gnu-build-system)
1706     (arguments
1707      `(#:tests? #f  ; the "test" target is a listening test only
1708        #:phases
1709        (modify-phases %standard-phases
1710          (replace 'configure
1711            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1712              (chdir "src")
1713              (let ((out (assoc-ref outputs "out")))
1714                (substitute* "makefile"
1715                  (("/usr/lib/ladspa/") (string-append out "/lib/ladspa/"))
1716                  (("/usr/include/")    (string-append out "/include/"))
1717                  (("/usr/bin/")        (string-append out "/bin/"))
1718                  (("-mkdirhier")       "mkdir -p")
1719                  (("^CC.*")            "CC = gcc\n")
1720                  (("^CPP.*")           "CPP = g++\n")))
1721              #t))
1722          (delete 'build))))
1723     ;; Since the home page is gone, we provide a link to the archived version.
1724     (home-page
1725      "https://web.archive.org/web/20140729190945/http://www.ladspa.org/")
1726     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
1727     (description
1728      "LADSPA is a standard that allows software audio processors and effects
1729 to be plugged into a wide range of audio synthesis and recording packages.")
1730     (license license:lgpl2.1+)))
1731
1732 (define-public lash
1733   (package
1734     (name "lash")
1735     (version "0.6.0-rc2")
1736     (source (origin
1737               (method url-fetch)
1738               ;; The tilde is not permitted in the builder name, but is used
1739               ;; in the tarball.
1740               (uri (string-append
1741                     "mirror://savannah/lash/lash-"
1742                     (string-join (string-split version #\-) "~")
1743                     ".tar.bz2"))
1744               (file-name (string-append name "-" version ".tar.bz2"))
1745               (sha256
1746                (base32
1747                 "12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
1748     (build-system gnu-build-system)
1749     (arguments
1750      '(;; Glibc no longer includes Sun RPC support, so tell the build system
1751        ;; to use libtirpc instead.
1752        #:make-flags (list (string-append "CFLAGS=-I"
1753                                          (assoc-ref %build-inputs "libtirpc")
1754                                          "/include/tirpc -ltirpc"))
1755        #:phases
1756        (modify-phases %standard-phases
1757          ;; lashd embeds an ancient version of sigsegv so we just skip it
1758          (add-after 'unpack 'skip-lashd
1759            (lambda _
1760              (substitute* '("Makefile.am" "Makefile.in")
1761                (("lashd ") ""))
1762              #t)))
1763        #:configure-flags '("--disable-static")))
1764     (inputs
1765      `(("bdb" ,bdb)
1766        ("gtk" ,gtk+-2)
1767        ("jack" ,jack-1)
1768        ("libtirpc" ,libtirpc)
1769        ("readline" ,readline)
1770        ("python" ,python-2)))
1771     ;; According to pkg-config, packages depending on lash also need to have
1772     ;; at least the following packages declared as inputs.
1773     (propagated-inputs
1774      `(("alsa-lib" ,alsa-lib)
1775        ("dbus" ,dbus)
1776        ("libxml2" ,libxml2)))
1777     (native-inputs
1778      `(("pkg-config" ,pkg-config)))
1779     (home-page "https://www.nongnu.org/lash/")
1780     (synopsis "Audio application session manager")
1781     (description
1782      "LASH is a session management system for audio applications.  It allows
1783 you to save and restore audio sessions consisting of multiple interconneced
1784 applications, restoring program state (i.e. loaded patches) and the
1785 connections between them.")
1786     (license license:gpl2+)))
1787
1788 (define-public libbs2b
1789   (package
1790     (name "libbs2b")
1791     (version "3.1.0")
1792     (source (origin
1793               (method url-fetch)
1794               (uri (string-append "mirror://sourceforge/bs2b/libbs2b/" version
1795                                   "/libbs2b-" version ".tar.lzma"))
1796               (sha256
1797                (base32
1798                 "1mcc4gjkmphczjybnsrip3gq1f974knzys7x49bv197xk3fn8wdr"))))
1799     (build-system gnu-build-system)
1800     (native-inputs `(("pkg-config" ,pkg-config)))
1801     (inputs `(("libsndfile" ,libsndfile)))
1802     (home-page "https://sourceforge.net/projects/bs2b/")
1803     (synopsis "Bauer stereophonic-to-binaural DSP")
1804     (description
1805      "The Bauer stereophonic-to-binaural DSP (bs2b) library and plugins is
1806 designed to improve headphone listening of stereo audio records.  Recommended
1807 for headphone prolonged listening to disable superstereo fatigue without
1808 essential distortions.")
1809     (license license:expat)))
1810
1811 (define-public liblo
1812   (package
1813     (name "liblo")
1814     (version "0.30")
1815     (source (origin
1816              (method url-fetch)
1817              (uri (string-append "mirror://sourceforge/liblo/liblo/" version
1818                                  "/liblo-" version ".tar.gz"))
1819              (sha256
1820               (base32
1821                "06wdjzxjdshr6hyl4c94yvg3jixiylap8yjs8brdfpm297gck9rh"))))
1822     (build-system gnu-build-system)
1823     (arguments
1824      `(;; liblo test FAILED
1825        ;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
1826        #:tests? #f))
1827     (home-page "http://liblo.sourceforge.net")
1828     (synopsis "Implementation of the Open Sound Control protocol")
1829     (description
1830      "liblo is a lightweight library that provides an easy to use
1831 implementation of the Open Sound Control (@dfn{OSC}) protocol.")
1832     (license license:lgpl2.1+)))
1833
1834 (define-public python-pyaudio
1835   (package
1836     (name "python-pyaudio")
1837     (version "0.2.11")
1838     (source
1839      (origin
1840        (method url-fetch)
1841        (uri (pypi-uri "PyAudio" version))
1842        (sha256
1843         (base32
1844          "0x7vdsigm7xgvyg3shd3lj113m8zqj2pxmrgdyj66kmnw0qdxgwk"))))
1845     (build-system python-build-system)
1846     (inputs
1847      `(("portaudio" ,portaudio)))
1848     (home-page "https://people.csail.mit.edu/hubert/pyaudio/")
1849     (synopsis "Bindings for PortAudio v19")
1850     (description "This package provides bindings for PortAudio v19, the
1851 cross-platform audio input/output stream library.")
1852     (license license:expat)))
1853
1854 (define-public python2-pyaudio
1855   (package-with-python2 python-pyaudio))
1856
1857 (define-public python-pyliblo
1858   (package
1859     (name "python-pyliblo")
1860     (version "0.10.0")
1861     (source (origin
1862              (method url-fetch)
1863              (uri (string-append "http://das.nasophon.de/download/pyliblo-"
1864                                  version ".tar.gz"))
1865              (sha256
1866               (base32
1867                "13vry6xhxm7adnbyj28w1kpwrh0kf7nw83cz1yq74wl21faz2rzw"))))
1868     (build-system python-build-system)
1869     (arguments `(#:tests? #f)) ;no tests
1870     (native-inputs
1871      `(("python-cython" ,python-cython)))
1872     (inputs
1873      `(("liblo" ,liblo)))
1874     (home-page "http://das.nasophon.de/pyliblo/")
1875     (synopsis "Python bindings for liblo")
1876     (description
1877      "Pyliblo is a Python wrapper for the liblo Open Sound Control (OSC)
1878 library.  It supports almost the complete functionality of liblo, allowing you
1879 to send and receive OSC messages using a nice and simple Python API.  Also
1880 included are the command line utilities @code{send_osc} and @code{dump_osc}.")
1881     (license license:lgpl2.1+)))
1882
1883 (define-public python2-pyliblo
1884   (package-with-python2 python-pyliblo))
1885
1886 (define-public lilv
1887   (package
1888     (name "lilv")
1889     (version "0.24.6")
1890     (source (origin
1891              (method url-fetch)
1892              (uri (string-append "https://download.drobilla.net/lilv-"
1893                                  version ".tar.bz2"))
1894              (sha256
1895               (base32
1896                "1p3hafsxgs5d4za7n66lf5nz74qssfqpmk520cm7iq2njvvlqm2z"))))
1897     (build-system waf-build-system)
1898     (arguments
1899      `(#:tests? #f                      ; no check target
1900        #:phases
1901        (modify-phases %standard-phases
1902          (add-before 'configure 'set-ldflags
1903           (lambda* (#:key outputs #:allow-other-keys)
1904             (setenv "LDFLAGS"
1905                     (string-append "-Wl,-rpath="
1906                                    (assoc-ref outputs "out") "/lib"))
1907             #t))
1908          (add-after 'unpack 'full-store-path-to-shared-library
1909            (lambda* (#:key outputs #:allow-other-keys)
1910              (with-directory-excursion "bindings/python"
1911                (substitute* "lilv.py"
1912                  (("liblilv-0.so") (string-append (assoc-ref outputs "out")
1913                                                   "/lib/liblilv-0.so"))))
1914              #t)))))
1915     ;; Required by lilv-0.pc.
1916     (propagated-inputs
1917      `(("lv2" ,lv2)
1918        ("serd" ,serd)
1919        ("sord" ,sord)
1920        ("sratom" ,sratom)))
1921     (native-inputs
1922      `(("python" ,python)
1923        ("pkg-config" ,pkg-config)))
1924     (home-page "https://drobilla.net/software/lilv")
1925     (synopsis "Library to simplify use of LV2 plugins in applications")
1926     (description
1927      "Lilv is a C library to make the use of LV2 plugins as simple as possible
1928 for applications.  Lilv is the successor to SLV2, rewritten to be
1929 significantly faster and have minimal dependencies.")
1930     (license license:isc)))
1931
1932 (define-public lv2
1933   (package
1934     (name "lv2")
1935     (version "1.16.0")
1936     (source (origin
1937              (method url-fetch)
1938              (uri (string-append "http://lv2plug.in/spec/lv2-"
1939                                  version ".tar.bz2"))
1940              (sha256
1941               (base32
1942                "1ppippbpdpv13ibs06b0bixnazwfhiw0d0ja6hx42jnkgdyp5hyy"))))
1943     (build-system waf-build-system)
1944     (arguments
1945      `(#:tests? #f  ; no check target
1946        #:configure-flags '("--no-plugins")))
1947     (inputs
1948      ;; Leaving off cairo and gtk+-2.0 which are needed for example plugins
1949      `(("libsndfile" ,libsndfile)))
1950     (native-inputs
1951      `(("pkg-config" ,pkg-config)))
1952     (home-page "http://lv2plug.in/")
1953     (synopsis "LV2 audio plugin specification")
1954     (description
1955      "LV2 is an open specification for audio plugins and host applications.
1956 At its core, LV2 is a simple stable interface, accompanied by extensions which
1957 add functionality to support the needs of increasingly powerful audio
1958 software.")
1959     (license license:isc)))
1960
1961 (define-public lv2-mda-piano
1962   (package
1963     (name "lv2-mda-piano")
1964     (version "0.0.2")
1965     (source (origin
1966               (method git-fetch)
1967               (uri (git-reference
1968                     (url "http://git.elephly.net/software/lv2-mdametapiano.git")
1969                     (commit version)))
1970               (file-name (git-file-name name version))
1971               (sha256
1972                (base32
1973                 "07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
1974     (build-system gnu-build-system)
1975     (arguments
1976      `(#:make-flags (list
1977                      "TYPE=mdaPiano"
1978                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1979        #:tests? #f ; no check target
1980        #:phases (modify-phases %standard-phases (delete 'configure))))
1981     (inputs
1982      `(("lv2" ,lv2)
1983        ("lvtk" ,lvtk)))
1984     (native-inputs
1985      `(("pkg-config" ,pkg-config)))
1986     (native-search-paths
1987      (list (search-path-specification
1988             (variable "LV2_PATH")
1989             (files '("lib/lv2")))))
1990     (home-page "http://elephly.net/lv2/mdapiano.html")
1991     (synopsis "LV2 port of the mda Piano plugin")
1992     (description "An LV2 port of the mda Piano VSTi.")
1993     (license license:gpl3+)))
1994
1995 (define-public lv2-mda-epiano
1996   (package (inherit lv2-mda-piano)
1997     (name "lv2-mda-epiano")
1998     (arguments
1999      `(#:make-flags (list
2000                      "TYPE=mdaEPiano"
2001                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
2002        #:tests? #f ; no check target
2003        #:phases (modify-phases %standard-phases (delete 'configure))))
2004     (home-page "http://elephly.net/lv2/mdaepiano.html")
2005     (synopsis "LV2 port of the mda EPiano plugin")
2006     (description "An LV2 port of the mda EPiano VSTi.")))
2007
2008 (define-public lvtk
2009   (package
2010     (name "lvtk")
2011     (version "1.2.0")
2012     (source (origin
2013              (method git-fetch)
2014              (uri (git-reference
2015                    (url "https://github.com/lvtk/lvtk.git")
2016                    (commit version)))
2017              (file-name (git-file-name name version))
2018              (sha256
2019               (base32
2020                "1b01zvzl70ana6l1kn8fgyr7msnn3c7x61cgw7fdpp50322352p8"))))
2021     (build-system waf-build-system)
2022     (arguments
2023      `(#:tests? #f  ; no check target
2024        #:python ,python-2
2025        #:configure-flags
2026        (list (string-append "--boost-includes="
2027                             (assoc-ref %build-inputs "boost")
2028                             "/include"))))
2029     (inputs
2030      `(("boost" ,boost)
2031        ("gtkmm" ,gtkmm-2)
2032        ("lv2" ,lv2)))
2033     (native-inputs
2034      `(("pkg-config" ,pkg-config)))
2035     (home-page "https://github.com/lvtk/lvtk")
2036     (synopsis "C++ libraries for LV2 plugins")
2037     (description
2038      "The LV2 Toolkit (LVTK) contains libraries that wrap the LV2 C API and
2039 extensions into easy to use C++ classes.  It is the successor of
2040 lv2-c++-tools.")
2041     (license license:gpl3+)))
2042
2043 (define-public openal
2044   (package
2045     (name "openal")
2046     (version "1.20.0")
2047     (source (origin
2048               (method url-fetch)
2049               (uri (string-append
2050                     "https://openal-soft.org/openal-releases/openal-soft-"
2051                     version ".tar.bz2"))
2052               (sha256
2053                (base32
2054                 "03p6s5gap0lvig2fs0a8nib5rxsc24dbqjsydpwvlm5l49wlk2f0"))))
2055     (build-system cmake-build-system)
2056     (arguments
2057      `(#:tests? #f  ; no check target
2058        #:phases
2059        (modify-phases %standard-phases
2060          (add-after
2061           'unpack 'use-full-library-paths
2062           (lambda* (#:key inputs #:allow-other-keys)
2063             (substitute* "alc/backends/pulseaudio.cpp"
2064               (("#define PALIB \"libpulse\\.so\\.0\"")
2065                (string-append "#define PALIB \""
2066                               (assoc-ref inputs "pulseaudio")
2067                               "/lib/libpulse.so.0"
2068                               "\"")))
2069             (substitute* "alc/backends/alsa.cpp"
2070               (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
2071                (string-append "LoadLib(\""
2072                               (assoc-ref inputs "alsa-lib")
2073                               "/lib/libasound.so.2"
2074                               "\")")))
2075             #t)))))
2076     (inputs
2077      `(("alsa-lib" ,alsa-lib)
2078        ("pulseaudio" ,pulseaudio)))
2079     (synopsis "3D audio API")
2080     (description
2081      "OpenAL provides capabilities for playing audio in a virtual 3D
2082 environment.  Distance attenuation, doppler shift, and directional sound
2083 emitters are among the features handled by the API.  More advanced effects,
2084 including air absorption, occlusion, and environmental reverb, are available
2085 through the EFX extension.  It also facilitates streaming audio, multi-channel
2086 buffers, and audio capture.")
2087     (home-page "https://openal-soft.org/")
2088     (license license:lgpl2.0+)))
2089
2090 (define-public freealut
2091   (package
2092     (name "freealut")
2093     (version "1.1.0")
2094     (source (origin
2095               (method url-fetch)
2096               ;; Upstream url is unclear, many systems use Fedora, there is also
2097               ;; https://github.com/vancegroup/freealut though the status of it
2098               ;; (official? unofficial?) is not clear.
2099               (uri (string-append
2100                     "https://pkgs.fedoraproject.org/repo/pkgs/" name "/" name "-"
2101                     version ".tar.gz" "/e089b28a0267faabdb6c079ee173664a/" name
2102                     "-" version ".tar.gz"))
2103               (sha256
2104                (base32
2105                 "0kzlil6112x2429nw6mycmif8y6bxr2cwjcvp18vh6s7g63ymlb0"))))
2106     (build-system cmake-build-system)
2107     (arguments
2108      `(#:tests? #f))  ; no check target
2109     (inputs
2110      `(("openal" ,openal)))
2111     (synopsis "Free implementation of OpenAL's ALUT standard")
2112     (description "freealut is the OpenAL Utility Toolkit.")
2113     (home-page "http://kcat.strangesoft.net/openal.html")
2114     (license license:lgpl2.0)))
2115
2116 (define-public patchage
2117   (package
2118     (name "patchage")
2119     (version "1.0.0")
2120     (source (origin
2121               (method url-fetch)
2122               (uri (string-append "https://download.drobilla.net/patchage-"
2123                                   version
2124                                   ".tar.bz2"))
2125               (sha256
2126                (base32
2127                 "1agdpwwi42176l4mxj0c4fsvdiv1ig56bfnnx0msckxmy57df8bb"))))
2128     (build-system waf-build-system)
2129     (arguments
2130      `(#:tests? #f ; no check target
2131        #:python ,python-2))
2132     (inputs
2133      `(("alsa-lib" ,alsa-lib)
2134        ("boost" ,boost)
2135        ("jack" ,jack-1)
2136        ("ganv" ,ganv)
2137        ("glibmm" ,glibmm)
2138        ("gtkmm" ,gtkmm-2)
2139        ("dbus-glib" ,dbus-glib)))
2140     (native-inputs
2141      `(("pkg-config" ,pkg-config)))
2142     (home-page "https://drobilla.net/software/patchage/")
2143     (synopsis "Modular patch bay for audio and MIDI systems")
2144     (description
2145      "Patchage is a modular patch bay for audio and MIDI systems based on JACK
2146 and ALSA.")
2147     (license license:gpl3+)))
2148
2149 (define-public pcaudiolib
2150   (package
2151     (name "pcaudiolib")
2152     (version "1.1")
2153     (home-page "https://github.com/espeak-ng/pcaudiolib")
2154     (source (origin
2155               (method git-fetch)
2156               (uri (git-reference (url home-page) (commit version)))
2157               (file-name (git-file-name name version))
2158               (sha256
2159                (base32
2160                 "0c55hlqqh0m7bcb3nlgv1s4a22s5bgczr1cakjh3767rjb10khi0"))))
2161     (build-system gnu-build-system)
2162     (arguments
2163      `(#:configure-flags '("--disable-static")))
2164     (native-inputs
2165      `(("autoconf" ,autoconf)
2166        ("automake" ,automake)
2167        ("libtool" ,libtool)
2168        ("pkg-config" ,pkg-config)
2169        ("which" ,which)))
2170     (inputs
2171      `(("alsa-lib" ,alsa-lib)
2172        ("pulseaudio" ,pulseaudio)))
2173     (synopsis "Portable C audio library")
2174     (description
2175      "The Portable C Audio Library (pcaudiolib) provides a C@tie{}API to
2176 different audio devices such as ALSA or PulseAudio.")
2177     (license (list license:gpl3+
2178                    ;; The bundled TPCircularBuffer uses a custom license.
2179                    (license:non-copyleft
2180                     "file://src/TPCircularBuffer/README.markdown")))))
2181
2182 (define-public qjackctl
2183   (package
2184     (name "qjackctl")
2185     (version "0.5.9")
2186     (source (origin
2187               (method url-fetch)
2188               (uri (string-append "mirror://sourceforge/qjackctl/qjackctl/"
2189                                   version "/qjackctl-" version ".tar.gz"))
2190               (sha256
2191                (base32
2192                 "1saywsda9m124rmjp7i3n0llryaliabjxhqhvqr6dm983qy7pypk"))))
2193     (build-system gnu-build-system)
2194     (arguments
2195      '(#:tests? #f))                    ; no check target
2196     (inputs
2197      `(("jack" ,jack-1)
2198        ("alsa-lib" ,alsa-lib)
2199        ("qtbase" ,qtbase)
2200        ("qtx11extras" ,qtx11extras)))
2201     (native-inputs
2202      `(("pkg-config" ,pkg-config)
2203        ("qttools" ,qttools)))
2204     (home-page "https://qjackctl.sourceforge.io/")
2205     (synopsis "Jack server control application")
2206     (description "Control a Jack server.  Allows you to plug various sources
2207 into various outputs and to start, stop and configure jackd")
2208     (license license:gpl2+)))
2209
2210 (define-public qjackrcd
2211   (package
2212     (name "qjackrcd")
2213     (version "1.2.2")
2214     (source (origin
2215               (method git-fetch)
2216               (uri (git-reference
2217                     (url "https://github.com/orouits/qjackrcd.git")
2218                     (commit (string-append "v" version))))
2219               (file-name (git-file-name name version))
2220               (sha256
2221                (base32
2222                 "1l5iq2mkqd4gn9yr8xbh9qlpp1clcflazychl4vhdbz0bzq4c6al"))))
2223     (build-system gnu-build-system)
2224     (arguments
2225      `(#:phases
2226        (modify-phases %standard-phases
2227          (replace 'configure
2228            (lambda* (#:key outputs #:allow-other-keys)
2229              (invoke "qmake"
2230                      (string-append "PREFIX="
2231                                     (assoc-ref outputs "out"))))))))
2232     (native-inputs
2233      `(("qtbase" ,qtbase))) ; for qmake
2234     (inputs
2235      `(("jack" ,jack-1)
2236        ("libsndfile" ,libsndfile)
2237        ("qtbase" ,qtbase)))
2238     (home-page "https://sourceforge.net/projects/qjackrcd/")
2239     (synopsis "Stereo audio recorder for JACK")
2240     (description "QJackRcd is a simple graphical stereo recorder for JACK
2241 supporting silence processing for automatic pause, file splitting, and
2242 background file post-processing.")
2243     (license license:gpl2+)))
2244
2245 (define-public supercollider
2246   (package
2247     (name "supercollider")
2248     (version "3.10.4")
2249     (source (origin
2250               (method url-fetch)
2251               (uri (string-append
2252                     "https://github.com/supercollider/supercollider"
2253                     "/releases/download/Version-" version
2254                     "/SuperCollider-" version "-Source-linux.tar.bz2"))
2255               (sha256
2256                (base32
2257                 "0x11g3pfw11m6v18qfpfl5w99dbmf73g4z7wvwhrj1a4qv2dn084"))))
2258     (build-system cmake-build-system)
2259     (arguments
2260      `(#:configure-flags '("-DSYSTEM_BOOST=on" "-DSYSTEM_YAMLCPP=on"
2261                            "-DSC_QT=off"
2262                            "-DSC_EL=off") ;scel is packaged individually as
2263                                           ;emacs-scel
2264        #:modules ((guix build utils)
2265                   (guix build cmake-build-system)
2266                   (ice-9 ftw))
2267        #:phases
2268        (modify-phases %standard-phases
2269          (add-after 'unpack 'rm-bundled-libs
2270            (lambda _
2271              ;; The build system doesn't allow us to unbundle the following
2272              ;; libraries.  hidapi is also heavily patched.
2273              (let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
2274                                 "oscpack_1_1_0" "." "..")))
2275                (with-directory-excursion "./external_libraries"
2276                  (for-each
2277                   delete-file-recursively
2278                   (scandir "."
2279                            (lambda (x)
2280                              (and (eq? (stat:type (stat x)) 'directory)
2281                                   (not (member (basename x) keep-dirs))))))))
2282              #t))
2283          ;; Some tests are broken (see:
2284          ;; https://github.com/supercollider/supercollider/issues/3555 and
2285          ;; https://github.com/supercollider/supercollider/issues/1736
2286          (add-after 'rm-bundled-libs 'disable-broken-tests
2287            (lambda _
2288              (substitute* "testsuite/server/supernova/CMakeLists.txt"
2289                (("server_test.cpp")
2290                 "")
2291                (("perf_counter_test.cpp")
2292                 ""))
2293              (delete-file "testsuite/server/supernova/server_test.cpp")
2294              (delete-file "testsuite/server/supernova/perf_counter_test.cpp")
2295              (substitute* "testsuite/CMakeLists.txt"
2296                (("add_subdirectory\\(sclang\\)")
2297                 ""))
2298              (delete-file "testsuite/sclang/CMakeLists.txt")
2299              #t)))))
2300     (native-inputs
2301      `(("pkg-config" ,pkg-config)))
2302     (inputs
2303      `(("jack" ,jack-1)
2304        ("libsndfile" ,libsndfile)
2305        ("fftw" ,fftw)
2306        ("libxt" ,libxt)
2307        ("readline" ,readline)           ;readline support for sclang's CLI
2308        ("alsa" ,alsa-lib)               ;for sclang's MIDI interface
2309        ("eudev" ,eudev)                 ;for user interactions with devices
2310        ("avahi" ,avahi)                 ;zeroconf service discovery support
2311        ("icu4c" ,icu4c)
2312        ("boost" ,boost)
2313        ("boost-sync" ,boost-sync)
2314        ("yaml-cpp" ,yaml-cpp)))
2315     (home-page "https://github.com/supercollider/supercollider")
2316     (synopsis "Synthesis engine and programming language")
2317     (description "SuperCollider is a synthesis engine (@code{scsynth} or
2318 @code{supernova}) and programming language (@code{sclang}).  It can be used
2319 for experimenting with sound synthesis and algorithmic composition.
2320
2321 SuperCollider requires jackd to be installed in your user profile and your
2322 user must be allowed to access the realtime features of the kernel.  Search
2323 for \"realtime\" in the index of the Guix manual to learn how to achieve this
2324 using Guix System.")
2325     (license license:gpl2+)))
2326
2327 (define-public raul
2328   (package
2329     (name "raul")
2330     (version "0.8.0")
2331     (source (origin
2332               (method url-fetch)
2333               (uri (string-append "https://download.drobilla.net/raul-"
2334                                   version ".tar.bz2"))
2335               (sha256
2336                (base32
2337                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
2338     (build-system waf-build-system)
2339     (arguments
2340      `(#:python ,python-2
2341        #:tests? #f)) ; no check target
2342     (inputs
2343      `(("glib" ,glib)
2344        ("boost" ,boost)))
2345     (native-inputs
2346      `(("pkg-config" ,pkg-config)))
2347     (home-page "https://drobilla.net/software/raul/")
2348     (synopsis "Real-time audio utility library")
2349     (description
2350      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
2351 aimed at audio/musical applications.")
2352     (license license:gpl2+)))
2353
2354 (define-public raul-devel
2355   (let ((commit "4db870b2b20b0a608ec0283139056b836c5b1624")
2356         (revision "1"))
2357     (package (inherit raul)
2358       (name "raul")
2359       (version (string-append "0.8.9-" revision "."
2360                               (string-take commit 9)))
2361       (source (origin
2362                 (method git-fetch)
2363                 (uri (git-reference
2364                       (url "https://git.drobilla.net/raul.git")
2365                       (commit commit)))
2366                 (file-name (string-append name "-" version "-checkout"))
2367                 (sha256
2368                  (base32
2369                   "04fajrass3ymr72flx5js5vxc601ccrmx8ny8scp0rw7j0igyjdr")))))))
2370
2371 (define-public resample
2372   (package
2373     (name "resample")
2374     (version "1.8.1")
2375     (source (origin
2376               (method url-fetch)
2377               (uri (string-append "https://ccrma.stanford.edu/~jos/gz/resample-"
2378                                   version
2379                                   ".tar.gz"))
2380               (sha256 (base32
2381                        "074zj8ydp05yy1hjcglfv3hkvj4cm50f9nralka1992pm6yf8yvy"))))
2382     (build-system gnu-build-system)
2383     (native-inputs
2384      `(("autoconf" ,autoconf)
2385        ("automake" ,automake)
2386        ("pkg-config" ,pkg-config)
2387        ("libtool" ,libtool)))
2388     (synopsis "Real-time library for sampling rate conversion")
2389     (description "The @command{resample} software package contains free
2390 sampling-rate conversion and filter design utilities.")
2391     (home-page "https://ccrma.stanford.edu/~jos/resample/Free_Resampling_Software.html")
2392     (license license:lgpl2.1+)))
2393
2394 (define-public rubberband
2395   (package
2396     (name "rubberband")
2397     (version "1.8.2")
2398     (source (origin
2399               (method url-fetch)
2400               (uri
2401                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
2402                               version
2403                               ".tar.bz2"))
2404               (file-name (string-append name "-" version ".tar.bz2"))
2405               (sha256
2406                (base32
2407                 "0462fmjnfqpv2qi0s6ny42drqarkr0xy9lw8frjmfgzyzl5n9294"))))
2408     (build-system gnu-build-system)
2409     (arguments
2410      `(#:tests? #f                      ; no check target
2411        #:phases
2412        (modify-phases %standard-phases
2413          (add-after 'unpack 'skip-jni-installation
2414            ;; ‘make install’ unconditionally installs librubberband-jni.so,
2415            ;; which is never built by ‘make all’.  Skip it.
2416            (lambda _
2417              (substitute* "Makefile.in"
2418                ((".*cp -f \\$\\(JNI_TARGET\\).*") ""))
2419              #t)))))
2420     (inputs
2421      `(("ladspa" ,ladspa)
2422        ("libsamplerate" ,libsamplerate)
2423        ("vamp" ,vamp)))
2424     (native-inputs
2425      `(("pkg-config" ,pkg-config)))
2426     (home-page "https://breakfastquay.com/rubberband/")
2427     (synopsis "Audio time-stretching and pitch-shifting library")
2428     (description
2429      "Rubber Band is a library and utility program that permits changing the
2430 tempo and pitch of an audio recording independently of one another.")
2431     (license license:gpl2+)))
2432
2433 (define-public rtmidi
2434   (package
2435     (name "rtmidi")
2436     (version "4.0.0")
2437     (source (origin
2438               (method url-fetch)
2439               (uri (string-append "https://www.music.mcgill.ca/~gary/rtmidi"
2440                                   "/release/rtmidi-" version ".tar.gz"))
2441               (file-name (string-append "rtmidi-" version ".tar.gz"))
2442               (sha256
2443                (base32
2444                 "1k962ljpnwyjw9jjiky2372khhri1wqvrj5qsalfpys31xqzw31p"))))
2445     (build-system gnu-build-system)
2446     (arguments
2447      `(#:phases
2448        (modify-phases %standard-phases
2449          (add-before 'bootstrap 'noconfigure
2450            (lambda _
2451              (setenv "NOCONFIGURE" "yes")
2452              #t)))))
2453     (inputs
2454      `(("jack" ,jack-1)
2455        ("alsa-lib" ,alsa-lib)))
2456     (native-inputs
2457      `(("autoconf" ,autoconf)
2458        ("automake" ,automake)
2459        ("libtool" ,libtool)
2460        ("pkg-config" ,pkg-config)))
2461     (home-page "https://www.music.mcgill.ca/~gary/rtmidi")
2462     (synopsis "Cross-platform MIDI library for C++")
2463     (description
2464      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
2465 classes) that provide a common cross-platform API for realtime MIDI
2466 input/output.")
2467     (license license:expat)))
2468
2469 (define-public sratom
2470   (package
2471     (name "sratom")
2472     (version "0.6.4")
2473     (source (origin
2474               (method url-fetch)
2475               (uri (string-append "https://download.drobilla.net/sratom-"
2476                                   version ".tar.bz2"))
2477               (sha256
2478                (base32
2479                 "0vh0biy3ngpzzgdml309c2mqz8xq9q0hlblczb4c6alhp0a8yv0l"))))
2480     (build-system waf-build-system)
2481     (arguments `(#:tests? #f))          ;no check target
2482     (propagated-inputs
2483      ;; In Requires of sratom-0.pc.
2484      `(("lv2" ,lv2)
2485        ("serd" ,serd)
2486        ("sord" ,sord)))
2487     (native-inputs
2488      `(("pkg-config" ,pkg-config)))
2489     (home-page "https://drobilla.net/software/sratom/")
2490     (synopsis "Library for serialising LV2 atoms to/from RDF")
2491     (description
2492      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
2493 the Turtle syntax.")
2494     (license license:isc)))
2495
2496 (define-public suil
2497   (package
2498     (name "suil")
2499     (version "0.10.6")
2500     (source (origin
2501               (method url-fetch)
2502               (uri (string-append "https://download.drobilla.net/suil-"
2503                                   version ".tar.bz2"))
2504               (sha256
2505                (base32
2506                 "0z4v01pjw4wh65x38w6icn28wdwxz13ayl8hvn4p1g9kmamp1z06"))))
2507     (build-system waf-build-system)
2508     (arguments
2509      `(#:tests? #f))                    ;no check target
2510     (inputs
2511      `(("lv2" ,lv2)
2512        ("gtk+" ,gtk+-2)
2513        ("gtk+" ,gtk+)
2514        ("qt" ,qtbase)))
2515     (native-inputs
2516      `(("pkg-config" ,pkg-config)))
2517     (home-page "https://drobilla.net/software/suil/")
2518     (synopsis "Library for loading and wrapping LV2 plugin UIs")
2519     (description
2520      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
2521
2522 Suil makes it possible to load a UI of a toolkit in a host using another
2523 toolkit.  The API is designed such that hosts do not need to explicitly
2524 support specific toolkits – if Suil supports a particular toolkit, then UIs in
2525 that toolkit will work in all hosts that use Suil automatically.
2526
2527 Suil currently supports every combination of Gtk, Qt, and X11.")
2528     (license license:isc)))
2529
2530 (define-public timidity++
2531   (package
2532     (name "timidity++")
2533     (version "2.14.0")
2534     (source (origin
2535               (method url-fetch)
2536               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
2537                                   "/TiMidity++-" version
2538                                   "/TiMidity++-" version ".tar.bz2"))
2539               (sha256
2540                (base32
2541                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
2542     (build-system gnu-build-system)
2543     (arguments
2544      '(#:configure-flags
2545        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
2546              "--enable-ncurses"
2547              "--enable-server"
2548              "--enable-alsaseq"
2549              (string-append "--with-default-path="
2550                             (assoc-ref %outputs "out") "/etc/timidity"))
2551        #:phases
2552        (modify-phases %standard-phases
2553          (add-after 'install 'install-config
2554            (lambda _
2555              (let ((out (string-append (assoc-ref %outputs "out")
2556                                        "/etc/timidity")))
2557                (mkdir-p out)
2558                (call-with-output-file
2559                    (string-append out "/timidity.cfg")
2560                  (lambda (port)
2561                    (format port (string-append "source "
2562                                                (assoc-ref %build-inputs "freepats")
2563                                                "/share/freepats/freepats.cfg")))))
2564              #t)))))
2565     (inputs
2566      `(("alsa-lib" ,alsa-lib)
2567        ("ao" ,ao)
2568        ("flac" ,flac)
2569        ("jack" ,jack-1)
2570        ("libogg" ,libogg)
2571        ("libvorbis" ,libvorbis)
2572        ("speex" ,speex)
2573        ("ncurses" ,ncurses)
2574        ("freepats" ,freepats)))
2575     (native-inputs
2576      `(("pkg-config" ,pkg-config)))
2577     (home-page "http://timidity.sourceforge.net/")
2578     (synopsis "Software synthesizer for playing MIDI files")
2579     (description
2580      "TiMidity++ is a software synthesizer.  It can play MIDI files by
2581 converting them into PCM waveform data; give it a MIDI data along with digital
2582 instrument data files, then it synthesizes them in real-time, and plays.  It
2583 can not only play sounds, but also can save the generated waveforms into hard
2584 disks as various audio file formats.")
2585     (license license:gpl2+)))
2586
2587 (define-public vamp
2588   (package
2589     (name "vamp")
2590     (version "2.6")
2591     (source (origin
2592               (method url-fetch)
2593               (uri (string-append
2594                     "https://code.soundsoftware.ac.uk"
2595                     "/attachments/download/1520/vamp-plugin-sdk-"
2596                     version ".tar.gz"))
2597               (sha256
2598                (base32
2599                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
2600     (build-system gnu-build-system)
2601     (arguments
2602      `(#:tests? #f                      ; no check target
2603        #:phases
2604        (modify-phases %standard-phases
2605          (add-after 'install 'remove-libvamp-hostsdk.la
2606            (lambda* (#:key outputs #:allow-other-keys)
2607              ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
2608              (for-each delete-file
2609                        (let ((out (assoc-ref outputs "out")))
2610                          (list (string-append out "/lib/libvamp-sdk.la")
2611                                (string-append out "/lib/libvamp-hostsdk.la"))))
2612              #t)))))
2613     (inputs
2614      `(("libsndfile" ,libsndfile)))
2615     (native-inputs
2616      `(("pkg-config" ,pkg-config)))
2617     (home-page "https://vamp-plugins.org")
2618     (synopsis "Modular and extensible audio processing system")
2619     (description
2620      "Vamp is an audio processing plugin system for plugins that extract
2621 descriptive information from audio data — typically referred to as audio
2622 analysis plugins or audio feature extraction plugins.")
2623     (license
2624      (license:x11-style
2625       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
2626
2627 (define-public libsbsms
2628   (package
2629     (name "libsbsms")
2630     (version "2.0.2")
2631     (source
2632      (origin
2633        (method url-fetch)
2634        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
2635                            "/libsbsms-" version ".tar.gz"))
2636        (sha256
2637         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
2638     (build-system gnu-build-system)
2639     (native-inputs `(("automake" ,automake)))
2640     (arguments
2641      `(#:configure-flags
2642        ;; Disable the use of SSE unless on x86_64.
2643        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
2644                                               (%current-system))))
2645             ''("--disable-sse")
2646             ''())
2647        #:phases
2648        (modify-phases %standard-phases
2649          (add-after
2650           'unpack 'fix-ar-lib-path
2651           (lambda* (#:key inputs #:allow-other-keys)
2652             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
2653             (delete-file "ar-lib")
2654             (symlink
2655              (string-append (assoc-ref inputs "automake") "/share/automake-"
2656                             ,(package-version automake) "/ar-lib")
2657              "ar-lib")
2658             #t)))))
2659     (home-page "http://sbsms.sourceforge.net/")
2660     (synopsis "Library for time stretching and pitch scaling of audio")
2661     (description
2662      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
2663 stretching and pitch scaling of audio.  This package contains the library.")
2664     ;; There is no explicit declaration of a license, but a COPYING file
2665     ;; containing gpl2.
2666     (license license:gpl2)))
2667
2668 (define-public wavpack
2669   (package
2670     (name "wavpack")
2671     (version "5.2.0")
2672     (source (origin
2673               (method url-fetch)
2674               (uri (string-append "http://www.wavpack.com/"
2675                                   "wavpack-" version ".tar.xz"))
2676               (sha256
2677                (base32
2678                 "1qvpvfx30kvrkw7y1g6r8xj109wszg1z0qmkfm17wf3flb7v3rbp"))))
2679     (build-system gnu-build-system)
2680     (arguments
2681      '(#:configure-flags '("--disable-static")))
2682     (home-page "http://www.wavpack.com/")
2683     (synopsis "Hybrid lossless audio codec")
2684     (description
2685      "WavPack is an audio compression format with lossless, lossy and hybrid
2686 compression modes.  This package contains command-line programs and library to
2687 encode and decode wavpack files.")
2688     (license license:bsd-3)))
2689
2690 (define-public libmodplug
2691   (package
2692     (name "libmodplug")
2693     (version "0.8.9.0")
2694     (source (origin
2695               (method url-fetch)
2696               (uri (string-append
2697                     "mirror://sourceforge/modplug-xmms/"
2698                     name "/" version "/" name "-" version ".tar.gz"))
2699               (sha256
2700                (base32
2701                 "1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
2702     (build-system gnu-build-system)
2703     (home-page "http://modplug-xmms.sourceforge.net/")
2704     (synopsis "Mod file playing library")
2705     (description
2706      "Libmodplug renders mod music files as raw audio data, for playing or
2707 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2708 supported.  Optional features include high-quality resampling, bass expansion,
2709 surround and reverb.")
2710     (license license:public-domain)))
2711
2712 (define-public libxmp
2713   (package
2714     (name "libxmp")
2715     (version "4.4.1")
2716     (source (origin
2717               (method url-fetch)
2718               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2719                                   name "-" version ".tar.gz"))
2720               (sha256
2721                (base32
2722                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2723     (build-system gnu-build-system)
2724     (home-page "http://xmp.sourceforge.net/")
2725     (synopsis "Module player library")
2726     (description
2727      "Libxmp is a library that renders module files to PCM data.  It supports
2728 over 90 mainstream and obscure module formats including Protracker (MOD),
2729 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2730     (license license:lgpl2.1+)))
2731
2732 (define-public xmp
2733   (package
2734     (name "xmp")
2735     (version "4.1.0")
2736     (source (origin
2737               (method url-fetch)
2738               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2739                                   name "-" version ".tar.gz"))
2740               (sha256
2741                (base32
2742                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2743     (build-system gnu-build-system)
2744     (native-inputs
2745      `(("pkg-config" ,pkg-config)))
2746     (inputs
2747      `(("libxmp" ,libxmp)
2748        ("pulseaudio" ,pulseaudio)))
2749     (home-page "http://xmp.sourceforge.net/")
2750     (synopsis "Extended module player")
2751     (description
2752      "Xmp is a portable module player that plays over 90 mainstream and
2753 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2754 Tracker 3 S3M and Impulse Tracker IT files.")
2755     (license license:gpl2+)))
2756
2757 (define-public soundtouch
2758   (package
2759     (name "soundtouch")
2760     (version "2.1.2")
2761     (source
2762      (origin
2763        (method git-fetch)
2764        (uri (git-reference
2765              (url "https://gitlab.com/soundtouch/soundtouch.git")
2766              (commit version)))
2767        (file-name (git-file-name name version))
2768        (sha256
2769         (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
2770     (build-system gnu-build-system)
2771     (native-inputs
2772      `(("autoconf" ,autoconf)
2773        ("automake" ,automake)
2774        ("libtool" ,libtool)
2775        ("file" ,file)))
2776     (home-page "https://www.surina.net/soundtouch/")
2777     (synopsis
2778      "Audio processing library for changing tempo, pitch and playback rate")
2779     (description
2780      "SoundTouch is an audio processing library for changing the tempo, pitch
2781 and playback rates of audio streams or audio files.  It is intended for
2782 application developers writing sound processing tools that require tempo/pitch
2783 control functionality, or just for playing around with the sound effects.")
2784     (license license:lgpl2.1+)))
2785
2786 (define-public sox
2787   (package
2788     (name "sox")
2789     (version "14.4.2")
2790     (source (origin
2791               (method url-fetch)
2792               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2793                                   name "-" version ".tar.bz2"))
2794               (sha256
2795                (base32
2796                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2797     (build-system gnu-build-system)
2798     (arguments
2799      '(#:configure-flags
2800        ;; The upstream asks to identify the distribution to diagnose SoX
2801        ;; bug reports.
2802        '("--with-distro=Guix System Distribution")))
2803     (native-inputs
2804      `(("pkg-config" ,pkg-config)))
2805     (inputs
2806      `(("alsa-lib" ,alsa-lib)
2807        ("ao" ,ao)
2808        ("flac" ,flac)
2809        ("lame" ,lame)
2810        ("libid3tag" ,libid3tag)
2811        ("libltdl" ,libltdl)
2812        ("libmad" ,libmad)
2813        ("libpng" ,libpng)
2814        ("libvorbis" ,libvorbis)
2815        ("pulseaudio" ,pulseaudio)))
2816     (home-page "http://sox.sourceforge.net")
2817     (synopsis "Sound processing utility")
2818     (description
2819      "SoX (Sound eXchange) is a command line utility that can convert
2820 various formats of computer audio files to other formats.  It can also
2821 apply various effects to these sound files, and, as an added bonus, SoX
2822 can play and record audio files.")
2823     ;; sox.c is distributed under GPL, while the files that make up
2824     ;; libsox are licensed under LGPL.
2825     (license (list license:gpl2+ license:lgpl2.1+))))
2826
2827 (define-public soxr
2828   (package
2829     (name "soxr")
2830     (version "0.1.3")
2831     (source
2832      (origin
2833        (method url-fetch)
2834        (uri
2835         (string-append "mirror://sourceforge/soxr/soxr-" version
2836                        "-Source.tar.xz"))
2837        (sha256
2838         (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
2839     (build-system cmake-build-system)
2840     (arguments '(#:tests? #f))          ;no 'check' target
2841     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2842     (synopsis "One-dimensional sample-rate conversion library")
2843     (description
2844      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2845 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2846     (license license:lgpl2.1+)))
2847
2848 (define-public twolame
2849   (package
2850     (name "twolame")
2851     (version "0.4.0")
2852     (source
2853      (origin
2854        (method url-fetch)
2855        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2856                            "/twolame-" version ".tar.gz"))
2857        (sha256
2858         (base32 "0zf8sxqb02w07ah55b1y7ab643zmpbhn62spa9pqra0rc17l4dfc"))))
2859     (build-system gnu-build-system)
2860     (inputs
2861      `(("libsndfile" ,libsndfile)))
2862     (native-inputs
2863      `(("perl" ,perl)
2864        ("which" ,which)))               ;used in tests/test.pl
2865     (home-page "http://www.twolame.org/")
2866     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2867     (description
2868      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2869 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2870 portions of LAME.")
2871     (license license:lgpl2.1+)))
2872
2873 (define-public portaudio
2874   (package
2875     (name "portaudio")
2876     (version "190600.20161030")
2877     (source
2878      (origin
2879        (method url-fetch)
2880        (uri (string-append
2881              "http://www.portaudio.com/archives/pa_stable_v"
2882              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2883              ".tgz"))
2884        (sha256
2885         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2886        (patches (search-patches "portaudio-audacity-compat.patch"))))
2887     (build-system gnu-build-system)
2888     (inputs
2889      ;; TODO: Add ASIHPI.
2890      `(("alsa-lib" ,alsa-lib)
2891        ("jack" ,jack-1)))
2892     ;; Autoreconf is necessary because the audacity-compat patch modifies .in
2893     ;; files.
2894     (native-inputs
2895      `(("autoconf" ,autoconf)
2896        ("automake" ,automake)
2897        ("libtool" ,libtool)
2898        ("pkg-config" ,pkg-config)))
2899     (arguments
2900      '(#:tests? #f                      ;no 'check' target
2901        #:parallel-build? #f             ;fails on some systems
2902        #:configure-flags '("--with-pic"
2903                            "--enable-cxx"
2904                            ;; XXX: The following prevents a build error
2905                            ;; because of missing depcomp when C++ bindings are
2906                            ;; requested.
2907                            "--disable-dependency-tracking")
2908        #:phases
2909        (modify-phases %standard-phases
2910          ;; This is needed for linking the static libraries
2911          (add-after 'unpack 'build-only-position-independent-code
2912            (lambda _
2913              (substitute* "configure.in"
2914                (("AC_PROG_LIBTOOL" m)
2915                 (string-append m "\nAM_PROG_AR\nLT_INIT([pic-only])")))
2916              (delete-file "configure")
2917              #t))
2918          ;; Some headers are not installed by default, but are needed by
2919          ;; packages like Kaldi.
2920          (add-after 'install 'install-missing-headers
2921            (lambda* (#:key outputs #:allow-other-keys)
2922              (install-file "src/common/pa_ringbuffer.h"
2923                            (string-append (assoc-ref outputs "out") "/include"))
2924              #t)))))
2925     (home-page "http://www.portaudio.com/")
2926     (synopsis "Audio I/O library")
2927     (description
2928      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2929 to record and/or play sound using a callback function or a blocking read/write
2930 interface.")
2931     (license license:expat)))
2932
2933 (define-public qsynth
2934   (package
2935     (name "qsynth")
2936     (version "0.5.7")
2937     (source
2938      (origin
2939        (method url-fetch)
2940        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2941                            "/qsynth-" version ".tar.gz"))
2942        (sha256
2943         (base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
2944     (build-system gnu-build-system)
2945     (arguments
2946      `(#:tests? #f))                    ; no "check" phase
2947     (native-inputs
2948      `(("qttools" ,qttools)
2949        ("pkg-config" ,pkg-config)))
2950     (inputs
2951      `(("fluidsynth" ,fluidsynth)
2952        ("qtbase" ,qtbase)
2953        ("qtx11extras" ,qtx11extras)))
2954     (home-page "https://qsynth.sourceforge.io")
2955     (synopsis "Graphical user interface for FluidSynth")
2956     (description
2957      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2958 synthesizer written in C++.")
2959     (license license:gpl2+)))
2960
2961 (define-public rsound
2962   (package
2963     (name "rsound")
2964     (version "1.1")
2965     (source
2966      (origin
2967        (method git-fetch)
2968        (uri (git-reference
2969              (url "https://github.com/Themaister/RSound.git")
2970              (commit (string-append "v" version))))
2971        (file-name (git-file-name name version))
2972        (sha256
2973         (base32 "0gspmr3klwnq98h17p5hc6ifygya4p80g4g8r7a1qavm3mv19waf"))))
2974     (build-system gnu-build-system)
2975     (inputs
2976      `(("alsa-lib" ,alsa-lib)
2977        ("jack" ,jack-1)
2978        ("ao" ,ao)
2979        ("libsamplerate" ,libsamplerate)
2980        ("openal" ,openal)
2981        ("portaudio" ,portaudio)
2982        ("pulseaudio" ,pulseaudio)))
2983     (arguments
2984      '(#:phases
2985        (modify-phases %standard-phases
2986          (replace 'configure
2987            (lambda* (#:key outputs #:allow-other-keys)
2988              (setenv "CC" "gcc")
2989              (invoke "./configure"
2990                      (string-append "--prefix=" (assoc-ref outputs "out"))))))
2991        ;; No 'check' target.
2992        #:tests? #f))
2993     (home-page "http://themaister.net/rsound.html")
2994     (synopsis "Networked audio system")
2995     (description
2996      "RSound allows you to send audio from an application and transfer it
2997 directly to a different computer on your LAN network.  It is an audio daemon
2998 with a much different focus than most other audio daemons.")
2999     (license license:gpl3+)))
3000
3001 (define-public xjackfreak
3002   (package
3003     (name "xjackfreak")
3004     (version "1.0")
3005     (source (origin
3006               (method git-fetch)
3007               (uri (git-reference
3008                     (url "https://github.com/johnhldavis/xjackfreak.git")
3009                     (commit (string-append "v" version))))
3010               (file-name (git-file-name name version))
3011               (sha256
3012                (base32
3013                 "18c546qidbrj0f5wfiq5llii2192xpln0ab3r4vpr7i3wybxqjfz"))))
3014     (build-system gnu-build-system)
3015     (arguments
3016      `(#:make-flags
3017        (list (string-append "docdir=" (assoc-ref %outputs "out")
3018                             "/share/doc/xjackfreak"))))
3019     (inputs
3020      `(("jack" ,jack-1)
3021        ("libx11" ,libx11)
3022        ("libxt" ,libxt)
3023        ("libxext" ,libxext)))
3024     (native-inputs
3025      `(("pkg-config" ,pkg-config)))
3026     (home-page "https://github.com/johnhldavis/xjackfreak")
3027     (synopsis "JACK audio frequency analyzer and display")
3028     (description
3029      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
3030 Connection Kit.  It can display the FFT of any input, modify it and output the
3031 result.")
3032     (license license:gpl3+)))
3033
3034 (define-public zita-convolver
3035   (package
3036     (name "zita-convolver")
3037     (version "4.0.3")
3038     (source (origin
3039               (method url-fetch)
3040               (uri (string-append
3041                     "http://kokkinizita.linuxaudio.org"
3042                     "/linuxaudio/downloads/zita-convolver-"
3043                     version ".tar.bz2"))
3044               (snippet
3045                ;; Don't optimize for a specific processor architecture.
3046                '(begin
3047                   (substitute* "source/Makefile"
3048                     (("^CXXFLAGS \\+= -march=native") ""))
3049                   #t))
3050               (modules '((guix build utils)))
3051               (sha256
3052                (base32
3053                 "0prji66p86z2bzminywkwchr5bfgxcg2i8y803pydd1hzf2198cs"))))
3054     (build-system gnu-build-system)
3055     (arguments
3056      `(#:tests? #f ; no "check" target
3057        #:make-flags
3058        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3059              (string-append "SUFFIX="))
3060        #:phases
3061        (modify-phases %standard-phases
3062          (add-after 'unpack 'patch-makefile-and-enter-directory
3063            (lambda _
3064              (substitute* "source/Makefile"
3065                (("ldconfig") "true")
3066                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3067              (chdir "source")
3068              #t))
3069          (add-after 'install 'install-symlink
3070            (lambda _
3071              (symlink "libzita-convolver.so"
3072                       (string-append (assoc-ref %outputs "out")
3073                                      "/lib/libzita-convolver.so.4"))
3074              #t))
3075          ;; no configure script
3076          (delete 'configure))))
3077     (inputs `(("fftwf" ,fftwf)))
3078     (home-page "https://kokkinizita.linuxaudio.org")
3079     (synopsis "Fast, partitioned convolution engine library")
3080     (description
3081      "Zita convolver is a C++ library providing a real-time convolution
3082 engine.")
3083     (license license:gpl3+)))
3084
3085 (define-public zita-resampler
3086   (package
3087     (name "zita-resampler")
3088     (version "1.3.0")
3089     (source (origin
3090               (method url-fetch)
3091               (uri (string-append
3092                     "http://kokkinizita.linuxaudio.org"
3093                     "/linuxaudio/downloads/zita-resampler-"
3094                     version ".tar.bz2"))
3095               (snippet
3096                ;; Don't optimize for a specific processor architecture.
3097                '(begin
3098                   (substitute* '("apps/Makefile" "libs/Makefile")
3099                     (("^CXXFLAGS \\+= -march=native") ""))
3100                   #t))
3101               (modules '((guix build utils)))
3102               (sha256
3103                (base32
3104                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
3105     (build-system gnu-build-system)
3106     (arguments
3107      `(#:tests? #f ; no "check" target
3108        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3109        #:phases
3110        (modify-phases %standard-phases
3111          (add-after
3112           'unpack 'patch-makefile-and-enter-directory
3113           (lambda _
3114             (substitute* "libs/Makefile"
3115               (("ldconfig") "true")
3116               (("^LIBDIR =.*") "LIBDIR = lib\n"))
3117             (chdir "libs")
3118             #t))
3119          (add-after
3120           'install 'install-symlink
3121           (lambda _
3122             (symlink "libzita-resampler.so"
3123                      (string-append (assoc-ref %outputs "out")
3124                                     "/lib/libzita-resampler.so.1"))
3125             #t))
3126          ;; no configure script
3127          (delete 'configure))))
3128     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
3129     (synopsis "C++ library for resampling audio signals")
3130     (description
3131      "Libzita-resampler is a C++ library for resampling audio signals.  It is
3132 designed to be used within a real-time processing context, to be fast, and to
3133 provide high-quality sample rate conversion.")
3134     (license license:gpl3+)))
3135
3136 (define-public zita-alsa-pcmi
3137   (package
3138     (name "zita-alsa-pcmi")
3139     (version "0.2.0")
3140     (source (origin
3141               (method url-fetch)
3142               (uri (string-append
3143                     "http://kokkinizita.linuxaudio.org"
3144                     "/linuxaudio/downloads/zita-alsa-pcmi-"
3145                     version ".tar.bz2"))
3146               (sha256
3147                (base32
3148                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
3149     (build-system gnu-build-system)
3150     (arguments
3151      `(#:tests? #f ; no "check" target
3152        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3153        #:phases
3154        (modify-phases %standard-phases
3155          (add-after 'unpack 'patch-makefile-and-enter-directory
3156            (lambda _
3157              (substitute* "libs/Makefile"
3158                (("ldconfig") "true")
3159                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3160              (chdir "libs")
3161              #t))
3162          (add-after 'install 'install-symlink
3163            (lambda _
3164              (symlink "libzita-alsa-pcmi.so"
3165                       (string-append (assoc-ref %outputs "out")
3166                                      "/lib/libzita-alsa-pcmi.so.0"))
3167              #t))
3168           ;; no configure script
3169           (delete 'configure))))
3170     (inputs
3171      `(("alsa-lib" ,alsa-lib)
3172        ("fftw" ,fftw)))
3173     (home-page "https://kokkinizita.linuxaudio.org")
3174     (synopsis "C++ wrapper around the ALSA API")
3175     (description
3176      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
3177 access to ALSA PCM devices, taking care of the many functions required to
3178 open, initialise and use a hw: device in mmap mode, and providing floating
3179 point audio data.")
3180     (license license:gpl3+)))
3181
3182 (define-public cuetools
3183   (package
3184     (name "cuetools")
3185     (version "1.4.1")
3186     (source (origin
3187              (method git-fetch)
3188              (uri (git-reference
3189                    (url "https://github.com/svend/cuetools.git")
3190                    (commit version)))
3191              (file-name (git-file-name name version))
3192              (sha256
3193               (base32
3194                "02ksv1ahf1v4cr2xbclsfv5x17m9ivzbssb5r8xjm97yh8a7spa3"))))
3195     (build-system gnu-build-system)
3196     ;; The source checkout is not bootstrapped.
3197     (native-inputs
3198      `(("autoconf" ,autoconf)
3199        ("automake" ,automake)
3200        ("flex" ,flex)
3201        ("bison" ,bison)))
3202     (synopsis "Cue and toc file parsers and utilities")
3203     (description "Cuetools is a set of programs that are useful for manipulating
3204 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
3205 files are a way to represent the layout of a data or audio CD in a
3206 machine-readable ASCII format.")
3207     (home-page "https://github.com/svend/cuetools")
3208     (license license:gpl2+)))
3209
3210 (define-public shntool
3211   (package
3212     (name "shntool")
3213     (version "3.0.10")
3214     (source (origin
3215              (method url-fetch)
3216              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
3217                                  "shntool-" version ".tar.gz"))
3218              (sha256
3219               (base32
3220                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
3221     (build-system gnu-build-system)
3222     (synopsis "WAVE audio data processing tool")
3223     (description "shntool is a multi-purpose WAVE data processing and reporting
3224 utility.  File formats are abstracted from its core, so it can process any file
3225 that contains WAVE data, compressed or not---provided there exists a format
3226 module to handle that particular file type.  It can also generate CUE files, and
3227 use them split WAVE data into multiple files.")
3228     (home-page "http://etree.org/shnutils/shntool/")
3229     ;; 'install-sh' bears the x11 license
3230     (license (list license:gpl2+ license:x11))))
3231
3232 (define-public dcadec
3233   (package
3234     (name "dcadec")
3235     (version "0.2.0")
3236     (source (origin
3237               (method git-fetch)
3238               (uri (git-reference
3239                     (url "https://github.com/foo86/dcadec.git")
3240                     (commit (string-append "v" version))))
3241               (file-name (git-file-name name version))
3242               (sha256
3243                (base32
3244                 "07nd0ajizrp1w02bsyfcv18431r8m8rq8gjfmz9wmckpg7cxj2hs"))))
3245     (build-system gnu-build-system)
3246     (arguments
3247      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
3248      '(#:tests? #f
3249        #:make-flags
3250        (list "CC=gcc"
3251              ;; Build shared library.
3252              "CONFIG_SHARED=1"
3253              (string-append "PREFIX=" (assoc-ref %outputs "out"))
3254              ;; Set proper runpath.
3255              (string-append "LDFLAGS=-Wl,-rpath="
3256                             (assoc-ref %outputs "out")
3257                             "/lib"))
3258        #:phases
3259        (modify-phases %standard-phases
3260          ;; No configure script, just a hand-written Makefile.
3261          (delete 'configure))))
3262     (synopsis "DTS Coherent Acoustics decoder")
3263     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
3264 with support for HD extensions.")
3265     (home-page "https://github.com/foo86/dcadec")
3266     (license license:lgpl2.1+)))
3267
3268 (define-public bs1770gain
3269   (package
3270     (name "bs1770gain")
3271     (version "0.6.5")
3272     (source
3273      (origin
3274        (method url-fetch)
3275        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
3276                            version "/bs1770gain-" version ".tar.gz"))
3277        (sha256
3278         (base32 "15nvlh9bg0a52cpg2mii17mlzmxszwivjjalbb4np1v5nj8l5fk6"))
3279        (modules '((guix build utils)))
3280        (snippet
3281         '(begin
3282            ;; XXX
3283            (substitute* (find-files "." "\\.[ch]$")
3284              (("^ \\* N..o.*") ""))
3285            (substitute* "libbg/bgx.c"
3286              (("#define BG.* ") "#define BS ")
3287              (("BG.*NO?.*N.*S.*E.*N.*SE?") "NO")
3288              (("\"( #|N).*\"") "\"\""))
3289            (substitute* (list "config.h"
3290                               "configure.ac"
3291                               "configure")
3292              (("https?://bs1770gain[^/]*/")
3293               "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html"))
3294            #t))))
3295     (build-system gnu-build-system)
3296     (inputs `(("ffmpeg" ,ffmpeg)
3297               ("sox" ,sox)))
3298     (home-page "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html")
3299     (synopsis "Tool to adjust loudness of media files")
3300     (description
3301      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
3302 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
3303 loudness of audio and video files to the same level.")
3304     (license license:gpl2+)))
3305
3306 (define-public filteraudio
3307   (let ((revision "1")
3308         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
3309     (package
3310       (name "filteraudio")
3311       (version (string-append "0.0.0-" revision "."
3312                               (string-take commit 7)))
3313       (source
3314        (origin
3315          (method git-fetch)
3316          (uri (git-reference
3317                (url "https://github.com/irungentoo/filter_audio.git")
3318                (commit commit)))
3319          (file-name (string-append name "-" version "-checkout"))
3320          (sha256
3321           (base32
3322            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
3323       (build-system gnu-build-system)
3324       (arguments
3325        '(#:make-flags (list (string-append "PREFIX=" %output)
3326                             "CC=gcc")
3327          #:tests? #f ; No tests
3328          #:phases
3329          (modify-phases %standard-phases
3330            ;; No configure script
3331            (delete 'configure))))
3332       (synopsis "Lightweight audio filtering library")
3333       (description "An easy to use audio filtering library made from webrtc
3334 code, used in @code{libtoxcore}.")
3335       (home-page "https://github.com/irungentoo/filter_audio")
3336       (license license:bsd-3))))
3337
3338 (define-public gsm
3339   (package
3340     (name "gsm")
3341     (version "1.0.18")
3342     (source
3343      (origin
3344        (method url-fetch)
3345        (uri
3346         (string-append "http://www.quut.com/" name "/" name
3347                        "-" version ".tar.gz"))
3348        (sha256
3349         (base32
3350          "041amvpz8cvxykl3pwqldrzxligmmzcg8ncdnxbg32rlqf3q1xh4"))))
3351     (build-system gnu-build-system)
3352     (arguments
3353      `(#:test-target "tst"
3354        #:phases
3355        (modify-phases %standard-phases
3356          (add-before 'install 'pre-install
3357            (lambda _
3358              (let ((out (assoc-ref %outputs "out")))
3359                (substitute* "Makefile"
3360                  (("INSTALL_ROOT\t=")
3361                   (string-append "INSTALL_ROOT\t=\t" out)))
3362                (mkdir-p (string-append out "/inc"))
3363                (mkdir-p (string-append out "/man"))
3364                (mkdir-p (string-append out "/man/man1"))
3365                (mkdir-p (string-append out "/man/man3"))
3366                (mkdir-p (string-append out "/bin"))
3367                (mkdir-p (string-append out "/lib")))
3368              #t))
3369          (add-after 'install 'post-install
3370            (lambda _
3371              (let ((out (assoc-ref %outputs "out")))
3372                (rename-file (string-append out "/inc")
3373                             (string-append out "/include"))
3374                (mkdir-p (string-append out "/include/gsm"))
3375                (copy-recursively "inc"
3376                                  (string-append out "/include/gsm")))
3377              #t))
3378          (delete 'configure))))         ; no configure script
3379     (synopsis "GSM 06.10 lossy speech compression library")
3380     (description "This C library provides an encoder and a decoder for the GSM
3381 06.10 RPE-LTP lossy speech compression algorithm.")
3382     (home-page "http://quut.com/gsm/")
3383     (license (license:non-copyleft "file://COPYRIGHT"))))
3384
3385 (define-public python-pyalsaaudio
3386   (package
3387     (name "python-pyalsaaudio")
3388     (version "0.8.4")
3389     (source (origin
3390               (method url-fetch)
3391               (uri (pypi-uri "pyalsaaudio" version))
3392               (sha256
3393                (base32
3394                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3395     (build-system python-build-system)
3396     (arguments
3397      `(#:tests? #f))                   ; tests require access to ALSA devices.
3398     (inputs
3399      `(("alsa-lib" ,alsa-lib)))
3400     (home-page "http://larsimmisch.github.io/pyalsaaudio/")
3401     (synopsis "ALSA wrappers for Python")
3402     (description
3403      "This package contains wrappers for accessing the ALSA API from Python.
3404 It is currently fairly complete for PCM devices, and has some support for
3405 mixers.")
3406     (license license:psfl)))
3407
3408 (define-public python2-pyalsaaudio
3409   (package-with-python2 python-pyalsaaudio))
3410
3411 (define-public bluez-alsa
3412   (package
3413     (name "bluez-alsa")
3414     (version "2.0.0")
3415     (source (origin
3416               ;; The tarballs are mere snapshots and don't contain a
3417               ;; bootstrapped build system.
3418               (method git-fetch)
3419               (uri (git-reference
3420                     (url "https://github.com/Arkq/bluez-alsa.git")
3421                     (commit (string-append "v" version))))
3422               (file-name (git-file-name name version))
3423               (sha256
3424                (base32
3425                 "08mppgnjf1j2733bk9yf0cny6rfxxwiys0s62lz2zd2lpdl6d9lz"))))
3426     (build-system gnu-build-system)
3427     (arguments
3428      `(#:configure-flags
3429        (list (string-append "--with-alsaplugindir="
3430                             (assoc-ref %outputs "out")
3431                             "/lib/alsa-lib")
3432              (string-append "--with-dbusconfdir="
3433                             (assoc-ref %outputs "out")
3434                             "/etc/dbus-1/system.d"))))
3435     (native-inputs
3436      `(("autoconf" ,autoconf)
3437        ("automake" ,automake)
3438        ("libtool" ,libtool)
3439        ("pkg-config" ,pkg-config)))
3440     (inputs
3441      `(("alsa-lib" ,alsa-lib)
3442        ("bluez" ,bluez)
3443        ("dbus" ,dbus)
3444        ("glib" ,glib)
3445        ("libbsd" ,libbsd)
3446        ("ncurses" ,ncurses)
3447        ("ortp" ,ortp)
3448        ("sbc" ,sbc)))
3449     (home-page "https://github.com/Arkq/bluez-alsa")
3450     (synopsis "Bluetooth ALSA backend")
3451     (description "This project is a rebirth of a direct integration between
3452 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3453 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3454 middleware between an audio application, which implements Bluetooth audio
3455 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3456 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3457 capabilities) can be connected.  In order to access the audio stream, one has
3458 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3459 on the ALSA software PCM plugin.")
3460     (license license:expat)))
3461
3462 (define-public snd
3463   (package
3464     (name "snd")
3465     (version "19.9")
3466     (source (origin
3467               (method url-fetch)
3468               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3469                                   "snd-" version ".tar.gz"))
3470               (sha256
3471                (base32
3472                 "13s8fahpsjygjdrcwmprcrz23ny3klaj2rh2xzdv3bfs69gxvhys"))))
3473     (build-system glib-or-gtk-build-system)
3474     (arguments
3475      `(#:tests? #f                      ; no tests
3476        #:out-of-source? #f              ; for the 'install-doc' phase
3477        #:configure-flags
3478        (let* ((out (assoc-ref %outputs "out"))
3479               (docdir (string-append out "/share/doc/"
3480                                      ,name "-" ,version)))
3481          (list "--with-alsa" "--with-jack" "--with-gmp"
3482                (string-append "--with-doc-dir=" docdir)))
3483        #:phases
3484        (modify-phases %standard-phases
3485          (add-after 'install 'install-doc
3486            (lambda* (#:key outputs #:allow-other-keys)
3487              (let* ((out (assoc-ref outputs "out"))
3488                     (doc (string-append out "/share/doc/"
3489                                         ,name "-" ,version)))
3490                (for-each
3491                 (lambda (f)
3492                   (install-file f doc))
3493                 (find-files "." "\\.html$"))
3494                (copy-recursively "pix" (string-append doc "/pix"))
3495                #t))))))
3496     (native-inputs
3497      `(("pkg-config" ,pkg-config)))
3498     (inputs
3499      `(("alsa-lib" ,alsa-lib)
3500        ("fftw" ,fftw)
3501        ("flac" ,flac)
3502        ("gmp" ,gmp)
3503        ("gsl" ,gsl)
3504        ("gtk+" ,gtk+)
3505        ("jack" ,jack-1)
3506        ("libsamplerate" ,libsamplerate)
3507        ("mpc" ,mpc)
3508        ("mpfr" ,mpfr)
3509        ("mpg123" ,mpg123)
3510        ("speex" ,speex)
3511        ("timidity++" ,timidity++)
3512        ("vorbis-tools" ,vorbis-tools)
3513        ("wavpack" ,wavpack)))
3514     (synopsis "Sound editor")
3515     (home-page "https://ccrma.stanford.edu/software/snd/")
3516     (description
3517      "Snd is a sound editor modelled loosely after Emacs.  It can be
3518 customized and extended using either the s7 Scheme implementation (included in
3519 the Snd sources), Ruby, or Forth.")
3520     (license (license:non-copyleft "file://COPYING"))))
3521
3522 (define-public noise-repellent
3523   (package
3524     (name "noise-repellent")
3525     (version "0.1.4")
3526     (source (origin
3527               (method git-fetch)
3528               (uri (git-reference
3529                     (url "https://github.com/lucianodato/noise-repellent.git")
3530                     (commit version)))
3531               (file-name (string-append name "-" version "-checkout"))
3532               (sha256
3533                (base32
3534                 "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
3535     (build-system gnu-build-system)
3536     (arguments
3537      `(#:make-flags
3538        (list "CC=gcc"
3539              (string-append "PREFIX=" (assoc-ref %outputs "out")))
3540        #:tests? #f ; there are none
3541        #:phases
3542        (modify-phases %standard-phases
3543          (delete 'configure))))
3544     (inputs
3545      `(("lv2" ,lv2)
3546        ("fftwf" ,fftwf)))
3547     (native-inputs
3548      `(("pkg-config" ,pkg-config)))
3549     (home-page "https://github.com/lucianodato/noise-repellent")
3550     (synopsis "LV2 plugin for broadband noise reduction")
3551     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3552 the following features:
3553
3554 @enumerate
3555 @item Spectral gating and spectral subtraction suppression rule
3556 @item Adaptive and manual noise thresholds estimation
3557 @item Adjustable noise floor
3558 @item Adjustable offset of thresholds to perform over-subtraction
3559 @item Time smoothing and a masking estimation to reduce artifacts
3560 @item Basic onset detector to avoid transients suppression
3561 @item Whitening of the noise floor to mask artifacts and to recover higher
3562   frequencies
3563 @item Option to listen to the residual signal
3564 @item Soft bypass
3565 @item Noise profile saved with the session
3566 @end enumerate
3567 ")
3568     (license license:lgpl3+)))
3569
3570 (define-public cli-visualizer
3571   (package
3572     (name "cli-visualizer")
3573     (version "1.8")
3574     (source
3575      (origin
3576        (method git-fetch)
3577        (uri (git-reference
3578              (url "https://github.com/dpayne/cli-visualizer.git")
3579              (commit (string-append "v" version))))
3580        (file-name (git-file-name name version))
3581        (sha256
3582         (base32 "003mbbwsz43mg3d7llphpypqa9g7rs1p1cdbqi1mbc2bfrc1gcq2"))))
3583     (build-system cmake-build-system)
3584     (native-inputs
3585      ;; TODO: Try using the latest googletest for versions > 1.8.
3586      `( ;; ("googletest" ,googletest-1.8)
3587        ("which" ,which)))
3588     (inputs
3589      `(("fftw" ,fftw)
3590        ("ncurses" ,ncurses)
3591        ("pulseaudio" ,pulseaudio)))
3592     (arguments
3593      '(#:tests? #f
3594        ;; XXX Enable tests after patching them to use the system googletest.
3595        ;; #:configure-flags (list "-DVIS_WITH_TESTS=true")
3596        #:phases
3597        (modify-phases %standard-phases
3598          (add-after 'install 'install-examples
3599            (lambda* (#:key outputs #:allow-other-keys)
3600              (with-directory-excursion "../source/examples"
3601                (delete-file "mac_osx_config")
3602                (for-each (lambda (file)
3603                            (install-file file
3604                                          (string-append
3605                                           (assoc-ref outputs "out")
3606                                           "/share/doc")))
3607                          (find-files ".")))
3608              #t)))))
3609     (home-page "https://github.com/dpayne/cli-visualizer/")
3610     (synopsis "Command-line audio visualizer")
3611     (description "@code{cli-visualizer} displays fast-Fourier
3612 transforms (FFTs) of the sound being played, as well as other graphical
3613 representations.")
3614     (license license:expat)))
3615
3616 (define-public cava
3617   (package
3618     (name "cava")
3619     (version "0.6.1")
3620     (source (origin
3621               (method git-fetch)
3622               (uri (git-reference
3623                     (url "https://github.com/karlstav/cava.git")
3624                     (commit version)))
3625               (file-name (git-file-name name version))
3626               (sha256
3627                (base32
3628                 "1kvhqgijs29909w3sq9m0bslx2zxxn4b3i07kdz4hb0dqkppxpjy"))))
3629     (build-system gnu-build-system)
3630     (native-inputs
3631      `(("autoconf" ,autoconf)
3632        ("automake" ,automake)
3633        ("libtool" ,libtool)))
3634     (inputs
3635      `(("fftw" ,fftw)
3636        ("ncurses" ,ncurses)
3637        ("pulseaudio" ,pulseaudio)))
3638     (arguments
3639      `(#:configure-flags
3640        (list (string-append "PREFIX=" %output)
3641              (string-append "FONT_DIR=" %output "/share/consolefonts"))
3642        #:make-flags
3643        (let ((lib (string-append %output "/lib")))
3644          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3645        #:phases
3646        (modify-phases %standard-phases
3647          (replace 'bootstrap
3648            (lambda* (#:key outputs #:allow-other-keys)
3649              (setenv "HOME" (getcwd))
3650              (invoke "sh" "autogen.sh")))
3651          (add-before 'build 'make-cava-ldflags
3652            (lambda* (#:key outputs #:allow-other-keys)
3653              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
3654              #t))
3655          (add-after 'install 'data
3656            (lambda* (#:key outputs #:allow-other-keys)
3657              (for-each (lambda (file)
3658                          (install-file file
3659                                        (string-append (assoc-ref outputs "out")
3660                                                       "/share/doc/examples")))
3661                        (find-files "example_files"))
3662              #t)))))
3663     (home-page "https://karlstav.github.io/cava/")
3664     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3665     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3666 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3667     (license license:expat)))
3668
3669 (define-public fluid-3
3670   (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
3671     (package
3672       (name "fluid-3")
3673       (version "2.1")
3674       (source
3675        (origin
3676          (method url-fetch)
3677          ;; Only one file is required, but the release bundles the whole
3678          ;; software which is 50MiB as tar and 200MiB unpacked. The website
3679          ;; directly links the soundfont release to the github file download.
3680          (uri (string-append "https://github.com/musescore/MuseScore/raw/"
3681                              commit "/share/sound/FluidR3Mono_GM.sf3"))
3682          (file-name (string-append name "-" version ".sf3"))
3683          (sha256
3684           (base32
3685            "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
3686       (build-system trivial-build-system)
3687       (arguments
3688        `(#:modules ((guix build utils))
3689          #:builder
3690          (begin
3691            (use-modules (guix build utils))
3692            (let ((file (assoc-ref %build-inputs "source"))
3693                  (out (string-append %output "/share/soundfonts")))
3694              (mkdir-p out)
3695              (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
3696              #t))))
3697       (home-page  "https://github.com/musescore/MuseScore/tree/master/share/sound")
3698       (synopsis "Pro-quality GM soundfont")
3699       (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
3700       (license license:expat))))
3701
3702 (define-public libfdk
3703   (let ((commit "2326faaf8f2cdf2c3a9108ccdaf1d7551aec543e")
3704         (revision "0"))
3705     (package
3706       (name "libfdk")
3707       ;; The latest upstream revision, with many bug fixes.
3708       (version (git-version "0.1.6" revision commit))
3709       (source
3710         (origin
3711           (method git-fetch)
3712           (uri (git-reference
3713                  (url "https://github.com/mstorsjo/fdk-aac")
3714                  (commit commit)))
3715           (file-name (git-file-name name version))
3716           (sha256
3717            (base32
3718             "0yy6ndd9d61bwl283vl1r5kva2a4acc0f4r9g0sza156f2abr9ws"))))
3719       (build-system gnu-build-system)
3720       (native-inputs
3721        `(("autoconf" ,autoconf)
3722          ("automake" ,automake)
3723          ("libtool" ,libtool)))
3724       (home-page "https://github.com/mstorsjo/fdk-aac")
3725       (synopsis "Fraunhofer FDK AAC library")
3726       (description "FDK is a library for encoding and decoding Advanced Audio
3727 Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
3728 Android.  It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
3729 LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
3730 and AAC-ELD (enhanced low delay) for real-time communication.  The encoding
3731 library supports sample rates up to 96 kHz and up to eight channels (7.1
3732 surround).")
3733       (license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
3734                                  "https://www.gnu.org/licenses/license-list.html#fdk")))))
3735
3736 (define-public libopenshot-audio
3737   (package
3738     (name "libopenshot-audio")
3739     (version "0.1.8")
3740     (source (origin
3741               (method git-fetch)
3742               (uri (git-reference
3743                     (url "https://github.com/OpenShot/libopenshot-audio")
3744                     (commit (string-append "v" version))))
3745               (file-name (git-file-name name version))
3746               (sha256
3747                (base32
3748                 "1fvp6nmf30xzkmcznakh8dv5vn9d7nq051pqcqv638hsfppkmcrl"))))
3749     (build-system cmake-build-system)
3750     (inputs
3751      `(("alsa-lib" ,alsa-lib)
3752        ;; The following are for JUCE GUI components:
3753        ("libx11" ,libx11)
3754        ("freetype" ,freetype)
3755        ("libxrandr" ,libxrandr)
3756        ("libxinerama" ,libxinerama)
3757        ("libxcursor" ,libxcursor)))
3758     (arguments
3759      `(#:tests? #f                      ;there are no tests
3760        #:configure-flags
3761        (list (string-append "-DCMAKE_CXX_FLAGS=-I"
3762                             (assoc-ref %build-inputs "freetype")
3763                             "/include/freetype2"))))
3764     (home-page "https://openshot.org")
3765     (synopsis "Audio editing and playback for OpenShot")
3766     (description "OpenShot Audio Library (libopenshot-audio) allows
3767 high-quality editing and playback of audio, and is based on the JUCE
3768 library.")
3769     (license license:lgpl3+)))
3770
3771 (define-public faudio
3772   (package
3773     (name "faudio")
3774     (version "19.11")
3775     (source
3776      (origin
3777        (method git-fetch)
3778        (uri (git-reference
3779              (url "https://github.com/FNA-XNA/FAudio.git")
3780              (commit version)))
3781        (file-name (git-file-name name version))
3782        (sha256
3783         (base32 "0ckpr6ffz8ssfh1y850dhip5s5jv0j6n90qz5yx1v9d6gpwf08rp"))))
3784     (arguments
3785      '(#:tests? #f                      ; No tests.
3786        #:configure-flags '("-DFFMPEG=ON")))
3787     (build-system cmake-build-system)
3788     (native-inputs `(("pkg-config" ,pkg-config)))
3789     (inputs `(("ffmpeg" ,ffmpeg)
3790               ("sdl2" ,sdl2)))
3791     (home-page "https://github.com/FNA-XNA/FAudio")
3792     (synopsis "XAudio reimplementation")
3793     (description "FAudio is an XAudio reimplementation that focuses solely on
3794 developing fully accurate DirectX Audio runtime libraries.")
3795     (license license:zlib)))
3796
3797 (define-public gnaural
3798   (package
3799     (name "gnaural")
3800     (version "20110606")
3801     (source
3802      (origin
3803        (method url-fetch)
3804        (uri (string-append "mirror://sourceforge/gnaural/Gnaural/gnaural_"
3805                            version ".tar.xz"))
3806        (sha256
3807         (base32
3808          "1gq519c0imsh57zklyi0f8h64l3ai48lh672c834470z8c6kvbfi"))))
3809     (build-system gnu-build-system)
3810     (inputs
3811      `(("alsa-lib" ,alsa-lib)
3812        ("gtk+" ,gtk+-2)
3813        ("libsndfile" ,libsndfile)
3814        ("portaudio" ,portaudio)))
3815     (native-inputs
3816      `(("pkg-config" ,pkg-config)))
3817     (home-page "http://gnaural.sourceforge.net/")
3818     (synopsis "Binaural beat synthesizer")
3819     (description "Gnaural is a programmable auditory binaural beat synthesizer
3820 intended to be used for brainwave entrainment.  Gnaural supports creation of
3821 binaural beat tracks of different frequencies and exporting of tracks into
3822 different audio formats.  Gnaural can also be linked over the internet with
3823 other Gnaural instances, allowing synchronous sessions between many users.")
3824     (license license:gpl2+)))
3825
3826 (define-public darkice
3827   (package
3828     (name "darkice")
3829     (version "1.3")
3830     (source (origin
3831               (method url-fetch)
3832               (uri (string-append "mirror://sourceforge/darkice/darkice/"
3833                                   version "/darkice-" version ".tar.gz"))
3834               (sha256
3835                (base32 "1rlxds7ssq7nk2in4s46xws7xy9ylxsqgcz85hxjgh17lsm0y39c"))
3836               (patches
3837                (search-patches "darkice-workaround-fpermissive-error.patch"))))
3838     (build-system gnu-build-system)
3839     (native-inputs `(("pkg-config" ,pkg-config)))
3840     (inputs `(("lame" ,lame)
3841               ("libvorbis" ,libvorbis)
3842               ("opus" ,opus)
3843               ("twolame" ,twolame)
3844               ("alsa-lib" ,alsa-lib)
3845               ("pulseaudio" ,pulseaudio)
3846               ("jack" ,jack-1)
3847               ("libsamplerate" ,libsamplerate)))
3848     (arguments
3849      `(#:configure-flags
3850        (list (string-append "--with-lame-prefix="
3851                             (assoc-ref %build-inputs "lame")))))
3852     (home-page "http://www.darkice.org/")
3853     (synopsis "Live audio streamer")
3854     (description "DarkIce is a live audio streamer.  It takes audio input from
3855 a sound card, encodes it into Ogg Vorbis and/or mp3, and sends the audio
3856 stream to one or more IceCast and/or ShoutCast servers.")
3857     (license license:gpl3+)))
3858
3859 (define-public libltc
3860   (package
3861     (name "libltc")
3862     (version "1.3.1")
3863     (source
3864      (origin
3865        (method url-fetch)
3866        (uri
3867         (string-append "https://github.com/x42/libltc/releases/download/v"
3868                        version "/libltc-" version ".tar.gz"))
3869        (sha256
3870         (base32
3871          "173h9dgmain3nyrwk6q2d7yl4fnh4vacag4s2p01n5b7nyrkxrjh"))))
3872     (build-system gnu-build-system)
3873     (arguments
3874      `(#:parallel-tests? #f))           ;tests fail otherwise
3875     (native-inputs
3876      `(("doxygen" ,doxygen)
3877        ("pkg-config" ,pkg-config)))
3878     (synopsis "Encode or decode Linear/Longitudinal Time Code (LTC) audio")
3879     (description "Libltc is a POSIX-C Library for handling
3880 @dfn{Linear/Longitudinal Time Code} (LTC) data.")
3881     (home-page "https://x42.github.io/libltc/")
3882     (license license:lgpl3+)))
3883
3884 (define-public redkite
3885   (package
3886     (name "redkite")
3887     (version "0.6.2")
3888     (source
3889      (origin
3890        (method git-fetch)
3891        (uri (git-reference
3892              (url "https://gitlab.com/geontime/redkite.git")
3893              (commit (string-append "v" version))))
3894        (file-name (git-file-name name version))
3895        (sha256
3896         (base32
3897          "1i874izajbdhlfacwwj84qrsxf7g4y6nblzxalrkzaap9sa7d1r6"))))
3898     (build-system cmake-build-system)
3899     (arguments
3900      `(#:tests? #f))                    ;no tests included
3901     (inputs
3902      `(("cairo" ,cairo)))
3903     (native-inputs
3904      `(("pkg-config", pkg-config)))
3905     (synopsis "Small GUI toolkit")
3906     (description "Redkite is a small GUI toolkit developed in C++17 and
3907 inspired from other well known GUI toolkits such as Qt and GTK.  It is
3908 minimal on purpose and is intended to be statically linked to applications,
3909 therefore satisfying any requirements they may have to be self contained,
3910 as is the case with audio plugins.")
3911     (home-page "https://gitlab.com/geontime/redkite")
3912     (license license:gpl3+)))
3913
3914 (define-public carla
3915   (package
3916     (name "carla")
3917     (version "2.0.0")
3918     (source
3919      (origin
3920        (method git-fetch)
3921        (uri
3922         (git-reference
3923          (url "https://github.com/falkTX/Carla.git")
3924          (commit (string-append "v" version))))
3925        (file-name (git-file-name name version))
3926        (sha256
3927         (base32
3928          "0fqgncqlr86n38yy7pa118mswfacmfczj7w9xx6c6k0jav3wk29k"))))
3929     (build-system gnu-build-system)
3930     (arguments
3931      `(#:tests? #f                      ; no "check" target
3932        #:make-flags
3933        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3934        #:phases
3935        (modify-phases %standard-phases
3936          (add-before 'build 'set-CC-variable-and-show-features
3937            (lambda _
3938              (setenv "CC" "gcc")
3939              (invoke "make" "features")))
3940          (delete 'configure))))
3941     (inputs
3942      `(("alsa-lib" ,alsa-lib)
3943        ("ffmpeg" ,ffmpeg)
3944        ("fluidsynth" ,fluidsynth)
3945        ("file" ,file)
3946        ("liblo" ,liblo)
3947        ("libsndfile" ,libsndfile)
3948        ("gtk+" ,gtk+)
3949        ("python-pyliblo" ,python-pyliblo)
3950        ("python-pyqt" ,python-pyqt)
3951        ("python-rdflib" ,python-rdflib)
3952        ;; python-pyqt shows the following error without python-wrapper:
3953        ;; Error while finding module specification for 'PyQt5.uic.pyuic'
3954        ;; (ModuleNotFoundError: No module named 'PyQt5')
3955        ("python-wrapper" ,python-wrapper)
3956        ("libx11" ,libx11)
3957        ("qtbase" ,qtbase)
3958        ("zlib" ,zlib)))
3959     (native-inputs
3960      `(("pkg-config" ,pkg-config)))
3961     (home-page "https://kx.studio/Applications:Carla")
3962     (synopsis "Audio plugin host")
3963     (description "Carla is a modular audio plugin host, with features like
3964 transport control, automation of parameters via MIDI CC and remote control
3965 over OSC.  Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2,
3966 and VST3 plugin formats, plus SF2 and SFZ file support.  It uses JACK as the
3967 default and preferred audio driver but also supports native drivers like ALSA.")
3968     (license license:gpl2+)))
3969
3970 (define-public ecasound
3971   (package
3972     (name "ecasound")
3973     (version "2.9.3")
3974     (source (origin
3975               (method url-fetch)
3976               (uri (string-append "https://nosignal.fi/download/ecasound-"
3977                                   version ".tar.gz"))
3978               (sha256
3979                (base32 "1m7njfjdb7sqf0lhgc4swihgdr4snkg8v02wcly08wb5ar2fr2s6"))))
3980     (build-system gnu-build-system)
3981     (native-inputs `(("pkg-config" ,pkg-config)))
3982     ;; It would be nice to add mikmod to inputs if that gets packaged
3983     ;; eventually.
3984     (inputs `(("alsa-lib" ,alsa-lib)
3985               ("jack" ,jack-1)
3986               ("mpg123" ,mpg123)
3987               ("lame" ,lame)
3988               ("vorbis-tools" ,vorbis-tools)
3989               ("faad2" ,faad2)
3990               ("flac" ,flac)
3991               ("timidity++" ,timidity++)
3992               ("libsndfile" ,libsndfile)
3993               ("libsamplerate" ,libsamplerate)
3994               ("ncurses" ,ncurses)
3995               ("ladspa" ,ladspa)
3996               ("lilv" ,lilv)))
3997     (home-page "https://nosignal.fi/ecasound/index.php")
3998     (synopsis "Multitrack audio processing")
3999     (description "Ecasound is a software package designed for multitrack audio
4000 processing. It can be used for simple tasks like audio playback, recording and
4001 format conversions, as well as for multitrack effect processing, mixing,
4002 recording and signal recycling. Ecasound supports a wide range of audio inputs,
4003 outputs and effect algorithms. Effects and audio objects can be combined in
4004 various ways, and their parameters can be controlled by operator objects like
4005 oscillators and MIDI-CCs. A versatile console mode user-interface is included
4006 in the package.")
4007     ;; As an exception to the above, the C, C++ and python implementations
4008     ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL
4009     ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications
4010     ;; that are not licensed under GPL.
4011     (license (list license:gpl2 license:lgpl2.1))))