Репозитории ALT
S: | 2.5-alt0.4 |
5.1: | 1.96-alt7 |
4.1: | 1.96-alt5.M41.1 |
4.0: | 1.96-alt2.6 |
3.0: | |
+backports: | 1.96-alt0.M30.1 |
Другие репозитории
Upstream: | 1.96-beta |
Группа :: Звук
Пакет: festival
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: festival-1.96-deb-1.4.3-examples-in-docdir-festival.diff
Скачать
Скачать
diff --git festival/lib/festival.scm festival/lib/festival.scm
index bf03745..ada84c0 100644
--- festival/lib/festival.scm
+++ festival/lib/festival.scm
@@ -494,7 +494,7 @@ Getting Help
(If compiled with editline)
M-h desplays help on current symbol
M-s speaks help on current symbol
- M-m displays relevant manula page in local netscape
+ M-m displays relevant manual page in local netscape
TAB Command, symbol and filename completion
C-p or up-arrow Previous command
C-b or left-arrow Move back one character
@@ -552,13 +552,13 @@ Doing stuff
(define (intro)
"(intro)
Synthesize an introduction to the Festival Speech Synthesis System."
- (tts (path-append libdir "../examples/intro.text") nil))
+ (tts "/usr/share/doc/festival/examples/intro.text" nil))
(define (intro-spanish)
"(intro-spanish)
Synthesize an introduction to the Festival Speech Synthesis System
in spanish. Spanish voice must already be selected for this."
- (tts (path-append libdir "../examples/spintro.text") nil))
+ (tts "/usr/share/doc/festival/examples/spintro.text" nil))
(define (na_play FILENAME)
"(play_wave FILENAME)
diff --git festival/testsuite/data/modes.scm festival/testsuite/data/modes.scm
index d73be11..9d4eede 100644
--- festival/testsuite/data/modes.scm
+++ festival/testsuite/data/modes.scm
@@ -42,13 +42,13 @@
(format t "\n\nSABLE mode\n")
(unwind-protect
- (tts (string-append libdir "/../examples/example2.sable") nil))
+ (tts "/usr/share/doc/festival/examples/example2.sable" 'sable))
(format t "\n\nOGI's mark up mode\n")
(unwind-protect
- (tts (string-append libdir "/../examples/ex1.ogi") 'ogimarkup))
+ (tts "/usr/share/doc/festival/examples/ex1.ogi" 'ogimarkup))
(format t "\n\nAn email mode\n")
(unwind-protect
- (tts (string-append libdir "/../examples/ex1.email") nil))
+ (tts "/usr/share/doc/festival/examples/ex1.email" nil))
(voice_kal_diphone)
(format t "\n\nA singing mode\n")