guix_mirror_bot pushed a commit to branch misc-world-rebuild in repository guix.
commit 2b22b25e86c9c0573371a4698447fb77af8c8629 Author: Nicolas Graves <[email protected]> AuthorDate: Tue Apr 14 01:58:59 2026 +0200 gnu: flite: Improve style. * gnu/packages/speech.scm (flite)[arguments]: Run guix style. <#:phases>: Rewrite phase 'remove-static-libs, drop trailing #t. [inputs]: Drop input labels. Change-Id: I31483a85a08a060f1319ca81719e1786f6b08174 Signed-off-by: Nguyễn Gia Phong <[email protected]> --- gnu/packages/speech.scm | 74 +++++++++++++++++++++++-------------------------- 1 file changed, 34 insertions(+), 40 deletions(-) diff --git a/gnu/packages/speech.scm b/gnu/packages/speech.scm index 100f076128..065bc2f3e7 100644 --- a/gnu/packages/speech.scm +++ b/gnu/packages/speech.scm @@ -89,49 +89,43 @@ ;; XXX: ;; There numerous issues with the testsuite. ;; Enable all of them once they are fixed in upstream. - `(#:tests? #f - #:parallel-build? #f - #:configure-flags - (list - "--enable-shared" - (string-append "LDFLAGS=-Wl,-rpath=" - (assoc-ref %outputs "out") - "/lib")) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-rpath - (lambda _ - (substitute* "main/Makefile" - (("flite_LIBS_flags \\+= -Wl,-rpath [^ ]*") - "flite_LIBS_flags +=")) - #t)) - (delete 'check) - ;; Modifying testsuite/Makefile is not done in favor of - ;; overriding 'check. - ;; The path not taken would be: - ;; test:\n\t$(foreach x,$(subst tris1,,$(subst dcoffset_wave,,$(subst flite_test,,$(subst by_word,,$(subst bin2ascii,,$(subst lpc_resynth,,$(subst rfc,,$(subst compare_wave,,$(subst record_in_noise,,$(subst combine_waves,,$(patsubst play_%,,$(subst record_wave,,$(subst lex_lookup,,$(patsubst lpc_test%,,$(patsubst asciiS2U%,,$(patsubst asciiU2S%,,$(ALL))))))))))))))))),echo TEST $x && ./$x data.one && ) true - (add-after 'install 'check - (lambda _ - (invoke "make" "-C" "testsuite") - (with-directory-excursion "testsuite" - (invoke "./token_test") - (invoke "./hrg_test") - (invoke "./regex_test") - (invoke "./nums_test") - (invoke "./lex_test") - (invoke "./utt_test") - (invoke "./multi_thread")) - #t)) - (add-after 'install 'remove-static-libs - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out"))) - (for-each delete-file - (find-files out "\\.a$")) - #t)))))) + (list + #:tests? #f + #:parallel-build? #f + #:configure-flags + #~(list "--enable-shared" + (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-rpath + (lambda _ + (substitute* "main/Makefile" + (("flite_LIBS_flags \\+= -Wl,-rpath [^ ]*") + "flite_LIBS_flags +=")))) + (delete 'check) + ;; Modifying testsuite/Makefile is not done in favor of + ;; overriding 'check. + ;; The path not taken would be: + ;; test:\n\t$(foreach x,$(subst tris1,,$(subst dcoffset_wave,,$(subst flite_test,,$(subst by_word,,$(subst bin2ascii,,$(subst lpc_resynth,,$(subst rfc,,$(subst compare_wave,,$(subst record_in_noise,,$(subst combine_waves,,$(patsubst play_%,,$(subst record_wave,,$(subst lex_lookup,,$(patsubst lpc_test%,,$(patsubst asciiS2U%,,$(patsubst asciiU2S%,,$(ALL))))))))))))))))),echo TEST $x && ./$x data.one && ) true + (add-after 'install 'check + (lambda _ + (invoke "make" "-C" "testsuite") + (with-directory-excursion "testsuite" + (invoke "./token_test") + (invoke "./hrg_test") + (invoke "./regex_test") + (invoke "./nums_test") + (invoke "./lex_test") + (invoke "./utt_test") + (invoke "./multi_thread")))) + (add-after 'install 'remove-static-libs + (lambda _ + (for-each delete-file + (find-files #$output "\\.a$"))))))) (native-inputs (list perl)) (inputs - `(("alsa" ,alsa-lib))) + (list alsa-lib)) (synopsis "Speech synthesis system") (description "Flite (festival-lite) is a small, fast run-time text to speech synthesis engine developed at CMU and primarily designed for small embedded
