|
 |
dd2b13 |
diff -ur festival.orig/lib/init.scm festival/lib/init.scm
|
|
|
dd2b13 |
--- festival.orig/lib/init.scm 2004-07-15 19:03:04.000000000 -0400
|
|
|
dd2b13 |
+++ festival/lib/init.scm 2007-03-15 11:58:09.000000000 -0400
|
|
|
dd2b13 |
@@ -55,6 +55,10 @@
|
|
|
dd2b13 |
(if (probe_file (path-append libdir "sitevars.scm"))
|
|
|
dd2b13 |
(load (path-append libdir "sitevars.scm")))
|
|
|
dd2b13 |
|
|
|
dd2b13 |
+(if (probe_file "/etc/festival/sitevars.scm")
|
|
|
dd2b13 |
+ (load "/etc/festival/sitevars.scm"))
|
|
|
dd2b13 |
+
|
|
|
dd2b13 |
+
|
|
|
dd2b13 |
;;; CSTR siod extensions
|
|
|
dd2b13 |
(require 'cstr)
|
|
|
dd2b13 |
|
|
|
dd2b13 |
@@ -98,7 +102,7 @@
|
|
|
dd2b13 |
(t ;; can't find direct support so guess that /dev/audio for 8k ulaw exists
|
|
|
dd2b13 |
(Parameter.def 'Audio_Method 'sunaudio)))
|
|
|
dd2b13 |
;;; If you have an external program to play audio add its definition
|
|
|
dd2b13 |
-;;; in siteinit.scm
|
|
|
dd2b13 |
+;;; in ~/.festivalrc or /etc/festival/siteinit.scm
|
|
|
dd2b13 |
|
|
|
dd2b13 |
;;; The audio spooler doesn't work under Windows so redefine audio_mode
|
|
|
dd2b13 |
(if (member 'mplayeraudio *modules*)
|
|
|
dd2b13 |
@@ -135,9 +139,13 @@
|
|
|
dd2b13 |
;;;
|
|
|
dd2b13 |
;;; Local site initialization, if the file exists load it
|
|
|
dd2b13 |
;;;
|
|
|
dd2b13 |
+
|
|
|
dd2b13 |
(if (probe_file (path-append libdir "siteinit.scm"))
|
|
|
dd2b13 |
(load (path-append libdir "siteinit.scm")))
|
|
|
dd2b13 |
|
|
|
dd2b13 |
+(if (probe_file "/etc/festival/siteinit.scm")
|
|
|
dd2b13 |
+ (load "/etc/festival/siteinit.scm"))
|
|
|
dd2b13 |
+
|
|
|
dd2b13 |
;;; User initialization, if a user has a personal customization
|
|
|
dd2b13 |
;;; file loaded it
|
|
|
dd2b13 |
(if (probe_file (path-append home-directory ".siodrc"))
|
|
|
dd2b13 |
diff -ur festival.orig/lib/voices.scm festival/lib/voices.scm
|
|
|
dd2b13 |
--- festival.orig/lib/voices.scm 2005-05-02 10:20:37.000000000 -0400
|
|
|
dd2b13 |
+++ festival/lib/voices.scm 2007-03-15 12:00:19.000000000 -0400
|
|
|
dd2b13 |
@@ -45,12 +45,12 @@
|
|
|
dd2b13 |
(defvar system-voice-path '( )
|
|
|
dd2b13 |
"system-voice-path
|
|
|
dd2b13 |
Additional directory not near the load path where voices can be
|
|
|
dd2b13 |
- found, this can be redefined in lib/sitevars.scm if desired.")
|
|
|
dd2b13 |
+ found, this can be redefined in /etc/festival/sitevars.scm if desired.")
|
|
|
dd2b13 |
|
|
|
dd2b13 |
(defvar system-voice-path-multisyn '( )
|
|
|
dd2b13 |
"system-voice-path-multisyn
|
|
|
dd2b13 |
Additional directory not near the load path where multisyn voices can be
|
|
|
dd2b13 |
- found, this can be redefined in lib/sitevars.scm if desired.")
|
|
|
dd2b13 |
+ found, this can be redefined in /etc/festival/sitevars.scm if desired.")
|
|
|
dd2b13 |
|
|
|
dd2b13 |
(defvar voice-path
|
|
|
dd2b13 |
(remove-duplicates
|