Ricardo Wurmus
parent
38098bf7b4
commit
9159562441
|
|
@ -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")
|
||||
|
|
|
|||
Reference in New Issue