David Zeuthen 17c4cc7
diff -urN festival.orig/lib/alias_cmu_to_nitech.scm festival/lib/alias_cmu_to_nitech.scm
David Zeuthen 17c4cc7
--- festival.orig/lib/alias_cmu_to_nitech.scm	1969-12-31 19:00:00.000000000 -0500
David Zeuthen 17c4cc7
+++ festival/lib/alias_cmu_to_nitech.scm	2007-03-14 23:31:43.000000000 -0400
David Zeuthen 17c4cc7
@@ -0,0 +1,39 @@
David Zeuthen 17c4cc7
+;
David Zeuthen 17c4cc7
+; This file is trivial and I make no claims of copyright. However, I should 
David Zeuthen 17c4cc7
+; certainly credit Nickolay V. Shmyrev, who sent me a snippet of code on
David Zeuthen 17c4cc7
+; which this is based.
David Zeuthen 17c4cc7
+;                     -- Matthew Miller <mattdm@mattdm.org>
David Zeuthen 17c4cc7
+;
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
David Zeuthen 17c4cc7
+;;;
David Zeuthen 17c4cc7
+;;; Make aliases for cmu_us_*_arctic_hts voices previously shipped with
David Zeuthen 17c4cc7
+;;; Fedora which are now replaced by the nitech_us_*_arctic_hts versions
David Zeuthen 17c4cc7
+;;; of the same voices.
David Zeuthen 17c4cc7
+;;;
David Zeuthen 17c4cc7
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
+(if (and (member 'nitech_us_awb_arctic_hts (voice.list))
David Zeuthen 17c4cc7
+         (not (member 'cmu_us_awb_arctic_hts (voice.list))))
David Zeuthen 17c4cc7
+ (define (voice_cmu_us_awb_arctic_hts)
David Zeuthen 17c4cc7
+    (voice_nitech_us_awb_arctic_hts)
David Zeuthen 17c4cc7
+    'cmu_us_awb_arctic_hts))
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
+(if (and (member 'nitech_us_bdl_arctic_hts (voice.list))
David Zeuthen 17c4cc7
+         (not (member 'cmu_us_bdl_arctic_hts (voice.list))))
David Zeuthen 17c4cc7
+ (define (voice_cmu_us_bdl_arctic_hts)
David Zeuthen 17c4cc7
+    (voice_nitech_us_bdl_arctic_hts)
David Zeuthen 17c4cc7
+    'cmu_us_bdl_arctic_hts))
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
+(if (and (member 'nitech_us_jmk_arctic_hts (voice.list))
David Zeuthen 17c4cc7
+         (not (member 'cmu_us_jmk_arctic_hts (voice.list))))
David Zeuthen 17c4cc7
+ (define (voice_cmu_us_jmk_arctic_hts)
David Zeuthen 17c4cc7
+    (voice_nitech_us_jmk_arctic_hts)
David Zeuthen 17c4cc7
+    'cmu_us_jmk_arctic_hts))
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
+(if (and (member 'nitech_us_slt_arctic_hts (voice.list))
David Zeuthen 17c4cc7
+         (not (member 'cmu_us_slt_arctic_hts (voice.list))))
David Zeuthen 17c4cc7
+ (define (voice_cmu_us_slt_arctic_hts)
David Zeuthen 17c4cc7
+    (voice_nitech_us_slt_arctic_hts)
David Zeuthen 17c4cc7
+    'cmu_us_slt_arctic_hts))
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
diff -urN festival.orig/lib/init.scm festival/lib/init.scm
David Zeuthen 17c4cc7
--- festival.orig/lib/init.scm	2007-03-14 23:26:07.000000000 -0400
David Zeuthen 17c4cc7
+++ festival/lib/init.scm	2007-03-14 23:32:44.000000000 -0400
David Zeuthen 17c4cc7
@@ -128,6 +128,10 @@
David Zeuthen 17c4cc7
 (require 'voices)  ;; sets voice_default
David Zeuthen 17c4cc7
 (require 'languages)
David Zeuthen 17c4cc7
 
David Zeuthen 17c4cc7
+;;; Aliases for the CMU voices previously shipped 
David Zeuthen 17c4cc7
+;;; with Fedora (now replaced by Nitech versions)
David Zeuthen 17c4cc7
+(require 'alias_cmu_to_nitech)
David Zeuthen 17c4cc7
+
David Zeuthen 17c4cc7
 ;;; Some higher level functions
David Zeuthen 17c4cc7
 (require 'token)
David Zeuthen 17c4cc7
 (require 'tts)