me/guix
Archived
1
0
Fork 0
Code Activity

gnu: klick: Use scons-build-system.

Browse source 
* gnu/packages/music.scm (klick): Switch to scons-build-system.
This commit is contained in:
Arun Isaac 2017-11-17 14:54:15 +05:30
parent 3f3f8f494e
commit bc27eb3b56
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 6 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/music.scm
View file

@ -12,6 +12,7 @@
;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org> ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -38,6 +39,7 @@
#:use-module (guix build-system ant) #:use-module (guix build-system ant)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system scons)
#:use-module (guix build-system waf) #:use-module (guix build-system waf)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
@ -508,19 +510,10 @@ audio and video).")
(sha256 (sha256
(base32 (base32
"0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j")))) "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
(build-system gnu-build-system) (build-system scons-build-system)
(arguments (arguments
`(#:tests? #f ;no "check" target `(#:scons-flags (list (string-append "PREFIX=" %output))
#:phases #:tests? #f)) ;no "check" target
;; TODO: Add scons-build-system and use it here.
(modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p out)
(zero? (system* "scons" (string-append "PREFIX=" out))))))
(replace 'install (lambda _ (zero? (system* "scons" "install")))))))
(inputs (inputs
`(("boost" ,boost) `(("boost" ,boost)
("jack" ,jack-1) ("jack" ,jack-1)
@ -529,9 +522,7 @@ audio and video).")
("liblo" ,liblo) ("liblo" ,liblo)
("rubberband" ,rubberband))) ("rubberband" ,rubberband)))
(native-inputs (native-inputs
`(("scons" ,scons) `(("pkg-config" ,pkg-config)))
("python" ,python-2)
("pkg-config" ,pkg-config)))
(home-page "http://das.nasophon.de/klick/") (home-page "http://das.nasophon.de/klick/")
(synopsis "Metronome for JACK") (synopsis "Metronome for JACK")
(description (description