gnu: festival: Fix scripts.
* gnu/packages/speech.scm (festival)[arguments]: Fix broken shebangs in scripts.
This commit is contained in:
parent
dfcf79ac59
commit
a870b80046
|
@ -350,17 +350,23 @@ be used by the sighted.")
|
||||||
(install-file executable bin))
|
(install-file executable bin))
|
||||||
'("src/main/festival"
|
'("src/main/festival"
|
||||||
"src/main/festival_client"
|
"src/main/festival_client"
|
||||||
"examples/benchmark"
|
"examples/benchmark"))
|
||||||
"examples/dumpfeats"
|
(let ((scripts '("examples/dumpfeats"
|
||||||
"examples/durmeanstd"
|
"examples/durmeanstd"
|
||||||
"examples/latest"
|
"examples/latest"
|
||||||
"examples/make_utts"
|
"examples/make_utts"
|
||||||
"examples/powmeanstd"
|
"examples/powmeanstd"
|
||||||
"examples/run-festival-script"
|
"examples/run-festival-script"
|
||||||
"examples/saytime"
|
"examples/saytime"
|
||||||
"examples/scfg_parse_text"
|
"examples/scfg_parse_text"
|
||||||
"examples/text2pos"
|
"examples/text2pos"
|
||||||
"examples/text2wave"))
|
"examples/text2wave")))
|
||||||
|
(substitute* scripts
|
||||||
|
(("exec /tmp/guix-build.*/bin/festival")
|
||||||
|
(string-append "exec " bin "/festival")))
|
||||||
|
(for-each (lambda (script)
|
||||||
|
(install-file script bin))
|
||||||
|
scripts))
|
||||||
|
|
||||||
;; Documentation
|
;; Documentation
|
||||||
(for-each (lambda (file)
|
(for-each (lambda (file)
|
||||||
|
|
Loading…
Reference in New Issue