gnu: zita-alsa-pcmi: Use new style for arguments.

* gnu/packages/audio.scm(zita-alsa-pcmi)[arguments]: Use
G-Expressions.  Delete trailing #ts.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Z572 2023-05-27 20:16:10 +08:00 committed by Ludovic Courtès
parent 42951e7c86
commit 209c892ebe
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -4448,40 +4448,39 @@ (define-public zita-alsa-pcmi
(version "0.3.2") (version "0.3.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append "http://kokkinizita.linuxaudio.org"
"http://kokkinizita.linuxaudio.org" "/linuxaudio/downloads/zita-alsa-pcmi-"
"/linuxaudio/downloads/zita-alsa-pcmi-" version ".tar.bz2"))
version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s")))) "12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target (list #:tests? #f ;no "check" target
#:make-flags #:make-flags #~(list (string-append "PREFIX="
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) (assoc-ref %outputs "out"))
(string-append "SUFFIX=") (string-append "SUFFIX=")
(string-append "CXX=" ,(cxx-for-target))) (string-append "CXX="
#:phases #$(cxx-for-target)))
(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile-and-enter-directory (add-after 'unpack 'patch-makefile-and-enter-directory
(lambda _ (lambda _
(substitute* "source/Makefile" (substitute* "source/Makefile"
(("ldconfig") "true") (("ldconfig")
(("^LIBDIR =.*") "LIBDIR = lib\n") "true")
(("CXXFLAGS \\+= -march=native") "")) (("^LIBDIR =.*")
(chdir "source") "LIBDIR = lib\n")
#t)) (("CXXFLAGS \\+= -march=native")
(add-after 'install 'install-symlink ""))
(lambda _ (chdir "source")))
(symlink "libzita-alsa-pcmi.so" (add-after 'install 'install-symlink
(string-append (assoc-ref %outputs "out") (lambda _
"/lib/libzita-alsa-pcmi.so.0")) (symlink "libzita-alsa-pcmi.so"
#t)) (string-append (assoc-ref %outputs "out")
;; no configure script "/lib/libzita-alsa-pcmi.so.0"))))
(delete 'configure)))) ;; no configure script
(inputs (delete 'configure))))
(list alsa-lib fftw)) (inputs (list alsa-lib fftw))
(properties `((tunable? . #t))) (properties `((tunable? . #t)))
(home-page "https://kokkinizita.linuxaudio.org") (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "C++ wrapper around the ALSA API") (synopsis "C++ wrapper around the ALSA API")