Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37543305
en ru br
ALT Linux repos
S:2.5-alt0.4
5.0: 1.96-alt6
4.1: 1.96-alt5.M41.1
4.0: 1.96-alt2.6
3.0:
+backports:1.96-alt0.M30.1

Other repositories
Upstream:1.96-beta

Group :: Sound
RPM: festival

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: festival-1.96-deb-1.4.3-examples-in-docdir-festival.diff
Download


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")
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin