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