[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/06: gnu: Add qm-dsp.
From: |
guix-commits |
Subject: |
02/06: gnu: Add qm-dsp. |
Date: |
Sun, 13 Nov 2022 13:30:25 -0500 (EST) |
rekado pushed a commit to branch master
in repository guix.
commit 6737fdc1c822c5c35bff68b6491e52895d9e014f
Author: Sughosha <sughosha@proton.me>
AuthorDate: Sun Nov 13 17:26:19 2022 +0100
gnu: Add qm-dsp.
* gnu/packages/audio.scm (qm-dsp): New variable.
Co-authored-by: Ricardo Wurmus <rekado@elephly.net>
---
gnu/packages/audio.scm | 52 +++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 51 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index bba35dcb39..11d654e85f 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -145,7 +145,8 @@
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
- #:use-module (srfi srfi-26))
+ #:use-module (srfi srfi-26)
+ #:use-module (ice-9 match))
(define-public opensles
(package
@@ -614,6 +615,55 @@ attacks, performing pitch detection, tapping the beat and
producing MIDI
streams from live audio.")
(license license:gpl3+)))
+(define-public qm-dsp
+ (package
+ (name "qm-dsp")
+ (version "1.7.1")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/c4dm/qm-dsp")
+ (commit (string-append "v" version))))
+ (sha256
+ (base32
+ "1vkb1xr2hjcaw88gig7rknlwsx01lm0w94d2z0rk5vz9ih4fslvv"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:make-flags
+ #~(list #$(string-append "-f" "build/"
+ (match (or (%current-target-system)
+ (%current-system))
+ ("x86_64-linux" "linux/Makefile.linux64")
+ ("i686-linux" "linux/Makefile.linux32")
+ (target
+ (if (string-suffix? "-mingw32" target)
+ "mingw32/Makefile.mingw32"
+ "general/Makefile.inc"))))
+ (string-append "CC=" #$(cc-for-target)))
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure) ;no configure script
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((lib (string-append #$output "/lib"))
+ (include (string-append #$output "/include")))
+ (install-file "libqm-dsp.a" lib)
+ (mkdir-p include)
+ (for-each (lambda (file)
+ (unless (or (string-prefix? "./build" file)
+ (string-prefix? "./include" file))
+ (install-file file (string-append include "/"
+ (dirname
file)))))
+ (find-files "." "\\.h$"))))))
+ #:test-target "tests"))
+ (home-page "https://code.soundsoftware.ac.uk/projects/qm-dsp")
+ (synopsis "C++ library of functions for DSP and Music Informatics
purposes")
+ (description
+ "QM-DSP is a C++ library of functions for DSP and Music Informatics
+purposes developed at Queen Mary, University of London.")
+ (license license:gpl2+)))
+
(define (ardour-rpath-phase major-version)
`(lambda* (#:key outputs #:allow-other-keys)
(let ((libdir (string-append (assoc-ref outputs "out")
- branch master updated (394684bfeb -> 0d2ad7b7c0), guix-commits, 2022/11/13
- 05/06: gnu: ardour: Remove trailing #T from phases., guix-commits, 2022/11/13
- 06/06: gnu: ardour: Do not use labels in list of native inputs., guix-commits, 2022/11/13
- 02/06: gnu: Add qm-dsp.,
guix-commits <=
- 01/06: gnu: ardour: Update to 7.0, guix-commits, 2022/11/13
- 03/06: gnu: ardour: Use more system libraries., guix-commits, 2022/11/13
- 04/06: gnu: ardour: Install man page., guix-commits, 2022/11/13