Re: [PATCH 2/2] gnu: Add AlsaModularSynth.

[Ricardo Wurmus]

Ricardo Wurmus writes:

> I'm actually getting an error when running "ams":
>
>   /home/rekado/.guix-profile/bin/ams: error while loading shared libraries: 
> libzita-alsa-pcmi.so.0: cannot open shared object file: No such file or 
> directory
>
> The library installed by the first patch is called
> libzita-alsa-pcmi.so.0.2.0 and there's a link called
> libzita-alsa-pcmi.so.
>
> Should "zita-alsa-pcmi" also install a link called
> "libzita-alsa-pcmi.so.0" or what is the preferred way to fix this?

I went ahead and added a phase to zita-alsa-pcmi that creates the
symlink.  With this change I can use alsa-modular-synth.

Attached are the new patches.

~~ Ricardo

>From 79a6aa562688c02bd4c50035a971478a2f2331e1 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <address@hidden>
Date: Sat, 21 Feb 2015 21:52:10 +0100
Subject: [PATCH 1/2] gnu: Add zita-alsa-pcmi.

* gnu/packages/audio.scm (zita-alsa-pcmi): New variable.
---
 gnu/packages/audio.scm | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 4cca793..e2f00b2 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -789,3 +789,50 @@ analysis plugins or audio feature extraction plugins.")
     (license
      (license:x11-style
       
"https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING";))))
+
+(define-public zita-alsa-pcmi
+  (package
+    (name "zita-alsa-pcmi")
+    (version "0.2.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://kokkinizita.linuxaudio.org";
+                    "/linuxaudio/downloads/zita-alsa-pcmi-"
+                    version ".tar.bz2"))
+              (sha256
+               (base32
+                "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))
+              (modules '((guix build utils)))
+              (snippet
+               '(substitute* "libs/Makefile"
+                  (("ldconfig") "true")))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; no "check" target
+       #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
+       #:phases
+       (alist-cons-after
+        'unpack
+        'enter-directory
+        (lambda _ (chdir "libs"))
+        (alist-cons-after
+         'install
+         'install-symlink
+         (lambda _
+           (symlink "libzita-alsa-pcmi.so"
+                    (string-append (assoc-ref %outputs "out")
+                                   "/lib/libzita-alsa-pcmi.so.0")))
+         ;; no configure script
+         (alist-delete 'configure %standard-phases)))))
+    (inputs
+     `(("alsa-lib" ,alsa-lib)
+       ("fftw" ,fftw)))
+    (home-page "http://kokkinizita.linuxaudio.org";)
+    (synopsis "C++ wrapper around the ALSA API")
+    (description
+     "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
+access to ALSA PCM devices, taking care of the many functions required to
+open, initialise and use a hw: device in mmap mode, and providing floating
+point audio data.")
+    (license license:gpl3)))
-- 
2.1.0

>From ca099ed2ea8f270ca0e980b17599895f39489d61 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <address@hidden>
Date: Sat, 21 Feb 2015 21:53:02 +0100
Subject: [PATCH 2/2] gnu: Add AlsaModularSynth.

* gnu/packages/audio.scm (alsa-modular-synth): New variable.
---
 gnu/packages/audio.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index e2f00b2..49ebf98 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -48,6 +48,38 @@
   #:use-module (gnu packages xml)
   #:use-module (srfi srfi-1))
 
+(define-public alsa-modular-synth
+  (package
+    (name "alsa-modular-synth")
+    (version "2.1.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://sourceforge/alsamodular/ams-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1nb7qzzqlqa2x8h797jbwi18ihnfkxqg9lyi0c4nvf8ybwzxkzd2"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("alsa-lib" ,alsa-lib)
+       ("fftw" ,fftw)
+       ("jack" ,jack-1)
+       ("ladspa" ,ladspa)
+       ("liblo" ,liblo)
+       ("qt" ,qt-4)
+       ("zita-alsa-pcmi" ,zita-alsa-pcmi)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://alsamodular.sourceforge.net/";)
+    (synopsis "Realtime modular synthesizer and effect processor")
+    (description
+     "AlsaModularSynth is a digital implementation of a classical analog
+modular synthesizer system.  It uses virtual control voltages to control the
+parameters of the modules.  The control voltages which control the frequency
+e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
+Filter) modules follow the convention of 1V / Octave.")
+    (license license:gpl2)))
+
 (define-public aubio
   (package
     (name "aubio")
-- 
2.1.0