[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] gnu: Add soundtouch.
From: |
David Thompson |
Subject: |
Re: [PATCH] gnu: Add soundtouch. |
Date: |
Sat, 21 Feb 2015 18:50:12 -0500 |
User-agent: |
Notmuch/0.18.2 (http://notmuchmail.org) Emacs/24.4.1 (x86_64-pc-linux-gnu) |
"Taylan Ulrich Bayırlı/Kammer" <address@hidden> writes:
> From 78cad66d5bb8dd5b4e46595574a4e58ce68d7849 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?=
> <address@hidden>
> Date: Fri, 20 Feb 2015 21:44:57 +0100
> Subject: [PATCH 5/9] gnu: Add soundtouch.
>
> * gnu/packages/audio.scm (soundtouch): New variable.
> ---
> gnu/packages/audio.scm | 40 ++++++++++++++++++++++++++++++++++++++++
> 1 file changed, 40 insertions(+)
>
> diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
> index 51157d0..7fb39bd 100644
> --- a/gnu/packages/audio.scm
> +++ b/gnu/packages/audio.scm
> @@ -44,6 +44,7 @@
> #:use-module (gnu packages xiph)
> #:use-module (gnu packages xml)
> #:use-module (gnu packages autotools)
> + #:use-module (gnu packages file)
> #:use-module (srfi srfi-1))
>
> (define-public aubio
> @@ -681,3 +682,42 @@ stretching and pitch scaling of audio. This package
> contains the library.")
> ;; There is no explicit declaration of a license, but a COPYING file
> ;; containing gpl2.
> (license license:gpl2)))
> +
> +(define-public soundtouch
> + (package
> + (name "soundtouch")
> + (version "1.8.0")
> + (source
> + (origin
> + (method url-fetch)
> + (uri
> + (string-append
> + "http://www.surina.net/soundtouch/soundtouch-" version ".tar.gz"))
> + (sha256
> + (base32 "0sqn3wk4qz20vf0vz853l6dl1gnj1yhqxfwxqsc5lp529kbn2h9x"))))
> + (build-system gnu-build-system)
> + (native-inputs
> + `(("autoconf" ,autoconf)
> + ("automake" ,automake)
> + ("libtool" ,libtool)
> + ("file" ,file)))
> + (arguments
> + '(#:phases
> + (alist-cons-before
> + 'configure 'bootstrap
> + (lambda _
> + (and
> + (zero? (system* "sh" "bootstrap"))
> + (begin (substitute* '("configure")
> + (("/usr/bin/file") "file"))
> + #t)))
Is the 'begin' form necessary here? Also, when substituting a single
file, you can just pass a string instead of a list of strings.
(and
(zero? (system* "sh" "bootstrap"))
(substitute* "configure"
(("/usr/bin/file") "file")))
> + %standard-phases)))
> + (home-page "http://www.surina.net/soundtouch/")
> + (synopsis
> + "Audio processing library for changing tempo, pitch and playback rate")
> + (description
> + "SoundTouch is an audio processing library for changing the Tempo, Pitch
> +and Playback Rates of audio streams or audio files. It is intended for
> +application developers writing sound processing tools that require
> tempo/pitch
> +control functionality, or just for playing around with the sound effects.")
> + (license license:lgpl2.1+)))
> --
> 2.2.1
>
>
--
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate