Re: [PATCH] gnu: Add fluidsynth.

[宋文武]

Ricardo Wurmus <address@hidden> writes:

> From c15d8070b24168558be79c0ac92355b37787e8c3 Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <address@hidden>
> Date: Sat, 25 Apr 2015 21:35:48 +0200
> Subject: [PATCH] gnu: Add fluidsynth.
>
> * gnu/packages/audio.scm (fluidsynth): New variable.
> ---
>  gnu/packages/audio.scm | 39 +++++++++++++++++++++++++++++++++++++++
>  1 file changed, 39 insertions(+)
>
> diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
> index b4d186a..16c2a72 100644
> --- a/gnu/packages/audio.scm
> +++ b/gnu/packages/audio.scm
> @@ -334,6 +334,45 @@ language and software synthesizer.")
>  ALSA PCM devices.")
>      (license license:gpl2+)))
>  
> +(define-public fluidsynth
> +  (package
> +    (name "fluidsynth")
> +    (version "1.1.6")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append
> +                    "mirror://sourceforge/fluidsynth/fluidsynth-"
> +                    version "/fluidsynth-" version ".tar.gz"))
> +              (sha256
> +               (base32
> +                "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:phases
> +       (alist-cons-after
> +        'unpack
> +        'remove-broken-symlinks
> +        (lambda _ (delete-file-recursively "m4") #t)
> +        %standard-phases)))
> +    (inputs
> +     `(("libsndfile" ,libsndfile)
> +       ("alsa-lib" ,alsa-lib)
> +       ("jack" ,jack-1)
> +       ("ladspa" ,ladspa)
> +       ("lash" ,lash)
> +       ("readline" ,readline)
> +       ("glib" ,glib)))
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (home-page "http://www.fluidsynth.org/";)
> +    (synopsis "SoundFont synthesizer")
> +    (description
> +     "FluidSynth is a real-time software synthesizer based on the SoundFont 2
> +specifications.  FluidSynth reads and handles MIDI events from the MIDI input
> +device.  It is the software analogue of a MIDI synthesizer. FluidSynth can
> +also play midifiles using a Soundfont.")
> +    (license license:gpl2+)))
> +
Look good to me!
>  (define-public faad2
>    (package
>      (name "faad2")
> -- 
> 2.1.0