aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/music.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2016-09-14 11:27:40 +0200
committerRicardo Wurmus <rekado@elephly.net>2016-09-16 17:31:12 +0200
commit915956244105e0c81454378a0136b97e48db6358 (patch)
tree448551bd57e359c83b9735646e21266c78e06046 /gnu/packages/music.scm
parent38098bf7b4c00551afd770eb6ac81cf96aa32c38 (diff)
downloadguix-915956244105e0c81454378a0136b97e48db6358.tar
guix-915956244105e0c81454378a0136b97e48db6358.tar.gz
gnu: Add Extempore.
* gnu/packages/music.scm (extempore): New variable.
Diffstat (limited to 'gnu/packages/music.scm')
-rw-r--r--gnu/packages/music.scm147
1 files changed, 147 insertions, 0 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index c62dbbc7eb..c512d533c2 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -37,6 +37,7 @@
#:use-module (guix build-system waf)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
+ #:use-module (gnu packages apr)
#:use-module (gnu packages audio)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
@@ -51,6 +52,7 @@
#:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages emacs)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages fltk)
@@ -71,11 +73,14 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages java)
#:use-module (gnu packages linux) ; for alsa-utils
+ #:use-module (gnu packages libffi)
+ #:use-module (gnu packages llvm)
#:use-module (gnu packages man)
#:use-module (gnu packages mp3)
#:use-module (gnu packages mpd)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages netpbm)
+ #:use-module (gnu packages pcre)
#:use-module (gnu packages pdf)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
@@ -262,6 +267,148 @@ many input formats and provides a customisable Vi-style user interface.")
enable professional yet simple and intuitive pattern-based drum programming.")
(license license:gpl2+)))
+(define-public extempore
+ (package
+ (name "extempore")
+ (version "0.7.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/digego/extempore/archive/"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
+ (file-name (string-append name "-" version ".tar.gz"))))
+ (build-system cmake-build-system)
+ (arguments
+ `(;; The default target also includes ahead-of-time compilation of the
+ ;; standard libraries. However, during the "install" phase this would
+ ;; happen *again* for unknown reasons. Hence we only build the
+ ;; extempore executable during the build phase.
+ #:make-flags '("extempore")
+ #:configure-flags '("-DJACK=ON"
+ ;; We want to distribute.
+ "-DIN_TREE=OFF"
+ ;; Don't download any dependencies.
+ "-DBUILD_DEPS=OFF")
+ #:modules ((ice-9 match)
+ (guix build cmake-build-system)
+ (guix build utils))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-directories
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Rewrite default path to runtime directory
+ (substitute* "src/Extempore.cpp"
+ (("runtimedir \\+= \"runtime\"")
+ (string-append "runtimedir = \""
+ (assoc-ref outputs "out")
+ "/lib/extempore/runtime\"")))
+ (substitute* "extras/extempore.el"
+ (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
+ (string-append "(runtime-directory \""
+ (assoc-ref outputs "out")
+ "/lib/extempore/runtime"
+ "\")")))
+ #t))
+ (add-after 'unpack 'link-with-additional-libs
+ (lambda _
+ ;; The executable must be linked with libffi and zlib.
+ (substitute* "CMakeLists.txt"
+ (("add_dependencies\\(aot_extended extended_deps\\)") "")
+ (("target_link_libraries\\(extempore PRIVATE dl" line)
+ (string-append line " ffi z")))
+ #t))
+ ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
+ ;; "Compiler Error could not bind _nvgLinearGradient"
+ (add-after 'unpack 'disable-nanovg
+ (lambda _
+ (substitute* "CMakeLists.txt"
+ (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
+ #t))
+ ;; FIXME: All examples that are used as tests segfault for some
+ ;; unknown reason.
+ (add-after 'unpack 'disable-broken-tests
+ (lambda _
+ (substitute* "CMakeLists.txt"
+ (("extempore_add_example_as_test\\(.*") ""))
+ #t))
+ (add-after 'unpack 'hardcode-external-lib-paths
+ (lambda* (#:key inputs #:allow-other-keys)
+ (use-modules (ice-9 match))
+ (for-each
+ (match-lambda
+ ((file-name lib pkg-name)
+ (substitute* (string-append "libs/external/" file-name ".xtm")
+ ((lib) (string-append (assoc-ref inputs pkg-name)
+ "/lib/" lib)))))
+ '(("assimp" "libassimp.so" "assimp")
+ ("portmidi" "libportmidi.so" "portmidi")
+ ("sndfile" "libsndfile.so" "libsndfile")
+ ("fft" "libkiss_fft.so" "kiss-fft")
+ ("stb_image" "libstb_image.so" "stb-image")
+ ("nanovg" "libnanovg.so" "nanovg")
+ ("glext" "libGL.so" "mesa")
+ ("glfw3" "libglfw.so" "glfw")
+ ("gl/glcore-directbind" "libGL.so" "mesa")
+ ("gl/glcompat-directbind" "libGL.so" "mesa")))
+ #t))
+ (add-after 'unpack 'use-own-llvm
+ (lambda* (#:key inputs #:allow-other-keys)
+ (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
+ ;; Our LLVM builds shared libraries, so Extempore should use
+ ;; those.
+ (substitute* "CMakeLists.txt"
+ (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
+ #t))
+ (add-after 'unpack 'fix-aot-compilation
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "CMakeLists.txt"
+ ;; EXT_SHARE_DIR does not exist before installation, so the
+ ;; working directory should be the source directory instead.
+ (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
+ "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
+ ;; Extempore needs to be told where the runtime is to be found.
+ ;; While we're at it we disable automatic tuning for a specific
+ ;; CPU to make binary substitution possible.
+ (("COMMAND extempore" prefix)
+ (string-append prefix " --sharedir " (getcwd)
+ " --mcpu=generic --attr=none")))
+ #t)))))
+ (inputs
+ `(("llvm" ,llvm-for-extempore)
+ ("libffi" ,libffi)
+ ("jack" ,jack-1)
+ ("libsndfile" ,libsndfile)
+ ("glfw" ,glfw)
+ ("apr" ,apr)
+ ("stb-image" ,stb-image-for-extempore)
+ ("kiss-fft" ,kiss-fft-for-extempore)
+ ("nanovg" ,nanovg-for-extempore)
+ ("portmidi" ,portmidi-for-extempore)
+ ("assimp" ,assimp)
+ ("alsa-lib" ,alsa-lib)
+ ("portaudio" ,portaudio)
+ ("mesa" ,mesa)
+ ("pcre" ,pcre)
+ ("zlib" ,zlib)))
+ (native-inputs
+ `(("perl" ,perl)
+ ("emacs" ,emacs-no-x)))
+ (home-page "http://benswift.me/extempore-docs/index.html")
+ (synopsis "Programming environment for live coding of multimedia")
+ (description
+ "Extempore is a programming language and runtime environment designed
+with live programming in mind. It supports interactive programming in a REPL
+style, compiling and binding code just-in-time. Although Extempore has its
+roots in 'live coding' of audiovisual media art, it is suitable for any task
+domain where dynamic run-time modifiability and good numerical performance are
+required. Extempore also has strong timing and concurrency semantics, which
+are helpful when working in problem spaces where timing is important (such as
+audio and video).")
+ (license license:bsd-2)))
+
(define-public klick
(package
(name "klick")