Re: [PATCH] gnu: Add soundtouch.

[David Thompson]

"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