[PATCH] gnu: Add fluidsynth.

[PATCH] gnu: Add fluidsynth.

[Ricardo Wurmus]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0001-gnu-Add-fluidsynth.patch --]
[-- Type: text/x-patch, Size: 2016 bytes --]

From c15d8070b24168558be79c0ac92355b37787e8c3 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
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+)))
+
 (define-public faad2
   (package
     (name "faad2")
-- 
2.1.0

Re: [PATCH] gnu: Add fluidsynth.

[宋文武]

Ricardo Wurmus <rekado@elephly.net> writes:

> From c15d8070b24168558be79c0ac92355b37787e8c3 Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <rekado@elephly.net>
> 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