gnu/packages/audio.scm

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