guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/06: gnu: faust: Update to 0.9.90.


From: Ricardo Wurmus
Subject: 02/06: gnu: faust: Update to 0.9.90.
Date: Sun, 3 Dec 2017 12:32:19 -0500 (EST)

rekado pushed a commit to branch master
in repository guix.

commit a36047422fedae1629f973a975e08d9c6941d0b4
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Dec 3 17:21:43 2017 +0100

    gnu: faust: Update to 0.9.90.
    
    * gnu/packages/audio.scm (faust): Update to 0.9.90.
    [source]: Download sources via git-fetch.
    [arguments]: Add phase "fix-permissions".
---
 gnu/packages/audio.scm | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index da93143..2407f00 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -1100,17 +1100,19 @@ PS, and DAB+.")
 (define-public faust
   (package
     (name "faust")
-    (version "0.9.67")
+    (version "0.9.90")
     (source (origin
-              (method url-fetch)
-              (uri (string-append
-                    "mirror://sourceforge/faudiostream/faust-" version ".zip"))
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/grame-cncm/faust.git";)
+                    (commit (string-append "v"
+                                           (string-map (lambda (c)
+                                                         (if (char=? c #\.) 
#\- c))
+                                                       version)))))
+              (file-name (string-append "faust-" version "-checkout"))
               (sha256
                (base32
-                "068vl9536zn0j4pknwfcchzi90rx5pk64wbcbd67z32w0csx8xm1"))
-              (snippet
-               ;; Remove prebuilt library
-               '(delete-file 
"architecture/android/libs/armeabi-v7a/libfaust_dsp.so"))))
+                "0qc6iwjd3i80jdyjc186c6ywipmjzl8wlsp4050pbr56q4rlkd4z"))))
     (build-system gnu-build-system)
     (arguments
      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
@@ -1118,7 +1120,16 @@ PS, and DAB+.")
        #:phases
        (modify-phases %standard-phases
          ;; no "configure" script
-         (delete 'configure))))
+         (delete 'configure)
+         ;; Files appear under $out/share/faust that are read-only.  The
+         ;; install phase tries to overwrite them and fails, so we change
+         ;; the permissions first.
+         (add-before 'install 'fix-permissions
+           (lambda _
+             (for-each (lambda (file)
+                         (chmod file #o644))
+                       (find-files "architecture/max-msp" ".*"))
+             #t)))))
     (native-inputs
      `(("unzip" ,unzip)))
     (home-page "http://faust.grame.fr/";)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]