Add files using upload-large-folder tool

.gitattributes

@@ -33,3 +33,10 @@ saved_model/**/* filter=lfs diff=lfs merge=lfs -text
 *.zip filter=lfs diff=lfs merge=lfs -text
 *.zst filter=lfs diff=lfs merge=lfs -text
 *tfevents* filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/ttsfrd-0.3.6-cp38-cp38-linux_x86_64.whl filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/crf_model filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chhk/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chsh/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_hk/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_zhsc/crf_model filter=lfs diff=lfs merge=lfs -text

CosyVoice-300M-Instruct/campplus.onnx

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:a6ac6a63997761ae2997373e2ee1c47040854b4b759ea41ec48e4e42df0f4d73
+size 28303423

CosyVoice-300M-Instruct/spk2info.pt

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:ef7b502d0086fd0ebee5f191446595159813196ee1825b1ee9ea663bc53c5586
+size 30967505

CosyVoice-300M-SFT/campplus.onnx

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:a6ac6a63997761ae2997373e2ee1c47040854b4b759ea41ec48e4e42df0f4d73
+size 28303423

CosyVoice-300M-SFT/hift.pt

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:91e679b6ca1eff71187ffb4f3ab0444935594cdcc20a9bd12afad111ef8d6012
+size 81896716

CosyVoice-300M-SFT/spk2info.pt

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:ef7b502d0086fd0ebee5f191446595159813196ee1825b1ee9ea663bc53c5586
+size 30967505

CosyVoice-300M/campplus.onnx

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:a6ac6a63997761ae2997373e2ee1c47040854b4b759ea41ec48e4e42df0f4d73
+size 28303423

CosyVoice-300M/spk2info.pt

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:ef7b502d0086fd0ebee5f191446595159813196ee1825b1ee9ea663bc53c5586
+size 30967505

CosyVoice-ttsfrd/resource/festival/Sable.v0_2.dtd

@@ -0,0 +1,137 @@
+<!-- <!DOCTYPE sable SYSTEM "Sable.v0_2.dtd" [                           -->
+<!--;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;-->
+<!--                                                                     -->
+<!--               Centre for Speech Technology Research                 -->
+<!--                    University of Edinburgh, UK                      -->
+<!--                        Copyright (c) 1998                           -->
+<!--                       All Rights Reserved.                          -->
+<!--                                                                     -->
+<!-- Permission is hereby granted, free of charge, to use and distribute -->
+<!-- this software and its documentation without restriction, including  -->
+<!-- without limitation the rights to use, copy, modify, merge, publish, -->
+<!-- distribute, sublicense, and/or sell copies of this work, and to     -->
+<!-- permit persons to whom this work is furnished to do so, subject to  -->
+<!-- the following conditions:                                           -->
+<!--  1. The code must retain the above copyright notice, this list of   -->
+<!--     conditions and the following disclaimer.                        -->
+<!--  2. Any modifications must be clearly marked as such.               -->
+<!--  3. Original authors' names are not deleted.                        -->
+<!--  4. The authors' names are not used to endorse or promote products  -->
+<!--     derived from this software without specific prior written       -->
+<!--     permission.                                                     -->
+<!--                                                                     -->
+<!-- THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK       -->
+<!-- DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING     -->
+<!-- ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT  -->
+<!-- SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE    -->
+<!-- FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   -->
+<!-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN  -->
+<!-- AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,         -->
+<!-- ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF      -->
+<!-- THIS SOFTWARE.                                                      -->
+<!--                                                                     -->
+<!--                                                                     -->
+<!-- An early draft of SABLE 0.1 (Jan 8th 1998)                          -->
+<!--       (Alan W Black [email protected])                              -->
+<!-- This not an official DTD just one that allows a mock up of the      -->
+<!-- system for Festival-1.2.1 and later                                 -->
+<!--                                                                     -->
+<!-- Modified to be XML compliant    April 2nd 1998                      -->
+<!--                                                                     -->
+<!-- Modified for SABLE 0.2 (August 15, 1998)                            --> 
+<!--       (Richard Sproat [email protected])                   -->
+<!--                                                                     -->
+<!-- Note that in order to use this as both an XML and SGML DTD, we need -->
+<!-- to declare OMITTAG NO in the accompanying sable.decl for SGML.      -->
+<!-- This means that end tags are REQUIRED for a sable document to be    -->
+<!-- conformant, even when viewed as an SGML document.                   -->
+
+<!ENTITY % baseelements "EMPH | 
+			 BREAK |
+			 PITCH |
+                         RATE |
+                         VOLUME |
+                         AUDIO |
+                         ENGINE |
+                         MARKER |
+                         PRON |
+                         SAYAS |
+                         LANGUAGE |
+                         SPEAKER |
+			 DIV">
+
+<!ELEMENT SABLE (#PCDATA| %baseelements; )*>
+
+<!-- The non-hierarchical ones -->
+<!ELEMENT BREAK EMPTY >
+<!ATTLIST BREAK 
+                LEVEL (large|medium|small|none|NUMBER) "medium"
+		TYPE (quest|excl|period|comma) #IMPLIED
+                MSEC CDATA #IMPLIED
+                MARK CDATA #IMPLIED>
+<!ELEMENT AUDIO EMPTY >
+<!ATTLIST AUDIO 
+                SRC CDATA #IMPLIED 
+                MODE (background|insertion) "insertion"
+		LEVEL CDATA #IMPLIED
+                MARK CDATA #IMPLIED>
+<!ELEMENT MARKER EMPTY >
+<!ATTLIST MARKER 
+                MARK CDATA #IMPLIED>
+
+<!-- The non-nestable ones -->
+
+<!ELEMENT PRON (#PCDATA) >
+<!ATTLIST PRON  IPA CDATA #IMPLIED
+                SUB CDATA #IMPLIED
+		ORIGIN CDATA #IMPLIED
+		MARK CDATA #IMPLIED>
+<!ELEMENT SAYAS (#PCDATA) >
+<!ATTLIST SAYAS MODE (literal|date|time|phone|net|postal|currency|math|fraction|measure|ordinal|cardinal|name) #REQUIRED
+                MODETYPE (DMY|MDY|YMD|YM|MY|MD|HM|HMS|EMAIL|URL) #IMPLIED
+		MARK CDATA #IMPLIED>
+
+<!-- The nestable ones -->
+
+<!ELEMENT EMPH ( #PCDATA | %baseelements; )*>
+<!ATTLIST EMPH  LEVEL (Strong|Moderate|None|Reduced|NUMBER) "moderate"
+                MARK CDATA #IMPLIED>
+<!ELEMENT PITCH ( #PCDATA | %baseelements; )*>
+<!ATTLIST PITCH BASE CDATA "0%"
+                MIDDLE  CDATA "0%"
+                RANGE CDATA "0%"
+                MARK CDATA #IMPLIED>
+<!ELEMENT RATE  ( #PCDATA | %baseelements; )*>
+<!ATTLIST RATE  SPEED CDATA "0%"
+                MARK CDATA #IMPLIED>
+<!ELEMENT VOLUME  ( #PCDATA | %baseelements; )*>
+<!ATTLIST VOLUME LEVEL CDATA "medium"
+                 MARK CDATA #IMPLIED>
+<!ELEMENT ENGINE  ( #PCDATA | %baseelements; )*>
+<!ATTLIST ENGINE ID CDATA #IMPLIED
+                 DATA CDATA #IMPLIED
+                 MARK CDATA #IMPLIED>
+
+<!ELEMENT LANGUAGE  ( #PCDATA | %baseelements; )*>
+<!ATTLIST LANGUAGE ID CDATA #IMPLIED
+		   CODE CDATA #IMPLIED
+                   MARK CDATA #IMPLIED>
+<!ELEMENT SPEAKER  ( #PCDATA | %baseelements; )*>
+<!ATTLIST SPEAKER  GENDER (male|female) #IMPLIED
+                   AGE    (older|middle|younger|teen|child) #IMPLIED
+                   NAME   CDATA #IMPLIED
+                   MARK   CDATA #IMPLIED>
+
+<!ELEMENT DIV  ( #PCDATA | %baseelements; )*>
+<!ATTLIST DIV TYPE (sentence|paragraph) #IMPLIED
+              MARK CDATA #IMPLIED>
+
+<!-- Character entities for latin 1 -->
+
+<!ENTITY % ISOlat1 PUBLIC
+  "-//SABLE//ENTITIES Added Latin 1 for SABLE//EN"
+  "sable-latin.ent" >
+%ISOlat1;
+
+
+

CosyVoice-ttsfrd/resource/festival/VCLocalRules

@@ -0,0 +1,8 @@
+SIOD =  siod.scm web.scm cstr.scm fringe.scm
+
+.copy_from_est: $(SIOD)
+
+$(SIOD) :
+	@echo 'Copy $@ from EST/lib/siod'
+	-del $@
+	copy $(EST)\lib\siod\$@ $@

CosyVoice-ttsfrd/resource/festival/dicts/cmu/COPYING

@@ -0,0 +1,35 @@
+
+This directory contains an American English Lexicon and letter to 
+sournd rules based on CMUDICT 0.4.  This distribution falls under
+the following copyright.  CMUDICT falls under a simialr free licence
+that has no commercial restrictions.
+
+                Centre for Speech Technology Research                  
+                     University of Edinburgh, UK                       
+                       Copyright (c) 1996,1997                         
+                        All Rights Reserved.                           
+                                                                       
+  Permission is hereby granted, free of charge, to use and distribute  
+  this software and its documentation without restriction, including   
+  without limitation the rights to use, copy, modify, merge, publish,  
+  distribute, sublicense, and/or sell copies of this work, and to      
+  permit persons to whom this work is furnished to do so, subject to   
+  the following conditions:                                            
+   1. The code must retain the above copyright notice, this list of    
+      conditions and the following disclaimer.                         
+   2. Any modifications must be clearly marked as such.                
+   3. Original authors' names are not deleted.                         
+   4. The authors' names are not used to endorse or promote products   
+      derived from this software without specific prior written        
+      permission.                                                      
+                                                                       
+  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        
+  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      
+  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   
+  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     
+  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    
+  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   
+  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          
+  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       
+  THIS SOFTWARE.                                                       
+

CosyVoice-ttsfrd/resource/festival/dicts/cmu/allowables.scm

@@ -0,0 +1,102 @@
+(require 'lts_build)
+(set! allowables 
+      '((a _epsilon_ aa aa1 aa0
+           ax ax1 ax0
+	   eh eh1 eh0
+	   ah  ah1 ah0
+	   ae  ae1 ae0
+	   ey  ey1 ey0
+	   ay  ay1 ay0
+	   er  er1 er0
+	   y-ax0 y-ah1 y-ah0
+	   aw  aw1 aw0
+	   ao  ao1 ao0
+	   ih  ih1 ih0
+	   w-ax0 w-ah1 w-ah0
+	   ow  ow1 ow0
+	   w-ey  w-ey1 ey0
+	   iy  iy1 iy0)
+        (b _epsilon_ b p )
+        (c _epsilon_ k ch s sh t-s )
+        (d _epsilon_ d t jh)
+        (e _epsilon_ ih  ih1 ih0
+           ax ax1 ax0
+	   iy  iy1 iy0
+	   er  er1 er0
+	   ax ah1 ah0
+	   eh  eh1 eh0
+	   ey  ey1 ey0
+	   uw  uw1 uw0
+	   ay  ay1 ay0
+	   ow  ow1 ow0
+	   y-uw  y-uw1 y-uw0
+	   oy  oy1 oy0
+	   aa  aa1 aa0)
+        (f _epsilon_ f )
+        (g _epsilon_ g jh zh k f)
+        (h _epsilon_ hh )
+        (i _epsilon_ iy  iy1 iy0
+           ax ax1 ax0
+	   ih  ih1 ih0
+	   ah  ah1 ah0
+	   ax ah1 ah0
+	   ay  ay1 ay0
+	   y 
+	   aa  aa1 aa0
+	   ae  ae1 ae0
+	   w-ax0 w-ah1 w-ah0
+	   eh  eh1 eh0 
+           er er0 er1 )
+        (j _epsilon_ jh y hh zh)
+        (k _epsilon_ k )
+        (l _epsilon_ l ax-l y ax0-l)
+        (m _epsilon_ m ax-m m-ax0 ax0-m m-ax0
+	   m-ae  m-ae1 m-ae0 
+	   m-ih m-ih0 )
+        (n _epsilon_ n ng n-y)
+        (o _epsilon_ ax ax0 ah1 ah0
+	   ao  ao1 ao0
+	   ow  ow1 ow0
+	   uw  uw1 uw0
+	   er  er1 er0
+	   aa  aa1 aa0
+	   aw  aw1 aw0
+	   oy  oy1 oy0
+	   uh  uh1 uh0
+	   w 
+	   w-ax0 w-ah1 w-ah0
+	   aa  aa1 aa0
+	   ih  ih1 ih0
+	   ae  ae1 ae0)
+        (p _epsilon_ p f)
+        (q _epsilon_ k )
+        (r _epsilon_ r er1 er er0 )
+        (s _epsilon_ s sh z zh ch)
+        (t _epsilon_ t th sh ch dh d s zh)
+        (u _epsilon_ 
+	   ax ax0
+	   ah  ah1 ah0
+	   uw  uw1 uw0
+	   er  er1 er0
+	   uh  uh1 uh0
+	   y-uw  y-uw1 y-uw0
+	   ax-w ah1-w ah0-w
+	   y-er  y-er1 y-er0
+	   y-ax y-ax0 y-ah1 y-ah0
+	   w 
+	   ih  ih1 ih0
+	   ao  ao1 ao0
+	   eh  eh1 eh0
+	   y-uh  y-uh1 y-uh0 )
+        (v _epsilon_ v f)
+        (w _epsilon_ w v f)
+        (x _epsilon_ k-s g-z ng-z k-sh z g-zh zh)
+        (y _epsilon_ 
+	   iy  iy1 iy0
+	   ih  ih1 ih0
+	   ay  ay1 ay0
+	   y 
+	   ax ax0 ah1 ah0)
+        (z _epsilon_ z t-s zh s)
+        (# #)))
+

CosyVoice-ttsfrd/resource/festival/dicts/cmu/cmu2ft

@@ -0,0 +1,21 @@
+#!/bin/sh
+#
+#  Converts cmulexicon to Festival format
+#
+#  usage:  cmu2ft cmudict.0.1 cmu_lex.scm
+
+#sed 's/er0/er0 r/' | sed 's/er1/er1 r/' | sed 's/er2/er2 r/' |
+
+echo >$2
+echo ";; CMUDICT-0.4 Converted to Festival lexicon format" >>$2
+cat $1 | tr "[A-Z]" "[a-z]" | sed 's/ah0/ax/g' | 
+tr 2 1 | 
+awk '{if ($1 == "##")
+	 printf(";; %s\n",$0);
+      else if ($1 ~ /^[a-z][a-z]*$/)
+      { printf("(")
+        printf("\"%s\" nil (%s",$1,$2)
+        for (i=3; i <= NF; i++)
+          printf " %s",$i
+        printf "))\n"
+      }} ' >> $2

CosyVoice-ttsfrd/resource/festival/dicts/cmu/cmudict_compile.scm

@@ -0,0 +1,41 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 2008                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Compile the lexicon
+;;;
+
+(load "cmulex.scm")
+(lex.compile "all.scm" "cmudict-0.4.out")
+
+
+

CosyVoice-ttsfrd/resource/festival/dicts/cmu/cmudict_extensions.scm

@@ -0,0 +1,574 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  
+;;;  Extra items that have sufficient frequency and are pronounced
+;;;  wrongly that are to be added to the compiled version of 
+;;;  the CMULEX lexicon
+;;;
+;;;  This list we derived from various text databases and actually
+;;;  listening to the LTS models
+
+("dont" v (d ow1 n t))
+("doesnt" v (d ah1 z n t))
+("youre" nil (y ao1 r))
+("wasnt" v (w aa1 z n t))
+("wouldnt" v (w uh1 d n t))
+("couldnt" v (k uh1 d n t))
+("shouldnt" v (sh uh1 d n t))
+("youve" nil (y uw1 v))
+("werent" nil (w er1 n t))
+("Lieut" nil (l uw t eh1 n ax n t))
+("hed" v (hh iy1 d))
+("youd" v (y uw1 d))
+("Ayatullah" n (ay1 ax t uh1 l ax))
+("intifadeh" n (ih1 n t ax f aa1 d ey))
+("Gaddafi" n (g ax d ae1 f iy))
+("Muammar" n (m uw ae1 m m aa1 r) )
+("prizewinning" n (p r ay1 z w ih1 n ax ng) )
+("Yevgeni" n (y eh v g eh1 n iy) )
+("HIV" n (ey1 ch ay1 v iy) )
+("Lemonick" b (l eh m ah1 n ax k) )
+("sures" n (sh uw1 r z) )
+("putsch" n (p uh1 t ch) )
+("oclock" n (ax k l aa1 k) )
+("Peterzell" n (p iy1 t er z eh l) )
+("yds" n (y aa1 r d z) )
+("mujahedin" n (m uw1 hh ax hh eh d iy n) )
+("Zedong" n (z ey1 d ao ng) )
+("Ungeheuer" n (ah n g ax hh uw er) )
+("antiapartheid" n (ae1 n t iy ax p aa1 r t hh ay t ) )
+("auteur" n (ow t uw1 r) )
+("surefire" n (sh uw r f ay1 er) )
+("moviegoer" n (m uw1 v iy g ow er) )
+("OHara" n (ow hh aa1 r ax) )
+("NIH" n (eh1 n ay ey1 ch) )
+("Sotheby" n (s ao1 th ax b iy) )
+("Dak" n (d aa1 k) )
+("itll" n (ih1 t ax l) )
+("Kryuchkov" n (k r uw1 ch k ax v) )
+("FDIC" n (eh1 f d ax k) )
+("Caltech" n (k ae1 l t eh1 k) )
+("VIP" n (v iy1 ay p iy1) )
+("whove" n (hh uw1 v) )
+("Seiichi" n (s ey1 iy ch iy) )
+("Kanise" n (k ae1 n iy z) )
+("Gup" n (g uh1 p) )
+("prizewinner" n (p r ay1 z w ih1 n er) )
+("genocidal" n (jh eh1 n ax s ay1 d ax l) )
+("eponymous" n (ax p aa1 n ax m ax s) )
+("Tallinn" n (t aa1 l iy n) )
+("Lothar" n (l ao th aa1 r) )
+("Kampuchea" n (k ae m p ax ch iy1 ax) )
+("Bessmertnykh" n (b eh s m eh1 r t n ax k) )
+("yd" n (y aa1 r d) )
+("atavistic" n (ae1 t ax v ih1 s t ax k ) )
+("Tadzhikistan" n (t ae1 d zh ax k ax s t aa1 n) )
+("sadomasochistic" n (s ey1 d ax m ae s ax k ih1 s t ax k) )
+("impudent" n (ih1 m p y ax d ax n t) )
+("antinuclear" n (ae1 n t ax n uw1 k l iy er) )
+("Komsomolskaya" n (k ax m s aa1 m ax l s k ay1 ax ) )
+("proj" n (p r aa1 jh eh k t) )
+("ROTC" n (aa1 r ow t iy s iy1) )
+("Jamil" n (jh ax m iy1 l) )
+("Agha" n (aa1 g ax) )
+("skewered" n (s k y uw1 er d) )
+("celibate" n (s eh1 l ax b ax t) )
+("Bubiyan" n (b uw1 b ax y aa n) )
+("Bakatin" n (b ae1 k ax t ax n) )
+("whod" n (hh uw1 d) )
+("reverent" n (r eh1 v er ax n t) )
+("occupiers" n (aa1 k y ax p ay1 r z) )
+("meanspirited" n (m iy1 n s p ih1 r ax t ax d) )
+("bluesy" n (b l uw1 z iy) )
+("aboveground" n (ax b ah1 v g r aw n d) )
+("Yanayev" n (y ae1 n ay eh1 v) )
+("VOL" n (v ao1 l) )
+("Teutonic" n (t uw t aa1 n ax k) )
+("Serrill" n (s eh1 r ax l) )
+("Branegan" n (b r ae1 n ax g ax n) )
+("Bjerklie" n (b eh1 r k l iy) )
+("unerring" n (uh n eh1 r ax ng) )
+("sugarcane" n (sh uh1 g er k ey n) )
+("simpleminded" n (s ih1 m p ax l m ay1 n d ax d) )
+("menaced" n (m eh1 n ax s d) )
+("kidnapers" n (k ih1 d n ae p er z) )
+("detonator" n (d eh1 t ax n ey1 t er) )
+("dachas" n (d aa1 ch ax s) )
+("cheerily" n (ch iy1 r ax l iy) )
+("chanteuse" n (sh ae1 n t ow z) )
+("acidly" n (ae1 s ax d l iy) )
+("Kirghizia" n (k ax r g ih1 t s iy ax) )
+("Isozaki" n (iy1 s ax z aa1 k iy) )
+("Ilyich" n (iy1 l y ax ch) )
+("Eurocentric" n (y uw1 r ax s eh1 n t r ax k) )
+("worshiping" n (w er1 sh ax p ax ng) )
+("villainy" n (v ih1 l ax n iy) )
+("souffle" n (s uw f l ey1) )
+("redolent" n (r eh1 d ax l ax n t) )
+("probusiness" n (p r ow b ih1 z n ax s) )
+("postgraduate" n (p ow1 s t g r ae1 jh ax w ax t) )
+("obstinate" n (aa1 b s t ax n ax t) )
+("hallucination" n (hh ae l uw1 s ax n ey sh ax n) )
+("goddam" n (g aa1 d ae m) )
+("exorcism" n (eh1 k s ax r s ih1 z ax m ) )
+("daringly" n (d ey1 r ax ng l iy) )
+("backstabbing" n (b ae1 k s t ae1 b ax ng) )
+("Wenceslas" n (w eh1 n s ax s l ax s) )
+("Uzis" n (uw1 z iy z) )
+("Trabant" n (t r ax b aa1 n t) )
+("Sinead" n (sh ih1 n ey d) )
+("Nazarbayev" n (n ae1 z er b ay1 ax v) )
+("Nadia" n (n aa1 d iy ax) )
+("unquenchable" n (uh n k w eh1 n sh ax b ax l) )
+("typecast" n (t ay1 p k ae1 s t) )
+("therell" n (dh eh1 r ax l) )
+("syrupy" n (s ih1 r ax p iy) )
+("superagent" n (s uw1 p er ey1 jh eh n t) )
+("sourly" n (s aw1 er l iy) )
+("shuddered" n (sh ah1 d er ax d) )
+("seceding" n (s eh s iy1 d ax ng) )
+("preternatural" n (p r iy t er n ae1 t ch er ax l) )
+("postseason" n (p ow1 s t s iy1 s ax n) )
+("policymaker" n (p aa1 l ax s iy m ey1 k er) )
+("nosy" n (n ow1 z iy) )
+("maleness" n (m ey1 l n ax s) )
+("luscious" n (l ah1 sh ax s) )
+("gigolo" n (jh ih1 g ax l ow) )
+("genially" n (jh iy1 n iy ax l iy) )
+("epiphanies" n (eh p ih1 f ae n iy z) )
+("dungeon" n (d ah1 n jh ax n) )
+("dogmas" n (d ao1 g m ax s) )
+("discomfited" n (d ax s k aa1 m f ax t ax d) )
+("deadlier" n (d eh1 d l iy er) )
+("autoworkers" n (ao1 t ow w er k er z) )
+("Yanqui" n (y ae1 n k iy) )
+("Wehrmacht" n (v er m aa1 k t) )
+("Trabants" n (t r ax b aa1 n t z) )
+("Swahili" n (s w ax hh iy1 l iy) )
+("Sodom" n (s aa1 d ax m) )
+("Seurat" n (s uw1 r ax t) )
+("NAACP" n (eh1 n d ah1 b ax l ey1 s iy p iy1) )
+("Manichaean" n (m ae1 n ax k iy ax n) )
+("Khaled" n (k aa1 l eh d) )
+("Farouk" n (f aa r uw1 k) )
+("Bendjedid" n (b eh1 n jh ax d ax d) )
+("Beetlejuice" n (b iy1 t ax l jh uw s) )
+("whir" n (w ih1 r) )
+("tragicomedy" n (t r ae1 jh ax k aa1 m ax d iy) )
+("touchingly" n (t ah1 ch ax ng l iy) )
+("thered" n (dh eh1 r ax d) )
+("tangy" n (t ae1 ng iy) )
+("synonyms" n (s ih1 n ax n ax m z) )
+("subspecies" n (s ah1 b s p iy sh iy z) )
+("subjugated" n (s ax b jh ax g ey1 t ax d) )
+("stunner" n (s t ah1 n er) )
+("springy" n (s p r ih1 ng iy) )
+("sorrows" n (s aa1 r ow z) )
+("sequins" n (s iy1 k w ax n z) )
+("schoolgirl" n (s k uw1 l g er l) )
+("schoolchild" n (s k uw1 l ch ay l d) )
+("scavenging" n (s k ae1 v ax n jh ax ng) )
+("rampaging" n (r ae1 m p ey jh ax ng ) )
+("radiance" n (r ey1 d y ax n s) )
+("pussycat" n (p uh1 s iy k ae t) )
+("paparazzi" n (p ae1 p er ae t s iy) )
+("ovaries" n (ow1 v er iy z) )
+("languorous" n (l ae1 ng ao r ax s) )
+("incorruptible" n (ih1 n k er ah1 p t ax b ax l) )
+("hypnotically" n (hh ih1 p n aa1 t ax k ax l iy) )
+("grouchy" n (g r aw1 ch iy) )
+("genitalia" n (jh eh1 n ax t ey1 l y ax) )
+("fearlessly" n (f iy1 r l ax s l iy) )
+("divinely" n (d ih1 v ay n l iy) )
+("bluefish" n (b l uw1 f ax sh) )
+("bayonets" n (b ey1 y ax n eh t s) )
+("autoworker" n (ao1 t ow w er k er) )
+("antihero" n (ae1 n t ax hh iy1 r ow) )
+("Yel" n (y eh1 l) )
+("Talmudic" n (t ae1 l m ax d ax k) )
+("Staci" n (s t aa1 z iy) )
+("Sese" n (s eh1 s iy1 ) )
+("Senegalese" n (s ax n ax g ao l iy1 z) )
+("Quezon" n (k w eh1 z ax n) )
+("Pesci" n (p eh1 s k iy) )
+("Mengele" n (m eh1 n g ax l ey) )
+("Lagerfeld" n (l ae1 g er f eh l d) )
+("Kerouac" n (k eh1 r ow ae k) )
+("Kamisar" n (k ae1 m ax s aa r) )
+("Janata" n (jh ax n ae1 t ax) )
+("Hequet" n (hh eh1 k ax t) )
+("Friedan" n (f r iy1 d ax n) )
+("Dubrovnik" n (d ax b r ah1 v n ax k) )
+("Candide" n (k ae n d iy1 d) )
+("Bubba" n (b ah1 b ax) )
+("AWOL" n (ey1 w ao l) )
+("wouldve" n (w uh1 d ax v) )
+("wisecrack" n (w ay1 z k r ae1 k) )
+("voce" n (v ao1 k ax) )
+("uproarious" n (ax p r ao1 r iy ax s) )
+("unearthing" n (ax n er1 th ax ng) )
+("undoes" n (ax n d ah1 z) )
+("underappreciated" n (ah1 n d er ax p r iy1 sh iy ey1 t ax d) )
+("tousled" n (t ao1 s ax l d) )
+("thatll" n (dh ae t ax l) )
+("teasingly" n (t iy1 z ax ng l iy) )
+("strafed" n (s t r ey1 f d) )
+("stateless" n (s t ey1 t l ax s) )
+("stagings" n (s t ey1 jh ax ng z) )
+("reveres" n (r eh1 v ax r iy z) )
+("retells" n (r iy t eh1 l z) )
+("provocateur" n (p r ax v ao k ax t uh1 r) )
+("prenuptial" n (p r iy n ah1 p sh ax l) )
+("pinup" n (p ih1 n ah1 p) )
+("paterfamilias" n (p ae1 t er f ax m iy1 l iy ax z) )
+("paroxysm" n (p ax r aa1 k s ax z ax m) )
+("parodying" n (p ae1 r ax d iy ax ng) )
+("merriment" n (m eh1 r ax m ax n t) )
+("menstruation" n (m ax n s t r ey1 sh ax n) )
+("indiscretion" n (ih1 n d ax s k r eh1 sh ax n) )
+("guesthouse" n (g eh1 s t hh aw s) )
+("fratricidal" n (f r ae t r ax s ay1 d ax l) )
+("fiendishly" n (f iy1 n d ax sh l iy) )
+("enthuses" n (eh n th uw1 z ax z) )
+("encapsulates" n (eh n k ae1 p s ax l ey1 t s) )
+("discomfiting" n (d ax s k aa1 m f ax t ax ng) )
+("cul" n (k uh1 l) )
+("cheekbones" n (ch iy1 k b ow n z) )
+("bizarrely" n (b ax z aa1 r l iy) )
+("bestiality" n (b iy1 s t iy ae1 l ax t iy) )
+("audiotapes" n (aa1 d iy ow t ey1 p s) )
+("acolyte" n (ae1 k ax l ay t) )
+("achingly" n (ey1 k ax ng l iy) )
+("Wayans" n (w ey1 y ax n z) )
+("Urquart" n (ae1 r k er t) )
+("Ural" n (y uw1 r ax l) )
+("Sindayen" n (s ih1 n d ax y ax n) )
+("Seuss" n (s uw1 s) )
+("Plexiglas" n (p l eh1 k s iy g l ae s) )
+("Overbye" n (ow1 v er b ay) )
+("Nostradamus" n (n aa1 s t r ax d ae1 m ax s) )
+("Navajos" n (n ae1 v ax hh ow z) )
+("Massoud" n (m ax s uw1 d) )
+("Kales" n (k ey1 l z) )
+("Gio" n (jh iy1 ow) )
+("Gianfranco" n (jh iy1 ax n f r ae n k ow) )
+("Gaultier" n (g ao1 l t iy ey) )
+("Foucault" n (f ow1 k ow l t) )
+("FSLIC" n (eh1 f s l ax k) )
+("Disneyesque" n (d ih1 z n ey eh1 s k) )
+("Corleone" n (k aa1 r l iy ow1 n iy) )
+("Arnaz" n (aa1 r n ax z) )
+("Almash" n (ae1 l m ax sh) )
+("yous" n (y uw1 z) )
+("whooshing" n (w uw1 sh ax ng) )
+("volunteerism" n (v ao1 l ax n t iy1 r ax z ax m) )
+("upended" n (ah1 p eh1 n d ax d) )
+("unacknowledged" n (ah1 n ax k n aa1 l ax jh d) )
+("thrillingly" n (th r ih1 l ax g l iy) )
+("tackiness" n (t ae1 k ax n ax s) )
+("supernal" n (s uw p eh1 r n ax l) )
+("superheroes" n (s uw1 p er hh iy1 r ow z) )
+("superego" n (s uw1 p er iy1 g ow) )
+("straitlaced" n (s t r ey1 t l ey s d) )
+("stateroom" n (s t ey1 t r uw m) )
+("sorcerer" n (s ao1 r s er er ) )
+("skewering" n (s k y uw1 er ax ng) )
+("semiprivate" n (s eh1 m ay p r ay1 v ax t) )
+("saviors" n (s ey1 v y er z) )
+("roguish" n (r ow1 g ax sh) )
+("rereleased" n (r iy1 r ax l iy1 s t) )
+("repressing" n (r ax p r eh1 s ax ng) )
+("puppeteers" n (p ah1 p ax t iy1 r z) )
+("provocateurs" n (p r ax v ao k ax t uh1 r z) )
+("prodemocracy" n (p r ow1 d ax m aa1 k r ax s iy) )
+("prizewinners" n (p r ay1 z w ih1 n er z) )
+("presummit" n (p r iy1 s ah1 m ax t) )
+("pregame" n (p r iy1 g ey1 m) )
+("preadolescent" n (p r iy1 ae1 d ax l eh s ax n t) )
+("postindustrial" n (p ow1 s t ax n d ah1 s t r y ax l) )
+("playgoers" n (p l ey1 g ow1 er z) )
+("pastiches" n (p ax s t iy1 ch ax z) )
+("paramour" n (p ae1 r ax m ao r) )
+("outdoorsman" n (aw1 t d ao r z m ax n) )
+("ordeals" n (ao r d iy1 l z) )
+("nuisances" n (n uw1 s ax n s ax z) )
+("nonmusical" n (n aa1 n m y uh1 z ax k ax l) )
+("noncombatant" n (n aa1 n k aa1 m b ax t ax n t) )
+("neurosurgery" n (n y uw1 r ax s er1 jh er iy) )
+("narcotraficantes" n (n ae1 r k ax t r ae1 f ax k ae1 n t iy z) )
+("mischievously" n (m ax s ch iy1 v y ax s l iy) )
+("menaces" n (m eh1 n ax s ax z) )
+("manifestos" n (m ae1 n ax f eh1 s t ow s) )
+("magnanimity" n (m ae1 g n ax n ih1 m ax t iy) )
+("limply" n (l ih1 m p l iy) )
+("knifing" n (n ay1 f ax ng) )
+("inveighed" n (ax n v ey1 d) )
+("inelegant" n (ax n eh1 l ax g ax n t) )
+("highflyers" n (hh ay1 f l ay1 er z) )
+("groped" n (g r ow1 p d) )
+("filmgoers" n (f ih1 l m g ow1 er z) )
+("eunuchs" n (y uh1 n ax k s) )
+("ennobling" n (eh n ow1 b ax l ax ng) )
+("doyenne" n (d ao y eh1 n) )
+("docudramas" n (d ao k y ax d r ae1 m ax z) )
+("detours" n (d iy t uh1 r z) )
+("desecrated" n (d eh1 s ax k r ey1 t ax d) )
+("decoded" n (d ax k ow1 d ax d) )
+("dOrsay" n (d ao1 r s iy) )
+("cynosure" n (s ay1 n ax sh uh r) )
+("curmudgeonly" n (k er m uh1 d jh ax n l iy) )
+("cmon" n (k ax m aa1 n) )
+("cellblock" n (s eh1 l b l aa k) )
+("carousing" n (k ax r aw1 z ax ng))
+("blitzing" n (b l ih1 t z ax ng) )
+("bejeweled" n (b ax jh uw1 ax l d) )
+("bedevils" n (b ax d eh1 v ax l z) )
+("bareknuckle" n (b eh1 r n ah1 k ax l) )
+("awestruck" n (ao1 s t r ah k) )
+("automatons" n (ao t aa1 m ax t ax n z) )
+("anteroom" n (ae1 n t ax r uw m) )
+("anchorwoman" n (ae1 ng k aa r w uh1 m ax n) )
+("Yahweh" n (y ae1 w ey) )
+("Vartoogian" n (v er t ow1 g iy ax n) )
+("Uttar" n (uw1 t er) )
+("Tsufura" n (t s uw f uw1 r ax) )
+("Sousuke" n (s ow s uh1 k ey) )
+("Segelken" n (s eh1 g ax l k ax n) )
+("Scissorhands" n (s ih1 s er hh ae1 n d z) )
+("Presbyterians" n (p r eh s b ax t iy1 r iy ax n z) )
+("Pharaoh" n (f ey1 r ow) )
+("Nachtwey" n (n ae1 k t w ey) )
+("Medecins" n (m eh d ax s ae1 n z) )
+("Manhattanites" n (m ae n hh ae1 t ax n ay1 t s) )
+("Madama" n (m ax d ae1 m ax) )
+("Ljubljana" n (l uh1 b l y ae1 n ae) )
+("Knute" n (k ax n uw1 t) )
+("Hangin" n (hh ae ng ax n) )
+("Halaki" n (hh ax l ae1 k iy) )
+("Gordievsky" n (g ao r d ax eh1 v s k iy) )
+("Geremek" n (g eh1 r ax m eh k) )
+("Ehud" n (ey1 hh uw1 d) )
+("Dieu" n (d y uw1) )
+("Dachau" n (d ae1 k aw) )
+("Chaim" n (ch ey1 m) )
+("Bnai" n (b ax n ay1) )
+("Antichrist" n (ae1 n t iy k r ay1 s t) )
+("Afrocentric" n (ae1 f r ax s eh1 n t r ax k) )
+("wombs" n (w uw1 m z) )
+("windblown" n (w ih1 n d b l ow n) )
+("vibrates" v (v ay1 b r ey t s) )
+("vertebrae" n (v er1 t ax b r ey) )
+("underpants" n (ah1 n d er p ae1 n t s) )
+("tuxedoes" n (t ax k s iy1 d ow z) )
+("tumbleweed" n (t ah1 m b ax l w iy d) )
+("tryin" n (t r ay1 ax n) )
+("torturous" n (t ao1 r t y ax s) )
+("superrich" n (s uw1 p er r ih1 ch) )
+("subliminally" n (s ax b l ih1 m ax n ax l iy) )
+("subjugate" n (s ax b jh ax g ey1 t) )
+("stupefying" n (s t uw1 p ax f ay ax ng) )
+("stomachache" n (s t ah1 m ax k ey1 k) )
+("sophistry" n (s ow1 f ax s t r iy) )
+("sociopath" n (s ow1 sh y ow p ae1 th) )
+("snugly" n (s n ah1 g l iy) )
+("serenades" n (s eh1 r ax n ey1 d z) )
+("sepulchral" n (s ax p uh1 l k r ax l) )
+("satirize" n (s ae1 t ax r ay z) )
+("satiny" n (s ae1 t ax n y ) )
+("runaways" n (r ah1 n ax w ey z) )
+("rivulets" n (r ih1 v ax l ax t s) )
+("ricocheting" n (r ih1 k ax sh ey ax ng) )
+("reimagine" n (r iy ax m ae1 jh ax n) )
+("refusenik" n (r ax f y uw1 z n ax k) )
+("ravings" n (r ey1 v ax ng z) )
+("radicchio" n (r ax d ih1 k iy ow) )
+("preseason" n (p r iy1 s iy1 s ax n) )
+("premed" n (p r iy1 m eh1 d) )
+("preinvasion" n (p r iy1 ax n v ey1 sh ax n) )
+("precancerous" n (p r iy k ae1 n s er ax s) )
+("postmenopausal" n (p ow1 s t m eh n ax p ao1 s ax l) )
+("pinups" n (p ih1 n ah1 p s) )
+("passerby" n (p ae1 s er b ay) )
+("parroted" n (p ae1 r ax t ax d) )
+("paranormal" n (p ae1 r ax n ao1 r m ax l) )
+("owlish" n (aw1 l ax sh) )
+("overhyped" n (ow1 v er hh ay1 p t) )
+("noire" n (n ax w ae1 r) )
+("motorboats" n (m ow1 t er b ow t s) )
+("miscreant" n (m ih1 s k r iy ax n t) )
+("megalomaniacal" n (m eh1 g l ax m ey1 n iy ax k ax l) )
+("marquees" n (m aa1 r k iy z) )
+("lapels" n (l ax p eh1 l z) )
+("kowtowing" n (k aw1 t aw ax ng) )
+("jeremiads" n (jh eh1 r ax m ay1 ax d z) )
+("interweaves" n (ih1 n t er w iy1 v z) )
+("insuperable" n (ax n s uw1 p er ax b ax l) )
+("insanely" n (ax n s ey1 n l iy) )
+("inflames" n (ax n f l ey1 m z) )
+("infest" n (ax n f eh1 s t) )
+("inebriated" n (ax n iy1 b r ax ey1 t ax d) )
+("incompletely" n (ih1 n k ax m p l iy1 t l iy) )
+("impersonate" n (ax m p eh1 r s ax n ey t) )
+("hysterectomies" n (hh ih1 s t er eh k t ax m iy z) )
+("hypothalamus" n (hh ay1 p ax th ae1 l ax m ax s) )
+("hucksterism" n (hh ah1 k s t er ax z ax m) )
+("hotheads" n (hh aa1 t hh eh1 d z) )
+("hotheaded" n (hh aa1 t hh eh1 d ax d) )
+("heavenward" n (hh eh1 v ax n w er d) )
+("hauteur" n (hh ow t uh1 r) )
+("gunplay" n (g ah1 n p l ey ) )
+("griddle" n (g r ih1 d ax l) )
+("gewgaws" n (g iy1 g ao z) )
+("gaiety" n (g ey1 ax t iy) )
+("fuchsia" n (f y uw1 sh ax) )
+("fixers" n (f ih1 k s  er z) )
+("fidgety" n (f ih1 d jh ax t iy) )
+("farewells" n (f eh1 r w eh1 l z) )
+("exoticism" n (eh g z aa1 t ax k ax z ax m) )
+("enshrines" n (ax n sh r ay1 n z) )
+("dyslexia" n (d ax s l eh1 k s y ax) )
+("dynamiting" n (d ay1 n ax m ay t ax ng) )
+("drumbeats" n (d r ah1 m b iy t s) )
+("dopers" n (d ow1 p er z) )
+("doin" n (d uw1 ax n) )
+("distantly" n (d ih1 s t ax n t l iy) )
+("dissolute" n (d ih1 s ax l uw t) )
+("detests" n (d ax t eh1 s t s) )
+("despots" n (d eh1 s p ax t s) )
+("denizen" n (d eh1 n ax z ax n) )
+("decaf" n (d iy1 k ae1 f) )
+("dIsere" n (d iy s eh1 r iy) )
+("clanged" n (k l ae1 ng d ) )
+("bewitching" n (b ax w ih1 ch ax ng) )
+("barest" n (b eh1 r ax s t ) )
+("banjoist" n (b ae1 n jh ow ax s t) )
+("balsamic" n (b ax l s ae1 m ax k) )
+("auteurs" n (ow t uw1 r z) )
+("aswarm" n (ae z w er1 m) )
+("arrivistes" n (ae1 r ax v iy1 s t ax z) )
+("apparat" n (ae1 p ax r ae t) )
+("amorality" n (ey1 m er ae1 l ax t iy) )
+
+;;;  So what about UK words ?
+("cheque" n (ch eh1 k) )
+("cheques" n (ch eh1 k s) )
+("chequing" n (ch eh1 k ax ng) )
+("honour" n (aa1 n er) )
+("honouring" n (aa1 n er ax ng) )
+("honours" n (aa1 n er z) )
+("honourable" n (aa1 n er ax b ax l) )
+("honoured" n (aa1 n er d) )
+("favour" n (f ey1 v er) )
+("favours" n (f ey1 v er z) )
+("favoured" n (f ey1 v er d) )
+("favourite" n (f ey1 v er ih t) )
+("favourites" n (f ey1 v er ih t s) )
+("favouring" n (f ey1 v er ax ng) )
+("favourable" n (f ey1 v er ax b ax l) )
+("favourably" n (f ey1 v er ax b l iy) )
+("labour" n (l ey1 b er) )
+("labours" n (l ey1 b er z) )
+("laboured" n (l ey1 b er d) )
+("labouring" n (l ey1 b er ax ng) )
+("colour" n (k ah1 l er) )
+("colouring" n (k ah1 l er ax ng) )
+("colours" n (k ah1 l er z) )
+("colourful" n (k ah1 l er f ax l) )
+("colourfully" n (k ah1 l er f ax l iy) )
+
+;; Added July 2004 
+("tanja" n (t ae1 n y ah))
+("waibel" n (w ay1 b ax l))
+("eskenazi" n (eh s k ax n aa1 z iy))
+("carbonell" nil (k aa1 r b ow n eh1 l))
+("metze" nil (m eh1 t z ax))
+("toth" nil (t ow1 th))
+("adele" nil (ax d eh1 l))
+("weitz" nil (w ay1 t s))
+("shamos" nil (sh ey1 m ao s))
+("ziad" nil (z iy1 ax d))
+("cmu" nil (s iy1 eh1 m y uw1))
+("hua" nil (w aa1))
+("kornel" nil (k ao r n eh1 l))
+("lavie" nil (l ax v iy1))
+("raux" nil (r ow1))
+("maeda" nil (m ay1 d ax))
+("portune" nil (p ao r t uw1 n))
+("stefanie" nil (s t eh1 f ae n iy))
+("woszczyna" nil (w aa zh iy1 n ax0))
+("waveform" nil (w ey1 v f ao1 r m))
+("waveforms" nil (w ey1 v f ao1 r m z))
+("dataset" nil (d ey1 t ah0 s eh1 t))
+("datasets" nil (d ey1 t ah0 s eh1 t s))
+
+;; Added July 2008
+("hermione" n (hh er m ay1 ax n iy))
+("tidied" v (t ay1 d ax d))
+("tidies" v (t ay1 d ax z))
+("untidy" v (ax n t ay1 d iy))
+("tidying" v (t ay1 d iy ih ng))
+("putting" v (p uh1 t ih ng))
+("iphone" n (ay1 f ow n))
+("ipod" n (ay1 p aa d))
+("untie" v (ax n t ay1))
+("kilohertz" n (k ih1 l ax hh er1 t s))
+("linux" n (l ih1 n ah k s))
+("miso" n (m iy1 s ow))
+("gaijin" n (g ay1 jh ih n))
+("uk" n (y uw1 k ey1))
+("katie" n (k ey1 t iy))
+("waistcoat" n (w ey1 s t k ow t))
+("tarpaulin" n (t aa r p ao1 l ih n))
+("trestle" n (t r eh1 s ax l))
+("trestles" n (t r eh1 s ax l z))
+("clunits" n (s iy1 eh1 l y uw1 n ih t s))
+("clustergen" n (k l ah1 s t er jh eh1 n))
+("libravox" n (l iy1 b r ax v aa1 k s))
+("peeped" n (p iy1 p t))
+("goodbyes" n (g uh1 d b ay1 z))
+("spearmint" j (s p iy1 r m ih0 n t))
+("surfed" v (s er1 f t))
+("unpacked" v (ax0 n p ae1 k t))
+("cookstove" v (k uh1 k s t ow1 v))
+("woodstove" v (w uh1 d s t ow1 v))
+("watertight" j (w ao1 t er0 t ay0 t))
+("youtube" n (y uw1 t uw1 b))
+("schlep" v (sh l eh1 p))
+("drawknife" n (d r ao1 n ay0 f))
+("wifi" n (w ay1 f ay1))
+("waterproof" j (w ao1 t er0 p r uw0 f))
+("understair" j (ah1 n d er0 s t ey1 r))
+("wikipedia" n (w ih0 k ih0 p iy1 d iy0 ax0))
+("smelt" v (s m eh1 l t))
+
+

CosyVoice-ttsfrd/resource/festival/dicts/cmu/cmulex.scm

@@ -0,0 +1,466 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Definition of Festival lexicon, derived from CMUDICT-0.4
+;;;
+
+(defvar cmulexdir (path-append lexdir "cmu"))
+
+(require 'pos)
+
+(set! cmulex_version "2.0 (from 0.4) July 2008")
+
+(define (cmu_lts_function word feats)
+  "(cmu_lts_function word feats)
+Function called for CMULEX when word is not found in lexicon.  Uses
+LTS rules trained from the original lexicon, and lexical stress
+prediction rules."
+  (require 'lts)
+  (if (not (boundp 'cmu_lts_rules))
+      (load (path-append cmulexdir "cmu_lts_rules.scm")))
+  (let ((dcword (downcase word))
+	(syls) (phones))
+    (if (string-matches dcword "[a-z]*")
+	(begin
+	  (set! phones (lts_predict dcword cmu_lts_rules))
+	  (set! syls (cmulex_mosyl_phstress phones))
+	  )
+	(set! syls nil))
+    (list word nil syls)))
+
+(define (cmulex_addenda)
+  "(cmulex_addenda)
+Add entries to the current lexicon (radio/darpa).  These are basically
+words that are not in the CMU lexicon."
+;  (lex.add.entry '("a's" n (((ey z) 1))))
+;  (lex.add.entry '("e's" n (((iy z) 1))))
+;  (lex.add.entry '("i's" n (((ay z) 1))))
+;  (lex.add.entry '("o's" n (((ow z) 1))))
+;  (lex.add.entry '("u's" n (((y uw z) 1))))
+;  (lex.add.entry '("r's" n (((aa r z) 1))))
+  (lex.add.entry '("worf" n (((w ao r f) 1))))
+  (lex.add.entry '("t" n (((t iy) 1))))
+  (lex.add.entry '("I'll" v (((ay l) 1))))
+  (lex.add.entry '("it's" v (((ih t s) 1))))
+  (lex.add.entry '("don't" v (((d ow n t) 1))))
+  (lex.add.entry '("didn't" v (((d ih) 1) ((d ah n t) 0))))
+  (lex.add.entry '("isn't" v (((ih) 1) ((z ah n t) 0))))
+  (lex.add.entry '("doesn't" v (((d ah) 1) ((z ah n t) 0))))
+  (lex.add.entry '("hasn't" v (((hh ae) 1) ((z ah n t) 0))))
+  (lex.add.entry '("that's" v (((dh ae t s) 1))))
+  (lex.add.entry '("won't" v (((w ow n t) 1))))
+  (lex.add.entry '("aren't" v (((aa r n t) 1))))
+  (lex.add.entry '("there's" v (((dh er z) 1))))
+  (lex.add.entry '("we're" v (((w iy r) 1))))
+  (lex.add.entry '("wouldn't" v (((w uh) 1) ((d ah n t) 0))))
+  (lex.add.entry '("wasn't" v (((w aa) 1) ((z ah n t) 0))))
+  (lex.add.entry '("they're" v (((dh er) 1))))
+  (lex.add.entry '("weren't" v (((w er n t) 1))))
+  (lex.add.entry '("i'm" v (((ay m) 1))))
+  (lex.add.entry '("he's" v (((hh iy z) 1))))
+  (lex.add.entry '("you're" v (((y uw r) 1))))
+  (lex.add.entry '("haven't" v (((hh ae) 1) ((v ah n t) 0))))
+  (lex.add.entry '("we've" v (((w iy v) 1))))
+  (lex.add.entry '("i've" v (((ay v) 1))))
+  (lex.add.entry '("hadn't" v (((hh ae) 1) ((d ah n t) 0))))
+  (lex.add.entry '("they've" v (((dh ey v) 1))))
+  (lex.add.entry '("shouldn't" v (((sh uh) 1) ((d ah n t) 0))))
+  (lex.add.entry '("I'd" v (((ay d) 1))))
+  (lex.add.entry '("they'll" v (((dh ey l) 1))))
+  (lex.add.entry '("you've" v (((y uw v) 1))))
+  (lex.add.entry '("you'll" v (((y uw l) 1))))
+  (lex.add.entry '("I'll" v (((ay l) 1))))
+  (lex.add.entry '("we'd" v (((w iy d) 1))))
+  (lex.add.entry '("he'd" v (((hh iy d) 1))))
+  (lex.add.entry '("he'll" v (((hh iy l) 1))))
+  (lex.add.entry '("they'd" v (((dh ey d) 1))))
+  (lex.add.entry '("you'd" v (((y uw d) 1))))
+  (lex.add.entry '("it'll" v (((ih t) 1) ((ah l) 0))))
+  (lex.add.entry '("who've" v (((hh uw v) 1))))
+  (lex.add.entry '("ain't" v (((ey n t) 1))))
+  (lex.add.entry '("needn't" v (((n iy) 1) ((d ah n t) 0))))
+  (lex.add.entry '("she'd" v (((sh iy d) 1))))
+  (lex.add.entry '("who'd" v (((hh uw d) 1))))
+  (lex.add.entry '("she'll" v (((sh iy l) 1))))
+  (lex.add.entry '("there'll" v (((dh er l) 1))))
+  (lex.add.entry '("there'd" v (((dh er d) 1))))
+  (lex.add.entry '("it'd" v (((ih t) 1) ((ah d) 0))))
+  (lex.add.entry '("who'll" v (((hh uw l) 1))))
+  (lex.add.entry '("that'll" v (((dh ae t l) 1))))
+  (lex.add.entry '("mightn't" v (((m ay) 1) ((t ah n t) 0))))
+  (lex.add.entry '("would've" v (((w uh d) 1) ((ah v) 0))))
+  (lex.add.entry '("mustn't" v (((m ah) 1) ((s ah n t) 0))))
+  (lex.add.entry '("how'd" v (((hh ow d) 1))))
+  (lex.add.entry '("could've" v (((k uh d) 1) ((ah v) 0))))
+
+  (lex.add.entry '("couldn't" v (((k uh) 1) ((d ah n t) 0))))
+  (lex.add.entry '("can't" v (((k ae n t) 1))))
+  (lex.add.entry '("we'll" v (((w iy l) 1))))
+
+  (lex.add.entry '("uk" n (((y uw) 1) ((k ey) 1))))
+  (lex.add.entry '("w" n (((d ah b) 1) ((ah l) 0) ((y uw) 1))))
+  (lex.add.entry '("bought" v (((b ao t) 1))))
+  (lex.add.entry '("edinburgh" n (((eh d) 1) ((ah n) 0) ((b ax ) 0) ((r ow) 0))))
+  (lex.add.entry '("non-intoxicating" () (((n aa n) 1) ((ih n t) 0) ((aa k) 1) ((s ih k) 0) ((ey t) 1) ((ih ng) 0))))
+  (lex.add.entry '("AT&T" n (((ey) 1) ((t iy) 1) ((ah n d) 0) ((t iy) 1))))
+  (lex.add.entry 
+   '("cepstra" n (((k eh p) 1) ((s t r aa) 0))))
+  (lex.add.entry 
+   '("cepstral" n (((k eh p) 1) ((s t r ah l) 0))))
+  (lex.add.entry 
+   '("cepstrum" n (((k eh p) 1) ((s t r ah m) 0))))
+  (lex.add.entry
+   '("diphone" n (((d ay) 1) ((f ow n) 0))))
+  (lex.add.entry
+   '("diphones" n (((d ay) 1) ((f ow n s) 0))))
+  (lex.add.entry
+   '("emacs" n (((iy) 1) ((m ae k s) 0))))
+  (lex.add.entry 
+   '("hz" n (((hh eh r t z) 1))))
+  (lex.add.entry 
+   '("khz" n (((k ih) 1) ((l ax) 0) ((hh eh r t z) 1))))
+  (lex.add.entry
+   '("lived" v (((l ih v d) 1))))
+  (lex.add.entry
+   '("Ltd" n (((l ih m) 1) ((ah t) 0) ((ah d) 0))))
+  (lex.add.entry
+   '("Mrs" n (((m ih s) 1) ((ah s) 0))))
+  (lex.add.entry 
+   '("mhz" n (((m eh) 1) ((g ax) 0) ((hh eh r t z) 1))))
+  (lex.add.entry
+   '("NASA" n (((n ae) 1) ((s ax) 1))))
+  (lex.add.entry 
+   '("lead" led (((l eh d) 1))))
+  (lex.add.entry 
+   '("lead" liid (((l iy d) 1))))
+  (lex.add.entry
+   '("pasadena" n (((p ae s) 1) ((ae d) 0) ((iy n) 1) ((ax) 0))))
+  (lex.add.entry 
+   '("read" red (((r eh d) 1))))
+  (lex.add.entry 
+   '("read" riid (((r iy d) 1))))
+  (lex.add.entry
+   '("reuters" n (((r oy t) 1) ((er z) 0))))
+  (lex.add.entry
+   '("and" aend (((ae n d) 1))))
+  (lex.add.entry
+   '("and" ahnd (((ax n d) 0))))
+  (lex.add.entry
+   '("for" faor (((f ao r) 1))))
+  (lex.add.entry
+   '("for" fer (((f er) 0))))
+  (lex.add.entry
+   '("to" to (((t ax) 0))))
+  (lex.add.entry
+   '("to" tuu (((t uw) 1))))
+;  (lex.add.entry
+;   '("usually" r (((y uw zh) 1) ((ax l) 0) ((iy) 0))))
+;  (lex.add.entry
+;   '("usual" r (((y uw zh) 1) ((ax l) 0))))
+;  (lex.add.entry
+;   '("Jan" n (((jh ae n y) 1) ((uw) 0) ((eh r) 1) ((iy) 0))))
+;  (lex.add.entry
+;   '("Feb" n (((f eh b) 1) ((r ax) 0) ((er) 0) ((iy) 0))))
+  (lex.add.entry
+   '("February" n (((f eh b) 1) ((r ax) 0) ((er) 0) ((iy) 0))))
+;  (lex.add.entry
+;   '("Mar" n (((m aa r ch) 0))))
+;  (lex.add.entry
+;   '("Apr" n (((ey p) 1) ((r ah l) 0))))
+;  (lex.add.entry
+;   '("Jun" n  (((jh uw n) 1))))
+;  (lex.add.entry
+;   '("Jul" n  (((jh uw l) 1) ((ay) 1))))
+;  (lex.add.entry
+;   '("Aug" n  (((aa g) 1) ((ah s t) 0))))
+;  (lex.add.entry
+;   '("Sep" n (((s eh p) 0) ((t eh m b) 1) ((er) 0))))
+;  (lex.add.entry
+;   '("Sept" n (((s eh p) 0) ((t eh m b) 1) ((er) 0))))
+;  (lex.add.entry
+;   '("Oct" n (((aa k) 0) ((t ow b) 1) ((er) 0))))
+;  (lex.add.entry
+;   '("Nov" n (((n ow v) 0) ((eh m b) 1) ((er) 0))))
+;  (lex.add.entry
+;   '("Dec" n (((d ih s) 0) ((eh m b) 1) ((er) 0))))
+  (lex.add.entry
+   '("'s" pos (((ax z) 0))))
+  (lex.add.entry
+   '("'s" n (((ax z) 0))))
+  (lex.add.entry 
+   '("*" n (((ae s) 1) ((t er) 0) ((ih s k) 0)) ((pos "K6%"))))
+  (lex.add.entry 
+   '("%" n (((p er) 1) ((s eh n t) 1)) ((pos "K9%"))))
+  (lex.add.entry 
+   '("&" n (((ae n d) 0))))
+  (lex.add.entry 
+   '("$" n (((d aa l) 1) ((er) 0))))
+  (lex.add.entry 
+   '("#" n (((hh ae sh) 1))))
+  (lex.add.entry 
+   '("@" n (((ae t) 1))))
+  (lex.add.entry 
+   '("+" n (((p l ah s) 0)) ((pos "K7%" "OA%" "T-%"))))
+  (lex.add.entry 
+   '("^" n (((k eh r) 1) ((eh t) 0)) ((pos "K6$"))))
+  (lex.add.entry 
+   '("~" n (((t ih l d) 1) ((ah) 0)) ((pos "K6$"))))
+  (lex.add.entry 
+   '("=" n (((iy k) 1) ((w ah l) 0))))
+  (lex.add.entry 
+   '("/" n (((s l ae sh) 1))))
+  (lex.add.entry 
+   '("\\" n (((b ae k) 1) ((s l ae sh) 1))))
+  (lex.add.entry 
+   '("_" n (((ah n d) 1) ((er s) 0) ((k ao r) 1))))
+  (lex.add.entry 
+   '("|" n (((v er t) 1) ((ih k) 0) ((ah l) 0) ((b aa r) 1))))
+  (lex.add.entry 
+   '(">" n ((( g r ey ) 1) ((t er) 0) ((dh ae n) 1))))
+  (lex.add.entry 
+   '("<" n ((( l eh s) 1) ((dh ae n) 1))))
+  (lex.add.entry 
+   '("[" n ((( l eh f t) 1) ((b r ae k) 1) ((ih t) 0))))
+  (lex.add.entry 
+   '("]" n ((( r ay t) 1) ((b r ae k) 1) ((ih t) 0))))
+  (lex.add.entry 
+   '(" " n (((s p ey s) 1))))
+  (lex.add.entry 
+   '("\t" n (((t ae b) 1))))
+  (lex.add.entry 
+   '("\n" n (((n uw) 1) ((l ay n) 1))))
+  (lex.add.entry '("." punc nil))
+  (lex.add.entry '("'" punc nil))
+  (lex.add.entry '(":" punc nil))
+  (lex.add.entry '(";" punc nil))
+  (lex.add.entry '("," punc nil))
+  (lex.add.entry '("-" punc nil))
+  (lex.add.entry '("\"" punc nil))
+  (lex.add.entry '("`" punc nil))
+  (lex.add.entry '("?" punc nil))
+  (lex.add.entry '("!" punc nil))
+  (lex.add.entry
+   '(before ()
+	    (((b iy) 0) ((f ao r) 1))))
+  )
+
+(define  (cmulex_map_sylstructure syls)
+  (unwind-protect
+   (begin
+     (mapcar
+      (lambda (s1 s2)
+        (list s1 (cadr s2)))
+      (cmulex_syllabify_maxonset
+       (apply
+        append
+        (mapcar car syls)))
+      syls))
+   (begin
+     (format t "Failed to resyllabify %l\n" syls)
+     syls))
+)
+
+(define (cmulex_mosyl_phstress phones)
+  (set! xxx  (mapcar
+   (lambda (syl)
+     (set! stress 0)
+     (list 
+      (mapcar
+       (lambda (p)
+         (cond
+          ((string-matches p "[aeiou@].*1")
+           (set! stress 1)
+           (intern (substring p 0 (- (length p) 1))))
+          ((string-matches p "[aeiou@].*0")
+           (set! stress 0)
+           (intern (substring p 0 (- (length p) 1))))
+          (t
+           (intern p))))
+       (mapcar string-append syl))
+      stress))
+   (cmulex_syllabify_maxonset phones)))
+;  (format t "%l\n%l\n" phones xxx)
+  xxx
+
+)
+
+(define (cmulex_syllabify_maxonset phones) 
+  (cmulex_syllabify_maxonset2 
+   (mapcar intern (reverse phones))
+   nil nil)
+)
+
+(define (cmulex_syllabify_maxonset2 phones syl syls)
+  "(cmulex_syllabify_maxonset phones)
+Syllabify by maximum onset. phones is given in reverse order"
+;  (format t "csm2 phones %l syl %l syls %l\n" 
+;          phones syl syls)
+  (cond
+   ((null phones)
+    (if syl
+        (cons (reverse syl) syls)
+        syls))
+   ((null (cmulex_has_vowel phones))  ;; safety case
+    ;; could some weird onset we've never seen before
+    (cons
+     (append (reverse phones) syl)
+     syls))
+   ((null (string-matches (car phones) "[aeiou@].*"))  ;; a vowel
+    (cmulex_syllabify_maxonset2
+     (cdr phones)
+     (cons (car phones) syl)
+     syls))
+   (t  ;; is a vowel
+    (let ((onset (cmulex_maxonset (cdr phones))))
+      (cmulex_syllabify_maxonset2
+       (nth_cdr (+ 1 (length onset)) phones)
+       nil
+       (cons (append onset (list (car phones)) syl) syls))))))
+
+(define (cmulex_has_vowel p)
+  (cond
+   ((null p) nil)
+   ((string-matches (car p) "[aeiou@].*")  ;; a vowel
+    t)
+   (t
+    (cmulex_has_vowel (cdr p)))))
+
+(define (cmulex_maxonset phones)
+  (cond
+   ((string-matches (car phones) "[aeiou@].*")
+    nil)
+   ((string-equal (car phones) "ng") ;; only non-syl-initial phone
+    nil)
+   ((null phones) nil)
+   ((and (> (length phones) 2)
+         (member (list (car (cddr phones))
+                       (cadr phones)
+                       (car phones)
+                       )
+                 cmulex_tri_onsets))
+    (list (car (cddr phones))
+                       (cadr phones)
+                       (car phones)
+                       ))
+   ((and (> (length phones) 1)
+         (member (list (cadr phones)
+                       (car phones))
+                 cmulex_di_onsets))
+    (list (cadr phones)
+          (car phones)))
+   (t
+    (list (car phones)))))
+
+(set! cmulex_tri_onsets
+      '(
+        (s t r)
+        (s p y)
+        (s p r)
+        (s p l)
+        (s k y)
+        (s k w)
+        (s k r)
+        (s k l)
+        ))
+
+(set! cmulex_di_onsets
+'(
+        (z w)
+        (z l)
+        (v y)
+        (v r)
+        (v l)
+        (th w)
+        (th r)
+        (t y)
+        (t w)
+;        (t s)
+        (t r)
+        (sh w)
+        (sh r)
+        (sh n)
+        (sh m)
+        (sh l)
+        (s w)
+        (s v)
+        (s t)
+        (s r)
+        (s p)
+        (s n)
+        (s m)
+        (s l)
+        (s k)
+        (s f)
+        (p y)
+        (p w)
+        (p r)
+        (p l)
+        (n y)
+        (m y)
+        (m r)
+        (l y)
+        (k y)
+        (k w)
+        (k r)
+        (k l)
+        (hh y)
+        (hh w)
+        (hh r)
+        (hh l)
+        (g y)
+        (g w)
+        (g r)
+        (g l)
+        (f y)
+        (f r)
+        (f l)
+        (d y)
+        (d w)
+        (d r)
+        (b y)
+        (b w)
+        (b r)
+        (b l)
+))
+
+(set! lex_syllabification (list cmulex_mosyl_phstress))
+
+(lex.create "cmu")
+(lex.set.compile.file (path-append cmulexdir "cmudict-0.4.out"))
+(lex.set.phoneset "radio")
+(lex.set.lts.method 'cmu_lts_function)
+(lex.set.pos.map english_pos_map_wp39_to_wp20)
+(cmulex_addenda)
+
+(provide 'cmulex)
+

CosyVoice-ttsfrd/resource/festival/dicts/oald/COPYING

@@ -0,0 +1,35 @@
+
+                Centre for Speech Technology Research                  
+                     University of Edinburgh, UK                       
+                       Copyright (c) 1996,1997                         
+                        All Rights Reserved.                           
+                                                                       
+  Permission to use, copy, modify, distribute this software and its    
+  documentation for research, educational and individual use only, is  
+  hereby granted without fee, subject to the following conditions:     
+   1. The code must retain the above copyright notice, this list of    
+      conditions and the following disclaimer.                         
+   2. Any modifications must be clearly marked as such.                
+   3. Original authors' names are not deleted.                         
+  This software may not be used for commercial purposes without        
+  specific prior written permission from the authors.                  
+                                                                       
+  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        
+  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      
+  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   
+  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     
+  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    
+  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   
+  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          
+  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       
+  THIS SOFTWARE.                                                       
+                Centre for Speech Technology Research                  
+                     University of Edinburgh, UK                       
+                       Copyright (c) 1996,1997                         
+                        All Rights Reserved.                           
+                                                                       
+  Permission is hereby granted, free of charge, to use and distribute  
+  this software and its documentation without restriction, including   
+  without limitation the rights to use, copy, modify, merge, publish,  
+  distribute, sublicense, and/or sell copies of this work, and to      
+  permit persons to whom this work is furnished to do so, subject to   

CosyVoice-ttsfrd/resource/festival/dicts/oald/oald_extensions.scm

@@ -0,0 +1,1704 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  
+;;;  Extra items that have sufficient frequency and are pronounced
+;;;  wrongly that are to be added to the compiled version of 
+;;;  the OALD lexicon
+;;;
+;;;  This list we derived from various text databases and actually
+;;;  listening 
+
+( "Jones" n (jh ou1 n z) )
+( "Merrill" n (m e1 r i l) )
+( "Guber" n (g u1 b @) )
+( "Drexel" n (d r e1 k s @ l) )
+( "de" in (d @) )
+( "Noriega" n (n oo r i ei1 g @) )
+( "Lehman" n (l ei1 m @ n) )
+( "Salomon" n (s a1 l @ m @ n) )
+( "pretax" n (p r ii1 t a1 k s) )
+( "Reagan" n (r ei1 g @ n) )
+( "Hugo" n (h y uu1 g o) )
+( "Nasdaq" n (n a1 s d e k) )
+( "Telerate" n (t e1 l i r ei t) )
+( "PaineWebber" n (p ei1 n - w e1 b @) )
+( "totaled" n (t ou1 t @ l d) )
+( "Qintex" n (k w i1 n t e k s) )
+( "Conn" n (k o1 n) )
+( "Asia" n (ei1 sh i@) )
+( "Saatchi" n (s a1 t ch ii) )
+( "Mitsubishi" n (m i1 t s uu b ii1 sh ii) )
+( "Mae" n (m ei1) )
+( "Paribas" n (p a1 r @ b a s) )
+( "Intel" n (i1 n t e l) )
+( "McCaw" n (m @ k oo1) )
+( "Citicorp" n (s i1 t ii - k oo1 p) )
+( "automotive" n (oo1 t ou m ou1 t i v) )
+( "Compaq" n (k o1 m p a1 k) )
+( "Beijing" n (b ei1 zh i1 ng) )
+( "rumors" n (r uu1 m @@ z) )
+( "Exxon" n (e1 k s o n) )
+( "Phelan" n (f ii1 l a n) )
+( "Chrysler" n (k r ai1 s l @) )
+( "Oakland" n (ou1 k l @ n d) )
+( "insurers" n (i n sh u@1 r @ z) )
+( "Thomson" n (t o1 m s @ n) )
+( "Stearns" n (s t @@1 n z) )
+( "Coors" n (k u@1 z) )
+( "USAir" n (y uu1 e1 s e@1) )
+( "Rockefeller" n (r o1 k @ f e l @) )
+( "Ogilvy" n (ou1 g i l v ii) )
+( "pre" n (p r ii1) )
+( "Bache" n (b a1 k) )
+( "Mitchell" n (m i1 t ch @ l) )
+( "Davis" n (d ei1 v i s) )
+( "Nekoosa" n (n e k uu1 s @) )
+( "Nikkei" n (n ii1 k k ei1) )
+( "McDonald" n (m @ k d o1 n @ l d) )
+( "Marshall" n (m aa1 sh @ l) )
+( "aide" n (ei1 d) )
+( "CenTrust" n (s e1 n - t r uh s t) )
+( "BellSouth" n (b e1 l s au1 th) )
+( "Thompson" n (t o1 m s @ n) )
+( "Donaldson" n (d o1 n @ l d s @ n) )
+( "totaling" n (t ou1 t @ l i ng) )
+( "insurer" n (i n sh u@1 r @) )
+( "Campbell" n (k a1 m b @ l) )
+( "favorable" k (f ei1 v r @ b @ l) )
+( "canceled" j (k a1 n s @ l d) )
+( "Du" in (d uu) )
+( "Fujitsu" n (f uu jh i1 t s uu) )
+( "Yeargin" n (y e@1 g i n) )
+( "Daiwa" n (d ai1 w a) )
+( "Bancorp" n (b a1 n k oo p) )
+( "Viacom" n (v ai1 @ k o m) )
+( "Vegas" n (v ei1 g @ s) )
+( "Steinhardt" n (s t ai1 n h aa1 t) )
+( "Rica" n (r ii1 k @) )
+( "Icahn" n (ii1 k a n) )
+( "Ferranti" n (f @ r a1 n t ii) )
+( "Ortega" n (oo r t ei1 g @) )
+( "Merieux" n (m e1 r y uu) )
+( "Spielvogel" n (s p ii1 l v ou1 k @ l) )
+( "Gonzalez" n (g o n z a1 l @ s) )
+( "Engelken" n (e1 ng g @ l k e n) )
+( "Delmed" n (d e1 l m e1 d) )
+( "Corry" n (k o1 r ii) )
+( "longtime" n (l o1 ng t ai1 m) )
+( "Saab" n (s a1 b) )
+( "Rey" n (r ei1) )
+( "Nabisco" n (n @ b i1 s k ou) )
+( "Disney" n (d i1 z n ii) )
+( "repurchase" n (r ii1 p @@1 ch i s) )
+( "mainframes" n (m ei1 n f r ei1 m z) )
+( "Reynolds" n (r e1 n @ l d z) )
+( "Nomura" n (n ou m uu1 r @) )
+( "Galileo" n (g a1 l @ l ei1 ou) )
+( "Cohen" n (k ou1 e n) )
+( "Allianz" n (@ l ai1 a n z) )
+( "biotechnology" n (b ai1 ou t e1 k n o1 l @ jh ii) )
+( "Jenrette" n (zh o1 n r e1 t) )
+( "Bethlehem" n (b e1 th l i h e m) )
+( "turnaround" n (t @@1 n @ r au1 n d) )
+( "rumored" n (r uu1 m @@ d) )
+( "cleanup" n (k l ii1 n uh1 p) )
+( "Wedtech" n (w e1 d t e1 k) )
+( "Texaco" n (t e1 k s @ k ou1) )
+( "Sullivan" n (s uh1 l @ v @ n) )
+( "Roberts" n (r o1 b @ t s) )
+( "Merksamer" n (m @@1 k s @ m @) )
+( "Hahn" n (h a1 n) )
+( "Giuliani" n (jh uu1 l ii a1 n ii) )
+( "theater" n (th i@1 t @) )
+( "Unisys" n (y uu1 n i s i1 s) )
+( "Monieson" n (m o1 n @ s @ n) )
+( "Diego" n (d i ei1 g ou) )
+( "Quotron" n (k w o1 t r o n) )
+( "Maynard" n (m ei1 n aa d) )
+( "Marcos" n (m aa1 k o s) )
+( "Jose" n (h ou1 z ei) )
+( "Boren" n (b oo1 r e n) )
+( "signaled" n (s i1 g n @ l d) )
+( "lackluster" n (l a1 k - l uh1 s t @) )
+( "Stein" n (s t ii1 n) )
+( "Bartlett" n (b aa1 t l e t) )
+( "Amex" n (a1 m e1 k s) )
+( "aides" n (ei1 d z) )
+( "Trelleborg" n (t r e1 l @ b @@ g) )
+( "Saudi" n (s au1 d ii) )
+( "Olivetti" n (o1 l i v e1 t ii) )
+( "Microsoft" n (m ai1 k r ou s o1 f t) )
+( "McGraw" n (m @ g r oo1) )
+( "Deutsche" n (d oi1 t ch @) )
+( "Courter" n (k oo1 t @) )
+( "Conner" n (k o1 n @) )
+( "Cathay" n (k a1 th ei1) )
+( "polyethylene" n (p o1 l ii e1 th i l ii n) )
+( "Quebecor" n (k w i1 b e k @) )
+( "Puerto" n (p w e@1 t ou) )
+( "Mikhail" n (m ii1 k ai l) )
+( "Colo" n (k o1 l ou) )
+( "refinancing" n (r ii f ai1 n @ n s i ng) )
+( "Societe" n (s @1 s ai1 @ t ei) )
+( "Robertson" n (r o1 b @ t s s @ n) )
+( "Pfeiffer" n (f ai1 f @) )
+( "Oppenheimer" n (o1 p @ n h ai m @) )
+( "Evans" n (e1 v @ n z) )
+( "Dataproducts" n (d ei1 t @ - p r o1 d uh k t s) )
+( "Bradstreet" n (b r a1 d - s t r ii1 t) )
+( "Antonio" n (a n t ou1 n y ou) )
+( "franchisees" n (f r a1 n ch ai z ii1 z) )
+( "ex" n (e1 k s) )
+( "arbitragers" n (aa1 b @ t r ei1 jh @@ z) )
+( "Motorola" n (m ou t @ r ou1 l @) )
+( "Macmillan" n (m @ k m i1 l @ n) )
+( "Jacobson" n (jh ei1 k @ b s @ n) )
+( "Indosuez" n (i1 n d ou s uu1 e z) )
+( "Hughes" n (h y uu1 z) )
+( "Florio" n (f l oo r i ou) )
+( "Spiegel" n (s p ii1 g @ l) )
+( "Rico" n (r ii1 k ou) )
+( "Palo" n (p a1 l ou) )
+( "Madison" n (m a1 d @ s @ n) )
+( "HealthVest" n (h e1 l th - v e1 s t) )
+( "Fuji" n (f uu1 jh ii) )
+( "Deloitte" n (d e1 l oi t) )
+( "Amoco" n (a1 m ou k ou) )
+( "equaling" n (ii1 k w @ l i ng) )
+( "Wallach" n (w oo1 l @ k) )
+( "Upjohn" n (uh1 p jh o n) )
+( "Tele" n (t e1 l ii) )
+( "Rubicam" n (r uu1 b @ k a1 m) )
+( "Pemex" n (p e1 m e1 k s) )
+( "Meredith" n (m e1 r @ d @ th) )
+( "Lorenzo" n (l oo r e1 n z ou) )
+( "Levine" n (l @ v ai1 n) )
+( "Ingersoll" n (i1 ng g @ s @ l) )
+( "Eurocom" n (y uu1 r @ k o m) )
+( "Chevrolet" n (sh e1 v r @ l ei) )
+( "federally" n (f e1 d r @ l ii) )
+( "anymore" n (e1 n ii m oo1 r) )
+( "Toshiba" n (t ou sh ii1 b @) )
+( "Suisse" n (s w ii1 s) )
+( "Sansui" n (s a1 n s uu ii1) )
+( "Panzhihua" n (p a1 n z ii1 w a1) )
+( "Goldberg" n (g ou1 l d b @@ g) )
+( "Garcia" n (g aa s ii1 @) )
+( "Eli" n (ii1 l ai) )
+( "Della" n (d e1 l @) )
+( "Buick" n (b y uu1 i k) )
+( "debacle" n (d ei b uh1 k @ l) )
+( "cholesterol" n (k o l e1 s t r @ l) )
+( "Vitro" n (v ii1 t r ou) )
+( "Revco" n (r e1 v k ou) )
+( "Nashua" n (n a1 sh w @) )
+( "Mitsui" n (m i t s uu1 ii) )
+( "Lexus" n (l e1 k s @ s) )
+( "Healthcare" n (h e1 l th - k e@ r) )
+( "Ginnie" n (jh i1 n ii) )
+( "Carlos" n (k aa1 l @ s) )
+( "Benson" n (b e1 n s @ n) )
+( "Avery" n (ei1 v r ii) )
+( "Achenbaum" n (a1 k @ n b oo m) )
+( "Nynex" n (n ai1 n e k s) )
+( "Murray" n (m uh1 r ii) )
+( "Morishita" n (m o1 r ii1 sh t @) )
+( "Minpeco" n (m i1 n p e k ou) )
+( "McDonough" n (m @ k d o1 n @) )
+( "Geigy" n (g ei1 jh ii) )
+( "Drabinsky" n (d r a b i1 n s k ii) )
+( "Dingell" n (d i1 ng @ l) )
+( "petrochemical" n (p e1 t r @ k e1 m @ k @ l) )
+( "nonetheless" n (n uh1 n dh @ l e1 s) )
+( "catalog" n (k a1 t @ l o g) )
+( "Yamaichi" n (y a1 m @ ii1 ch ii) )
+( "Sugarman" n (sh uu1 g @ m @ n) )
+( "Steinberg" n (s t ai1 n b @@ g) )
+( "Shevardnadze" n (sh e1 v @ d n a1 d z ii) )
+( "Russell" n (r uh1 s @ l) )
+( "Roh" n (r ou1) )
+( "McDonnell" n (m @ k d o1 n @ l) )
+( "Lyonnais" n (l ei1 @ n ei z) )
+( "Kravis" n (k r a1 v @ s) )
+( "Gould" n (g uu1 l d) )
+( "Edelman" n (ei1 d @ l m @ n) )
+( "Dreyfus" n (d r ei1 f @ s) )
+( "Coniston" n (k o1 n @ s t @ n) )
+( "Cineplex" n (s i1 n @ p l e k s) )
+( "Antar" n (a1 n t aa) )
+( "Annualized" n (a1 n y uu l ai z d) )
+( "salespeople" n (s ei1 l s p ii p @ l) )
+( "pharmaceuticals" n (f aa1 m @ s y uu1 t @ k @ l z) )
+( "layoffs" n (l ei1 o1 f s) )
+( "issuance" n (i sh uu1 a n s) )
+( "intraday" n (i1 n t r @ d ei1) )
+( "exercisable" n (e1 k s @ r s ai1 z @ b @ l) )
+( "Weisfield" n (w ii1 s f ii1 l d) )
+( "Unocal" n (y uu1 n @ k a l) )
+( "Straszheim" n (s t r a1 z h ai m) )
+( "Microsystems" n (m ai1 k r ou s i1 s t @ m z) )
+( "Hambrecht" n (h a1 m b r e k t) )
+( "Generale" n (jh e n e r a1 l) )
+( "Friedman" n (f r ii1 d m @ n) )
+( "Fresenius" n (f r ii s e1 n i uh s) )
+( "Contel" n (k o1 n t e l) )
+( "Bennett" n (b e1 n i t) )
+( "Azoff" n (a1 z o f) )
+( "Arabia" n (@ r ei1 b i@) )
+( "rubles" n (r uu1 b @ l z) )
+( "routinely" n (r uu t ii1 n l ii) )
+( "Unilever" n (y uu1 n @ l ii1 v @ r) )
+( "Telesis" n (t e1 l ii s i s) )
+( "Skase" n (s k a1 s ii) )
+( "Manuel" n (m a1 n w e l) )
+( "Mancuso" n (m a n k y uu1 s ou) )
+( "Hearst" n (h @@1 s t) )
+( "DeConcini" n (d @ k o n ch ii1 n ii) )
+( "Chiron" n (ch ai1 r o n) )
+( "Caribbean" n (k a1 r @ b ii1 @ n) )
+( "Bogart" n (b ou1 g aa t) )
+( "rumor" n (r uu1 m @ r) )
+( "noncallable" n (n o1 n k oo1 l @ b @ l) )
+( "industrywide" n (i1 n d uh s t r ii w ai1 d) )
+( "Weiss" n (w ai1 s) )
+( "Tucson" n (t uu1 s o n) )
+( "Rosenthal" n (r ou1 s @ n t a l) )
+( "Rogers" n (r o1 jh @@ z) )
+( "Roderick" n (r o1 d @ r i k) )
+( "Rican" n (r ii1 k a n) )
+( "Prebon" n (p r ii1 b o n) )
+( "Owen" n (ou1 e n) )
+( "Mercedes" n (m @@ s ei1 d ii s) )
+( "Intelogic" n (i1 n t e l l o1 jh i k) )
+( "HomeFed" n (h ou1 m f e1 d) )
+( "Fossett" n (f o1 s i t) )
+( "Cocom" n (k ou1 k o1 m) )
+( "Cheney" n (ch ei1 n ii) )
+( "Capel" n (k a p e1 l) )
+( "Cabrera" n (k @ b r e1 r @) )
+( "Blumenfeld" n (b l uu1 m @ n f e l d) )
+( "pressured" n (p r e1 sh @ r d) )
+( "pachinko" n (p @ ch i1 ng k ou) )
+( "conferees" n (k o1 n f @ r ii1 z) )
+( "audio" n (oo1 d i ou) )
+( "Weyerhaeuser" n (w ai1 r h au1 s @ r) )
+( "Schwarz" n (sh w oo1 t z) )
+( "Schering" n (sh e1 r i ng) )
+( "Sandinista" n (s a1 n @ n ii1 s t @) )
+( "Renault" n (r e1 n ou) )
+( "Petrie" n (p ii1 t r ii) )
+( "Mosbacher" n (m o1 s b a k @ r) )
+( "Mario" n (m a1 r i ou) )
+( "Kleinwort" n (k l ai1 n w oo t) )
+( "Hyundai" n (h uu1 n d ai) )
+( "Genentech" n (jh e1 n @ n t e1 k) )
+( "Busch" n (b uu1 sh) )
+( "Bofors" n (b ou1 f @ @ s) )
+( "Barre" n (b aa1 r) )
+( "ruble" n (r uu1 b @ l) )
+( "nonprofit" n (n o1 n - p r o1 f i t) )
+( "buildup" n (b i1 l d uh1 p) )
+( "breakup" n (b r ei1 k uh1 p) )
+( "ampersand" n (a1 m p @ s a n d) )
+( "TransCanada" n (t r a1 n s - k a1 n @ d @1) )
+( "Superfund" n (s uu1 p @ - f uh n d) )
+( "Sandinistas" n (s a1 n @ n ii1 s t @ s) )
+( "Posner" n (p o1 z n @ r) )
+( "Papandreou" n (p a1 p @ n d r ii ou) )
+( "Odeon" n (ou1 d i @ n) )
+( "Nathan" n (n ei1 th @ n) )
+( "McGovern" n (m @ g uh1 v @@ n) )
+( "Matra" n (m a1 t r @) )
+( "Lorin" n (l oo1 r @ n) )
+( "Klein" n (k l ai1 n) )
+( "Goodyear" n (g u1 d y e@1) )
+( "Eaton" n (ii1 t @ n) )
+( "Donoghue" n (d o1 n @ h y uu) )
+( "DaPuzzo" n (d @ p uu1 z ou) )
+( "Barclays" n (b aa1 k l i z) )
+( "semiannual" n (s e1 m i - a1 n y u@ l) )
+( "maneuver" n (m a n uu1 v @ r) )
+( "gridlock" n (g r i1 d l o1 k) )
+( "defenses" n (d @ f e1 n s @ s) )
+( "anytime" n (e1 n ii t ai m) )
+( "annualized" n (a1 n y u@ l ei z d) )
+( "Trinova" n (t r i n ou1 v @) )
+( "Suzuki" n (s u z uu1 k ii) )
+( "Shapiro" n (sh @ p ii1 r ou) )
+( "Schwartz" n (sh w oo1 t z) )
+( "Savaiko" n (s a v ai1 k ou) )
+( "Salinas" n (s a l ii1 n @ s) )
+( "Rio" n (r ii1 ou) )
+( "Refcorp" n (r e1 f k oo p) )
+( "Mehta" n (m ei1 t @) )
+( "McMoRan" n (m @ k m oo1 r @ n) )
+( "Matsushita" n (m a t s uu1 sh t @) )
+( "Luzon" n (l uu1 z o n) )
+( "Lufthansa" n (l uu f t h a1 n s @) )
+( "Interprovincial" n (i1 n t @@ - p r o v i1 n sh @ l) )
+( "Hoechst" n (h ou1 sh t) )
+( "Giovanni" n (jh i ou v a1 n ii) )
+( "Erbamont" n (e1 r b @ m o n t) )
+( "Emhart" n (e1 m h aa t) )
+( "Daewoo" n (d ei1 w uu) )
+( "Corr" n (k o1 r) )
+( "Chivas" n (ch ii1 v @ s) )
+( "Burger" n (b @@1 g @) )
+( "Broadway" n (b r oo1 d w ei) )
+( "Alaskan" n (@ l a1 s k @ n) )
+( "palladium" n (p @ l ei1 d i uh m) )
+( "installment" n (i n s t oo1 l m @ n t) )
+( "franchisee" n (f r a1 n ch ai z ii1) )
+( "Wertheim" n (w e1 r th ai m) )
+( "Uniroyal" n (y uu1 n i r oi1 @ l) )
+( "Southam" n (s au1 th @ m) )
+( "Sinyard" n (s i1 n y aa d) )
+( "Quayle" n (k w ei1 l) )
+( "Pontiac" n (p o1 n t i a k) )
+( "Nuovo" n (n uu1 @ v ou) )
+( "MedChem" n (m e1 d k e m) )
+( "Mahfouz" n (m aa1 f uu z) )
+( "Lomas" n (l ou1 m a s) )
+( "Kangyo" n (k a1 ng g y ou) )
+( "Iverson" n (ai1 v @@ s @ n) )
+( "Graham" n (g r ei1 uh m) )
+( "Giorgio" n (g ii1 oo r g ii1 ou) )
+( "Gelbart" n (g e1 l b aa t) )
+( "Gabelli" n (g a b e1 l ii) )
+( "Ellis" n (e1 l i s) )
+( "Donuts" n (d ou1 n uh t s) )
+( "videocassette" n (v i1 d i ou - k a s e1 t) )
+( "petrochemicals" n (p e1 t r @ k e1 m @ k @ l z) )
+( "multinational" n (m uh1 l t i - n a1 sh @ n @ l) )
+( "minivans" n (m i1 n i v a n z) )
+( "gubernatorial" n (g uu1 b @@ n a t oo1 r i@ l) )
+( "franchisers" n (f r a1 n ch ai z @@ z) )
+( "advancers" n (@ d v a1 n s @@ s) )
+( "Zoete" n (z ou1 e t) )
+( "Weil" n (w ei1 l) )
+( "Torrijos" n (t o r r ii1 y o s) )
+( "Templeton" n (t e1 m p @ l t @ n) )
+( "Suez" n (s uu1 e z) )
+( "Sperry" n (s p e1 r ii) )
+( "Seita" n (s ei1 t @) )
+( "Scania" n (s k a1 n i @) )
+( "Salinger" n (s a1 l i n g @ r) )
+( "Rudolph" n (r uu1 d o l f) )
+( "Rostenkowski" n (r o1 s t @ n k au1 s k ii) )
+( "Pierre" n (p i1 e@) )
+( "Peugeot" n (p y uu1 zh ou) )
+( "Pearce" n (p i@1 s) )
+( "Ortiz" n (o r t ii1 z) )
+( "Ogden" n (o1 g d i n) )
+( "OBrien" n (ou b r ai1 @ n) )
+( "Neuberger" n (n y uu1 b @@ g @ r) )
+( "Murata" n (m uu r a1 t @) )
+( "McNamee" n (m a k n @ m ii1) )
+( "McLennan" n (m @ k l e1 n @ n) )
+( "Mayer" n (m ei1 @) )
+( "Mattel" n (m a t e1 l) )
+( "Macintosh" n (m a1 k i n t o sh) )
+( "MacDonald" n (m a k d o1 n @ l d) )
+( "Lumpur" n (l uu1 m p @) )
+( "Kuala" n (k w a1 l @) )
+( "Honolulu" n (h o1 n @ l uu1 l uu) )
+( "Harrison" n (h a1 r i s @ n) )
+( "Haas" n (h aa1 s) )
+( "Francois" n (f r o1 n s w @@ z) )
+( "Cupertino" n (k uu p @ t ii1 n ou) )
+( "CityFed" n (s i1 t ii f e1 d) )
+( "Capcom" n (k a1 p k o m) )
+( "Cananea" n (k @ n a1 n i@) )
+( "Caltrans" n (k a1 l t r a n s) )
+( "Beebes" n (b ii1 b s) )
+( "Bebear" n (b ii1 b e@ r) )
+( "Avis" n (ei1 v i s) )
+( "Aoun" n (a1 uu n) )
+( "Adm" n (a1 d m i r @ l) )
+( "Abramson" n (ei1 b r @ m s @ n) )
+( "theaters" n (th i@1 t @@ z) )
+( "resale" n (r ii s ei1 l) )
+( "pretrial" n (p r ii1 t r ai1 @ l) )
+( "midyear" n (m i1 d y @@ r) )
+( "en" in (o ng) )
+( "elite" n (i l ii1 t) )
+( "divisive" n (d @ v ai1 z i v) )
+( "bono" n (b ou1 n ou) )
+( "archrival" n (aa1 ch r ai v @ l) )
+( "acquirer" n (@ k w ai1 r @) )
+( "Vogelstein" n (v ou1 g @ l s t ii n) )
+( "Utsumi" n (uu t s uu1 m ii) )
+( "Touche" n (t uu sh ei1) )
+( "Tenneco" n (t e1 n @ k ou) )
+( "Sumitomo" n (s uu1 m ii t ou1 m ou) )
+( "Sohmer" n (s ou1 m @ r) )
+( "Shakespeare" n (sh ei1 k s p i@ r) )
+( "Samsung" n (s a1 m s uh n g) )
+( "Perlman" n (p @@1 l m @ n) )
+( "Patel" n (p @ t e1 l) )
+( "Oy" n (o1 i1) )
+( "Omaha" n (ou1 m @ h @) )
+( "ONeill" n (ou n ii1 l) )
+( "Mueller" n (m uu1 l @ r) )
+( "Mitterrand" n (m ii1 t @ r a n) )
+( "Mideast" n (m i1 d ii s t) )
+( "Michel" n (m ai1 k @ l) )
+( "Mehl" n (m e1 l) )
+( "Kume" n (k uu1 m e) )
+( "Gutfreund" n (g u1 t f r e n d) )
+( "Geographic" n (jh i1 ou g r a1 f i k) )
+( "Fujis" n (f uu1 jh ii z) )
+( "Freres" n (f r e1 r z) )
+( "Fazio" n (f a1 t s i ou) )
+( "Einhorn" n (ai1 n h oo n) )
+( "Egon" n (ii1 g o n) )
+( "Cruz" n (k r uu1 z) )
+( "Comex" n (k o1 m e k s) )
+( "Carnegie" n (k a r n ei1 g ii) )
+( "Braniff" n (b r a1 n i f) )
+( "Aquino" n (@ k ii1 n ou) )
+( "Aichi" n (ai ii1 ch ii) )
+( "Ahmanson" n (aa1 m @ n s @ n) )
+( "statewide" n (s t ei1 t w ai d) )
+( "sitcom" n (s i1 t k o m) )
+( "refinance" n (r ii f ai1 n a n s) )
+( "postwar" n (p ou s t w oo1 r) )
+( "playoffs" n (p l ei o1 f s) )
+( "outpaced" n (au t p ei1 s d) )
+( "midtown" n (m i d t au1 n) )
+( "maneuvering" n (m a n uu1 v @ r i ng) )
+( "makeup" n (m ei1 k uh1 p) )
+( "indexation" n (i1 n d e k s ei1 sh @ n) )
+( "hemorrhaging" n (h e1 m @ r @ jh i ng) )
+( "closings" n (k l ou1 s i ng z) )
+( "Xtra" n (e1 k s t r @) )
+( "Wachter" n (w o1 ch @ r) )
+( "Trudeau" n (t r uu1 d ou) )
+( "Tharp" n (th aa1 p) )
+( "Stephens" n (s t ii1 f @ n z) )
+( "Sino" n (s ai1 n ou) )
+( "Seymour" n (s ii1 m o r) )
+( "Reitman" n (r ai1 t m @ n) )
+( "Ramirez" n (r @ m ii1 r e z) )
+( "Petrolane" n (p e1 t r ou l ei n) )
+( "Omni" n (o1 m n ii) )
+( "Ohbayashi" n (ou1 b a y a1 sh ii) )
+( "Oakes" n (ou1 k s) )
+( "Nuys" n (n oi1 z) )
+( "Nguyen" n (n uu1 y e n) )
+( "Mateo" n (m @ t ei1 ou) )
+( "Maclean" n (m @ k l ii n) )
+( "Kia" n (k ii1 @) )
+( "Kerr" n (k e r) )
+( "Kawasaki" n (k a1 w @ s a1 k ii) )
+( "Kao" n (k a1 ou) )
+( "Kalikow" n (k a1 l @ k ou) )
+( "Jacques" n (zh a1 k) )
+( "Jacobs" n (jh ei1 k @ b s) )
+( "Institut" n (i1 n s t i t uu t) )
+( "Hawaiian" n (h @ w ai1 @ n) )
+( "Garratt" n (g a1 r i t) )
+( "Elliott" n (e1 l ii i t) )
+( "Ehrlich" n (e1 r l i k) )
+( "Eduard" n (e1 d w aa d) )
+( "Dai" n (d ai1) )
+( "Conant" n (k o1 n @ n t) )
+( "Bruno" n (b r uu1 n ou) )
+( "wildlife" n (w ai1 l d l ai f) )
+( "wastewater" n (w ei1 s t w oo t @ r) )
+( "unraveling" n (uh n r a1 v l i ng) )
+( "tritium" n (t r i1 t i uh m) )
+( "semiannually" n (s e1 m i a1 n y u@ l) )
+( "salmonella" n (s a1 l m @ n e1 l @) )
+( "reoffered" n (r ii1 o1 f @@ d) )
+( "reinvest" n (r ii1 i n v e1 s t) )
+( "merchandising" n (m @@1 ch @ n d ai1 z i ng) )
+( "favorably" n (f ei1 v r @ b l ii) )
+( "duo" n (d y uu1 ou) )
+( "dialysis" n (d ai a1 l @ s i s) )
+( "chlorofluorocarbons" n (k l o1 r @ f l o1 r @ k aa1 b @ n z) )
+( "Yamatake" n (y a1 m @ t a1 k e) )
+( "Wichita" n (w i1 ch @ t @) )
+( "Valdez" n (v a1 l d e z) )
+( "Unicorp" n (y uu1 n i k oo p) )
+( "Trustcorp" n (t r uh1 s t k oo p) )
+( "Toubro" n (t ou1 b r ou) )
+( "Tiananmen" n (t i@1 n @ n m e1 n) )
+( "Tesoro" n (t e s ou1 r ou) )
+( "Tae" n (t ei1) )
+( "Stalinist" n (s t a1 l @ n @ s t) )
+( "SsangYong" n (s a1 ng y o1 ng) )
+( "Shidler" n (sh ai1 d l @ r) )
+( "Schuster" n (sh u1 s t @ r) )
+( "Schlumberger" n (sh l uh1 m b @@ zh ei) )
+( "Schaeffer" n (sh ei1 f @ r) )
+( "Sagan" n (s ei1 g @ n) )
+( "Roberti" n (r @ b @@1 t ii) )
+( "Rahn" n (r aa1 n) )
+( "Rafale" n (r @ f a1 l ii) )
+( "Quina" n (k ii1 n @) )
+( "Parenthood" n (p e@1 r @ n t h uu d) )
+( "Novello" n (n o v e1 l ou) )
+( "Morgenzon" n (m o1 r g @ n z @ n) )
+( "Moines" n (m oi1 n) )
+( "Michelin" n (m i1 sh @ l a n) )
+( "Meyer" n (m ai1 @ r) )
+( "McGee" n (m @ g ii1) )
+( "Marous" n (m a1 r ou s) )
+( "Managua" n (m @ n a1 g w @) )
+( "Macrodantin" n (m a1 k r ou d a1 n t i n) )
+( "Knopf" n (k n o1 p f) )
+( "Jayark" n (jh ei1 y aa k) )
+( "Izvestia" n (i s v e1 s t i @) )
+( "Ichi" n (ii1 ch ii) )
+( "Hyman" n (h ai1 m @ n) )
+( "Hirsch" n (h @@1 sh) )
+( "Himont" n (h ai1 m @ n t) )
+( "Hercules" n (h @@1 k y uu l ii z) )
+( "Heinemann" n (h ai1 n m @ n) )
+( "Hathaway" n (h a1 th @ w ei) )
+( "Guterman" n (g u1 t @@ m @ n) )
+( "Gitano" n (g ii t a1 n ou) )
+( "Gibson" n (g i1 b s @ n) )
+( "Geduld" n (g e1 d uh l d) )
+( "Gatward" n (g a1 t w aa d) )
+( "Gartner" n (g aa1 t n @ r) )
+( "Fujisawa" n (f uu1 jh ii s a1 w @) )
+( "FirstSouth" n (f i1 r s t s au th) )
+( "Finkelstein" n (f i1 n k @ l s t ii n) )
+( "Fernandez" n (f @@ n a1 n d e z) )
+( "Faberge" n (f a1 b e r jh ei) )
+( "Detrex" n (d e1 t r e k s) )
+( "Carolinas" n (k a1 r @ l ai1 n @ s) )
+( "Candela" n (k @ n d e1 l @) )
+( "Calloway" n (k a1 l @ w ei) )
+( "Cablevision" n (k ei1 b @ v i1 zh @ n) )
+( "Cabernet" n (k a1 b @ n ei) )
+( "Byrd" n (b @@1 d) )
+( "Bundesbank" n (b uu1 n d @ s b a1 n k) )
+( "Bumiputra" n (b u1 m i p u1 t r @) )
+( "Boyer" n (b oi1 @ r) )
+( "Boise" n (b oi1 s ii) )
+( "Albuquerque" n (a1 l b @ k @@1 k ii) )
+( "Accor" n (@ k o1 r) )
+( "Acadia" n (@ k ei1 d i @) )
+( "unfocused" n (uh n f ou1 k @ s d) )
+( "superpower" n (s uu1 p @ p au1 @ r) )
+( "subcompact" n (s uh1 b k o1 m p a k t) )
+( "spreadsheet" n (s p r e1 d sh ii t) )
+( "signaling" n (s i1 g n @ l i ng) )
+( "setup" n (s e t uh1 p) )
+( "repurchased" n (r ii1 p @@1 ch i s d) )
+( "refinanced" n (r ii f ai1 n a n s d) )
+( "pressuring" n (p r e1 sh @ r i ng) )
+( "paychecks" n (p ei1 ch e k s) )
+( "math" n (m a1 th) )
+( "favorites" n (f ei1 v r i t s) )
+( "destabilizing" n (d ii s t ei1 b @ l ai1 z i ng) )
+( "crocidolite" n (k r ou s i1 d @ l ai t) )
+( "counterrevolutionary" n (k au1 n t @@ - r e1 v @ l uu1 sh @ n r ii) )
+( "colorful" n (k uh1 l @ r f @ l) )
+( "bureaus" n (b y uu1 r ou s) )
+( "broadcasters" n (b r oo1 d k a s t @@ s) )
+( "Yasuda" n (y a1 s u d @) )
+( "Yamamoto" n (y a1 m a m ou1 t ou) )
+( "Volkswagen" n (v o1 l k s w a g @ n) )
+( "Veraldi" n (v e r a1 l d ii) )
+( "Unice" n (y uu1 n i s) )
+( "Tulsa" n (t uh1 l s @) )
+( "Travis" n (t r a1 v @ s) )
+( "Traviata" n (t r a v ii a1 t @) )
+( "Threlkeld" n (th r e1 l k e l d) )
+( "Stronach" n (s t r o1 n @ k) )
+( "Stovall" n (s t o1 v a l) )
+( "Staten" n (s t a1 t @ n) )
+( "Soweto" n (s u w e1 t ou) )
+( "Siegel" n (s ii1 g @ l) )
+( "Shattuck" n (sh a1 t uh k) )
+( "Segundo" n (s e g u1 n d ou) )
+( "SciMed" n (s ai1 m e1 d) )
+( "Schulof" n (sh u1 l o f) )
+( "Schneider" n (sh n ai1 d @ r) )
+( "Schaefer" n (sh ai1 f @ r) )
+( "Salem" n (s ei1 l @ m) )
+( "Safeco" n (s ei1 f k ou) )
+( "Ruvolo" n (r uu1 v ou l ou) )
+( "Rianta" n (r ii a1 n t @) )
+( "Prix" n (p r ii1) )
+( "Petipa" n (p e t ii1 p @) )
+( "Paxus" n (p a1 k s @ s) )
+( "Paulo" n (p au1 l ou) )
+( "Parsow" n (p aa1 s ou) )
+( "Ovcharenko" n (o1 v ch a r e1 n k ou) )
+( "Orlando" n (o r l a1 n d d ou) )
+( "Novell" n (n ou v e1 l) )
+( "Nissho" n (n ii1 sh ou) )
+( "Nikon" n (n ii1 k o n) )
+( "Ngoc" n (n o1 k) )
+( "Movieline" n (m uu1 v ii l ai n) )
+( "Montagu" n (m o1 n t @ g y uu) )
+( "Mitsukoshi" n (m i1 t s uu k ou1 sh ii) )
+( "Milpitas" n (m i l p ii1 t @ s) )
+( "McGill" n (m @ g i1 l) )
+( "McDermott" n (m @ k d @@1 m i t) )
+( "Maxtor" n (m a1 k s t o r) )
+( "Marietta" n (m a1 r i e1 t @) )
+( "Maier" n (m ai1 @ r) )
+( "Maguire" n (m @ g w ai1 @ r) )
+( "Machiguenga" n (m a1 ch i g w e1 n g @) )
+( "Lowell" n (l au1 @ l) )
+( "Lorillard" n (l o1 r @ l aa d) )
+( "Lonrho" n (l oo1 n r ou) )
+( "Lentjes" n (l e1 n t y i z) )
+( "Kozinski" n (k o z i1 n s k ii) )
+( "Kloves" n (k l ou1 v z) )
+( "Jerusalem" n (jh e r uu1 s @ l e m) )
+( "Iwai" n (ii w ai1) )
+( "Immunex" n (i1 m y uu n e k s) )
+( "Ikegai" n (ii1 k e g ai) )
+( "Homestake" n (h ou1 m s t ei k) )
+( "Heinz" n (h ai1 n z) )
+( "Harlem" n (h aa1 l @ m) )
+( "Hallwood" n (h oo1 l w u d) )
+( "Haagen" n (h aa1 g @ n) )
+( "Geva" n (jh e1 v @) )
+( "Georgetown" n (jh oo1 jh t au n) )
+( "GenCorp" n (jh e1 n k oo p) )
+( "Garzarelli" n (g aa1 z @ r e1 l ii) )
+( "Fremont" n (f r ii1 m o n t) )
+( "Forster" n (f oo1 s t @ r) )
+( "Fleischmann" n (f l e1 sh m @ n) )
+( "Fischer" n (f i1 sh @ r) )
+( "Fidel" n (f i d e1 l) )
+( "Feshbach" n (f e1 sh b a k) )
+( "Ferruzzi" n (f e r uu1 t s ii) )
+( "Felipe" n (f e l ii1 p) )
+( "Deseret" n (d e1 s e r i t) )
+( "Davidson" n (d ei1 v i d s @ n) )
+( "Cooperman" n (k uu1 p @@ m a n) )
+( "Chez" n (sh e1 z) )
+( "Canelo" n (k @ n e1 l ou) )
+( "Canaan" n (k ei1 n @ n) )
+( "Byrne" n (b @@ n) )
+( "Brody" n (b r ou1 d ii) )
+( "BroadBeach" n (b r oo1 d - b ii ch) )
+( "BioSciences" n (b ai1 ou - s ai1 @ n s @ s) )
+( "Barr" n (b aa1) )
+( "BancOklahoma" n (b a n k - ou1 k l @ h ou1 m @) )
+( "Asahi" n (a1 s a h ii) )
+( "Armenian" n (aa1 m i n i@ n) )
+( "Antarctica" n (@ n t aa1 k t i k @) )
+( "Anacomp" n (a1 n @ k o m p) )
+( "Ames" n (ei1 m z) )
+( "Amdahl" n (a1 m d a l) )
+( "Allday" n (oo1 l d ei1) )
+( "Ailes" n (ai1 l z) )
+( "whove" n (w ou v) )
+( "thirtysomething" n (th @@1 t ii - s uh1 m th i ng) )
+( "telemarketing" n (t e1 l ii - m aa1 k i t i ng) )
+( "telemarketers" n (t e1 l ii - m aa1 k i t @ r z) )
+( "sustainable" n (s @ s t ei1 n @ b @ l) )
+( "spiraling" n (s p ai1 r @ l i ng) )
+( "shoreline" n (sh oo1 r - l ai n) )
+( "retirees" n (r i t ai1 r ii1 z) )
+( "reseller" n (r ii1 s e l @ r) )
+( "reignited" n (r ii i g n ai1 t @ d) )
+( "refocusing" n (r ii f ou1 k @ s i ng) )
+( "refocus" n (r ii f ou1 k @ s) )
+( "pico" n (p ii1 k ou) )
+( "overreacting" n (ou1 v @@ - r ii a1 k t i ng) )
+( "onetime" n (w uh1 n - t ai1 m) )
+( "muni" n (m y uu1 n ii) )
+( "multinationals" n (m uh1 l t i - n a1 sh @ n @ l z) )
+( "maneuvers" n (m a n uu1 v @ r z) )
+( "haired" n (h e@1 d) )
+( "franchiser" n (f r a1 n ch ai z @ r) )
+( "franchised" n (f r a1 n ch ai z d) )
+( "feisty" n (f ai1 s t ii) )
+( "equaled" n (ii1 k w @ l d) )
+( "criminality" n (k r i1 m @ n a1 l i t ii) )
+( "coupe" n (k uu1 p ei) )
+( "confrontational" n (k o1 n f r @ n t ei1 sh @ n @ l) )
+( "catheter" n (k a1 th @ t @ r) )
+( "buyout" n (b ai1 au t) )
+( "armored" n (aa1 m @ r d) )
+( "aerobics" n (ei r ou1 b i k s) )
+( "acquirers" n (@ k w ai1 r @ r z) )
+( "academia" n (a1 k @ d ii1 m i @) )
+
+;;; no prizes for guessing where this came from
+
+( "Holmes" n (h ou1 m z) )
+( "Lestrade" n (l @ s t r aa1 d) )
+( "McGinty" n (m @ g i1 n t ii) )
+( "Stapleton" n (s t ei1 p @ l t @ n) )
+( "Baskerville" n (b a1 s k @ v i l) )
+( "Drebber" n (d r e1 b @ r) )
+( "Moriarty" n (m o1 r i aa1 t ii) )
+( "Conan" n (k o1 n @ n) )
+( "Tregennis" n (t r i g e1 n @ s) )
+( "Rucastle" n (r uu1 k a s @ l) )
+( "leading" n (l ii1 d i ng) )
+( "Ettie" n ( e1 t ii ))
+( "Carruthers" n ( k aa r uh1 th @@ z  ) )
+( "McFarlane" n (m @ k f aa1 l i n) )
+( "Oldacre" n (ou1 l d - ei k @ r) )
+( "Alec" n (a1 l i k) )
+( "Lucas" n (l uu1 k @ s) )
+( "Cadogan" n (k @ d ou1 g @ n) )
+( "Huxtable" n (h uh1 k s t @ b @ l) )
+( "Athelney" n (a1 th @ l n ei) )
+( "daresay" n (d e@1 s ei) )
+( "Woolwich" n (w u1 l i ch) )
+( "Devonshire" n (d e1 v @ n sh @ r) )
+( "Trevelyan" n (t r @ v e1 l @ n) )
+( "Oberstein" n (ou1 b @ s t ai n) )
+( "Napoleon" n (n @ p ou1 l i @ n) )
+( "Dartmoor" n (d aa1 t m u@ r) )
+( "Sterndale" n (s t @@1 n d ei l) )
+( "Forrester" n (f o1 r @ s t @ r) )
+( "Woking" n (w ou1 k i ng) )
+( "Stapletons" n (s t ei1 p @ l t @ n s) )
+( "Mapleton" n (m ei1 p @ l t @ n) )
+( "Merryweather" n (m e1 r i w e dh @ r) )
+( "Gorgiano" n (jh oo jh i a1 n ou) )
+( "Beddoes" n (b e1 d ou s) )
+( "Prendergast" n (p r e1 n d @ g a s t) )
+( "Paddington" n (p a1 d i ng t @ n) )
+( "Thames" n (t e1 m z) )
+( "Charpentier" n (sh a r p e1 n t i ei) )
+( "halloa" n (h a l ou1 @) )
+( "Eustace" n (y uu1 s t @ s) )
+( "Baskervilles" n (b a1 s k @ v i l z) )
+( "merest" n (m ii1 r @ s t) )
+( "Mordecai" n (m oo1 d @ k ai) )
+( "Coburg" n (k ou1 b @@ g) )
+( "Swandam" n (s w o1 n d @ m) )
+( "Saxe" n (s a k s) )
+( "Grimesby" n (g r i1 m s b ii) )
+( "Esher" n (e1 sh @ r) )
+( "Eduardo" n (e d w aa1 d ou) )
+( "wagonette" n (w a1 g @ n e1 t) )
+( "Trelawney" n (t r @ l oo1 n ii) )
+( "Sydenham" n (s i1 d @ n h @ m) )
+( "Montpellier" n (m o m p e1 l i ei) )
+( "Lysander" n (l ai s a1 n d @ r) )
+( "Fairbairn" n (f e@1 b e@ n) )
+( "Altamont" n (a1 l t @ m o n t) )
+( "wagons" n (w a g @ n z) )
+( "outre" n (ou1 t r @) )
+( "moustached" n (m @ s t a1 sh d) )
+( "humouredly" n (h y uu1 m @ d l ii) )
+( "Silas" n (s ai1 l @ s) )
+( "Reuben" n (r uu1 b @ n) )
+( "Reichenbach" n (r i1 k @ n b a k) )
+( "Pietro" n (p ii e1 t r ou) )
+( "Heidegger" n (h ai1 d i g @ r) )
+( "Euston" n (y uu1 s t @ n) )
+( "Diogenes" n (d ai oo1 jh @ n ii z) )
+( "wagon" n (w a1 g @ n) )
+( "reentered" n (r ii e1 n t @ d) )
+( "alkaloid" n (a1 l k @ l oi d) )
+( "Trichinopoly" n (t r ai1 k i n o1 p @ l ii) )
+( "Streatham" n (s t r e1 t @ m) )
+( "Sophy" n (s ou1 f ii) )
+( "Meiringen" n (m e@1 r i ng @ n) )
+( "Greuze" n (g r uu1 z) )
+( "Cornelius" n (k o r n ii1 l i @ s) )
+( "fiancee" n (f i o1 n s ii1) )
+( "dyou" n (jh ou1) )
+( "bladed" n (b l ei1 d @ d) )
+( "aneurism" n (a1 n y uu r @ z m) )
+( "Vibart" n (v ai1 b aa t) )
+
+;;; Another set 
+
+( "Mandela" n (m a n d e1 l @) )
+( "Johnson" n (jh o n s @ n) )
+( "Buchanan" n (b u k a1 n @ n) )
+( "Ceausescu" n (ch au ch e1 s k uu) )
+( "Schwarzkopf" n (sh w oo1 t s k o p f) )
+( "Aziz" n (@ z ii1 z) )
+( "Tyson" n (t ai1 s @ n) )
+( "Stalin" n (s t a1 l i n) )
+( "Cuomo" n (k uu1 m ou) )
+( "Rumania" n (r uu m ei1 n i @) )
+( "Powell" n (p au1 w @ l) )
+( "Viet" n (v i e1 t) )
+( "Kerrey" n (k e1 r ii) )
+( "Sununu" n (s @ n uu1 n uu) )
+( "Dukakis" n (d @ k a1 k @ s) )
+( "Lenin" n (l e1 n i n) )
+( "Chua" n (ch w a1) )
+( "Azerbaijan" n (a1 z @ b @ jh a1 n) )
+( "Riyadh" n (r ii1 a d) )
+( "Jesse" n (jh e1 s ii) )
+( "Hitler" n (h i1 t l @ r) )
+( "Tehran" n (t ei r a1 n) )
+( "Abu" n (a1 b uu) )
+( "Urquhart" n (@@1 k @@ t) )
+( "Mozart" n (m ou t s aa t) )
+( "Lieut" n (l e1 f t e1 n @ n t) )
+( "Faludi" n (f a l uu1 d ii) )
+( "Azerbaijanis" n (a1 z @@ b @ jh a1 n ii z) )
+( "Mubarak" n (m uu1 b @ r a k) )
+( "Le" dt (l @) )
+( "Botha" n (b ou1 t @) )
+( "Ukraine" n (y uu k r ei1 n) )
+( "antiwar" n (a1 n t i w oo1 r) )
+( "Likud" n (l i k uu1 d) )
+( "Duarte" n (d u aa1 t @) )
+( "Armenia" n (aa m ii1 n i @) )
+( "semiautomatic" n (s e1 m i oo1 t @ m a t i k) )
+( "Andrea" n (aa1 n d r i @) )
+( "Roosevelt" n (r ou z @ v e l t) )
+( "Luther" n (l u1 th @ r) )
+( "Armenians" n (aa m ii1 n i @ n z) )
+( "Bucharest" n (b u1 k @ r e s t) )
+( "Hirohito" n (h i1 r ou h ii1 t ou) )
+( "Modrow" n (m u1 d r ou) )
+( "Ayatullah" n (ai1 @ t uh1 l @) )
+( "Moynihan" n (m oi1 n @ h a n) )
+( "Gingrich" n (g i1 n g r i ch) )
+( "Securitate" n (s @ k y uu1 @ t ei t) )
+( "Mao" n (m au1) )
+( "Perez" n (p e1 r e z) )
+( "Kissinger" n (k i s @ n jh @ r) )
+( "Yankelovich" n (y a1 n k @ l o1 v i ch) )
+( "Steinem" n (s t ei n @ m) )
+( "Rashid" n (r a sh ii1 d) )
+( "Eisenhower" n (ai1 s @ n h au @ r) )
+( "Landsbergis" n (l a1 n d s b @@ g @ s) )
+( "Khrushchev" n (k r uu1 sh ch @ v) )
+( "Rodriguez" n (r o d r ii1 g e z) )
+( "Croatia" n (k r ou ei1 sh i@) )
+( "antiaircraft" n (a1 n t i e@1 k r a f t) )
+( "Rumanian" n (r uu m ei1 n i @ n) )
+( "Azerbaijani" n (a1 z @@ b @ jh a1 n ii) )
+( "Perot" n (p e r ou1) )
+( "FDIC" n (e1 f d i k) )
+( "Wagner" n (v aa1 g n @ r) )
+( "Amman" n (@ m a1 n) )
+( "mujahedin" n (m u jh a1 h @ d ii n) )
+( "genome" n (jh ii1 n ou m) )
+( "Nicolae" n (n i1 k ou l ai) )
+( "Mohammed" n (m @ h a1 m e d) )
+( "HIV" n (ei1 ch ai1 v ii1) )
+( "Aviv" n (@ v ii1 v) )
+( "quo" n (k w ou1) )
+( "intifadeh" n (i1 n t @ f a1 d @) )
+( "Monet" n (m o n ei1) )
+( "Karabakh" n (k a1 r @ b a k) )
+( "Hazelwood" n (h ei1 z @ l w u d) )
+( "Barrett" n (b a1 r i t) )
+( "furor" n ( f u r o1 r) )
+( "Tariq" n (t a1 r ii k) )
+( "Kazakhstan" n (k a1 z @ k s t a n) )
+( "Goodgame" n (g u1 d g ei m) )
+( "Pynchon" n (p i1 n ch @ n) )
+( "Ashe" n (a1 sh) )
+( "neo" n (n ii1 ou) )
+( "Rabta" n (r a1 b t @) )
+( "Pulitzer" n (p uu1 l i t z @ r) )
+( "Brezhnev" n (b r e1 zh n @ v) )
+( "Bhutto" n (b uu1 t ou) )
+( "Sidey" n (s ai1 d ii) )
+( "superpowers" n (s uu1 p @ p au @ r z) )
+( "Vaclav" n (v a1 z l a v) )
+( "Thom" n (t o1 m) )
+( "NIH" n (e1 n ai1 ei1 ch) )
+( "Isabelle" n (i1 s @ b e l) )
+( "Hosni" n (h o1 s n ii) )
+( "Slovenia" n (s l @ v ii1 n i @) )
+( "Milosevic" n (m i l o1 s @ v i ch) )
+( "MacLeod" n (m @ k l au1 d) )
+( "Friedrich" n (f r ii1 d r i k) )
+( "Timisoara" n (t ii1 m @ sh w a1 r @) )
+( "Tadzhikistan" n (t a d z i1 k i s t a n) )
+( "Salvadoran" n (s a1 l v @ d ou1 r @ n) )
+( "Rumanians" n (r uu m ei1 n i @ n z) )
+( "Perrier" n (p e1 r i ei) )
+( "Lautrec" n (l ou t r e1 k) )
+( "Kaifu" n (k ai1 f uu) )
+( "Heidi" n (h ai1 d ii) )
+( "Fahd" n (f aa d) )
+( "Disneyland" n (d i1 z n ii l a n d) )
+( "Courbet" n (k oo1 b ei) )
+( "Beckett" n (b e1 k i t) )
+( "Takeshita" n (t @ k e1 sh t @) )
+( "Khafji" n (k a1 f jh ii) )
+( "Daley" n (d ei1 l ii) )
+( "Clarence" n (k l a1 r @ n s) )
+( "firepower" n (f ai1 @ r p au1 @ r) )
+( "antiapartheid" n (a1 n t i @ p aa1 t h ai t) )
+( "Tobias" n (t ou b ai1 @ s) )
+( "Rostropovich" n (r o1 s t r @ p ou1 v i ch) )
+( "Roseanne" n (r ou z a1 n) )
+( "Peres" n (p e r e1 z) )
+( "Notre" n (n o1 t r @ ) )
+( "Mantegna" n (m a n t e g n @) )
+( "Ligachev" n (l i1 g @ ch @ v) )
+( "Kurdistan" n (k @@1 d i s t a n) )
+( "Hernandez" n (h @@ n a1 n d @ z) )
+( "Genscher" n (g e1 n sh @ r) )
+( "Diane" n (d ai a1 n) )
+( "buyouts" n (b ai1 au t s) )
+( "Yamaguchi" n (y a1 m @ g uu1 ch ii) )
+( "Wilde" n (w ai1 l d) )
+( "Stroessner" n (s t r o1 s n @ r) )
+( "Sakharov" n (s a1 k @ r @ v) )
+( "MacDougall" n (m @ k d uu1 g @ l) )
+( "Akihito" n (a1 k ii h ii1 t ou) )
+( "Yanayev" n (y a1 n @ y @ v) )
+( "Violeta" n (v ai @ l e1 t @) )
+( "McDowell" n (m @ k d au1 @ l) )
+( "Ito" n (ii1 t ou) )
+( "Dali" n (d a1 l ii) )
+( "savor" n (s ei1 v @ r) )
+( "ouster" n (au1 s t @ r) )
+( "hometown" n (h ou1 m t au n) )
+( "estrogen" n (e1 s t r @ jh @ n) )
+( "debuting" n (d ei b y uu1 t i ng) )
+( "au" n (ou1) )
+( "Yuri" n (y uu1 r ii) )
+( "Yakovlev" n (y a1 k @ v l e v) )
+( "Venturi" n (v e n ch y uu1 r ii) )
+( "Scorsese" n (s k o r s ei1 s ii) )
+( "McWhirter" n (m @ k w @@1 t @ r) )
+( "Kennebunkport" n (k e1 n i b uh1 n k p oo t) )
+( "Hightower" n (h ai1 t au1 @ r) )
+( "Cristiani" n (k r i s t ii a1 n ii) )
+( "Crete" n (k r ii1 t) )
+( "Ukrainian" n (y uu k r ei1 n i @ n) )
+( "Trabi" n (t r a1 b ii) )
+( "Schickel" n (sh i1 k @ l) )
+( "Miyazawa" n (m i1 y @ z a1 w @) )
+( "Gaudi" n (g au1 d ii) )
+( "Bastille" n (b a s t ii1 l) )
+( "somber" n (s o m b @ r) )
+( "prewar" n (p r ii1 w oo1 r) )
+( "moviegoers" n (m uu1 v i g ou @ r z) )
+( "macho" n (m a1 ch ou) )
+( "erstwhile" n (@@ s t w ai l) )
+( "cliche" n (k l ii sh ei1) )
+( "antiabortion" n (a1 n t i @ b oo1 sh @ n) )
+( "Uzbekistan" n (uu z b e1 k i s t a n) )
+( "Trabant" n (t r @ b a1 n t ) )
+( "Sergei" n (s i1 r g ei) )
+( "Montgomery" n (m o n t g o1 m @ r ii) )
+( "Ku" n (k uu1) )
+( "Heathrow" n (h ii1 th r ou) )
+( "Guggenheim" n (g uu1 g @ n h ai m) )
+( "Gnehm" n (n e1 m) )
+( "Gesell" n (g e1 s @ l) )
+( "Dylan" n (d i1 l @ n) )
+( "Carolco" n (k a1 r @ l k ou) )
+( "Buchwald" n (b u1 k v a l d) )
+( "Belorussia" n (b e1 l @ r uh1 sh i @) )
+( "kidnaped" n (k i1 d n a1 p t) )
+( "Yosemite" n (y @ s e1 m i t ii ) )
+( "Ukrainians" n (y uu k r ei1 n i @ n z) )
+( "Sylvester" n (s i l v e1 s t @ r) )
+( "Schultz" n (sh u1 l t s) )
+( "Scharf" n (sh aa1 f) )
+( "Reaganomics" n (r ei1 g @ n oo1 m i k s) )
+( "Randall" n (r a1 n d @ l) )
+( "Puryear" n (p uh1 t y @@ r) )
+( "Nidal" n (n i d a1 l) )
+( "Nair" n (n e@ r) )
+( "Michelangelo" n (m ai1 k @ l a1 n jh @ l ou) )
+( "Margot" n (m aa1 g ou) )
+( "Leonid" n (l i1 e n @ d) )
+( "Lehtinen" n (l ei t i1 n @ n) )
+( "Hafez" n (h a1 f e z) )
+( "Gomez" n (g ou1 m e z) )
+( "Gisela" n (jh i s e1 l @) )
+( "Elena" n (e l ei1 n @) )
+( "Chi" n (k ai1) )
+( "Ariz" n (a1 r i z) )
+( "Andre" n (aa1 n d r ei) )
+( "prizewinning" n (p r ai1 z w i n i ng) )
+( "cliches" n (k l ii sh ei z) )
+( "basics" n (b ei1 s i k s) )
+( "Yellowstone" n (y e1 l ou s t ou n) )
+( "Walesa" n (v a l e1 s @) )
+( "Stefan" n (s t e1 f a n) )
+( "Schwarzenegger" n (sh w oo1 t z e n ei g @ r) )
+( "Sanchez" n (s a1 n ch e z) )
+( "Nikita" n (n i k ii1 t @) )
+( "Navajo" n (n a1 v @ h ou) )
+( "Mitchelson" n (m i1 ch @ l s @ n ) )
+( "Menem" n (m e n @ m) )
+( "Laurent" n (l oo r o1 n) )
+( "Lafester" n (l @ f e1 s t @ r) )
+( "Janeiro" n (jh @ n e@1 r ou) )
+( "Isaacson" n (ai1 s i k s @ n) )
+( "Gromyko" n (g r ou m ii1 k ou) )
+( "Fergie" n (f @@1 g ii) )
+( "Eco" n (ii1 k ou) )
+( "DeWitt" n (d @ w i1 t) )
+( "Daryl" n (d a1 r @ l) )
+( "policymaking" n (p o1 l i s i m ei k i ng) )
+( "policymakers" n (p o1 l i s i m ei k @ r z) )
+( "nunciature" n (n @ n s ii1 @ ch u@ r) )
+( "noncommunist" n (n o n - k o1 m y uu n i s t) )
+( "kidnaping" n (k i d n a1 p i i ng) )
+( "facade" n (f @ s aa1 d) )
+( "disadvantaged" n (d i s @ d v a1 n t ei jh d) )
+( "antigovernment" n (a1 n t i g uh1 v @ n m @ n t) )
+( "Yves" n (ii1 v z) )
+( "Weisser" n (w ai1 z @ r) )
+( "Vitali" n (v i t a1 l ii) )
+( "Reiner" n (r ai1 n @ r) )
+( "Raisa" n (r ai1 s @) )
+( "ROTC" n (aa1 r ou1 t ii1 s ii1) )
+( "Nicholson" n (n i1 k @ l s @ n) )
+( "Mustafa" n (m uh1 s t a f @) )
+( "Gras" n (g r aa1) )
+( "Gershwin" n (g @@ sh w @ n) )
+( "Gibbs" n (g i1 b z ) )
+( "Freud" n (f r oi1 d) )
+( "Doubleday" n (d uh1 b @ l d ei) )
+( "Beyer" n (b ei1 @ r) )
+( "Arrington" n (a1 r i ng t @ n) )
+( "Anastasia" n (a1 n a s t ei1 s i @) )
+( "Allison" n (a1 l i s o n) )
+( "Ahmed" n (aa1 m e d) )
+( "geopolitical" n (jh ii1 ou p @ l i1 t @ k @ l) )
+( "bookstores" n (b u1 k s t oo1 z) )
+( "Zhai" n (z ai1) )
+( "Xiaoping" n (sh au1  p i ng) )
+( "Xiao" n (sh au1) )
+( "Winbush" n (w i1 n b uu sh) )
+( "Whitaker" n (w i1 t @ k @ r) )
+( "Vytautas" n (v ai t au1 t @ s) )
+( "Swaggart" n (s w a1 g @ t) )
+( "Reilly" n (r ai1 l ii) )
+( "Reid" n (r ii1 d) )
+( "Nikolai" n (n i1 k ou l ai) )
+( "Motown" n (m ou1 t au n) )
+( "Melamed" n (m e1 l @ m e d) )
+( "Medved" n (m e1 d v e1 d) )
+( "Mazowiecki" n (m @ z au1 s k ii) )
+( "Mahon" n (m ei1 h @ n) )
+( "Leninist" n (l e1 n @ n i s t) )
+( "Jong" n (y o1 ng) )
+( "Huston" n (h uu1 s t @ n) )
+( "Gumbel" n (g uh1 m b @ l) )
+( "Guillermo" n (g u w ii @@1 m ou) )
+( "Fuchs" n (f uu1 k s) )
+( "Flynn" n (f l i1 n) )
+( "Dou" n (d ou1) )
+( "Dahmer" n (d aa1 m @ r) )
+( "Croatian" n (k r ou ei1 sh @ n) )
+( "Capriati" n (k a p r i a1 t ii) )
+( "Buthelezi" n (b u t @ l ei1 z ii) )
+( "Bhopal" n (b ou p a1 l) )
+( "Arcata" n ( aa k a1 t @) )
+( "Abrams" n (ei1 b r @ m z) )
+( "gutsy" n (g uh1 t s ii) )
+( "debuted" n (d ei b y uu1 d) )
+( "bipartisanship" n (b ai p aa1 t @ s @ n sh i p) )
+( "Webb" n (w e1 b) )
+( "Ulam" n (ou1 l @ m) )
+( "Shultz" n (sh u1 l t z) )
+( "Rosenberg" n (r ou1 s @ n b @@ g) )
+( "Regan" n (r ii g @ n) )
+( "Noboru" n (n ou b ou1 r uu) )
+( "Moshe" n (m o1 sh ei) )
+( "Martinez" n (m aa t @ n e1 z) )
+( "Klaus" n (k l au1 s) )
+( "Islamabad" n (i s l a1 m @ b a d) )
+( "Heinrich" n (h ai1 n r i k) )
+( "Greenpeace" n (g r ii1 n p ii s) )
+( "Geraldo" n (jh e r a1 l d ou) )
+( "Donahue" n (d o1 n @ h y uu) )
+( "Dmitri" n (d @ m ii1 t r ii) )
+( "Dietrich" n (d ii1 t r i k) )
+( "Croats" n (k r o1 a t s) )
+( "Cione" n (s i ou1 n ii) )
+( "Cher" n (sh e1 r) )
+( "Chavira" n (sh a v ii1 r @) )
+( "Camelot" n (k a1 m @ l o t) )
+( "Beethoven" n (b ei1 t h ou v @ n) )
+( "Awadi" n (@ w a1 d ii) )
+( "Avianca" n (a v i a1 n k @) )
+( "Andean" n ( a1 n d i @ n) )
+( "Alberto" n (a l b @@1 t ou) )
+( "Aaron" n (ei1 r @ n) )
+( "misdemeanor" n (m i s d @ m ii1 n @ r ) )
+( "mammograms" n (m a1 m @ g r a m z) )
+( "detente" n (d ei t o1 n t ) )
+( "Vladivostok" n (v l a d @ v o1 s t o k) )
+( "Turkmenistan" n (t @@ k m e1 n i s t a n) )
+( "Stalinism" n (s t a1 l @ n @ z m) )
+( "Seiji" n (s ei1 jh ii) )
+( "Prager" n (p r a1 g @ r) )
+( "Pinochet" n (p i1 n @ sh ei) )
+( "Phnom" n (p @ n o1 m) )
+( "Penh" n (p e1 n) )
+( "Mengistu" n (m e n g ii1 s t uu) )
+( "McManus" n (m @ k m a1 n @ s) )
+( "Marsalis" n (m a r s a1 l @ s) )
+( "Lou" n (l uu1) )
+( "Huang" n (w a1 ng) )
+( "Gwynne" n (g w i1 n) )
+( "Giroux" n (jh ii r ou1) )
+( "Feinstein" n (f ei1 n s t ai n) )
+( "Farabundo" n (f a r @ b uh1 n d ou) )
+( "Euphrates" n (y uu f r ei1 t ii z) )
+( "Dushanbe" n (d @ sh a1 n b @) )
+( "Dante" n (d aa1 n t ei) )
+( "Chen" n (ch e1 n) )
+( "Carr" n (k aa1) )
+( "Cadillac" n (k a1 d @ l a k) )
+( "Buenos" n (b w ei1 n @ s) )
+( "Branagh" n (b r a1 n @) )
+( "Bikkembergs" n (b i1 k @ m b @@ g s) )
+( "Andreas" n (a n d r ei1 @ s) )
+( "wacky" n (w a1 k ii) )
+( "stockpiled" n (s t o1 k p ai l d) )
+( "salsa" n (s a1 l t s a) )
+( "protege" n (p r o1 t @ jh ei) )
+( "newsmagazine" n (n y uu1 z m a1 g @ z ii n) )
+( "labored" n (l ei1 b @@ d) )
+( "deterrence" n (d @ t e@1 r @ n s) )
+( "anticommunist" n (a1 n t i k o1 m y uu n @ s t) )
+( "acknowledgment" n (@ k n o1 l i jh m @ n t) )
+( "Valerie" n (v a1 l @ r ii) )
+( "Sheppard" n (sh e1 p @ d) )
+( "Ryzhkov" n (r ai1 zh k o f) )
+( "Raphael" n (r a f ai1 l) )
+( "Quebecois" n (k w i1 b e k w aa) )
+( "Profumo" n (p r ou f y u1 m ou) )
+( "Mondale" n (m o1 n d ei l) )
+( "Minh" n (m i1 n) )
+( "Menachem" n ( m e n a1 k @ m) )
+( "Mecke" n (m e1 k) )
+( "McClure" n (m @ k l u@1) )
+( "Magubane" n (m a1 g u b a n ii) )
+( "Kupreyev" n (k @ p r ei1 e v) )
+( "Krikalev" n (k r i1 k @ l e v) )
+( "Khamenei" n (k @ m ei1 n ii) )
+( "Kgase" n (k @ g a1 s ii) )
+( "Kennan" n (k ii1 n @ n) )
+( "Juan" n (w aa1 n ) )
+( "Helena" n (h e l e1 n @) )
+( "Gomes" n (g ou1 m e z) )
+( "Genome" n (jh ii1 n ou m) )
+( "Foretich" n (f oo1 r t i k) )
+( "Evan" n (e1 v @ n) )
+( "Eagleburger" n (ii1 g @ l b @@ g @ r) )
+( "Dhabi" n (d aa1 b ii) )
+( "Darwin" n (d aa1 w i n) )
+( "Camille" n (k a m ii1 l) )
+( "Brzezinski" n (b r @ zh i1 n s k ii) )
+( "Boyz" n (b oi1 z) )
+( "Ayckbourn" n (ei1 k b oo n) )
+( "Ariel" n (ei1 r i e l) )
+( "Andres" n (a1 n d r e z) )
+( "yds" n (y aa1 d z) )
+( "sures" n (sh u@1 z) )
+( "subtext" n (s uh1 b t e k s t) )
+( "siecle" n (s i e1 k @ l ) )
+( "savoring" n (s ei1 v @ r i ng) )
+( "savior" n (s ei1 v i@ r) )
+( "resupply" n (r ii1 s @ p l ai) )
+( "paycheck" n (p ei1 ch e k) )
+( "ole" n (ou l ei1) )
+( "micromastia" n (m ai1 k r o m a1 s t i @) )
+( "farmland" n (f aa1 m l a n d) )
+( "ethicists" n (e1 th @ s i s t s) )
+( "brio" n (b r ii1 ou) )
+( "Wynton" n (w i1 n t @ n) )
+( "Woodrow" n (w u1 d r ou) )
+( "Webber" n (w e1 b @ r) )
+( "Uzbeks" n (u1 z b e k s) )
+( "Stateside" n (s t ei1 t s ai d) )
+( "Smiley" n (s m ai1 l ii) )
+( "Schreiber" n (sh r ei1 b @ r) )
+( "Ruhollah" n (r u h ou1 l @) )
+( "Rivera" n (r i b e1 r @) )
+( "Reingold" n (r ai1 n g ou l d) )
+( "Purvis" n (p @@1 v i s) )
+( "Prawer" n (p r oo1 @ r) )
+( "Pamyat" n (p a1 m y a t) )
+( "Orion" n (ou r ai1 @ n) )
+( "Opel" n (ou1 p @ l) )
+( "Oates" n (ou1 t s) )
+( "Nina" n (n ii1 n @) )
+( "Naisbitt" n (n ei1 z b i t) )
+( "NEC" n (e1 n ii1 s ii1) )
+( "McElroy" n (m a1 k @ l r oi) )
+( "McCrae" n (m @ k r ei1) )
+( "Maura" n (m au1 r @) )
+( "Maida" n (m ai1 d @) )
+( "Lopez" n (l ou1 p e z) )
+( "Leonardo" n (l ii o n aa1 d ou) )
+( "Kunst" n (k uu1 n s t) )
+( "Kouchner" n (k au ch n @ r) )
+( "Kiichi" n (k ii ii1 ch ii) )
+( "Kagan" n (k ei1 g @ n) )
+( "Joaquin" n (jh ou a1 k @ n ) )
+( "Jaruzelski" n (y a r @ z e1 l s k ii) )
+( "Imelda" n (i m e1 l d @) )
+( "Howards" n (h au1 @ d z) )
+( "Heisler" n (h ai1 s l @ r) )
+( "Guth" n (g u1 th) )
+( "Gearheart" n (g i@1 h aa t) )
+( "Fukuyama" n (f uu1 k u y a1 m @) )
+( "Foucault" n (f ou1 k @ l t) )
+( "Farrar" n (f a1 r @ r) )
+( "Exocet" n (e1 k s @ s e t) )
+( "Etzioni" n (e t z i ou1 n ii) )
+( "Entartete" n (e1 n t aa t e t) )
+( "Connery" n (k o1 n @ r ii) )
+( "Chavez" n (sh a1 v @ z) )
+( "Callahan" n (k a1 l @ h a n) )
+( "CPOP" n (s ii1 p o p) )
+( "Bundestag" n (b u1 n d @ s t a g) )
+( "Boyett" n (b oi e1 t) )
+( "Bianco" n (b i a1 n k ou) )
+( "Axel" n (a1 k s @ l) )
+( "Amherst" n (a1 m h @@ s t) )
+( "Alfonsin" n (a l f o1 n s @ n) )
+( "unsavory" n (uh n s ei1 v r ii) )
+( "surefire" n (sh u@1 f ai @) )
+( "polygraph" n (p o1 l i g r a f) )
+( "nuanced" n (n y uu1 @ n s t) )
+( "nisei" n (n ii1 s ei) )
+( "mustache" n (m uh s t a1 sh ) )
+( "laboring" n (l ei1 b @ r i ng) )
+( "laborers" n (l ei1 b @ r @ z) )
+( "homegrown" n (h ou1 m g r ou n) )
+( "farfetched" n (f aa1 f e ch d) )
+( "diva" n (d ii1 v @) )
+( "characterizations" n (k a r @ k t @ r ai z ei1 sh @ n) )
+( "carcinogen" n (k aa1 s i jh @ n) )
+( "behemoth" n (b @ h ii1 m o th) )
+( "academe" n (a1 k @ d ii m) )
+
+;; More apearing in multiple articles
+
+( "Hussein" n (h @ s ei1 n) )
+( "perestroika" n (p e r @ s t r oi1 k @) )
+( "Tresniowski" n (t r e s n i au1 s k ii) )
+( "Monroe" n (m o n r ou1) )
+( "Khomeini" n (k o m ei1 n ii) )
+( "Lech" n (l e1 k) )
+( "Ryan" n (r ai1 @ n) )
+( "Fernando" n (f @@ n a1 n d ou) )
+( "Gaddafi" n (g @ d a1 f ii) )
+( "Muammar" n (m u a1 m @ r) )
+( "Melissa" n (m @ l i1 s @) )
+( "Cornell" n (k oo n e1 l) )
+( "Yevgeni" n (y e v g e1 n ii) )
+( "backup" n (b a1 k uh p) )
+( "Anatoli" n (a n @ t ou1 l ii) )
+( "Tadeusz" n (t a1 d y uu z) )
+( "Pablo" n (p a1 b l ou) )
+( "Alzheimer" n (a1 l t z ai m @ r) )
+( "Alzheimers" n (a1 l t z ai m @ r z) )
+( "Calvin" n (k a1 l v @ n) )
+( "Bernstein" n (b @@1 n s t ii n) )
+( "Ricardo" n (r i k aa1 d ou) )
+( "Rafsanjani" n (r a f s @ n jh aa1 n ii) )
+( "fatally" n (f ei1 t @ l ii) )
+( "cutoff" n (k uh1 t o v) )
+( "Alfredo" n (a l f r ei1 d ou) )
+( "Alain" n (a l a1 n) )
+( "Einstein" n (ai1 n s t ai n) )
+( "fi" n (f ii1) )
+( "Raul" n (r @ uu1 l) )
+( "Bethesda" n (b @ th e1 s d @) )
+( "Ungeheuer" n (uh n g @ h oo r) )
+( "Rudulph" n (r uu1 d @ l f) )
+( "Molotov" n (m o1 l @ t o v) )
+( "sci" n (s ai1) )
+( "culturally" n (k uh1 l ch @ r @ l ii) )
+( "Jaime" n (h ai1 m ii) )
+( "Chevy" n (sh e1 v ii) )
+( "Chamorro" n (ch @ m o1 r ou) )
+( "Auschwitz" n (au1 sh v i t s) )
+( "flavored" n (f l ei1 v @ d) )
+( "decor" n (d ei k oo1 r) )
+( "Olivier" n (@ l i1 v i ei1) )
+( "Leona" n (l ii ou1 n @) )
+( "spearheaded" n (s p i@1 h e d @ d ) )
+( "adamantly" n (a1 d @ m @ n y l ii) )
+( "Stallone" n (s t @ l ou1 n) )
+( "Ludtke" n (l uh1 d k @) )
+( "catalogs" n (k a1 t @ l o g z) )
+( "Strauss" n (s t r au1 s) )
+( "Schlesinger" n (sh l e1 s i ng @ r) )
+( "Rutgers" n (r uh1 t g @ z ) )
+( "Georgi" n (g i oo1 g ii) )
+( "Faulkner" n (f oo1 l k n @ r) )
+( "Bonfante" n (b o1 n f aa n t ii) )
+( "plowed" n (p l au1 d) )
+( "grownup" n (g r ou1 n uh p) )
+( "Zulu" n (z uu1 l uu) )
+( "Sri" n (sh r ii1) )
+( "Richter" n (r i1 k t @ r) )
+( "Oleg" n (ou1 l e g) )
+( "Michele" n (m i sh e1 l) )
+( "Marcel" n (m aa s e1 l) )
+( "Mapplethorpe" n (m ei1 p @ l th oo p) )
+( "Cafe" n (k a1 f ei1) )
+( "vocals" n (v ou1 k @ l z) )
+( "parenting" n (p ei1 r e n t i ng) )
+( "emigres" n (e1 m @ g r ei z) )
+( "communique" n (k o m y uu1 n i k ei1) )
+( "Sunni" n (s uh1 n ii) )
+( "Reno" n (r ii1 n ou) )
+( "Rajiv" n (r @ jh ii1 v) )
+( "Miguel" n (m i g w e1 l) )
+( "Malibu" n (m a1 l i b uu) )
+( "Inkatha" n (i n k aa1 t @) )
+( "HarperCollins" n (h aa1 p @ k oo1 l @ n z) )
+( "Ajemian" n (@ jh i1 m i @ n) )
+( "superstars" n (s uu1 p @ s t aa z) )
+( "rancor" n (r a1 n k oo r) )
+( "expansionism" n (e g s p a1 n sh @ n @ z m) )
+( "bookstore" n (b u1 k s t oo r) )
+( "anemic" n (@ n ii1 m i k) )
+( "Rehnquist" n (r e1 n k w i s t) )
+( "Rafael" n (r a f ai1 l) )
+( "Michaels" n ( m ai1 k @ l z) )
+( "Koppel" n (k o1 p @ l) )
+( "Crowe" n (k r ou1) )
+( "Cesar" n (s ii1 s @ r) )
+( "moviemakers" n (m uu1 v i m ei1 k @ r z) )
+( "moviegoer" n (m uu1 v i g ou @ r))
+( "emigre" n (e1 m i g r ei) )
+( "cafes" n (k a f ei1 z) )
+( "authored" n (oo1 th @@ d) )
+( "Potomac" n (p ou1 t @ m a k) )
+( "Javier" n (y ei1 v i ei1) )
+( "Eliot" n (e1 l i o t ) )
+( "Arsenio" n (aa s ii1 n i ou) )
+( "skewed" n (s k y uu1 d) )
+( "reinvent" n (r ii1 i n v e1 n t) )
+( "naivete" n (n ai ii1 v i t ii) )
+( "musings" n (m y uu1 z i ng z) )
+( "couture" n (k @ t y u@1) )
+( "adrenaline" n (@ d r e1 n @ l i n) )
+( "acerbic" n (@ s @@1 b i k) )
+( "Mahal" n (m @ h a1 l) )
+( "Lauren" n (l o1 r @ n) )
+( "Ehrenreich" n (e1 r @ n r i k) )
+( "Antonin" n (a1 n t @ n i n) )
+( "Anton" n (a1 n t o n) )
+( "splashy" n (s p l a1 sh ii) )
+( "preschool" n (p r ii1 s k u l) )
+( "forebears" n (f oo1 r b e@ z) )
+( "Rene" n (r e n ei1) )
+( "Katharine" n (k a1 th r i n) )
+( "Herzegovina" n (h @@ t s @ g @ v ii1 n @) )
+( "Gerhard" n (g e@1 h aa d) )
+( "Gerasimov" n (g @ r a1 s @ m o v) )
+( "existential" n (e g s i s t e1 n sh @ l) )
+( "befuddled" n (b @ f uh1 d @ l d) )
+( "Philippe" n (f ii l ii1 p) )
+( "PAC" n (p ii1 ei1 s ii1) )
+( "Marquez" n (m aa k e1 z) )
+( "Kennedys" n (k e1 n @ d @ z) )
+( "Jorge" n (y oo jh) )
+( "Gallagher" n (g a1 l @ h @ r) )
+( "FlorCruz" n (f l oo1 r - k r uu z) )
+( "Costello" n (k o s t e1 l ou1) )
+( "tenured" n (t e1 n y u@ d) )
+( "entrepreneurship" n (o1 n t r @ p r @ n y u@1 sh i p) )
+( "elites" n (i l ii1 t s) )
+( "Ziyang" n (z ii1 y a ng) )
+( "Zhao" n (zh au1) )
+( "Leninism" n (l e1 n @ n @ z m) )
+( "Lakers" n (l ei1 k @ z) )
+( "Kryuchkov" n (k r ai1 ch k o v) )
+( "Josef" n (y ou1 s i f) )
+( "Gulag" n (g uu1 l a g) )
+( "Crimea" n (k r ai m ii1 @) )
+( "Caltech" n (k a1 l t e k) )
+( "bombings" n (b o1 m i ng z) )
+( "Aires" n (ei1 r ii z) )
+( "vu" n (v uu1) )
+( "viral" n (v ai1 r @ l) )
+( "stressful" n (s t r e1 s f @ l) )
+( "reprise" n (r i p r ai1 z) )
+( "replicate" n (r e1 p l i k ei t) )
+( "omnipresent" n (o1 m n i p r e1 s @ n t) )
+( "nouveau" n (m uu v ou1 ) )
+( "moviemaking" n (m uu1 v i m ei1 k i ng) )
+( "hallway" n (h oo1 l w ei1) )
+( "fiance" n (f i o1 n s i1) )
+( "demographics" n (d e1 m @ g r a1 f i k z) )
+( "attache" n (@ t a sh ei1) )
+( "Toni" n (t ou1 n ii) )
+( "Shimon" n (sh i m o1 n) )
+( "Schmidt" n (sh m i1 t) )
+( "Revlon" n (r e1 v l o n) )
+( "Pont" n (p o1 n t) )
+( "Ozal" n (o z a1 l) )
+( "Hubble" n (h uh1 b @ l) )
+( "Hasan" n (h @ s a1 n) )
+( "Fuhrer" n (f y uu1 r @ r) )
+( "Aleksandr" n (a l e k z a1 n d @ r) )
+( "stanch" n (s t oo1 n ch) )
+( "premieres" n (p r e m i @@1 z) )
+( "plow" n (p l au1) )
+( "passe" n (p a s ei1) )
+( "northward" n (n oo1 th w @@ d) )
+( "favoritism" n (f ei1 v r @ t @ z m) )
+( "deja" n (d ei1 zh @) )
+( "caliber" n (k a1 l @ b @ r) )
+( "ballyhooed" n (b a l i h uu1 d) )
+( "anemia" n (@ n ii1 m i @) )
+( "Weimar" n (w ei1 m @ r) )
+( "Streisand" n (s t r ai1 s @ n d) )
+( "Shakespearean" n (sh ei1 k s p i@ r i @ n) )
+( "Seiichi" n (s ei1 ii ch ii) )
+( "Sarandon" n (s @ r a1 n d @ n) )
+( "Rahman" n (r aa1 m a n) )
+( "Manet" n (m a n ei1) )
+( "Lamar" n (l @ m aa) )
+( "Gup" n (g uh1 p) )
+( "Gazeta" n (g @ z e1 t @) )
+( "videocassettes" n (v i1 d i ou - k a s e1 t s) )
+( "prizewinner" n (p r ai1 z w i n @ r) )
+( "nationhood" n (n ei1 sh @ n h uu d) )
+( "labors" n (l ei1 b @ z) )
+( "hallways" n (h oo1 l w ei z) )
+( "genocidal" n (jh e1 n @ s ai1 d @ l) )
+( "fide" n (f ai1 d ii) )
+( "eponymous" n (e p o1 n @ m @ s) )
+( "Zbigniew" n (z @ b i1 g n i e v) )
+( "Tito" n (t ii1 t ou) )
+( "Schroeder" n (sh r ou1 d @ r) )
+( "Romeo" n (r ou1 m i ou) )
+( "Roemer" n (r ou1 m @ r) )
+( "Mussolini" n (m u1 s i l ii1 n ii) )
+( "Lai" n (l ai1) )
+( "Karim" n (k a r ii1 m) )
+( "Indochina" n (i1 n d @ ch ai1 n @) )
+( "Francesco" n (f r a n ch e1 s k ou) )
+( "Emilio" n (e m ii1 l i ou) )
+( "Ellington" n (e1 l i ng t @ n) )
+( "Eisner" n (ai1 s n @ r) )
+( "Chopin" n (sh ou1 p a n) )
+( "Bowie" n (b au1 ii) )
+( "yd" n (y aa1 d) )
+( "suburbanites" n (s @ b @@1 b @ n ai1 t z ) )
+( "rehab" n (r ii1 h a b) )
+( "passersby" n (p a1 s @ s b ai) )
+( "officeholders" n (o1 f i s h ou l d @ z) )
+( "nomenklatura" n (n o m e1 n k l @ t y uu1 r @) )
+( "noir" n (n w aa1 r) )
+( "mater" n (m ei1 t @ r) )
+( "expansionist" n (i g s p a1 n sh @ n @ s t) )
+( "epochal" n (e p o1 k @ l) )
+( "entree" n (o1 n t r ei) )
+( "denouement" n (d @ n oi1 m e n t) )
+( "cutthroat" n (k uh1 t th r ou t) )
+( "Versailles" n (v @@ s ai1) )
+( "Valeri" n (v a1 l @ r ii) )
+( "Su" n (s uu1) )
+( "Sharif" n (sh @ r ii1 f) )
+( "Saavedra" n (s aa1 v e d r @) )
+( "Raleigh" n (r a1 l ei) )
+( "Ochoa" n (o ch o1 @) )
+( "Marianne" n (m a r i a1 n) )
+( "Lucille" n (l uu s ii1 l) )
+( "Lindbergh" n (l i1 n d b @@ g) )
+( "Hermes" n (h @@1 m ii z) )
+( "Goethe" n (g ou1 th @) )
+( "Danielle" n (d a n i e1 l) )
+( "Constantine" n (k o1 n s t @ n t ii n) )
+( "Capone" n (k @ p ou1 n) )
+( "Buffett" n (b uu f ei1) )
+( "Brigham" n (b r i1 g @ m) )
+( "Archie" n (aa1 ch ii) )
+( "Amos" n (ei1 m @ s) )
+( "Afro" n (a1 f r ou) )
+( "unrivaled" n (uh n r ai1 v @ l d) )
+( "triage" n (t r ii a1 zh) )
+( "theatergoers" n (th i@1 t @ g ou @ r z) )
+( "submachine" n (s uh1 b m @ sh ii1 n) )
+( "stereotypical" n (s t e1 r i@ t i1 p @ k @ l) )
+( "skeletal" n (s k e1 l @ t @ l) )
+( "sidekick" n (s ai1 d k i k) )
+( "savored" n (s ei1 v @ d) )
+( "sadomasochistic" n (s ei1 d ou m a1 s @ k i1 s t i k) )
+( "ress" n (r e1 s) )
+( "predawn" n (p r ii1 d oo n) )
+( "postmodern" n (p ou1 s t m o d @ n) )
+( "postcommunist" n (p ou1 s t k o1 m uu n @ s t) )
+( "outmaneuvered" n (au1 t m a n uu1 v @@ d) )
+( "multicolored" n (m uh1 l t i k uh l @ d) )
+( "maneuvered" n (m a n uu1 v @@ d) )
+( "liter" n (l ii1 t @ r) )
+( "laborer" n (l ei1 b @ r @ r) )
+( "falloff" n (f oo1 l o v) )
+( "facades" n (f @ s a1 d z) )
+( "destabilize" n (d ii s t ei1 b @ l ai z) )
+( "coincidentally" n (k ou1 i n s @ d e1 n t @ l ii) )
+( "carcinogens" n (k aa1 s i jh @ n z) )
+( "antinuclear" n (a1 n t i n y uu1 k l i@ r) )
+( "aerobic" n (ei r ou1 b i k ) )
+( "Yusuf" n (y uu1 s @ f) )
+( "Willem" n (w i1 l e m) )
+( "Ventura" n (v e n ch y uu1 r @) )
+( "Saharan" n (s @ h a1 r @ n) )
+( "Rutherford" n (r uh1 th @ f oo d) )
+( "Psycho" n (s ai1 k ou) )
+( "Miserables" n (m ii z @ r aa1 b l @) )
+( "Mimi" n (m ii1 m ii) )
+( "Milos" n (m ai1 l ou s) )
+( "Magellan" n (m a g e1 l @ n) )
+( "Kosovo" n (k @ s ou1 v ou) )
+( "Komsomolskaya" n (k o1 m s @ m o1 l s k ai @) )
+( "Julio" n (jh uu1 l i ou) )
+( "Jozef" n (y ou1 z e f) )
+( "Gucci" n (g uu1 ch ii) )
+( "Gonzalo" n (g o n z a1 l ou) )
+( "Gillespie" n (g i l e1 s p ii) )
+( "Ghaith" n (g ei1 th) )
+( "Gacha" n (g a1 ch @) )
+( "Fairbanks" n (f e@1 t b a n k s) )
+( "Duvalier" n (d u v a1 l i ei) )
+( "Dont" n (d ou1 n t) )
+( "Danube" n (d a1 n y uu b) )
+( "Cong" n (k o1 ng) )
+( "Cajun" n (k ei1 jh @ n) )
+( "Angelenos" n (a1 n jh i l ii1 n ou s) )
+( "Abel" n (ei1 b @ l) )
+( "Allis" n (a1 l @ s) )
+( "zeitgeist" n (z ai1 t g ai s t) )
+( "superhero" n (s uu1 p @ h ii1 r ou) )
+( "racetrack" n (r ei1 s - t r a k) )
+( "materiel" n (m a t ii1 r i e l) )
+( "jazzman" n (jh a1 z m a n) )
+( "greats" n (g r ei1 t s) )
+( "faux" n (f ou1) )
+( "emphysema" n (e1 m f @ s ii1 m @) )
+( "divisiveness" n (d @ v ai1 s i f n @ s) )
+( "bicoastal" n (b ai1 k ou1 s t @ l) )
+( "apolitical" n (ei1 p @ l i1 t @ k @ l) )
+( "Shepard" n (sh e1 p @ d) )
+( "Romero" n (r ou m e1 r ou) )
+( "Pacino" n (p @ ch ii1 n ou) )
+( "Montenegro" n (m o n t @ n ii1 g r ou) )
+( "Lourdes" n (l uu1 r @ d z) )
+( "Kai" n (k ai1) )
+( "Jamil" n (jh a m ii1 l ) )
+( "Horatio" n (h @ r ei1 sh i ou) )
+( "Elias" n (e1 l i @ s) )
+( "Dumas" n (d uu1 m a s) )
+( "Delors" n (d @ l oo1 r z) )
+( "Chang" n (ch a1 ng) )
+( "Andropov" n (a n d r o1 p o v ) )
+( "Alvarez" n (a l v a1 r e z) )
+( "whammy" n (w a1 m ii) )
+( "wannabes" n (w o1 n @ b ii z) )
+( "underage" n (uh1 n d @ r ei1 jh) )
+( "uncaring" n (uh n k ei1 r i ng) )
+( "sidelined" n (s ai1 d l ai n d) )
+( "saber" n (s ei1 b @ r) )
+( "redraw" n (r ii1 d r oo) )
+( "recyclable" n (r ii s ai1 k l @ b @ l) )
+( "phenom" n (f ii1 n ou m) )
+( "paternalistic" n (p a t @@1 n @ l i s t i k) )
+( "overleveraged" n (ou1 v @ l e1 v @ r ei jh d) )
+( "nouvelle" n (n uu v e1 l) )
+( "microchip" n (m ai1 k r ou ch i p) )
+( "lifesaving" n (l ai1 f s ei1 v i ng) )
+( "hormonal" n (h oo r m ou1 n @ l) )
+( "homophobic" n (h ou1 m @ f ou1 b i k) )
+( "gravitational" n (g r a v @ t ei1 sh @ n @ l) )
+( "faxes" n (f a1 k s @ s) )
+( "energize" n (e1 n @ jh ai z) )
+( "counterrevolution" n (k au1 n t @ r e1 v @ l uu1 sh @ n) )
+( "burgers" n (b @@1 g @ z) )
+( "bimonthly" n (b ai1 m uh1 n th l ii) )
+( "Zulus" n (z uu1 l uu z) )
+( "Zimmerman" n (z i1 m @ m @ n) )
+( "Zia" n (z ii1 @) )
+( "Vincennes" n (v a1 n s e n) )
+( "Tri" n (t r ai1) )
+( "Tigris" n (t ai1 g r i s) )
+( "Schumer" n (sh u1 m @ r) )
+( "Prokofiev" n (p r ou k o1 f i e v) )
+( "Minnelli" n (m i n e1 l ii) )
+( "McMurtry" n (m @ k m @@1 t ii) )
+( "Macbeth" n (m a k b e1 th) )
+( "Loren" n (l oo1 r @ n) )
+( "Levi" n (l ii1 v ai) )
+( "Kumiko" n (k uu1 m i k ou) )
+( "Jovanovich" n (jh ou v a1 n @ v i ch) )
+( "Jamieson" n (jh ei1 m @ s @ n) )
+( "Guthrie" n (g uh1 th r ii) )
+( "Frankenstein" n (f r a1 n k @ n s t ai n) )
+( "Farrakhan" n (f a1 r @ k aa n) )
+( "Dubai" n (d uu b ai1) )
+( "Dreyfuss" n (d r ei1 f @ s) )
+( "Croatians" n (k r ou ei1 sh @ n z) )
+( "Cezanne" n (s e z a1 n) )
+( "Basinger" n (b a1 s i n jh @ r) )
+( "Bankshares" n (b a1 n k sh e@ z) )
+( "Antoine" n (a1 n t w o n) )
+( "Achille" n (a k i1 l ii) )
+( "trucking" n (t r uh1 k i ng) )
+( "storefronts" n (s t oo1 r f r uh n t s) )
+( "socioeconomic" n (s ou1 sh i o e1 k @ n o1 m i k) )
+( "rivaled" n (r ai1 v @ l d) )
+( "reusable" n (r ii y uu1 z @ b @ l) )
+( "pizazz" n (p i z a1 z) )
+( "overreaction" n (ou1 v @ r ii a1 k sh @ n) )
+( "osteoporosis" n (o1 s t i o p o r ou1 s @ s) )
+( "limo" n (l i1 m ou) )
+( "interagency" n (i1 n t @ ei1 jh e n s ii) )
+( "imperatives" n (i m p e1 r @ t i v z) )
+( "humorless" n (h y uu1 m @ l @ s) )
+( "flatbed" n (f l a1 t b e d) )
+( "extraterrestrial" n (e1 k s t r @ t @ r e1 s t r i @ l) )
+( "colorless" n (k uh1 l @ r l @ s) )
+( "coed" n (k ou e1 d) )
+( "chauffeured" n (sh ou f @@1 d) )
+( "bluesy" n (b l uu1 z ii) )
+( "biomedical" n (b ai1 ou m e1 d i k @ l) )
+( "biochemist" n (b ai1 ou k e1 m @ s t ) )
+( "bebop" n (b ii1 b o p) )
+( "barroom" n (b aa1 r uu m) )
+( "accompli" n (@ k o1 m p l ei) )
+( "Vaughan" n (v oo1 n) )
+( "Ty" n (t ai1) )
+( "Szczesny" n (zh @ zh e1 s n ii) )

CosyVoice-ttsfrd/resource/festival/dicts/oald/oaldlex.scm

@@ -0,0 +1,347 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(defvar oaldlexdir (path-append lexdir "oald"))
+
+(require 'pos)
+
+(define (oald_lts_function word feats)
+  "(oald_lts_function word feats)
+Function called when word is not found in lexicon.  Uses
+LTS rules trained from the original lexicon, and lexical stress
+prediction rules."
+  (require 'lts)
+  (if (not (boundp 'oald_lts_rules))
+      (load (path-append oaldlexdir "oald_lts_rules.scm")))
+  (let ((dcword (downcase word))
+	(syls) (phones))
+    (if (string-matches dcword "[a-z]*")
+	(begin
+	  (set! lts_pos feats)
+	  (set! phones (lts_predict dcword oald_lts_rules))
+	  (set! syls (lex.syllabify.phstress phones))
+	  )
+	(set! syls nil))
+    (list word nil syls)))
+
+(define (mrpa_addenda)
+"(mrpa_addenda)
+Add a whole host of various entries to the current lexicon with
+mrpa phones."
+;  (lex.add.entry 
+;   '("a's" dt (((ei z) 1))))
+;  (lex.add.entry 
+;   '("e's" dt (((ii z) 1))))
+;  (lex.add.entry 
+;   '("i's" dt (((ai z) 1))))
+;  (lex.add.entry 
+;   '("o's" dt (((ou z) 1))))
+;  (lex.add.entry 
+;   '("u's" dt (((y uu z) 1))))
+;  (lex.add.entry 
+;   '("r's" dt (((aa z) 1))))
+  (lex.add.entry 
+   '("a" dt (((@) 0))))
+  (lex.add.entry 
+   '("a" n (((ei) 1))))
+  (lex.add.entry 
+   '("ac" n (((ei) 1) ((s ii) 1))))
+  (lex.add.entry
+   '("us" prp (((uh s) 0))))
+  (lex.add.entry
+   '("'s" pos (((@ z) 0))))
+  (lex.add.entry
+   '("'s" n (((@ z) 0))))
+  (lex.add.entry 
+   '("the" dt (((dh @) 0))))
+  (lex.add.entry
+   '("taylor" n (((t ei) 1) ((l @) 0))))
+  (lex.add.entry
+   '("who" prp ((( h uu ) 0))))
+  (lex.add.entry 
+   '("algorithm" n (((a l) 1) ((g o) 0) ((r i th m) 0))))
+  (lex.add.entry 
+   '("algorithms" n (((a l) 1) ((g o) 0) ((r i th m z) 0))))
+  (lex.add.entry 
+   '("algorithmic" n (((a l) 2) ((g o) 0) ((r i th) 1) ((m i k) 0))))
+  (lex.add.entry 
+   '("alices" n (((a) 1) ((l i) 0) ((s i z) 0))))
+  (lex.add.entry 
+   '( "Angeles" n (((a n) 1) ((jh i) 0) ((l ii z) 0))))
+  (lex.add.entry 
+   '( "atr" n ((( ei ) 1) (( t ii ) 1) (( aa ) 1))))
+  (lex.add.entry 
+   '( "att" n ((( ei ) 1) (( t ii ) 1) (( a n d ) 0) (( t ii ) 1))))
+  (lex.add.entry 
+   '( "awb" n ((( ei ) 1) ((d uh b) 1) ((l y uu) 0) ((b ii) 1))))
+  (lex.add.entry
+   '("color" n (((k uh) 1) ((l @) 0))))
+  (lex.add.entry
+   '("colors" n (((k uh) 1) ((l @ z) 0))))
+  (lex.add.entry
+   '("colored" j (((k uh) 1) ((l @ d) 0))))
+  (lex.add.entry
+   '("coloring" j (((k uh) 1) ((l @) 0) ((r i ng ) 0))))
+  (lex.add.entry
+   '("cdrom" n (((s ii) 1) ((d ii) 1) ((r o m) 1))))
+  (lex.add.entry
+   '("cdroms" n (((s ii) 1) ((d ii) 1) ((r o m z) 1))))
+  (lex.add.entry 
+   '("cepstra" n (((k e p) 1) ((s t r @) 0))))
+  (lex.add.entry 
+   '("cepstral" n (((k e p) 1) ((s t r @ l) 0))))
+  (lex.add.entry 
+   '("cepstrum" n (((k e p) 1) ((s t r @ m) 0))))
+  (lex.add.entry 
+   '("co" nil (((k ou) 1))))
+  (lex.add.entry 
+   '( "cstr" n ((( s ii ) 1) (( e s ) 1) (( t ii ) 1) (( aa ) 1)) ))
+  (lex.add.entry 
+   '( "cogsci" n ((( k o g ) 1) (( s ai) 1))))
+  (lex.add.entry
+   '("database" n (((d ei) 1) ((t @) 0) ((b ei s) 1))))
+  (lex.add.entry
+   '("databases" n (((d ei) 1) ((t @) 0) ((b ei) 1) ((s i z) 0))))
+  (lex.add.entry
+   '("diphone" n (((d ai) 1) ((f ou n) 0))))
+  (lex.add.entry
+   '("diphones" n (((d ai) 1) ((f ou n s) 0))))
+  (lex.add.entry 
+   '( "edinburgh" n ((( e ) 1) ((d i n ) 0) ((b r @) 0))))
+  (lex.add.entry 
+   '( "email" n ((( ii ) 1) (( m ei l) 0))))
+  (lex.add.entry 
+   '( "emailed" n ((( ii ) 1) (( m ei l d) 0))))
+  (lex.add.entry 
+   '( "emacs" n ((( ii ) 1) (( m a k s) 0))))
+  (lex.add.entry 
+   '( "favorite" j (((f ei) 1) ((v @) 0) ((r i t) 0))))
+  (lex.add.entry 
+   '( "favor" n (((f ei) 1) ((v @) 0))))
+  (lex.add.entry 
+   '( "favors" n (((f ei) 1) ((v @ z) 0))))
+  (lex.add.entry 
+   '( "favoring" n (((f ei) 1) ((v @) 0) ((r i ng) 0))))
+  (lex.add.entry 
+   '( "favored" n (((f ei) 1) ((v @ d) 0))))
+  (lex.add.entry 
+   '("globally" a (((g l ou) 1) ((b @) 0) ((l ii) 0))))
+  (lex.add.entry 
+   '("gorbachev" m (((g oo) 1) ((b @) 0) ((ch e v) 0))))
+  (lex.add.entry
+   '("grave" n (((g r ei v) 1))))
+  (lex.add.entry
+   '("graves" j (((g r ei v z) 1))))
+  (lex.add.entry
+   '("greece" n (((g r ii s) 1))))
+  (lex.add.entry 
+   '("hong" j (((h o ng) 1))))
+  (lex.add.entry 
+   '("hz" n (((h @@ t z) 1))))
+  (lex.add.entry 
+   '("lead" led (((l e d) 1))))
+  (lex.add.entry 
+   '("lead" liid (((l ii d) 1))))
+  (lex.add.entry 
+   '("innovative" j (((i) 2) ((n @) 0) ((v ei) 1) ((t i v) 0))))
+  (lex.add.entry 
+   '("job" n (((jh o b) 1))))
+  (lex.add.entry
+   '("jobs" n (((jh o b z) 1))))
+  (lex.add.entry 
+   '( "Jr" n (((jh uu) 1) ((n i@) 0))))
+  (lex.add.entry 
+   '("kong" n (((k o ng) 1))))
+  (lex.add.entry 
+   '("khz" n (((k i) 1) ((l ou) 0) ((h @@ t z) 1))))
+  (lex.add.entry
+   '("labor" n (((l ei) 1) ((b @) 0))))
+  (lex.add.entry 
+   '( "Los" n ((( l o s) 1))))
+  (lex.add.entry 
+   '("lower" v (((l ou) 1) ((@) 0))))
+  (lex.add.entry 
+   '("lowered" v (((l ou) 1) ((@ d) 0))))
+  (lex.add.entry 
+   '("lowering" v (((l ou) 1) ((@) 0) ((r i ng ) 0))))
+  (lex.add.entry 
+   '( "mbrola" n (((e m) 0) ((b r ou) 1) ((l @ ) 0))))
+  (lex.add.entry 
+   '("mhz" n (((m e) 1) ((g @) 0) ((h @@ t z) 1))))
+  (lex.add.entry 
+   '("minute" n (((m i) 1) ((n i t) 0))))
+  (lex.add.entry 
+   '("ms" n (((e m) 1) ((e s) 1))))
+  (lex.add.entry 
+   '("no" dt (((n ou) 1))))
+  (lex.add.entry 
+   '("pault" n ((( p oo l) 1) ((t ii) 1))))
+  (lex.add.entry 
+   '("put" v (((p u t) 1))))
+  (lex.add.entry 
+   '("putting" v (((p u) 1) ((t i ng) 0))))
+  (lex.add.entry 
+   '( "psola" n ((( p i ) 0) (( s ou  ) 1) (( l @ ) 0 ))))
+  (lex.add.entry 
+   '("read" red (((r e d) 1))))
+  (lex.add.entry 
+   '("read" riid (((r ii d) 1))))
+  (lex.add.entry 
+   '("reuter" n (((r oi) 1) ((t @@) 0))))
+  (lex.add.entry 
+   '("reuters" n (((r oi) 1) ((t @@ s) 0))))
+  (lex.add.entry
+   '("row" v (((r ou) 1))))
+  (lex.add.entry
+   '("row" n (((r ou) 1))))
+  (lex.add.entry 
+   '( "San" n (((s a n) 1))))
+  (lex.add.entry
+   '("second" n (((s e) 1) ((k @ n d) 0))))
+  (lex.add.entry
+   '("seconds" n (((s e) 1) ((k @ n d z) 0))))
+  (lex.add.entry
+   '("sixteenth" n (((s i k s) 2) ((t ii n th) 1))))
+  (lex.add.entry
+   '("sony" n (((s ou) 1) ((n ii) 1))))
+  (lex.add.entry
+   '("SSML" v (((e s) 1) ((e s) 1) ((e m) 1) ((e l) 0))))
+  (lex.add.entry 
+   '("sun" n (((s uh n) 1))))
+  (lex.add.entry
+   '("synthesise" v (((s i n) 1) ((th @) 0) ((s ai z) 0))))
+  (lex.add.entry
+   '("synthesised" v (((s i n) 1) ((th @) 0) ((s ai z d) 0))))
+  (lex.add.entry
+   '("synthesizer" n (((s i n) 1) ((th @) 0) ((s ai) 0) ((z @) 0))))
+  (lex.add.entry
+   '("synthesiser" n (((s i n) 1) ((th @) 0) ((s ai) 0) ((z @) 0))))
+  (lex.add.entry
+   '("synthesizers" n (((s i n) 1) ((th @) 0) ((s ai) 0) ((z @ z) 0))))
+  (lex.add.entry
+   '("synthesisers" n (((s i n) 1) ((th @) 0) ((s ai) 0) ((z @ z) 0))))
+  (lex.add.entry
+   '( "and" aend ((( a n d ) 1))))
+  (lex.add.entry
+   '( "and" ahnd ((( @ n d ) 0))))
+  (lex.add.entry
+   '( "to" to ((( t @ ) 0))))
+  (lex.add.entry
+   '( "to" tuu ((( t uu ) 1))))
+  (lex.add.entry
+   '("for" faor (((f oo) 1))))
+  (lex.add.entry
+   '("for" fer (((f @) 0))))
+  (lex.add.entry 
+   '( "tobi" n ((( t ou ) 1) (( b ii ) 0))))
+  (lex.add.entry 
+   '("todays" n (((t @) 0) ((d ei z) 1))))
+  (lex.add.entry 
+   '( "tts" n ((( t ii ) 1) (( t ii ) 1) (( e s ) 1))))
+  (lex.add.entry 
+   '( "ulaw" n ((( m y uu ) 1) (( l oo ) 0))))
+  (lex.add.entry 
+   '( "uk" n ((( y uu ) 1) (( k ei ) 1))))
+  (lex.add.entry
+   '("waveform" n  (((w ei v) 1) ((f oo m) 0))))
+  (lex.add.entry
+   '("winds" n (((w i n d z) 1)) ))
+  (lex.add.entry
+   '("wind" v (((w ai n d) 1)) ))
+  (lex.add.entry 
+   '("within" a (((w i) 0) ((dh i n) 1))))
+  (lex.add.entry 
+   '("*" n (((a s) 1) ((t @) 0) ((r i s k) 0))))
+  (lex.add.entry 
+   '("%" n (((p @) 0) ((s e n t) 1))))
+  (lex.add.entry 
+   '("&" n (((a n d) 1)))) ; Original:  (((a m p) 1) ((@@ s) 0) ((a n d) 0)))
+  (lex.add.entry 
+   '("$" n (((d o) 1) ((l @) 0))))
+  (lex.add.entry 
+   '("#" n (((h a sh) 1))))
+  (lex.add.entry 
+   '("@" n (((a t) 1))))
+  (lex.add.entry 
+   '("+" n (((p l uh s) 0))))
+  (lex.add.entry 
+   '("^" n (((k a) 1) ((r e t) 0))))
+  (lex.add.entry 
+   '("~" n (((t i l) 1) ((d @) 0))))
+  (lex.add.entry 
+   '("=" n (((ii) 1) ((k w @ l) 0))))
+  (lex.add.entry
+   '("/" n (((s l a sh) 1))))
+  (lex.add.entry 
+   '("\\" n (((b a k) 1) ((s l a sh) 1))))
+  (lex.add.entry 
+   '("_" n (((uh n) 1) ((d @) 0) ((s k oo) 1))))
+  (lex.add.entry 
+   '("|" n (((v @@) 1) ((t i) 0) ((k @ l) 0) ((b aa) 1))))
+  (lex.add.entry 
+   '(">" n ((( g r ei ) 1) ((t @@) 0) ((dh a n) 1))))
+  (lex.add.entry 
+   '("<" n ((( l e s) 1) ((dh a n) 1))))
+  (lex.add.entry 
+   '("[" n ((( l e f t) 1) ((b r a) 1) ((k i t) 0))))
+  (lex.add.entry 
+   '("]" n ((( r ai t) 1) ((b r a) 1) ((k i t) 0))))
+  (lex.add.entry 
+   '(" " n (((s p ei s) 1))))
+  (lex.add.entry 
+   '("\t" n (((t a b) 1))))
+  (lex.add.entry 
+   '("\n" n (((n y uu) 1) ((l ai n) 1))))
+  (lex.add.entry '("." punc nil))
+  (lex.add.entry '("'" punc nil))
+  (lex.add.entry '(":" punc nil))
+  (lex.add.entry '(";" punc nil))
+  (lex.add.entry '("," punc nil))
+  (lex.add.entry '("-" punc nil))
+  (lex.add.entry '("\"" punc nil))
+  (lex.add.entry '("`" punc nil))
+  (lex.add.entry '("?" punc nil))
+  (lex.add.entry '("!" punc nil))
+  )
+
+(lex.create "oald")
+(lex.set.compile.file (path-append oaldlexdir "ali.oald.lex"))
+(lex.set.phoneset "mrpa")
+(lex.set.lts.method 'oald_lts_function)
+(lex.set.pos.map english_pos_map_wp39_to_wp20)
+(mrpa_addenda)
+
+
+(provide 'oaldlex)
+

CosyVoice-ttsfrd/resource/festival/etc/email_filter

@@ -0,0 +1,47 @@
+#!/bin/sh
+###########################################################################
+##                                                                       ##
+##                Centre for Speech Technology Research                  ##
+##                     University of Edinburgh, UK                       ##
+##                       Copyright (c) 1996,1997                         ##
+##                        All Rights Reserved.                           ##
+##                                                                       ##
+##  Permission is hereby granted, free of charge, to use and distribute  ##
+##  this software and its documentation without restriction, including   ##
+##  without limitation the rights to use, copy, modify, merge, publish,  ##
+##  distribute, sublicense, and/or sell copies of this work, and to      ##
+##  permit persons to whom this work is furnished to do so, subject to   ##
+##  the following conditions:                                            ##
+##   1. The code must retain the above copyright notice, this list of    ##
+##      conditions and the following disclaimer.                         ##
+##   2. Any modifications must be clearly marked as such.                ##
+##   3. Original authors' names are not deleted.                         ##
+##   4. The authors' names are not used to endorse or promote products   ##
+##      derived from this software without specific prior written        ##
+##      permission.                                                      ##
+##                                                                       ##
+##  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ##
+##  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ##
+##  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ##
+##  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ##
+##  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ##
+##  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ##
+##  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ##
+##  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ##
+##  THIS SOFTWARE.                                                       ##
+##                                                                       ##
+###########################################################################
+##                                                                       ##
+##  Email filter for tts text mode                                       ##
+##  usage: email_filter email_message >filtered_message                  ##
+##                                                                       ##
+##  Extracts the From and Subject lines form the head and the body of    ##
+##  of the message, I suppose it could also do signature extraction      ##
+##                                                                       ##
+###########################################################################
+grep "^From: " $1
+echo 
+grep "^Subject: " $1
+echo
+# delete up to first blank line (i.e. the header)
+sed '1,/^$/ d' $1 

CosyVoice-ttsfrd/resource/festival/multisyn/multisyn.scm

@@ -0,0 +1,195 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 2003, 2004                        ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Multisyn top level scheme code  (Korin Richmond and Rob Clark)
+;;;
+
+; Requires
+(require_module 'UniSyn)
+(require_module 'MultiSyn)
+(require 'multisyn_pauses)
+(require 'target_cost)
+
+;; use a global parameter to specify which UnitSelection voice
+;; to use to synthesise a given utterance for now, because the
+;; standard Festival synthesis mainline doesn't accept a voice
+;; parameter.  (This should be set to the current voice object)
+(defvar currentMultiSynVoice nil)
+(defvar relp t)
+(defvar flattenVoice nil)
+
+; extract utt list from a .data file
+(define (load_utt_list filename)
+"(load_utt_list filename)
+Loads a fextvox .data file and extracts an utterance list."
+(let (l entries)
+  (set! entries (load filename t))
+  (mapcar
+   (lambda (d)
+     (set! l (cons (car d) l))
+     t)
+   entries)
+l))
+
+;; SynthType definition, main entry point.
+
+(defSynthType MultiSyn
+  ;(print "Multisyn unit selection synthesis")
+  (defvar MultiSyn_module_hooks nil)
+  (Param.def "unisyn.window_name" "hanning")
+  (Param.def "unisyn.window_factor" 1.0)
+  ;; Unisyn requires these to be set.
+  (set! us_abs_offset 0.0)
+  (set! us_rel_offset 0.0)
+
+  (apply_hooks MultiSyn_module_hooks utt)  ;; 4processing of diphone names
+
+  ;; find appropriate unit sequence and put sythesis
+  ;; parameters in the Unit relation of the utterance structure
+  (voice.getUnits currentMultiSynVoice utt)
+  
+  ;(print "doing concat")
+  (us_unit_concat utt)
+
+  ;(print "doing raw concat")
+
+  (utt.relation.create utt 'SourceSegments)
+
+  (set! do_prosmod (du_voice.prosodic_modification currentMultiSynVoice))
+
+  (if do_prosmod
+      (begin
+	(if (not (member 'f0 (utt.relationnames utt)))
+	    (targets_to_f0 utt))
+	;; temporary fix
+	(if (utt.relation.last utt 'Segment)
+	    (set! pm_end (+ (item.feat (utt.relation.last utt 'Segment) "end") 0.02))
+	    (set! pm_end 0.02))
+	(us_f0_to_pitchmarks  utt 'f0 'TargetCoef pm_end)
+	(us_mapping utt 'segment_single))
+      (begin
+	(utt.copy_relation utt 'SourceCoef 'TargetCoef)
+	(us_mapping utt "linear")))
+
+
+  ;(print "generating wave")
+;; specify something else if you don't want lpc
+  (us_generate_wave utt 'lpc)
+)
+
+
+; target cost scheme code 
+(define (targetcost it1 it2)
+  (Default_Target_Cost it1 it2))
+
+; Evil function which writes the functions to actually load and switch new voices.
+(define (make_voice_definition name srate config_function backoff_rules data_dir config)
+  "(make_voice_definition NAME SRATE CONFIG_FUNCTION BACKOFF_RULES DATA_DIR CONFIG)
+Create the fuction definitions to load and unload a voice."
+  (let ((voice_name (string-append "voice_" name))
+	(free_name (string-append "free_voice_" name))
+	(pre_config_function (string-append config_function "_pre"))
+	(voice_variable (upcase (string-append "voice_" name))))
+
+    (eval (list 'defvar (intern voice_variable) nil))
+
+    (eval (list 'define (list (intern voice_name))
+		(list 'if (intern pre_config_function)
+		      (list (intern pre_config_function) (intern voice_variable)))
+		(list 'if (list 'null (intern voice_variable))
+		      (list 'set! (intern voice_variable)
+			    (list 'multisyn_load_voice_modules
+				  (list 'quote name)
+				  srate
+				  (list 'quote backoff_rules)
+				  data_dir
+				  (list 'quote config))))
+		(list (intern config_function) (intern voice_variable))
+		(list 'set! 'current-voice (list 'quote name))
+		(list 'define_current_voice_reset)
+		(list 'set! 'currentMultiSynVoice (intern voice_variable))
+		))
+
+    (eval (list 'define
+		(list (intern free_name))
+		(list 'cond 
+		      (list (list 'null (intern voice_variable))
+			    (list 'error "Voice not currently loaded!"))
+		      (list (list 'eq? 'currentMultiSynVoice (intern voice_variable))
+			    (list 'error "Can't free current voice!"))
+		      (list 't (list set! (intern voice_variable) 'nil))))))
+  nil)
+		      
+(define (multisyn_load_voice_modules name srate backoff_rules base_dir module_list)
+"(multisyn_add_module voice name srate backoff_rules base_dir module_list)
+Add voice modules to a voice."
+(let (voice)
+  (mapcar
+   (lambda (module_entry)
+     (let ((dirs     (car module_entry))
+	   (utt_list (load_utt_list (path-append base_dir 
+						 (cadr module_entry)))))
+       (if (null voice)
+	   (set! voice (make_du_voice utt_list dirs srate))
+	   (voice.addModule voice utt_list dirs srate))))
+   module_list)
+  (voice.setName voice name)
+  (if flattenVoice 
+      (du_voice.setTargetCost voice "flat")
+      (du_voice.setTargetCost voice t))
+  (du_voice.setJoinCost voice t)
+  (format stderr "Please wait: Initialising multisyn voice.\n")
+  (voice.init voice)
+  (format stderr " Voice loaded successfully!\n")
+  (du_voice.set_ob_pruning_beam voice 0.25)
+  (du_voice.set_pruning_beam voice 0.25)
+  (du_voice.setDiphoneBackoff voice backoff_rules)
+voice))
+
+
+
+
+(define (define_current_voice_reset)
+"(define_current_voice_reset)
+Re-define (current_voice_reset) correctly."
+  (eval (list 'define
+	      (list 'current_voice_reset)
+	      (list 'multisyn_reset_globals))))
+
+(define (multisyn_reset_globals)
+"(multisyn_reset_globals)
+Reset multisyn specific global variables."
+(Param.set 'unisyn.window_symmetric 1))
+
+
+(provide 'multisyn)

CosyVoice-ttsfrd/resource/festival/multisyn/multisyn_pauses.scm

@@ -0,0 +1,102 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 2003, 2004                        ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Multisyn Pause module (Rob Clark and Korin Richmond)
+;;;
+;;;
+
+(defvar BB_Pause "B_300")
+(defvar B_Pause "B_150")
+(defvar mB_Pause "B_150") ; shouldn't be used
+
+(define (MultiSyn_Pauses utt)
+  "(MultiSyn_Pauses UTT)
+Predict pause insertion in a Multisyn unit selection utterance structure."
+  (let ((words (utt.relation.items utt 'Word)) lastword tpname)
+    (if words
+        (begin
+          (insert_initial_pause utt)   ;; always have a start pause
+          (set! lastword (car (last words)))
+          (mapcar
+           (lambda (w)
+             (let ((pbreak (item.feat w "pbreak"))
+                   (emph (item.feat w "R:Token.parent.EMPH")))
+               (cond
+		((string-equal pbreak "BB")
+		 (unitselection_pause_insert w BB_Pause))
+		((string-equal pbreak "mB")
+		 (unitselection_pause_insert w mB_Pause))
+		((string-equal pbreak "B")
+		 (unitselection_pause_insert w B_Pause)))))
+	  words)
+	;; The embarassing bit.  Remove any words labelled as punc or fpunc
+	(mapcar
+	 (lambda (w)
+	   (let ((pos (item.feat w "pos")))
+	     (if (or (string-equal "punc" pos)
+		     (string-equal "fpunc" pos))
+		 (let ((pbreak (item.feat w "pbreak"))
+		       (wp (item.relation w 'Phrase)))
+		   (if (and (string-matches pbreak "BB?")
+			    (item.relation.prev w 'Word))
+		       (item.set_feat
+                          (item.relation.prev w 'Word) "pbreak" pbreak))
+		   (item.relation.remove w 'Word)
+		   ;; can't refer to w as we've just deleted it
+		   (item.relation.remove wp 'Phrase)))))
+           words)))
+    ;(utt.relation.print utt 'Word)
+    ;(utt.relation.print utt 'Segment)
+    utt))
+
+(define (unitselection_pause_insert word pause)
+  "(pause_insert word pause)
+  Insert segments needed for a pause."
+(let ((silence (car (cadr (car (PhoneSet.description '(silences))))))
+      (seg (item.relation (find_last_seg word) 'Segment))
+      pause_item)
+  ;(format stderr "  inserting pause after: %s.\n" (item.name seg))
+  ;(format stderr "  Inserting pause\n")
+; if next seg is not silence insert one.
+  (if (or (not (item.next seg))
+	  (not (string-equal (item.name (item.next seg)) silence)))
+      (item.insert seg (list silence) 'after))
+; insert pause after that if not the end.
+  (if (item.next (item.next seg))
+      (begin
+	(set! pause_item (item.insert (item.next seg) (list pause) 'after))
+;if next seg after that is not silence add one.
+	(if (not (string-equal (item.name (item.next pause_item)) silence))
+	    (item.insert pause_item (list silence) 'after))))))
+
+(provide 'multisyn_pauses)

CosyVoice-ttsfrd/resource/festival/multisyn/radio_phones_multisyn.scm

@@ -0,0 +1,136 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997,2003, 2004              ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  A definition of the radio phone set used in the BU RADIO FM
+;;;  corpus, some people call this the darpa set.  This one
+;;;  has the closures removed and pauses added for multisyn
+;;;
+
+(defPhoneSet
+  radio_multisyn
+  ;;;  Phone Features
+  (;; vowel or consonant
+   (vc + -)  
+   ;; vowel length: short long dipthong schwa
+   (vlng s l d a 0)
+   ;; vowel height: high mid low
+   (vheight 1 2 3 0)
+   ;; vowel frontness: front mid back
+   (vfront 1 2 3 0)
+   ;; lip rounding
+   (vrnd + - 0)
+   ;; consonant type: stop fricative affricate nasal lateral approximant
+   (ctype s f a n l r 0)
+   ;; place of articulation: labial alveolar palatal labio-dental
+   ;;                         dental velar glottal
+   (cplace l a p b d v g 0)
+   ;; consonant voicing
+   (cvox + - 0)
+   )
+  ;; Phone set members
+  (
+  ;; multisyn extras
+   (#  - 0 0 0 0 0 0 -)  ;; slience ... 
+   (B_10  - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_20 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_30 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_40 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_50 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_100 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_150 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_200 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_250 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_300 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_400 - 0 0 0 0 0 0 -)  ;; Pauses
+
+   ;; Note these features were set by awb so they are wrong !!!
+   (aa  +   l   3   3   -   0   0   0) ;; father
+   (ae  +   s   3   1   -   0   0   0) ;; fat
+   (ah  +   s   2   2   -   0   0   0) ;; but
+   (ao  +   l   3   3   +   0   0   0) ;; lawn
+   (aw  +   d   3   2   -   0   0   0) ;; how
+   (ax  +   a   2   2   -   0   0   0) ;; about
+   (axr +   a   2   2   -   r   a   +)
+   (ay  +   d   3   2   -   0   0   0) ;; hide
+   (b   -   0   0   0   0   s   l   +)
+   (ch  -   0   0   0   0   a   p   -)
+   (d   -   0   0   0   0   s   a   +)
+   (dh  -   0   0   0   0   f   d   +)
+   (dx  -   a   0   0   0   s   a   +) ;; ??
+   (eh  +   s   2   1   -   0   0   0) ;; get
+   (el  +   s   0   0   0   l   a   +)
+   (em  +   s   0   0   0   n   l   +)
+   (en  +   s   0   0   0   n   a   +)
+   (er  +   a   2   2   -   r   0   0) ;; always followed by r (er-r == axr)
+   (ey  +   d   2   1   -   0   0   0) ;; gate
+   (f   -   0   0   0   0   f   b   -)
+   (g   -   0   0   0   0   s   v   +)
+   (hh  -   0   0   0   0   f   g   -)
+   (hv  -   0   0   0   0   f   g   +)
+   (ih  +   s   1   1   -   0   0   0) ;; bit
+   (iy  +   l   1   1   -   0   0   0) ;; beet
+   (jh  -   0   0   0   0   a   p   +)
+   (k   -   0   0   0   0   s   v   -)
+   (l   -   0   0   0   0   l   a   +)
+   (m   -   0   0   0   0   n   l   +)
+   (n   -   0   0   0   0   n   a   +)
+   (nx  -   0   0   0   0   n   d   +) ;; ???
+   (ng  -   0   0   0   0   n   v   +)
+   (ow  +   d   2   3   +   0   0   0) ;; lone
+   (oy  +   d   2   3   +   0   0   0) ;; toy
+   (p   -   0   0   0   0   s   l   -)
+   (r   -   0   0   0   0   r   a   +)
+   (s   -   0   0   0   0   f   a   -)
+   (sh  -   0   0   0   0   f   p   -)
+   (t   -   0   0   0   0   s   a   -)
+   (th  -   0   0   0   0   f   d   -)
+   (uh  +   s   1   3   +   0   0   0) ;; full
+   (uw  +   l   1   3   +   0   0   0) ;; fool
+   (v   -   0   0   0   0   f   b   +)
+   (w   -   0   0   0   0   r   l   +)
+   (y   -   0   0   0   0   r   p   +)
+   (z   -   0   0   0   0   f   a   +)
+   (zh  -   0   0   0   0   f   p   +)
+   (pau -   0   0   0   0   0   0   -)
+   (h#  -   0   0   0   0   0   0   -)
+   (brth -   0   0   0   0   0   0   -)
+  )
+)
+
+(PhoneSet.silences '(# pau h# brth))
+
+(provide 'radio_phones_multisyn)
+
+
+  
+

CosyVoice-ttsfrd/resource/festival/multisyn/send_xwaves.scm

@@ -0,0 +1,318 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 2003, 2004                        ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; xwaves interface for festival for multisyn (Rob Clark)
+;;;
+;;; This is never loaded by defualt.
+;;; You'd need to change the paths here for this to currently work outside of CSTR.
+;;; If anyone else ends up using it let me know and I'll make it more robust.
+;;;
+
+;; Send commands to xwaves
+
+(defvar send_xwaves_command "/cstr/linux/entropic/esps531.linux/bin/send_xwaves")
+(defvar spectrogram_command "/cstr/linux/entropic/esps531.linux/bin/sgram")
+(defvar data_path "/projects/cougar/data/cstr/nina")
+
+(set! xw_object_count 0)
+(set! xw_active_list nil)
+
+;;
+;; Display a synthesised utterance
+;;
+(define (xwaves_display_utterance utt)
+"(xwaves_display_utterance utt)
+Display join and target information for an utterance."
+  (let ((units (utt.relation.items utt 'Unit))
+	(object (xw_name_object))
+	wavfile specfile segfile diphfile joinfile targfile sourcefile timefile)
+
+    (set! wavfile (xw_make_tmp_filename object))
+    (set! specfile (xw_make_tmp_filename object))
+    (set! segfile (xw_make_tmp_filename object))
+    (set! diphfile (xw_make_tmp_filename object))
+    (set! joinfile (xw_make_tmp_filename object))
+    (set! targfile (xw_make_tmp_filename object))
+    (set! sourcefile (xw_make_tmp_filename object))
+    (set! timefile (xw_make_tmp_filename object))
+    
+    ; display resulting waveform
+    (utt.save.wave utt wavfile 'riff)
+    (xwaves_show_general object wavfile 1500 200 10 10)
+    ; display resulting spectrogram
+    (xw_genspec wavfile specfile)
+    (xwaves_show_general object specfile 1500 400 10 260)
+    ; segments
+    (utt.save.unit_selection_segs utt segfile)
+    (xwaves_show_labels object segfile specfile)
+    ; Unit information
+    (utt.save.unit_selection_info utt diphfile joinfile targfile sourcefile timefile)
+    (xwaves_show_labels object timefile specfile)
+    (xwaves_show_labels object sourcefile specfile)
+    (xwaves_show_labels object targfile specfile)
+    (xwaves_show_labels object joinfile specfile)
+    (xwaves_show_labels object diphfile specfile)
+    ; mark files
+    (xw_register_active object (list wavfile specfile segfile diphfile joinfile sourcefile timefile))
+))
+
+;;
+;; Edit a diphone source
+;;
+
+(define (xwaves_edit_diphone utt id)
+  "(xwaves_edit_diphone utt id)
+Access the source diphone for label correction."
+(let ((diphone nil)
+      segfilename
+      wavefilename
+      (utt (Utterance Text nil))
+      segs
+      (seg nil)
+      (start 0) 
+      end)
+  
+  ;; find unit.
+  (mapcar
+   (lambda (unit)
+     (if (string-equal (format nil "_%s" id) (item.feat unit id))
+	 (set! diphone unit)))
+   (utt.relation.items utt 'Unit))
+  (if (null diphone)
+      (error (format nil "Diphone with id _%s not found in utterance.")))
+  (set! uttname (item.feat diphone "source_utt"))
+  (set! end (item.feat diphone "source_end"))
+
+  (set! segfilename  (format nil "%s/lab/%s.lab" data_path uttname))
+  (set! wavefilename (format nil "%s/wav/%s.wav" data_path uttname))
+  (utt.relation.load utt 'Segment segfilename)
+
+  (set! segs (utt.relation.items utt 'Segment))
+  (while (and segs 
+	      (not (equal? (item.feat (car segs) "end") end)))
+	 (set! segs (cdr segs)))
+  
+  if null seg ...
+
+    (if (item.prev diphone)
+      (set! start (item.feat seg "start"))
+      (set! start 0))
+
+
+))
+  
+  
+
+
+
+;;
+;; Interface with xwaves.
+;;
+
+
+(define (xwaves_show_general object file width height xpos ypos)
+"(xwaves_show_general object file width height xpos ypos)
+Display an wave or track file."
+  (xw_send (format nil "make name %s file %s width %d height %d loc_x %d loc_y %d" object file width height xpos ypos)))
+
+(define (xwaves_show_wave object file)
+"(xwaves_show_wave object file)
+Display a waveform."
+  (xwaves_show_general object file 1500 200 10 10))
+
+(define (xwaves_show_labels object file attachto)
+"(xwaves_show_labels object file attachto)
+Display a label file."
+  (xw_send (format nil "send make signal %s name %s file %s color 125" attachto object file))
+  (xw_send "send activate fields 1 2 3 4 5"))
+
+
+(define (xwaves_attach_xlabel)
+"(xwaves_attach_xlabel)
+Attach xlabel to xwaves."
+  (xw_send "attach function xlabel"))
+
+(define (xwaves_set_markers object left right)
+"(xwaves_set_markers object left right)
+Set the markers."
+  (xw_send (format nil "%s set l_marker_time %f" object left))
+  (xw_send (format nil "%s set r_marker_time %f" object right)))
+
+(define (xwaves_bracket_markers object file)
+"(xwaves_bracket_markers object file)
+Bracket markers."
+  (xw_send (format nil "%s bracket file %s " object file)))
+
+(define (xwaves_close_windows object)
+"(xwaves_close_windows object)
+Close currently open windows related to object or all if nil.."
+(cond
+ ((null object)
+  (xw_send "kill"))
+ (t 
+  (xw_send (format nil "kill name %s" object))))
+(xw_clear_active_list object))
+
+
+(define (xwaves_wait)
+"(xwaves_wait)
+Wait for xwaves continue signal."
+  (xw_send "pause"))
+
+
+;;
+;; Object naming
+;;
+(define (xw_name_object)
+"(xw_name_object)
+Generate a name for this object."
+(let (name)
+  (set! name (string-append "obj" xw_object_count))
+  (set! xw_object_count (+ xw_object_count 1))
+  name))
+
+;;
+;; Temp file lists
+;;
+
+(define (xw_clear_active_list object)
+"(xw_clear_active_list)
+Clear active list of specified object, or all if nil."
+(let (new_active_list)
+(mapcar
+ (lambda (objectlist)
+   (cond
+    ((or (null object)
+	 (string-equal object (car objectlist)))
+     (mapcar
+      (lambda (file)
+	(delete-file file))
+      (cadr objectlist)))
+    (t
+     (set! new_active_list (cons objectlist new_active_list)))))
+ xw_active_list)
+(set! xw_active_list new_active_list))
+nil)
+
+
+(define (xw_register_active object flist)
+  "(xw_register_active object flist)
+Adds  an object and its filenames to the active list."
+  (set! xw_active_list (cons (cons object (list flist)) xw_active_list))
+  nil)
+
+(define (xw_make_tmp_filename object)
+  "(xw_make_tmp_filename)
+make tmp file name which incorporates object name."
+(format nil "%s_%s" (make_tmp_filename) object))
+
+
+;;
+;; Low level xwaves stuff.
+;;
+
+(define (xw_genspec wavfile specfile)
+"(xw_genspec wavfile specfile)
+Generate a spectrogram file."
+  (system (format nil "%s -dHAMMING -o8 -E0.94 -S2 -w8 %s %s\n" spectrogram_command wavfile specfile)))
+
+(define (xw_send command)
+"(xw_send command)
+Send a command to xwaves."
+  (system (format nil "%s %s\n" send_xwaves_command command)))
+
+
+
+;;
+;; General Festival stuff.
+;;
+
+
+(define (utt.save.unit_selection_segs utt filename)
+"(utt.save.unit_selection_segs utt filename)
+  Save unit selection segments of UTT in a FILE in xlabel format."
+  (let ((fd (fopen filename "w")))
+    (format fd "#\n")
+    (mapcar
+     (lambda (info)
+       (format fd "%2.4f 100 %s\n" (car info) (car (cdr info))))
+     (utt.features utt 'Segment '(source_end name)))
+    (fclose fd)
+    utt))
+
+(define (utt.save.unit_selection_info utt diphfile joinfile targfile sourcefile timefile)
+"(utt.save.unit_selection_info utt diphfile joinfile targfile sourcefile timefile)
+  Save stuff in xlabel format."
+  (let ((fdd (fopen diphfile "w"))
+	(fdj (fopen joinfile "w"))
+	(fdt (fopen targfile "w"))
+	(fds (fopen sourcefile "w"))
+	(fdx (fopen timefile "w"))
+	real_join)
+    (format fdd "#\n")
+    (format fdj "#\n")
+    (format fdt "#\n")
+    (format fds "#\n")
+    (format fdx "#\n")
+    (mapcar
+     (lambda (unit)
+       (set! real_join "")
+       (if (item.next unit)
+	   (if (not (string-equal (item.feat unit 'source_utt)
+				  (item.feat (item.next unit) 'source_utt)))
+	       (set! real_join "*")))
+       (format fdd "%2.4f 100 %s %s\n" 
+	       (item.feat unit 'end)
+	       (item.feat unit 'name)
+	       real_join)
+       (format fdj "%2.4f 100 %s\n" 
+	       (item.feat unit 'end)
+	       (if (item.next unit)
+		   (item.feat (item.next unit) 'join_cost)
+		   0))
+       (format fdt "%2.4f 100 %s\n" 
+	       (item.feat unit 'end)
+	       (item.feat unit 'target_cost))
+       (format fds "%2.4f 100 %s\n" 
+	       (item.feat unit 'end)
+	       (item.feat unit 'source_utt))
+       (format fdx "%2.4f 100 %s\n" 
+	       (item.feat unit 'end)
+	       (item.feat unit 'source_end)))
+     (utt.relation.items utt 'Unit))
+    (fclose fdd)
+    (fclose fdj)
+    (fclose fdt)
+    (fclose fds)
+    (fclose fdx)
+    utt))

CosyVoice-ttsfrd/resource/festival/multisyn/target_cost.scm

@@ -0,0 +1,410 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 2003, 2004                        ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Multisyn scheme target cost (Rob Clark and Korin Richmond)
+;;;
+;;;
+
+(define (Default_Target_Cost targ cand)
+"(Default_Target_Cost targ cand)
+A Default Target Cost function."
+(let ((cost 0))
+  (mapcar
+   (lambda (row)
+     (set! cost (+ cost (tc_eval_row row targ cand))))
+   target_matrix)
+  (set! cost (/ cost target_matrix_weight))
+  cost))
+
+
+(define (tc_eval_row row targ cand)
+  "(tc_eval_row row targ cand)
+Evaluate a target matrix row."
+(let ((weight (car row))
+      (func (cadr row))
+      (result 0))
+  (set! result (* weight (eval (list func targ cand))))
+  result))
+
+;;
+;; Target cost Matrix
+;;  '(weight function)
+
+(define (get_matrix_weight m)
+  (let ((w 0))
+    (mapcar
+     (lambda (x)
+       (set! w (+ w (car x))))
+     m)
+    w))
+
+
+(set! test_matrix_max_weight 1)
+(set! test_matrix
+'(
+  (10 tc_stress )
+  (5 tc_syl_pos )
+  (5 tc_word_pos)
+  (6 tc_partofspeech)
+  (7 tc_phrase_pos) 
+  (4 tc_left_context)
+  (3 tc_right_context)
+  (25 tc_bad_f0) ;; set to equal 1/3 of total cost (so high because interaction with join) 
+;  (0 tc_segment_score) ;; was 4. turned off until utterances are built for this.
+  (10 tc_bad_duration) ;; was 6
+))
+
+(set! test_matrix_weight (* test_matrix_max_weight (get_matrix_weight test_matrix)))
+
+(set! target_matrix test_matrix)
+(set! target_matrix_weight test_matrix_weight)
+
+
+
+;;
+;; tc_stress
+;;
+;; Compares stress on any vowel which form part of the diphone. stress
+;; conditions must match for a zero target cost.
+;; 
+
+(define (tc_stress targ cand)
+"(tc_stress targ cand)
+Target Cost stressed. 0    - stress patterns match  [ compares: 0 unstressed vs. > 0 stressed ]
+                      1    - stress miss-match.
+"
+(let ((c 0)
+      cand_stress targ_stress)
+  ;(format t "my_is_vowel %l\n" (my_is_vowel targ))
+  ;(format t "phone_is_silence %l\n" (phone_is_silence (item.feat targ 'name)))
+  ;; For first segment
+  (if (and (not (phone_is_silence (item.feat targ 'name)))
+	   (my_is_vowel targ))
+      (begin 
+	(set! cand_stress (item.feat cand "R:SylStructure.parent.stress"))
+	(set! targ_stress (item.feat targ "R:SylStructure.parent.stress"))
+	(if (or (and (eq? cand_stress 0) (> targ_stress 0))
+		(and (eq? targ_stress 0) (> cand_stress 0)))
+	    (set! c 1))))
+  ;; For second segment
+  ;(format t "n.my_is_vowel %l\n" (my_is_vowel (item.next targ)))
+  ;(format t "n.phone_is_silence %l\n" (phone_is_silence (item.feat targ 'n.name)))
+  (if (and (not (phone_is_silence (item.feat targ 'n.name)))
+	   (my_is_vowel (item.next targ)))
+      (begin 
+	(set! cand_stress (item.feat cand "n.R:SylStructure.parent.stress"))
+	(set! targ_stress (item.feat targ "n.R:SylStructure.parent.stress"))
+	(if (or (and (eq? cand_stress 0) (> targ_stress 0))
+		(and (eq? targ_stress 0) (> cand_stress 0)))
+	    (set! c 1))))
+;  (format t "tc_stress: %l\n" c)
+c))
+
+
+;;
+;; tc_syl_position
+;;
+;; Find and compare diphone position in syllabic structure.
+;; Values are: inter - diphone crosses syllable boundary. 
+;;             initial - diphone is syllable initial.
+;;             medial - diphone is syllable medial
+;;             final  - diphone is syllable final
+;; returns 0 for a match 1 for a mismatch.
+;;
+(define (tc_syl_pos targ cand)
+"(tc_syl_pos targ cand)
+Score position in syllable."
+(let ((targ_pos "medial")
+      (cand_pos "medial")
+      (targ_syl (get_syl targ))
+      (targ_next_syl (get_syl (item.next targ)))
+      (cand_syl (get_syl cand))
+      (cand_next_syl (get_syl (item.next cand))))
+  ;; target 
+  (cond
+   ((not (equal? targ_syl targ_next_syl))
+    (set! targ_pos "inter"))
+   ((not (equal? targ_syl (get_syl (item.prev targ))))
+    (set! targ_pos "initial"))
+   ((not (equal? targ_next_syl (get_syl (item.next (item.next targ)))))
+    (set! targ_pos "final")))
+  ;; candidate
+  (cond
+   ((not (equal? cand_syl cand_next_syl))
+    (set! cand_pos "inter"))
+   ((not (equal? cand_syl (get_syl (item.prev cand))))
+    (set! cand_pos "initial"))
+   ((not (equal? cand_next_syl (get_syl (item.next (item.next cand)))))
+    (set! cand_pos "final")))
+;  (format t "targ_syl: %l   cand_syl %l\n" targ_pos cand_pos)
+   (if (equal? targ_pos cand_pos) 0 1)))
+
+;;
+;; tc_word_position
+;;
+;; Find and compare diphone position in word structure
+;; Values are: inter - diphone crosses word boundary. 
+;;             initial - diphone is word initial.
+;;             medial - diphone is word medial
+;;             final  - diphone is word final
+;; returns 0 for a match 1 for a mismatch.
+;;
+(define (tc_word_pos targ cand)
+"(tc_word_pos targ cand)
+Score position in word."
+(let ((targ_pos "medial")
+      (cand_pos "medial")
+      (targ_word (get_word targ))
+      (targ_next_word (get_word (item.next targ)))
+      (cand_word (get_word cand))
+      (cand_next_word (get_word (item.next cand))))
+  ;; target 
+  (cond
+   ((not (equal? targ_word targ_next_word))
+    (set! targ_pos "inter"))
+   ((not (equal? targ_word (get_word (item.prev targ))))
+    (set! targ_pos "initial"))
+   ((not (equal? targ_next_word (get_word (item.next (item.next targ)))))
+    (set! targ_pos "final")))
+  ;; candidate
+  (cond
+   ((not (equal? cand_word cand_next_word))
+    (set! cand_pos "inter"))
+   ((not (equal? cand_word (get_word (item.prev cand))))
+    (set! cand_pos "initial"))
+   ((not (equal? cand_next_word (get_word (item.next (item.next cand)))))
+    (set! cand_pos "final")))
+;  (format t "targ_word: %l   cand_word %l\n" targ_pos cand_pos)
+   (if (equal? targ_pos cand_pos) 0 1)))
+
+
+
+;;
+;; tc_phrase_position
+;;
+;; Position (of word) in phrase
+;; initial/medial/final
+;;
+;; 0 - match, 1 - mismatch
+;;
+(define (tc_phrase_pos targ cand)
+"(tc_phrase_pos targ cand)
+ Score position in phrase."
+(let ((targ_word (get_word targ))
+      (cand_word (get_word cand)))
+  (cond
+   ((and (null targ_word)
+	 (null cand_word))
+    0)
+   ((or (null targ_word)
+	(null cand_word))
+    1)
+   ((string-equal (item.feat targ_word 'pbreak)
+		  (item.feat cand_word 'pbreak))
+    0)
+   (t 1))))
+
+;;
+;; tc_partofspeech
+;;
+;; 
+;;
+(define (tc_partofspeech targ cand)
+"(tc_partofspeech targ cand)
+ Score part of speech."
+(let ((targ_word (get_word targ))
+      (cand_word (get_word cand))
+      targ_pos cand_pos)
+(if targ_word
+    (set! targ_pos (simple_pos (item.feat targ_word 'pos))))
+(if cand_word
+    (set! cand_pos (simple_pos (item.feat cand_word 'pos))))
+  ;(format t "targ_pos %l cand_pos %l\n" targ_pos cand_pos)
+  (if (equal? targ_pos cand_pos) 0 1)))
+
+(define (score_contexts targ_context cand_context)
+  "(score_contexts targ_context cand_context)
+If both context items are nil, then score is 0.
+If both context items are not nil, and are the same, then
+score is 0. Otherwise, score is 1."
+  (if (and targ_context cand_context)
+	(if (equal? (item.feat targ_context "name")
+		    (item.feat cand_context "name"))
+	    0
+	    1)
+      (if (and (equal? targ_context nil)
+	       (equal? cand_context nil))
+	  0
+	  1)))
+
+
+(define (tc_left_context targ cand)
+"(tc_left_context targ cand)
+Score left phonetic context."
+(let ((targ_context (item.prev targ))
+      (cand_context (item.prev cand)))
+  (score_contexts targ_context cand_context)))
+
+;;
+;; tc_right_context
+;;
+;;
+;;
+(define (tc_right_context targ cand)
+"(tc_right_context targ cand)
+Score right phonetic context."
+(let ((targ_context (item.next (item.next targ)))
+      (cand_context (item.next (item.next cand))))
+  (score_contexts targ_context cand_context)))
+
+
+;;
+;; tc_segment_score
+;;
+;; This currently thresholds based on looking at the distributions of the scores.
+;; A nice exp function may be better.
+(define (tc_segment_score targ cand)
+"tc_segment_score targ cand)
+A bad alignment score make a bad segment."
+(let ((score 0))
+  (if (not (phone_is_silence (item.feat cand "name")))
+      (set! score  (+ score (item.feat cand 'score))))
+  (if (not (phone_is_silence (item.feat (item.next cand) "name")))
+      (set! score  (+ score (item.feat (item.next cand) 'score))))
+  (cond
+   ((> score -4000)    ;2000 (x2) is 7.5% 
+    0)
+   ((> score -5000)    ;2500 (x2) is 5.0%
+    0.5)
+   (t 1))))
+   
+;;
+;; tc_bad_duration
+;;
+;; If the segment is marked as having a weird duration penalise it.
+;; We allow bad_dur to be set on the target so resynthesis works 
+;; and so you could ask for really long/short segments.
+;;
+(define (tc_bad_duration targ cand)
+  (if (equal? (item.feat targ "bad_dur")
+	      (item.feat cand "bad_dur"))
+      0
+      1))
+
+
+;;
+;; tc_bad_f0
+;;
+;; If the candidate is deemed to have an inappropriate f0, then penalise it.
+;; 
+;; Specifically, if the targ/cand segment type is expected to be voiced, then
+;; an f0 of zero is bad (results from poor pitch tracking).  In such a case,
+;; the join cost would then favour other units with f0 (since the euclidean
+;; distance between two zeros is very small ;)
+;; We want to avoid that.
+;;
+;; Presumeably, we also want to penalise cases where supposedly voiceless 
+;; candidates have an f0 != 0 (either a consequence of bad pitch tracking
+;; or bad labelling) but that's not done here yet...
+;;
+;; (the function itself has been implemented in C for convenience, and
+;; this stub is left here just for this note ;)
+
+(define (tc_bad_f0 targ cand)
+  (let ((score (temp_tc_bad_f0 targ cand))
+	(name (format nil "%s_%s" 
+		      (item.feat targ "name")
+		      (item.feat (item.next targ) "name"))))
+    (if (not (equal? score 0.0))
+	(format t "f0 score for %s is %f\n" name score))
+    score))
+
+;;
+;; Is a segment a vowel?  ( ph_is_a_vowel doesn't seem to work)
+;;
+(define (my_is_vowel seg)
+  (if seg
+      (if (equal? (item.feat seg 'ph_vc) "+")
+	  t
+	  nil)))
+
+
+
+;; get the syllable from sysstructure in normal utterance
+;;
+(define (get_syl seg)
+  (let (syl)
+    (if seg 
+	(set! syl (item.relation.parent seg 'SylStructure)))
+    syl))
+
+;; get the word from sylstructure in normal utterance
+;;
+(define (get_word seg)
+  (let ((syl (get_syl seg))
+	word)
+    (if syl
+	(set! word (item.parent syl)))
+    word))
+   
+
+;; simple pos
+;;
+(define (simple_pos pos)
+(let (spos)
+  (cond
+   ((member_string pos '(vbd vb vbn vbz vbp vbg))
+    (set! spos "v"))
+   ((member_string pos '(nn nnp nns nnps fw sym ls))
+    (set! spos "n"))
+   ((member_string pos '(dt gin prp cc of to cd md pos wdt wp wrb ex uh pdt))
+    (set! spos "func"))
+   ((member_string pos '(jj jjr jjs 1 2 rb rp rbr rbs))
+    (set! spos "other")))
+  spos))
+
+
+;; debugging
+
+(define (test_target_cost utt1 utt2)
+(let ((segs1 (utt.relation.items utt1 'Segment))
+      (segs2 (utt.relation.items utt2 'Segment))
+      (tc 0))
+  (while (and segs1 segs2)
+	 (set! tc (Default_Target_Cost (car segs1) (car segs2)))
+	 (format t "targ: %l cand: %l cost: %l\n" (item.name (car segs1)) (item.name (car segs2)) tc)
+	 (set! segs1 (cdr segs1))
+	 (set! segs2 (cdr segs2)))))
+
+
+(provide 'target_cost)

CosyVoice-ttsfrd/resource/festival/sable-mode.scm

@@ -0,0 +1,560 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;  Festival (1.3.X) support for SABLE 0.2 the SGML/XML based mark up    ;;
+;;;  language.                                                            ;;
+;;;                                                                       ;;
+;;;  This is XML version requiring Edinburgh's LTG's rxp XML parser as    ;;
+;;;  distributed with Festival                                            ;;
+;;;                                                                       ;;
+
+(require_module 'rxp)
+
+;;(set! auto-text-mode-alist
+;;      (cons
+;;       (cons "\\.sable$" 'sable)
+;;       auto-text-mode-alist))
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;                                                                       ;;
+ ;; Remember where to find these two XML entities.                        ;;
+ ;;                                                                       ;;
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(xml_register_id "-//SABLE//DTD SABLE speech mark up//EN"
+		(path-append libdir "Sable.v0_2.dtd")
+		)
+
+(xml_register_id "-//SABLE//ENTITIES Added Latin 1 for SABLE//EN"
+		 (path-append libdir  "sable-latin.ent")
+		 )
+
+;; (print (xml_registered_ids))
+
+(defvar SABLE_RXDOUBLE "-?\\(\\([0-9]+\\.[0-9]*\\)\\|\\([0-9]+\\)\\|\\(\\.[0-9]+\\)\\)\\([eE][---+]?[0-9]+\\)?")
+
+(defvar sable_pitch_base_map
+  '((highest 1.2)
+    (high 1.1)
+    (medium 1.0)
+    (default 1.0)
+    (low 0.9)
+    (lowest 0.8)))
+(defvar sable_pitch_med_map
+  '((highest 1.2)
+    (high 1.1)
+    (medium 1.0)
+    (default 1.0)
+    (low 0.9)
+    (lowest 0.8)))
+(defvar sable_pitch_range_map
+  '((largest 1.2)
+    (large 1.1)
+    (medium 1.0)
+    (default 1.0)
+    (small 0.9)
+    (smallest 0.8)))
+(defvar sable_rate_speed_map
+  '((fastest 1.5)
+    (fast 1.2)
+    (medium 1.0)
+    (default 1.0)
+    (slow 0.8)
+    (slowest 0.6)))
+(defvar sable_volume_level_map
+  '((loudest 2.0) 
+    (loud 1.5)
+    (default 1.0)
+    (medium 1.0)
+    (quiet 0.5)))
+
+(define (sable_init_globals)
+  (set! utts nil)
+  (set! sable_omitted_mode nil)
+  (set! sable_word_features_stack nil)
+  (set! sable_pitch_context nil)
+  (set! sable_vol_context nil)
+  (set! sable_vol_type 'no_change)
+  (set! sable_vol_factor 1.0)
+  (set! sable_current_language 'britishenglish)
+  (set! sable_unsupported_language nil)
+  (set! sable_language_stack nil)
+  (set! sable_current_speaker 'voice_kal_diphone)
+  (set! sable_speaker_stack nil)
+)
+
+(define (sable_token_to_words token name)
+  "(sable_token_to_words utt token name)
+SABLE mode token specific analysis."
+  (cond
+   ((or sable_omitted_mode sable_unsupported_language)
+    ;; don't say anything (whole utterance)
+    nil)
+   ((string-equal "1" (item.feat token "done_sable_sub"))
+    ;; to catch recursive calls this when splitting up sub expressions
+    (sable_previous_token_to_words token name))
+   ((and (not (string-equal "0" (item.feat token "sable_sub")))
+	 (string-equal "0" (item.feat token "p.sable_sub")))
+    (let (words (sub (item.feat token "sable_sub")))
+      (item.set_feat token "done_sable_sub" "1")
+      (set! words 
+	    (apply append
+		   (mapcar
+		    (lambda (w)
+		      (set! www (sable_previous_token_to_words token w))
+		      www)
+		    (read-from-string sub))))
+      (item.set_feat token "done_sable_sub" "0")
+      words))
+   ((string-equal "1" (item.feat token "sable_ignore"))
+    ;; don't say anything (individual word)
+    nil)
+   ((string-equal "1" (item.feat token "sable_ipa"))
+    ;; Each token is an IPA phone
+    (item.set_feat token "phonemes" (sable-map-ipa name))
+    (list name))
+   ((string-equal "1" (item.feat token "sable_literal"))
+    ;; Only deal with spell here
+    (let ((subwords) (subword))
+      (item.set_feat token "pos" token.letter_pos)
+      (mapcar
+       (lambda (letter)
+	 ;; might be symbols or digits
+	 (set! subword (sable_previous_token_to_words token letter))
+	 (if subwords
+	     (set! subwords (append subwords subword))
+	     (set! subwords subword)))
+       (symbolexplode name))
+      subwords))
+   ((not (string-equal "0" (item.feat token "token_pos")))
+    ;; bypass the prediction stage, if English
+    (if (member_string (Parameter.get 'Language)
+		       '(britishenglish americanenglish))
+	(builtin_english_token_to_words token name)
+	(sable_previous_token_to_words token name)))
+   ;; could be others here later
+   (t  
+    (sable_previous_token_to_words token name))))
+
+(defvar sable_elements
+'(
+  ("(SABLE" (ATTLIST UTT)
+    (eval (list sable_current_speaker))  ;; so we know what state we start in
+    (sable_setup_voice_params)
+    nil
+  )
+  (")SABLE" (ATTLIST UTT)
+    (xxml_synth UTT)  ;;  Synthesis the remaining tokens
+    nil
+  )
+  ;; Utterance break elements
+  ("(LANGUAGE" (ATTLIST UTT)
+   ;; Status: probably complete 
+   (xxml_synth UTT)
+   (set! sable_language_stack 
+	 (cons 
+	  (list sable_current_language sable_unsupported_language)
+	  sable_language_stack))
+   ;; Select a new language
+   (let ((language (upcase (car (xxml_attval "ID" ATTLIST)))))
+     (cond
+      ((or (string-equal language "SPANISH")
+	   (string-equal language "ES"))
+       (set! sable_current_language 'spanish)
+       (set! sable_unsupported_language nil)
+       (select_language 'spanish))
+      ((or (string-equal language "ENGLISH")
+	   (string-equal language "EN"))
+       (set! sable_current_language 'britishenglish)
+       (set! sable_unsupported_language nil)
+       (select_language 'britishenglish))
+      (t  ;; skip languages you don't know
+       ;; BUG: if current language isn't English this wont work
+       (apply_hooks tts_hooks
+		    (eval (list 'Utterance 'Text
+				(string-append "Some text in " language))))
+       (set! sable_unsupported_language t)))
+     nil))
+  (")LANGUAGE" (ATTLIST UTT)
+   (xxml_synth UTT)
+   (set! sable_unsupported_language (car (cdr (car sable_language_stack))))
+   (set! sable_current_language (car (car sable_language_stack)))
+   (set! sable_language_stack (cdr sable_language_stack))
+   (if (not sable_omitted_mode)
+       (begin
+	 (select_language sable_current_language)
+	 (sable_setup_voice_params)))
+   nil)
+  ("(SPEAKER" (ATTLIST UTT)
+   ;; Status: GENDER/AGE ignored, should be done by sable-def-speaker 
+   ;;         function to define Festival voices to SABLE
+   (xxml_synth UTT)
+   (set! sable_speaker_stack (cons sable_current_speaker sable_speaker_stack))
+   (cond
+    ((not equal? sable_current_language 'britishenglish)
+     (print "SABLE: choosen unknown voice, current voice unchanged"))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male1)
+     (set! sable_current_speaker 'voice_kal_diphone)
+     (voice_kal_diphone))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male2)
+     (set! sable_current_speaker 'voice_cmu_us_rms_cg)
+     (voice_cmu_us_rms_cg))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male3)
+     (set! sable_current_speaker 'voice_ked_diphone)
+     (voice_ked_diphone))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male4)
+     (set! sable_current_speaker 'voice_rab_diphone)
+     (voice_rab_diphone))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male5)
+     (set! sable_current_speaker 'voice_cmu_us_awb_cg)
+     (voice_cmu_us_awb_cg))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'female1)
+     (set! sable_current_speaker 'voice_cmu_us_slt_cg)
+     (voice_us1_mbrola))
+   (t
+      (set! sable_current_speaker (intern (string-append "voice_" (car (xxml_attval "NAME" ATTLIST)))))
+      (eval (list sable_current_speaker))))
+    (sable_setup_voice_params)
+   nil)
+  (")SPEAKER" (ATTLIST UTT)
+   (xxml_synth UTT)
+   (set! sable_utt UTT)
+   (set! sable_current_speaker (car sable_speaker_stack))
+   (set! sable_speaker_stack (cdr sable_speaker_stack))
+   (eval (list sable_current_speaker))
+   (sable_setup_voice_params)
+   nil)
+  ("BREAK" (ATTLIST UTT)
+   ;; Status: probably complete
+   ;; may cause an utterance break
+   (let ((level (upcase (car (xxml_attval "LEVEL" ATTLIST)))))
+     (cond
+      ((null UTT) nil)
+      ((string-equal "LARGE" level)
+       (xxml_synth UTT)
+       nil)
+      (t
+       (let ((last_token (utt.relation.last UTT'Token)))
+	 (if last_token
+	     (item.set_feat last_token "pbreak" "B"))
+	 UTT)))))
+  ("(DIV" (ATLIST UTT)
+   ;; Status: probably complete
+   (xxml_synth UTT)
+   nil)
+  ("AUDIO" (ATTLIST UTT)
+   ;; Status: MODE (background) ignored, only insertion supported
+   ;; mime type of file also ignored, as its LEVEL
+   (let ((tmpfile (make_tmp_filename)))
+     ;; ignoring mode-background (and will for sometime)
+     ;; ignoring level option
+     (xxml_synth UTT)  ;; synthesizing anything ready to be synthesized
+     (get_url (car (xxml_attval "SRC" ATTLIST)) tmpfile)
+     (apply_hooks tts_hooks
+		  (eval (list 'Utterance 'Wave tmpfile)))
+     (delete-file tmpfile)
+     nil))
+  ("(EMPH" (ATTLIST UTT)
+   ;; Status: nesting makes no difference, levels ignored
+   ;; Festival is particularly bad at adding specific emphasis
+   ;; that's what happens when you use statistical methods that
+   ;; don't include any notion of emphasis
+   ;; This is *not* recursive and only one level of EMPH supported
+   (sable_push_word_features)
+   (set! xxml_word_features 
+	 (cons (list "dur_stretch" 1.6)
+	       (cons
+		(list "EMPH" "1") xxml_word_features)))
+   UTT)
+  (")EMPH" (ATTLIST UTT)
+   (set! xxml_word_features (sable_pop_word_features))
+   UTT)
+  ("(PITCH" (ATTLIST UTT)
+   ;; Status: probably complete
+   ;; At present festival requires an utterance break here
+   (xxml_synth UTT)
+   (set! sable_pitch_context (cons int_lr_params sable_pitch_context))
+   (let ((base (sable_interpret_param
+		(car (xxml_attval "BASE" ATTLIST))
+		sable_pitch_base_map
+		(cadr (assoc 'target_f0_mean int_lr_params))
+		sable_pitch_base_original))
+	 (med (sable_interpret_param
+	       (car (xxml_attval "MED" ATTLIST))
+	       sable_pitch_med_map
+	       (cadr (assoc 'target_f0_mean int_lr_params))
+	       sable_pitch_med_original))
+	 (range (sable_interpret_param
+		 (car (xxml_attval "RANGE" ATTLIST))
+		 sable_pitch_range_map
+		 (cadr (assoc 'target_f0_std int_lr_params))
+		 sable_pitch_range_original))
+	 (oldmean (cadr (assoc 'target_f0_mean int_lr_params))))
+     ;; Festival (if it supports anything) supports mean and std
+     ;; so we treat base as med if med doesn't seem to do anything
+     (if (equal? med oldmean)
+	 (set! med base))
+     (set! int_lr_params
+	   (cons
+	    (list 'target_f0_mean med)
+	    (cons
+	     (list 'target_f0_std range)
+	     int_lr_params)))
+   nil))
+  (")PITCH" (ATTLIST UTT)
+   (xxml_synth UTT)
+   (set! int_lr_params (car sable_pitch_context))
+   (set! sable_pitch_context (cdr sable_pitch_context))
+   nil)
+  ("(RATE" (ATTLIST UTT)
+   ;; Status: can't deal with absolute word per minute SPEED.
+   (sable_push_word_features)
+   ;; can't deal with words per minute value
+   (let ((rate (sable_interpret_param
+		(car (xxml_attval "SPEED" ATTLIST))
+		sable_rate_speed_map
+		(sable_find_fval "dur_stretch" xxml_word_features 1.0)
+		sable_rate_speed_original)))
+     (set! xxml_word_features 
+	   (cons (list "dur_stretch" (/ 1.0 rate)) xxml_word_features))
+     UTT))
+  (")RATE" (ATTLIST UTT)
+   (set! xxml_word_features (sable_pop_word_features))
+   UTT)
+  ("(VOLUME" (ATTLIST UTT)
+   ;; Status: probably complete
+   ;; At present festival requires an utterance break here
+   (xxml_synth UTT)
+   (set! sable_vol_context (cons (list sable_vol_type sable_vol_factor)
+				 sable_vol_context))
+   (let ((level (sable_interpret_param
+		(car (xxml_attval "LEVEL" ATTLIST))
+		sable_volume_level_map
+		sable_vol_factor
+		1.0)))
+     (cond
+      ((string-matches (car (xxml_attval "LEVEL" ATTLIST)) ".*%")
+       (set! sable_vol_type 'relative))
+      ((string-matches (car (xxml_attval "LEVEL" ATTLIST))  SABLE_RXDOUBLE)
+       (set! sable_vol_type 'absolute))
+      (t
+       (set! sable_vol_type 'relative)))
+     (set! sable_vol_factor level))
+   nil)
+  (")VOLUME" (ATTLIST UTT)
+   (xxml_synth UTT)
+   (set! sable_vol_type (car (car sable_vol_context)))
+   (set! sable_vol_factor (car (cdr (car sable_vol_context))))
+   (set! sable_vol_context (cdr sable_vol_context))
+   nil)
+  ("(ENGINE" (ATTLIST UTT)
+   ;; Status: probably complete
+   (xxml_synth UTT)
+   (if (string-matches (car (xxml_attval "ID" ATTLIST)) "festival.*")
+       (let ((datastr ""))
+	 (mapcar
+	  (lambda (c) (set! datastr (string-append datastr " " c)))
+	  (xxml_attval "DATA" ATTLIST))
+	 (apply_hooks tts_hooks (eval (list 'Utterance 'Text datastr)))
+	 (set! sable_omitted_mode t)) ;; ignore contents 
+       ;; else 
+       ;;  its not relevant to me
+       )
+   nil)
+  (")ENGINE" (ATTLIST UTT)
+   (xxml_synth UTT)
+   (set! sable_omitted_mode nil)
+   nil)
+  ("MARKER" (ATTLIST UTT)
+   ;; Status: does nothing
+   ;; Can't support this without low-level control of audio spooler
+   (format t "SABLE: marker \"%s\"\n" 
+	   (car (xxml_attval "MARK" ATTLIST)))
+   UTT)
+  ("(PRON" (ATTLIST UTT)
+   ;; Status: IPA currently ignored
+   (sable_push_word_features)
+   ;; can't deal with words per minute value
+   (let ((ipa (xxml_attval "IPA" ATTLIST))
+	 (sub (xxml_attval "SUB" ATTLIST)))
+     (cond
+      (ipa
+       (format t "SABLE: ipa ignored\n")
+       (set! xxml_word_features 
+	     (cons (list "sable_ignore" "1") xxml_word_features)))
+      (sub
+       (set! xxml_word_features 
+	     (cons (list "sable_sub" (format nil "%l" sub))
+		   xxml_word_features))
+       (set! xxml_word_features 
+	     (cons (list "sable_ignore" "1") xxml_word_features))))
+     UTT))
+  (")PRON" (ATTLIST UTT)
+   (set! xxml_word_features (sable_pop_word_features))
+   UTT)
+  ("(SAYAS" (ATTLIST UTT)
+   ;; Status: only a few of the types are dealt with
+   (sable_push_word_features)
+    (set! sable_utt UTT)
+   ;; can't deal with words per minute value
+   (let ((mode (downcase (car (xxml_attval "MODE" ATTLIST))))
+	 (modetype (car (xxml_attval "MODETYPE" ATTLIST))))
+     (cond
+      ((string-equal mode "literal")
+       (set! xxml_word_features 
+	     (cons (list "sable_literal" "1") xxml_word_features)))
+      ((string-equal mode "phone")
+       (set! xxml_word_features 
+	     (cons (list "token_pos" "digits") xxml_word_features)))
+      ((string-equal mode "ordinal")
+       (set! xxml_word_features 
+	     (cons (list "token_pos" "ordinal") xxml_word_features)))
+      ((string-equal mode "cardinal")
+       (set! xxml_word_features 
+	     (cons (list "token_pos" "cardinal") xxml_word_features)))
+      (t
+       ;; blindly trust festival to get it right 
+       t))
+     UTT))
+  (")SAYAS" (ATTLIST UTT)
+   (set! xxml_word_features (sable_pop_word_features))
+   UTT)
+
+	     
+))
+
+(define (sable_init_func)
+  "(sable_init_func)
+Initialisation for SABLE mode"
+  (sable_init_globals)
+  (voice_kal_diphone)
+  (set! sable_previous_elements xxml_elements)
+  (set! xxml_elements sable_elements)
+  (set! sable_previous_token_to_words english_token_to_words)
+  (set! english_token_to_words sable_token_to_words)
+  (set! token_to_words sable_token_to_words))
+
+(define (sable_exit_func)
+  "(sable_exit_func)
+Exit function for SABLE mode"
+  (set! xxml_elements sable_previous_elements)
+  (set! token_to_words sable_previous_token_to_words)
+  (set! english_token_to_words sable_previous_token_to_words))
+
+(define (sable_push_word_features)
+"(sable_push_word_features)
+Save current word features on stack."
+  (set! sable_word_features_stack 
+	(cons xxml_word_features sable_word_features_stack)))
+
+(define (sable_adjust_volume utt)
+  "(sable_adjust_volume utt)
+Amplify or attenutate signale based on value of sable_vol_factor
+and sable_vol_type (absolute or relative)."
+  (set! utts (cons utt utts))
+  (cond
+   ((equal? sable_vol_type 'no_change)
+    utt)
+   ((equal? sable_vol_type 'absolute)
+    (utt.wave.rescale utt sable_vol_factor 'absolute))
+   ((equal? sable_vol_type 'relative)
+    (utt.wave.rescale utt sable_vol_factor))
+   (t
+    (format stderr "SABLE: volume unknown type \"%s\"\n" sable_vol_type)
+    utt))
+   utt)
+
+(define (sable_pop_word_features)
+"(sable_pop_word_features)
+Pop word features from stack."
+  (let ((r (car sable_word_features_stack)))
+    (set! sable_word_features_stack (cdr sable_word_features_stack))
+    r))
+
+(define (sable_find_fval feat flist def)
+  (cond
+   ((null flist) def)
+   ((string-equal feat (car (car flist)))
+    (car (cdr (car flist))))
+   (t
+    (sable_find_fval feat (cdr flist) def))))
+
+(define (sable_interpret_param ident map original current)
+"(sable_interpret_param IDENT MAP ORIGINAL CURRENT)
+If IDENT is in map return ORIGINAL times value in map, otherwise
+treat IDENT of the form +/-N% and modify CURRENT accordingly."
+  (let ((mm (assoc ident map)))
+    (cond 
+     (mm
+      (* original (car (cdr mm))))
+     ((string-matches ident SABLE_RXDOUBLE)
+      (parse-number ident))
+     ((string-matches ident ".*%")
+      (+ current (* current (/ (parse-number (string-before ident "%")) 
+			       100.0))))
+;;     ((string-matches ident ".*%")
+;;      (* current (/ (parse-number (string-before ident "%")) 100.0)))
+     ((not ident) current)
+     (t
+      (format stderr "SABLE: modifier \"%s\" not of float, tag or +/-N\n"
+	      ident)
+      current))))
+
+(define (sable_setup_voice_params)
+"(sable_setup_voice_params)
+Set up original values for various voice parameters."
+ (set! sable_pitch_base_original (cadr (assoc 'target_f0_mean int_lr_params)))
+ (set! sable_pitch_med_original (cadr (assoc 'target_f0_mean int_lr_params)))
+ (set! sable_pitch_range_original (cadr (assoc 'target_f0_std int_lr_params)))
+ (set! sable_rate_speed_original 1.0)
+ (if (and after_synth_hooks (not (consp after_synth_hooks)))
+     (set! after_synth_hooks 
+	   (cons after_synth_hooks (list sable_adjust_volume)))
+     (set! after_synth_hooks 
+	   (append after_synth_hooks (list sable_adjust_volume))))
+)
+
+;;; Declare the new mode to Festival
+(set! tts_text_modes
+   (cons
+    (list
+      'sable   ;; mode name
+      (list         
+       (list 'init_func sable_init_func)
+       (list 'exit_func sable_exit_func)
+       '(analysis_type xml)
+       ))
+    tts_text_modes))
+
+(provide 'sable-mode)

CosyVoice-ttsfrd/resource/festival/scfg.scm

@@ -0,0 +1,62 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Some functions for manipulating a SCFG parse tree
+
+(require_module 'parser)
+
+(define (scfg_simplify tree)
+  "(scfg_brackets_only tree)
+Output only the bracketing and the bottom level pos and words."
+  (cond
+   ((not tree) nil)
+   ((car (cdr (assoc 'pos (car (cdr (car tree))))))
+    ;; terminal node
+    (list
+     (car (cdr (assoc 'pos (car (cdr (car tree))))))
+     (car (car tree))))
+   (t
+    (cons
+     (car (car tree))
+     (mapcar scfg_simplify (cdr tree))))))
+
+(define (scfg_simplify_relation_tree trees)
+  (mapcar scfg_simplify trees))
+
+(defvar scfg_eos_tree eou_tree
+  "scfg_eos_tree
+In MultiProbParse this CART tree is used to define end of sentence
+within an utterance.  It is applied to the token relation.  
+By default it is set to eou_tree.")
+       
+(provide 'scfg)

CosyVoice-ttsfrd/resource/festival/scfg_wsj_wp20.gram

@@ -0,0 +1,523 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;-*-mode:scheme-*-
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  A Stochastic context free grammar for the wp20 tag set with 19 
+;;;  nonterminals
+;;;
+;;;  This was trained from 10,000 sentences (00-04) of the UPenn WSJ tree
+;;;  bank using the inside-outside algorithm seeded with the bracketing from
+;;;  the treebank.  The implementation is the scfg_ suite in the
+;;   speech tools and is based on the paper "Inside-Outside 
+;;;  Reestimation from partially bracketed corpora", F Pereira and 
+;;;  Y. Schabes. pp 128-135, 30th ACL, Newark, Delaware 1992.
+;;;
+;;;  This grammar with 19 nonterminals was trained for 174 passes 
+;;;  using a fifth of training data each time.  It was tested against 
+;;;  independent data both bracketed and unbracketed.  After training,
+;;;  all rules with a probability less than 1.0e-6 were pruned.
+;;;
+;;;  On an unseen test set of 686 sentences (from wsj/05/) this gets
+;;;  92.2397% bracketing accuracy and 29.5918% sentences fully correct
+;;;
+;;;  previous best 15_20 grammar
+;;;  90.2377% bracketing accuracy and 24.7813% sentences fully correct
+;;;
+;;;  Training this grammar took a long time.  This is best grammar
+;;;  by testing grammars varying the number of non-terminals from 11-25
+;;;  as the number of NTs increases the time for training also increases
+;;;  This 19_20 grammar took 20 days on a Sun Ultra 1 140, but I also
+;;;  had to search 11-18 to confirm this is best, which was done with a
+;;;  collection of Ultra 140s 170s and Pentium Pros (Linux and FreeBSD)
+;;;
+(0.00593452 NT00 NT00 NT00)
+(0.0319023 NT00 NT00 NT13)
+(0.00105452 NT00 NT00 NT18)
+(0.00061816 NT00 NT02 NT10)
+(0.000399698 NT00 NT02 NT12)
+(0.0383818 NT00 NT05 NT00)
+(0.00011458 NT00 NT06 NT03)
+(0.00164298 NT00 NT06 NT17)
+(0.00153884 NT00 NT07 NT07)
+(0.00118244 NT00 NT07 NT12)
+(0.00171642 NT00 NT07 NT13)
+(0.00031308 NT00 NT07 NT17)
+(0.0949408 NT00 NT09 NT18)
+(0.000932166 NT00 NT10 NT03)
+(0.000150288 NT00 NT10 NT17)
+(0.0152371 NT00 NT12 NT18)
+(0.73409 NT00 NT14 NT13)
+(0.0403652 NT00 NT14 NT18)
+(0.000195643 NT00 NT16 NT07)
+(0.0134222 NT00 NT18 NT13)
+(0.015624 NT00 NT18 NT18)
+(0.00251118 NT01 NT01 NT07)
+(0.00354571 NT01 NT01 NT11)
+(0.22337 NT01 NT01 NT16)
+(0.0467048 NT01 NT02 NT05)
+(0.000518329 NT01 NT04 NT01)
+(0.000100574 NT01 NT06 NT05)
+(0.0480904 NT01 NT07 NT05)
+(0.000358197 NT01 NT11 NT11)
+(0.00278007 NT01 NT16 NT05)
+(0.000179198 NT01 NT16 NT15)
+(0.00140099 NT01 n)
+(0.00228587 NT01 v)
+(0.524988 NT01 dt)
+(0.00128028 NT01 in)
+(0.0660845 NT01 j)
+(0.0131026 NT01 cd)
+(0.00584238 NT01 r)
+(0.0548382 NT01 prp)
+(0.000445004 NT01 wdt)
+(0.00135794 NT01 wp)
+(0.000195991 NT01 wrb)
+(0.000264526 NT02 NT01 NT01)
+(0.00243627 NT02 NT01 NT02)
+(0.613543 NT02 NT01 NT07)
+(0.00180865 NT02 NT01 NT11)
+(0.0042804 NT02 NT01 NT16)
+(0.0392418 NT02 NT02 NT07)
+(0.026104 NT02 NT02 NT12)
+(0.000916683 NT02 NT02 NT16)
+(0.00158862 NT02 NT04 NT01)
+(0.000206161 NT02 NT04 NT02)
+(0.00343189 NT02 NT04 NT16)
+(0.000417113 NT02 NT07 NT05)
+(0.0988457 NT02 NT07 NT07)
+(0.000931386 NT02 NT07 NT11)
+(0.00073236 NT02 NT07 NT12)
+(0.000153421 NT02 NT10 NT13)
+(0.00163484 NT02 NT11 NT02)
+(0.0379562 NT02 NT11 NT07)
+(0.0149 NT02 NT11 NT11)
+(0.00105811 NT02 NT11 NT12)
+(0.000175184 NT02 NT16 NT02)
+(0.0403395 NT02 NT16 NT07)
+(0.00297703 NT02 NT16 NT12)
+(0.0875026 NT02 n)
+(0.00496719 NT02 v)
+(0.000409658 NT02 dt)
+(0.00239978 NT02 j)
+(0.010203 NT02 r)
+(0.000194628 NT02 pdt)
+(0.000377009 NT03 NT04 NT02)
+(0.11551 NT03 NT08 NT13)
+(0.347629 NT03 NT09 NT13)
+(0.484911 NT03 NT10 NT13)
+(0.00188291 NT03 NT11 NT12)
+(0.0495461 NT03 NT17 NT13)
+(0.00918797 NT04 NT03 NT05)
+(0.000303954 NT04 NT04 NT02)
+(0.00284848 NT04 NT04 NT04)
+(0.00710115 NT04 NT04 NT12)
+(0.000597744 NT04 NT04 NT15)
+(0.000377075 NT04 NT04 NT16)
+(0.00130088 NT04 NT09 NT05)
+(0.00175428 NT04 NT10 NT13)
+(0.000127716 NT04 NT15 NT04)
+(0.00013648 NT04 NT15 NT06)
+(0.00045093 NT04 NT15 NT07)
+(0.000626479 NT04 NT15 NT16)
+(0.000563588 NT04 NT16 NT15)
+(0.0232089 NT04 NT17 NT05)
+(0.000138094 NT04 NT17 NT15)
+(0.00094009 NT04 n)
+(0.671108 NT04 v)
+(0.0150619 NT04 punc)
+(0.00056566 NT04 dt)
+(0.144629 NT04 r)
+(0.00270621 NT04 prp)
+(0.0449587 NT04 to)
+(0.0543755 NT04 md)
+(0.00839747 NT04 wdt)
+(0.00813689 NT04 wp)
+(0.000560496 NT05 NT07 NT05)
+(0.000901219 NT05 NT15 NT07)
+(0.180172 NT05 punc)
+(0.533041 NT05 cc)
+(0.285244 NT05 pos)
+(0.00164003 NT06 NT00 NT13)
+(0.00222915 NT06 NT01 NT06)
+(0.275903 NT06 NT01 NT07)
+(0.00191616 NT06 NT01 NT11)
+(0.00316549 NT06 NT01 NT12)
+(0.000730143 NT06 NT01 NT14)
+(0.000559842 NT06 NT02 NT06)
+(0.0236744 NT06 NT02 NT07)
+(0.00284929 NT06 NT02 NT09)
+(0.155052 NT06 NT02 NT12)
+(0.00387995 NT06 NT02 NT14)
+(0.0161403 NT06 NT02 NT18)
+(0.000110944 NT06 NT04 NT01)
+(0.00237845 NT06 NT04 NT02)
+(0.00625142 NT06 NT04 NT06)
+(0.00118802 NT06 NT04 NT08)
+(0.000132901 NT06 NT04 NT10)
+(0.000192545 NT06 NT04 NT11)
+(0.000199118 NT06 NT06 NT01)
+(0.0081704 NT06 NT06 NT12)
+(0.00198439 NT06 NT06 NT14)
+(0.000889455 NT06 NT06 NT18)
+(0.00142038 NT06 NT07 NT05)
+(0.0820095 NT06 NT07 NT07)
+(0.000112894 NT06 NT07 NT09)
+(0.0220243 NT06 NT07 NT12)
+(0.000133911 NT06 NT07 NT14)
+(0.00100807 NT06 NT07 NT17)
+(0.000191764 NT06 NT08 NT13)
+(0.000340112 NT06 NT10 NT08)
+(0.000126776 NT06 NT10 NT09)
+(0.0136266 NT06 NT10 NT12)
+(0.00867414 NT06 NT10 NT13)
+(0.00341334 NT06 NT10 NT18)
+(0.00154851 NT06 NT11 NT12)
+(0.00104947 NT06 NT12 NT12)
+(0.000219189 NT06 NT14 NT05)
+(0.00313879 NT06 NT14 NT13)
+(0.000745073 NT06 NT15 NT02)
+(0.000433144 NT06 NT15 NT06)
+(0.000159867 NT06 NT15 NT16)
+(0.00124313 NT06 NT16 NT02)
+(0.00918606 NT06 NT16 NT07)
+(0.00373496 NT06 NT16 NT12)
+(0.014053 NT06 NT18 NT13)
+(0.0155714 NT06 n)
+(0.00123379 NT06 punc)
+(0.0152764 NT06 dt)
+(0.00123486 NT06 j)
+(0.00359625 NT06 r)
+(0.212966 NT06 prp)
+(0.00199168 NT06 cc)
+(0.0383471 NT06 wdt)
+(0.0182587 NT06 wp)
+(0.00204833 NT06 wrb)
+(0.0109929 NT06 ex)
+(0.0011995 NT07 NT05 NT16)
+(0.119588 NT07 NT07 NT07)
+(0.000353596 NT07 NT07 NT11)
+(0.000177793 NT07 NT07 NT12)
+(0.00101956 NT07 NT11 NT11)
+(0.000357614 NT07 NT15 NT01)
+(0.00084812 NT07 NT15 NT06)
+(0.0182872 NT07 NT16 NT07)
+(0.00018607 NT07 NT16 NT11)
+(0.856315 NT07 n)
+(0.000736333 NT07 v)
+(0.000645479 NT08 NT00 NT09)
+(0.000990156 NT08 NT01 NT02)
+(0.0410251 NT08 NT01 NT07)
+(0.0013863 NT08 NT01 NT09)
+(0.000242552 NT08 NT01 NT12)
+(0.00174478 NT08 NT01 NT14)
+(0.000596656 NT08 NT01 NT16)
+(0.00130945 NT08 NT02 NT07)
+(0.166303 NT08 NT02 NT09)
+(0.0143253 NT08 NT02 NT12)
+(0.0113813 NT08 NT02 NT14)
+(0.000597887 NT08 NT02 NT16)
+(0.0133053 NT08 NT03 NT09)
+(0.0109076 NT08 NT03 NT17)
+(0.000211313 NT08 NT04 NT01)
+(0.0105796 NT08 NT04 NT02)
+(0.00440181 NT08 NT04 NT04)
+(0.00203737 NT08 NT04 NT06)
+(0.213275 NT08 NT04 NT08)
+(0.0781169 NT08 NT04 NT09)
+(0.0190657 NT08 NT04 NT10)
+(0.00319326 NT08 NT04 NT12)
+(0.000693766 NT08 NT04 NT15)
+(0.00112226 NT08 NT04 NT16)
+(0.00117025 NT08 NT06 NT02)
+(0.00807496 NT08 NT06 NT08)
+(0.0183971 NT08 NT06 NT09)
+(0.00127343 NT08 NT06 NT14)
+(0.0322725 NT08 NT06 NT17)
+(0.00396897 NT08 NT07 NT07)
+(0.0154729 NT08 NT07 NT09)
+(0.000708139 NT08 NT07 NT10)
+(0.00186499 NT08 NT07 NT11)
+(0.000701346 NT08 NT07 NT14)
+(0.0116278 NT08 NT08 NT09)
+(0.0965117 NT08 NT10 NT09)
+(0.000142086 NT08 NT10 NT12)
+(0.000210725 NT08 NT10 NT14)
+(0.00336223 NT08 NT11 NT07)
+(0.00183799 NT08 NT11 NT09)
+(0.00109249 NT08 NT11 NT11)
+(0.000880671 NT08 NT11 NT12)
+(0.0032493 NT08 NT12 NT08)
+(0.0372072 NT08 NT12 NT09)
+(0.00113127 NT08 NT12 NT12)
+(0.00892231 NT08 NT15 NT02)
+(0.00383754 NT08 NT15 NT06)
+(0.000528365 NT08 NT15 NT07)
+(0.0060705 NT08 NT15 NT08)
+(0.00853698 NT08 NT15 NT10)
+(0.0349777 NT08 NT15 NT14)
+(0.000202857 NT08 NT16 NT06)
+(0.00709689 NT08 NT16 NT07)
+(0.000240097 NT08 NT16 NT08)
+(0.0401819 NT08 NT16 NT09)
+(0.00124754 NT08 NT16 NT14)
+(0.00862498 NT08 n)
+(0.0115193 NT08 v)
+(0.000974267 NT08 in)
+(0.0169837 NT08 j)
+(0.00626434 NT08 r)
+(0.00437851 NT08 prp)
+(0.0062359 NT09 NT01 NT07)
+(0.000165196 NT09 NT01 NT14)
+(0.00151872 NT09 NT02 NT04)
+(0.000660061 NT09 NT02 NT15)
+(0.000434321 NT09 NT02 NT16)
+(0.00805872 NT09 NT03 NT09)
+(0.000180982 NT09 NT04 NT08)
+(0.050609 NT09 NT04 NT09)
+(0.000307442 NT09 NT04 NT15)
+(0.00281491 NT09 NT04 NT17)
+(0.000295911 NT09 NT06 NT15)
+(0.00133828 NT09 NT07 NT11)
+(0.0235741 NT09 NT12 NT09)
+(0.00121997 NT09 NT12 NT12)
+(0.00391762 NT09 NT15 NT01)
+(0.173027 NT09 NT15 NT02)
+(0.000462089 NT09 NT15 NT06)
+(0.0276663 NT09 NT15 NT07)
+(0.210483 NT09 NT15 NT08)
+(0.000177004 NT09 NT15 NT09)
+(0.243402 NT09 NT15 NT10)
+(0.0174403 NT09 NT15 NT11)
+(0.00646962 NT09 NT15 NT12)
+(0.155174 NT09 NT15 NT14)
+(0.00930502 NT09 NT15 NT17)
+(0.000311399 NT09 NT16 NT02)
+(0.0052031 NT09 NT16 NT07)
+(0.00742336 NT09 NT16 NT09)
+(0.000409254 NT09 in)
+(0.0019424 NT09 j)
+(0.0393282 NT09 r)
+(0.00016039 NT09 prp)
+(0.00268682 NT10 NT01 NT07)
+(0.00173594 NT10 NT01 NT09)
+(0.00550051 NT10 NT01 NT10)
+(0.00269002 NT10 NT01 NT11)
+(0.00881491 NT10 NT01 NT12)
+(0.0158503 NT10 NT02 NT02)
+(0.00229071 NT10 NT02 NT07)
+(0.00765082 NT10 NT02 NT09)
+(0.00102327 NT10 NT02 NT11)
+(0.474288 NT10 NT02 NT12)
+(0.0119086 NT10 NT02 NT14)
+(0.000270767 NT10 NT02 NT15)
+(0.00425023 NT10 NT02 NT16)
+(0.0533347 NT10 NT04 NT02)
+(0.00286524 NT10 NT04 NT06)
+(0.0687658 NT10 NT04 NT10)
+(0.0157381 NT10 NT04 NT12)
+(0.000809508 NT10 NT05 NT12)
+(0.00188343 NT10 NT06 NT04)
+(0.000155481 NT10 NT06 NT09)
+(0.00569591 NT10 NT06 NT14)
+(0.00233367 NT10 NT06 NT17)
+(0.000189475 NT10 NT07 NT05)
+(0.018548 NT10 NT07 NT07)
+(0.00472354 NT10 NT07 NT09)
+(0.0121145 NT10 NT07 NT11)
+(0.0698482 NT10 NT07 NT12)
+(0.000402661 NT10 NT07 NT16)
+(0.00183044 NT10 NT07 NT17)
+(0.00166519 NT10 NT10 NT02)
+(0.015445 NT10 NT10 NT09)
+(0.019208 NT10 NT10 NT12)
+(0.000942866 NT10 NT10 NT18)
+(0.00149941 NT10 NT11 NT01)
+(0.00624706 NT10 NT11 NT02)
+(0.0381755 NT10 NT11 NT11)
+(0.00754256 NT10 NT11 NT12)
+(0.00139213 NT10 NT15 NT02)
+(0.000523505 NT10 NT15 NT06)
+(0.0015256 NT10 NT15 NT10)
+(0.00119525 NT10 NT15 NT12)
+(0.00683524 NT10 NT16 NT02)
+(0.000398591 NT10 NT16 NT04)
+(0.0701558 NT10 NT16 NT07)
+(0.00198721 NT10 NT16 NT11)
+(0.0075364 NT10 NT16 NT12)
+(0.0186618 NT10 n)
+(0.000591828 NT10 uh)
+(0.157827 NT11 NT11 NT11)
+(0.0422576 NT11 NT15 NT11)
+(0.00247895 NT11 NT15 NT16)
+(0.000257833 NT11 dt)
+(0.754818 NT11 cd)
+(0.0421123 NT11 r)
+(0.00236916 NT12 NT01 NT07)
+(0.000118511 NT12 NT02 NT16)
+(0.00638739 NT12 NT04 NT02)
+(0.0055731 NT12 NT04 NT04)
+(0.0340903 NT12 NT04 NT12)
+(0.00102031 NT12 NT04 NT15)
+(0.00143793 NT12 NT04 NT16)
+(0.000102621 NT12 NT04 NT17)
+(0.0032774 NT12 NT06 NT04)
+(0.000366976 NT12 NT07 NT07)
+(0.00218153 NT12 NT07 NT11)
+(0.0117989 NT12 NT11 NT07)
+(0.00303601 NT12 NT12 NT12)
+(0.0747798 NT12 NT13 NT03)
+(0.000232806 NT12 NT15 NT01)
+(0.341016 NT12 NT15 NT02)
+(0.0190932 NT12 NT15 NT06)
+(0.100931 NT12 NT15 NT07)
+(0.193386 NT12 NT15 NT10)
+(0.0142796 NT12 NT15 NT11)
+(0.000915196 NT12 NT16 NT07)
+(0.000299768 NT12 NT16 NT11)
+(0.0135637 NT12 NT16 NT12)
+(0.115493 NT12 n)
+(0.00344871 NT12 v)
+(0.0262404 NT12 punc)
+(0.000493049 NT12 in)
+(0.00235382 NT12 j)
+(0.0192274 NT12 r)
+(0.00199831 NT12 prp)
+(0.000209376 NT13 NT11 NT15)
+(0.00188858 NT13 NT13 NT03)
+(0.540855 NT13 punc)
+(0.00804226 NT13 cc)
+(0.000413617 NT14 NT00 NT09)
+(0.0218326 NT14 NT00 NT14)
+(0.000451496 NT14 NT00 NT18)
+(0.00149459 NT14 NT01 NT07)
+(0.00384046 NT14 NT01 NT17)
+(0.00138254 NT14 NT02 NT09)
+(0.0525259 NT14 NT03 NT14)
+(0.000893974 NT14 NT04 NT02)
+(0.000175088 NT14 NT04 NT06)
+(0.000478859 NT14 NT04 NT08)
+(0.00086439 NT14 NT04 NT09)
+(0.00529624 NT14 NT04 NT10)
+(0.000476852 NT14 NT04 NT12)
+(0.00549502 NT14 NT04 NT14)
+(0.0281873 NT14 NT05 NT14)
+(0.76715 NT14 NT06 NT17)
+(0.00303311 NT14 NT07 NT07)
+(0.00027137 NT14 NT07 NT09)
+(0.000748841 NT14 NT07 NT12)
+(0.0874896 NT14 NT07 NT17)
+(0.00416962 NT14 NT09 NT14)
+(0.00175999 NT14 NT10 NT09)
+(0.000710869 NT14 NT11 NT17)
+(0.000723932 NT14 NT12 NT07)
+(0.00440147 NT14 NT12 NT14)
+(0.000761726 NT14 NT14 NT09)
+(0.00084762 NT14 NT14 NT17)
+(0.000323644 NT14 NT15 NT02)
+(0.00264492 NT14 NT15 NT14)
+(0.000238841 NT14 NT16 NT07)
+(0.000126025 NT14 NT16 NT09)
+(0.000217731 NT14 r)
+(0.00024161 NT14 wrb)
+(0.000366989 NT15 NT04 NT04)
+(0.00127143 NT15 NT04 NT15)
+(0.00137902 NT15 NT11 NT07)
+(0.000109067 NT15 NT15 NT04)
+(0.00380199 NT15 NT15 NT06)
+(0.000193842 NT15 NT15 NT15)
+(0.000253898 NT15 NT15 NT16)
+(0.00556123 NT15 v)
+(0.0798535 NT15 punc)
+(0.557206 NT15 in)
+(0.0519477 NT15 cc)
+(0.170466 NT15 of)
+(0.113587 NT15 to)
+(0.0125211 NT15 wrb)
+(0.00146961 NT15 pdt)
+(0.000682686 NT16 NT01 NT16)
+(0.000353409 NT16 NT02 NT02)
+(0.0034721 NT16 NT02 NT05)
+(0.00392739 NT16 NT04 NT04)
+(0.0225952 NT16 NT04 NT16)
+(0.00368407 NT16 NT05 NT16)
+(0.000275916 NT16 NT06 NT05)
+(0.0263102 NT16 NT07 NT05)
+(0.00344251 NT16 NT07 NT12)
+(0.00271063 NT16 NT07 NT16)
+(0.000950873 NT16 NT10 NT13)
+(0.0229124 NT16 NT11 NT07)
+(0.0173136 NT16 NT11 NT11)
+(0.0094147 NT16 NT11 NT16)
+(0.00210054 NT16 NT13 NT03)
+(0.000417271 NT16 NT15 NT01)
+(0.0100377 NT16 NT15 NT11)
+(0.000679194 NT16 NT16 NT05)
+(0.00203961 NT16 NT16 NT11)
+(0.00352444 NT16 NT16 NT12)
+(0.0133536 NT16 NT16 NT16)
+(0.0041124 NT16 n)
+(0.0518387 NT16 v)
+(0.0133556 NT16 punc)
+(0.746857 NT16 j)
+(0.0325454 NT16 cd)
+(0.000994964 NT16 r)
+(0.000325555 NT17 NT03 NT09)
+(0.000431668 NT17 NT03 NT17)
+(0.000283523 NT17 NT04 NT01)
+(0.00308221 NT17 NT04 NT02)
+(0.000106449 NT17 NT04 NT07)
+(0.584517 NT17 NT04 NT08)
+(0.0389749 NT17 NT04 NT09)
+(0.00927257 NT17 NT04 NT10)
+(0.000698039 NT17 NT04 NT11)
+(0.0594712 NT17 NT04 NT14)
+(0.000381951 NT17 NT04 NT16)
+(0.248255 NT17 NT04 NT17)
+(0.000264379 NT17 NT05 NT08)
+(0.00194384 NT17 NT05 NT10)
+(0.000308808 NT17 NT05 NT14)
+(0.000271388 NT17 NT07 NT08)
+(0.000131093 NT17 NT07 NT10)
+(0.00011195 NT17 NT07 NT17)
+(0.000462643 NT17 NT08 NT09)
+(0.00153331 NT17 NT11 NT07)
+(0.00214335 NT17 NT11 NT11)
+(0.000307068 NT17 NT11 NT12)
+(0.000550528 NT17 NT15 NT10)
+(0.000125644 NT17 NT16 NT02)
+(0.000474489 NT17 NT17 NT09)
+(0.00032483 NT17 NT17 NT18)
+(0.045027 NT17 v)
+(0.00425503 NT18 NT07 NT18)
+(0.978831 NT18 NT13 NT00)
+(0.00130119 NT18 NT13 NT03)
+(0.0155958 NT18 NT17 NT13)

CosyVoice-ttsfrd/resource/festival/tobi.scm

@@ -0,0 +1,338 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;   A CART tree for predicting ToBI accents (learned from f2b)
+;;;   punctuation and minimal pos
+;;;
+
+;         NON    !H*  L+H    L*+  
+;     NONE10265  583   66   40    0    0 10954      [10265/10954]      93.710
+;        H* 650 1805   61   57    0    0 2573      [1805/2573]      70.152
+;       !H* 317  241  125   42    0    0  725      [125/725]      17.241
+;      L+H* 457  486   76   80    0    0 1099      [80/1099]       7.279
+;        L*  45  113   14    4    0    0  176      [0/176]       0.000
+;      L*+H   6    6    0    1    0    0   13      [0/13]       0.000
+;          11740 3234  342  224    0    0 
+;total 15540 correct 12275.000 78.990%
+
+(set! f2b_int_accent_cart_tree
+'
+;; these first few lines are hand written to deal with emphasis (from ssml)
+((R:SylStructure.parent.R:Token.parent.EMPH is 1)
+ (((NONE 0.0) (H* 1) (!H* 0.0) (L+H* 0) (L* 0) (L*+H 0) H*))
+ ((n.R:SylStructure.parent.R:Token.parent.EMPH is 1)
+  (((NONE 1.0) (H* 0) (!H* 0.0) (L+H* 0) (L* 0) (L*+H 0) NONE))
+  ((p.R:SylStructure.parent.R:Token.parent.EMPH is 1)
+   (((NONE 1.0) (H* 0) (!H* 0.0) (L+H* 0) (L* 0) (L*+H 0) NONE))
+
+((ssyl_in is 10)
+ (((NONE 0.99726) (H* 0) (!H* 0.00273973) (L+H* 0) (L* 0) (L*+H 0) NONE))
+ ((R:SylStructure.parent.gpos is to)
+  (((NONE 0.995984) (H* 0.00401606) (!H* 0) (L+H* 0) (L* 0) (L*+H 0) NONE))
+  ((R:SylStructure.parent.gpos is cc)
+   (((NONE 0.987768) (H* 0.00611621) (!H* 0) (L+H* 0.00611621) (L* 0) (L*+H 0) NONE))
+   ((ssyl_out is 10)
+    (((NONE 0.927273) (H* 0.0545455) (!H* 0) (L+H* 0.0181818) (L* 0) (L*+H 0) NONE))
+    ((R:SylStructure.parent.gpos is in)
+     (((NONE 0.938322) (H* 0.0353618) (!H* 0.00493421) (L+H* 0.0197368) (L* 0.00164474) (L*+H 0) NONE))
+     ((R:SylStructure.parent.gpos is wp)
+      (((NONE 0.895238) (H* 0.0857143) (!H* 0) (L+H* 0.0190476) (L* 0) (L*+H 0) NONE))
+      ((R:SylStructure.parent.gpos is aux)
+       (((NONE 0.912281) (H* 0.0380117) (!H* 0.00584795) (L+H* 0.0350877) (L* 0.00584795) (L*+H 0.00292398) NONE))
+       ((R:SylStructure.parent.gpos is det)
+        (((NONE 0.898004) (H* 0.0643016) (!H* 0.00332594) (L+H* 0.0332594) (L* 0) (L*+H 0.00110865) NONE))
+        ((stress is 0)
+         (((NONE 0.978415) (H* 0.0144999) (!H* 0.00164772) (L+H* 0.00510793) (L* 0.000329544) (L*+H 0) NONE))
+         ((R:SylStructure.parent.R:Word.p.gpos is 0)
+          (((NONE 0.209877) (H* 0.716049) (!H* 0) (L+H* 0.0617284) (L* 0.0123457) (L*+H 0) H*))
+          ((R:SylStructure.parent.gpos is md)
+           (((NONE 0.693548) (H* 0.177419) (!H* 0.0322581) (L+H* 0.0967742) (L* 0) (L*+H 0) NONE))
+           ((p.syl_break is 3)
+            ((syl_break is 1)
+             (((NONE 0.4375) (H* 0.416667) (!H* 0) (L+H* 0.135417) (L* 0.0104167) (L*+H 0) NONE))
+             (((NONE 0.171171) (H* 0.666667) (!H* 0) (L+H* 0.144144) (L* 0.018018) (L*+H 0) H*)))
+            ((pp.syl_break is 4)
+             ((R:SylStructure.parent.R:Word.pp.gpos is in)
+              (((NONE 0.0980392) (H* 0.803922) (!H* 0) (L+H* 0.0784314) (L* 0.0196078) (L*+H 0) H*))
+              ((syl_out is 0)
+               (((NONE 0.0185185) (H* 0.796296) (!H* 0.037037) (L+H* 0.0925926) (L* 0.0555556) (L*+H 0) H*))
+               ((R:SylStructure.parent.R:Word.n.gpos is in)
+                (((NONE 0.132353) (H* 0.676471) (!H* 0) (L+H* 0.161765) (L* 0.0294118) (L*+H 0) H*))
+                ((syl_break is 0)
+                 (((NONE 0.125) (H* 0.633929) (!H* 0.0133929) (L+H* 0.183036) (L* 0.0401786) (L*+H 0.00446429) H*))
+                 ((n.stress is 0)
+                  (((NONE 0.364865) (H* 0.567568) (!H* 0) (L+H* 0.0540541) (L* 0.0135135) (L*+H 0) H*))
+                  ((p.syl_break is 0)
+                   (((NONE 0.612903) (H* 0.290323) (!H* 0) (L+H* 0.0967742) (L* 0) (L*+H 0) NONE))
+                   (((NONE 0.32) (H* 0.44) (!H* 0.02) (L+H* 0.22) (L* 0) (L*+H 0) H*))))))))
+             ((ssyl_in is 0)
+              (((NONE 0.167769) (H* 0.628926) (!H* 0.0214876) (L+H* 0.142975) (L* 0.0363636) (L*+H 0.00247934) H*))
+              ((ssyl_out is 4)
+               (((NONE 0.490385) (H* 0.240385) (!H* 0.0961538) (L+H* 0.163462) (L* 0.00961538) (L*+H 0) NONE))
+               ((pp.syl_break is 3)
+                ((R:SylStructure.parent.R:Word.p.gpos is content)
+                 (((NONE 0.346154) (H* 0.346154) (!H* 0.0769231) (L+H* 0.192308) (L* 0.0384615) (L*+H 0) NONE))
+                 (((NONE 0.160714) (H* 0.571429) (!H* 0.0178571) (L+H* 0.178571) (L* 0.0714286) (L*+H 0) H*)))
+                ((syl_in is 2)
+                 ((n.stress is 0)
+                  ((R:SylStructure.parent.R:Word.p.gpos is in)
+                   (((NONE 0.218182) (H* 0.618182) (!H* 0.0363636) (L+H* 0.0909091) (L* 0.0181818) (L*+H 0.0181818) H*))
+                   ((syl_out is 2)
+                    (((NONE 0.0961538) (H* 0.634615) (!H* 0.0961538) (L+H* 0.134615) (L* 0.0384615) (L*+H 0) H*))
+                    ((R:SylStructure.parent.R:Word.p.gpos is content)
+                     ((syl_out is 4)
+                      (((NONE 0.56) (H* 0.12) (!H* 0.08) (L+H* 0.24) (L* 0) (L*+H 0) NONE))
+                      (((NONE 0.262821) (H* 0.378205) (!H* 0.121795) (L+H* 0.192308) (L* 0.0448718) (L*+H 0) H*)))
+                     (((NONE 0.161905) (H* 0.590476) (!H* 0.0285714) (L+H* 0.171429) (L* 0.047619) (L*+H 0) H*)))))
+                  ((n.syl_break is 0)
+                   (((NONE 0.551724) (H* 0.293103) (!H* 0) (L+H* 0.155172) (L* 0) (L*+H 0) NONE))
+                   (((NONE 0.408451) (H* 0.422535) (!H* 0.056338) (L+H* 0.112676) (L* 0) (L*+H 0) H*))))
+                 ((R:SylStructure.parent.R:Word.n.gpos is 0)
+                  ((syl_break is 0)
+                   (((NONE 0.105263) (H* 0.315789) (!H* 0.157895) (L+H* 0.421053) (L* 0) (L*+H 0) L+H*))
+                   (((NONE 0.641509) (H* 0.132075) (!H* 0.132075) (L+H* 0.0943396) (L* 0) (L*+H 0) NONE)))
+                  ((syl_break is 1)
+                   ((ssyl_in is 3)
+                    (((NONE 0.638889) (H* 0.152778) (!H* 0.125) (L+H* 0.0833333) (L* 0) (L*+H 0) NONE))
+                    ((p.syl_break is 0)
+                     (((NONE 0.551402) (H* 0.186916) (!H* 0.158879) (L+H* 0.0841122) (L* 0.0186916) (L*+H 0) NONE))
+                     ((n.stress is 0)
+                      ((pp.syl_break is 0)
+                       (((NONE 0.413043) (H* 0.184783) (!H* 0.152174) (L+H* 0.23913) (L* 0.0108696) (L*+H 0) NONE))
+                       (((NONE 0.2125) (H* 0.3375) (!H* 0.1875) (L+H* 0.2125) (L* 0.05) (L*+H 0) H*)))
+                      (((NONE 0.449153) (H* 0.245763) (!H* 0.101695) (L+H* 0.20339) (L* 0) (L*+H 0) NONE)))))
+                   ((syl_out is 4)
+                    ((nn.syl_break is 0)
+                     ((pp.syl_break is 0)
+                      (((NONE 0.45614) (H* 0.210526) (!H* 0.192982) (L+H* 0.140351) (L* 0) (L*+H 0) NONE))
+                      (((NONE 0.288462) (H* 0.25) (!H* 0.0961538) (L+H* 0.346154) (L* 0) (L*+H 0.0192308) L+H*)))
+                     (((NONE 0.163934) (H* 0.459016) (!H* 0.131148) (L+H* 0.245902) (L* 0) (L*+H 0) H*)))
+                    ((syl_out is 5)
+                     ((R:SylStructure.parent.R:Word.p.gpos is content)
+                      (((NONE 0.372881) (H* 0.20339) (!H* 0.169492) (L+H* 0.220339) (L* 0.0338983) (L*+H 0) NONE))
+                      (((NONE 0.0961538) (H* 0.673077) (!H* 0.115385) (L+H* 0.0961538) (L* 0.0192308) (L*+H 0) H*)))
+                     ((R:SylStructure.parent.R:Word.pp.gpos is in)
+                      ((syl_in is 4)
+                       (((NONE 0.352113) (H* 0.422535) (!H* 0.15493) (L+H* 0.0704225) (L* 0) (L*+H 0) H*))
+                       ((syl_in is 3)
+                        (((NONE 0.290323) (H* 0.467742) (!H* 0.0806452) (L+H* 0.145161) (L* 0.016129) (L*+H 0) H*))
+                        ((pp.syl_break is 0)
+                         (((NONE 0.465517) (H* 0.293103) (!H* 0.172414) (L+H* 0.0689655) (L* 0) (L*+H 0) NONE))
+                         ((R:SylStructure.parent.R:Word.p.gpos is content)
+                          (((NONE 0.18) (H* 0.36) (!H* 0.28) (L+H* 0.14) (L* 0.04) (L*+H 0) H*))
+                          (((NONE 0.0877193) (H* 0.22807) (!H* 0.368421) (L+H* 0.298246) (L* 0.0175439) (L*+H 0) !H*))))))
+                      ((ssyl_out is 2)
+                       ((p.syl_break is 0)
+                        (((NONE 0.634921) (H* 0.174603) (!H* 0.0793651) (L+H* 0.111111) (L* 0) (L*+H 0) NONE))
+                        ((pp.syl_break is 0)
+                         (((NONE 0.388889) (H* 0.148148) (!H* 0.148148) (L+H* 0.259259) (L* 0.0185185) (L*+H 0.037037) NONE))
+                         (((NONE 0.294118) (H* 0.137255) (!H* 0.215686) (L+H* 0.333333) (L* 0.0196078) (L*+H 0) L+H*))))
+                       ((R:SylStructure.parent.R:Word.pp.gpos is to)
+                        (((NONE 0.0877193) (H* 0.350877) (!H* 0.210526) (L+H* 0.315789) (L* 0.0350877) (L*+H 0) H*))
+                        ((syl_break is 3)
+                         ((pp.syl_break is 0)
+                          (((NONE 0.478261) (H* 0.141304) (!H* 0.195652) (L+H* 0.184783) (L* 0) (L*+H 0) NONE))
+                          (((NONE 0.217822) (H* 0.366337) (!H* 0.257426) (L+H* 0.128713) (L* 0.029703) (L*+H 0) H*)))
+                         ((syl_in is 7)
+                          ((n.stress is 0)
+                           ((R:SylStructure.parent.R:Word.n.gpos is content)
+                            (((NONE 0.117647) (H* 0.220588) (!H* 0.441176) (L+H* 0.176471) (L* 0.0441176) (L*+H 0) !H*))
+                            (((NONE 0.415385) (H* 0.0461538) (!H* 0.2) (L+H* 0.246154) (L* 0.0923077) (L*+H 0) NONE)))
+                           (((NONE 0.716981) (H* 0.113208) (!H* 0.0943396) (L+H* 0.0754717) (L* 0) (L*+H 0) NONE)))
+                          ((R:SylStructure.parent.R:Word.n.gpos is cc)
+                           (((NONE 0.292308) (H* 0.184615) (!H* 0.276923) (L+H* 0.246154) (L* 0) (L*+H 0) NONE))
+                           ((nn.syl_break is 3)
+                            (((NONE 0.2) (H* 0.333333) (!H* 0.283333) (L+H* 0.15) (L* 0.0333333) (L*+H 0) H*))
+                            ((ssyl_in is 4)
+                             (((NONE 0.383838) (H* 0.151515) (!H* 0.212121) (L+H* 0.20202) (L* 0.050505) (L*+H 0) NONE))
+                             ((p.syl_break is 0)
+                              ((n.syl_break is 1)
+                               (((NONE 0.526316) (H* 0.210526) (!H* 0.0921053) (L+H* 0.171053) (L* 0) (L*+H 0) NONE))
+                               ((ssyl_in is 3)
+                                (((NONE 0.509804) (H* 0.0980392) (!H* 0.215686) (L+H* 0.156863) (L* 0.0196078) (L*+H 0) NONE))
+                                ((pp.syl_break is 0)
+                                 (((NONE 0.506667) (H* 0.173333) (!H* 0.106667) (L+H* 0.2) (L* 0.0133333) (L*+H 0) NONE))
+                                 ((ssyl_in is 1)
+                                  (((NONE 0.1) (H* 0.4) (!H* 0.266667) (L+H* 0.188889) (L* 0.0444444) (L*+H 0) H*))
+                                  (((NONE 0.326316) (H* 0.210526) (!H* 0.221053) (L+H* 0.189474) (L* 0.0526316) (L*+H 0) NONE))))))
+                              ((R:SylStructure.parent.R:Word.p.gpos is in)
+                               (((NONE 0.0625) (H* 0.296875) (!H* 0.265625) (L+H* 0.328125) (L* 0.046875) (L*+H 0) L+H*))
+                               ((syl_in is 6)
+                                (((NONE 0.271739) (H* 0.152174) (!H* 0.358696) (L+H* 0.184783) (L* 0.0326087) (L*+H 0) !H*))
+                                ((syl_out is 2)
+                                 (((NONE 0.111111) (H* 0.361111) (!H* 0.319444) (L+H* 0.138889) (L* 0.0555556) (L*+H 0.0138889) H*))
+                                 ((syl_in is 4)
+                                  (((NONE 0.224) (H* 0.152) (!H* 0.328) (L+H* 0.24) (L* 0.056) (L*+H 0) !H*))
+                                  ((n.stress is 0)
+                                   ((syl_in is 3)
+                                    (((NONE 0.0833333) (H* 0.333333) (!H* 0.233333) (L+H* 0.216667) (L* 0.133333) (L*+H 0) H*))
+                                    (((NONE 0.283465) (H* 0.188976) (!H* 0.23622) (L+H* 0.204724) (L* 0.0708661) (L*+H 0.015748) NONE)))
+                                   (((NONE 0.305263) (H* 0.284211) (!H* 0.210526) (L+H* 0.178947) (L* 0.0210526) (L*+H 0) NONE))))))))))))))))))))))))))))))))))))))))
+)
+
+;          NON             L-L  L-H  H-L  
+;    NONE13017    0    0    0    0    0 13017      [13017/13017]     100.000
+;       H- 339   81    0    1    1    0  422      [81/422]      19.194
+;       L- 223   52    0    5    0    0  280      [0/280]       0.000
+;     L-L%  17    0    0 1057   96    0 1170      [1057/1170]      90.342
+;     L-H%  16    0    0  457  139    0  612      [139/612]      22.712
+;     H-L%   5    0    0   30    4    0   39      [0/39]       0.000
+;        13617  133    0 1550  240    0 
+;total 15540 correct 14294.000 91.982%
+(set! f2b_int_tone_cart_tree
+'((lisp_syl_yn_question is 1)
+  (((H-H% 1.0) H-H%))
+((R:SylStructure.parent.gpos is cc)
+ (((NONE 0.996942) (H- 0.0030581) (L- 0) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+ ((ssyl_in is 10)
+  (((NONE 0.989041) (H- 0.00273973) (L- 0) (L-L% 0.00273973) (L-H% 0.00547945) (H-L% 0) NONE))
+  ((R:SylStructure.parent.gpos is md)
+   (((NONE 0.986014) (H- 0) (L- 0) (L-L% 0.00699301) (L-H% 0.00699301) (H-L% 0) NONE))
+   ((p.old_syl_break is 4)
+    (((NONE 0.99462) (H- 0.00239091) (L- 0.00119546) (L-L% 0) (L-H% 0.00119546) (H-L% 0.000597729) NONE))
+    ((R:SylStructure.parent.gpos is det)
+     (((NONE 0.984635) (H- 0.00512164) (L- 0.00384123) (L-L% 0.00384123) (L-H% 0.00256082) (H-L% 0) NONE))
+     ((n.old_syl_break is 3)
+      (((NONE 0.981848) (H- 0.00495049) (L- 0.00330033) (L-L% 0.00660066) (L-H% 0.00330033) (H-L% 0) NONE))
+      ((n.old_syl_break is 4)
+       (((NONE 0.986982) (H- 0.000591716) (L- 0.0100592) (L-L% 0.00118343) (L-H% 0.00118343) (H-L% 0) NONE))
+       ((R:SylStructure.parent.gpos is in)
+        (((NONE 0.977865) (H- 0.00390625) (L- 0.00390625) (L-L% 0.0078125) (L-H% 0.00651042) (H-L% 0) NONE))
+        ((old_syl_break is 4)
+         ((R:SylStructure.parent.R:Word.n.gpos is 0)
+          (((NONE 0) (H- 0.00892857) (L- 0) (L-L% 0.982143) (L-H% 0.00892857) (H-L% 0) L-L%))
+          ((R:SylStructure.parent.R:Word.p.gpos is aux)
+           (((NONE 0) (H- 0) (L- 0) (L-L% 0.761905) (L-H% 0.238095) (H-L% 0) L-L%))
+           ((R:SylStructure.parent.R:Word.n.gpos is det)
+            (((NONE 0) (H- 0) (L- 0) (L-L% 0.652542) (L-H% 0.347458) (H-L% 0) L-L%))
+            ((ssyl_in is 4)
+             (((NONE 0) (H- 0) (L- 0) (L-L% 0.682243) (L-H% 0.313084) (H-L% 0.0046729) L-L%))
+             ((syl_in is 6)
+              (((NONE 0) (H- 0) (L- 0.00649351) (L-L% 0.688312) (L-H% 0.298701) (H-L% 0.00649351) L-L%))
+              ((R:SylStructure.parent.R:Word.n.gpos is aux)
+               (((NONE 0) (H- 0) (L- 0) (L-L% 0.464286) (L-H% 0.535714) (H-L% 0) L-H%))
+               ((syl_in is 5)
+                (((NONE 0) (H- 0) (L- 0) (L-L% 0.666667) (L-H% 0.322034) (H-L% 0.0112994) L-L%))
+                ((sub_phrases is 2)
+                 (((NONE 0) (H- 0) (L- 0) (L-L% 0.696429) (L-H% 0.267857) (H-L% 0.0357143) L-L%))
+                 ((R:SylStructure.parent.R:Word.p.gpos is det)
+                  (((NONE 0) (H- 0) (L- 0) (L-L% 0.628866) (L-H% 0.350515) (H-L% 0.0206186) L-L%))
+                  ((sub_phrases is 0)
+                   ((R:SylStructure.parent.R:Word.n.gpos is in)
+                    ((n.old_syl_break is 0)
+                     (((NONE 0) (H- 0) (L- 0) (L-L% 0.68254) (L-H% 0.31746) (H-L% 0) L-L%))
+                     (((NONE 0) (H- 0.0147059) (L- 0) (L-L% 0.338235) (L-H% 0.632353) (H-L% 0.0147059) L-H%)))
+                    ((n.stress is 0)
+                     (((NONE 0) (H- 0) (L- 0.0108303) (L-L% 0.599278) (L-H% 0.32491) (H-L% 0.064982) L-L%))
+                     (((NONE 0) (H- 0) (L- 0) (L-L% 0.386364) (L-H% 0.579545) (H-L% 0.0340909) L-H%))))
+                   (((NONE 0) (H- 0) (L- 0.00456621) (L-L% 0.652968) (L-H% 0.324201) (H-L% 0.0182648) L-L%))))))))))))
+         ((R:SylStructure.parent.gpos is pps)
+          (((NONE 0.988764) (H- 0.011236) (L- 0) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+          ((syl_in is 0)
+           (((NONE 0.984848) (H- 0.0126263) (L- 0.00252525) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+           ((R:SylStructure.parent.gpos is content)
+            ((R:SylStructure.parent.R:Word.nn.gpos is 0)
+             (((NONE 0.967914) (H- 0.0106952) (L- 0.0213904) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+             ((pp.old_syl_break is 4)
+              (((NONE 0.972315) (H- 0.0232558) (L- 0.00442968) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+              ((syl_in is 1)
+               (((NONE 0.951163) (H- 0.0372093) (L- 0.0116279) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+               ((nn.old_syl_break is 4)
+                (((NONE 0.956244) (H- 0.0127621) (L- 0.0291705) (L-L% 0) (L-H% 0) (H-L% 0.00182315) NONE))
+                ((R:SylStructure.parent.R:Word.nn.gpos is in)
+                 (((NONE 0.941919) (H- 0.0378788) (L- 0.020202) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                 ((R:SylStructure.parent.R:Word.p.gpos is cc)
+                  (((NONE 0.919643) (H- 0.0714286) (L- 0.00892857) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                  ((nn.old_syl_break is 3)
+                   (((NONE 0.927273) (H- 0.0472727) (L- 0.0254545) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                   ((R:SylStructure.parent.R:Word.nn.gpos is cc)
+                    (((NONE 0.921569) (H- 0.0588235) (L- 0.0196078) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                    ((ssyl_in is 0)
+                     (((NONE 0.911591) (H- 0.0825147) (L- 0.00589391) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                     ((R:SylStructure.parent.R:Word.nn.gpos is to)
+                      (((NONE 0.912281) (H- 0.0350877) (L- 0.0526316) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                      ((R:SylStructure.parent.R:Word.pp.gpos is to)
+                       (((NONE 0.894737) (H- 0.0526316) (L- 0.0526316) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                       ((R:SylStructure.parent.R:Word.p.gpos is in)
+                        (((NONE 0.888554) (H- 0.0662651) (L- 0.0451807) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                        ((R:SylStructure.parent.R:Word.pp.gpos is in)
+                         (((NONE 0.875817) (H- 0.0718954) (L- 0.0522876) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                         ((syl_in is 2)
+                          (((NONE 0.869942) (H- 0.0867052) (L- 0.0433526) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                          ((R:SylStructure.parent.R:Word.nn.gpos is aux)
+                           (((NONE 0.854839) (H- 0.0967742) (L- 0.0483871) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                           ((sub_phrases is 1)
+                            (((NONE 0.836538) (H- 0.0721154) (L- 0.0913462) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                            ((R:SylStructure.parent.R:Word.pp.gpos is det)
+                             (((NONE 0.832402) (H- 0.0949721) (L- 0.0726257) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                             ((ssyl_in is 4)
+                              (((NONE 0.793103) (H- 0.103448) (L- 0.103448) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                              ((n.old_syl_break is 0)
+                               (((NONE 0.850816) (H- 0.0839161) (L- 0.0652681) (L-L% 0) (L-H% 0) (H-L% 0) NONE))
+                               ((R:SylStructure.parent.R:Word.n.gpos is content)
+                                (((NONE 0.889447) (H- 0.0753769) (L- 0.0251256) (L-L% 0) (L-H% 0) (H-L% 0.0100503) NONE))
+                                ((old_syl_break is 3)
+                                 (((NONE 0) (H- 0.609023) (L- 0.390977) (L-L% 0) (L-H% 0) (H-L% 0) H-))
+                                 (((NONE 1) (H- 0) (L- 0) (L-L% 0) (L-H% 0) (H-L% 0) NONE)))))))))))))))))))))))
+            (((NONE 0.978947) (H- 0.0131579) (L- 0.00789474) (L-L% 0) (L-H% 0) (H-L% 0) NONE)))))))))))))))
+
+)
+
+(defvar tobi_support_yn_questions t
+  "tobi_support_yn_questions
+If set a crude final rise will be added at utterance that are judged
+to be yesy/no questions.  Namely ending in a ? and not starting with
+a wh-for word.")
+
+(define (first_word syl)
+  (let ((w (item.relation.parent syl 'SylStructure)))
+    (item.relation.first w 'Word)))
+
+(define (syl_yn_question syl)
+"(syl_yn_question utt syl)
+Return 1 if this is the last syllable in a yes-no question.  Basically
+if it ends in question mark and doesn't start with a wh-woerd.  This
+isn't right but it depends on how much you want rising intonation."
+  (if (and 
+       tobi_support_yn_questions
+       (member_string (item.feat syl "syl_break") '("4" "3"))
+       (not (member_string 
+	     (downcase (item.name (first_word syl)))
+	     '("how" "why" "which" "who" "what" "where" "when")))
+       (string-matches 
+	(item.feat syl "R:SylStructure.parent.R:Token.parent.punc")
+		       ".*\\?.*"))
+      "1"
+      "0"))
+
+(provide 'tobi)

CosyVoice-ttsfrd/resource/festival/tobi_rules.scm

@@ -0,0 +1,1002 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                Authors: Robert A. J. Clark and Alan W Black
+;;;                Modifications and Checking: 
+;;;                         Gregor Moehler ([email protected])
+;;;                         Matthew Stone ([email protected])
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Generate F0 points from tobi labels using rules given in:
+;;; Jilka, Moehler & Dogil (forthcomming in Speech Communications)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  *** Converted to new Relation architecture -- but not checked yet -- awb
+;;;      -> crude (beta) checking: gm in Dec. 98
+;;;
+;;;      -> fixed TAKEOVER bug that used time value 
+;;;         as pitch target (!) - MDS 1/02
+;;;      -> hacked around bunches of target overlap problems - MDS 1/02
+;;;      -> added primitive pitch range controls
+;;;      
+;;;  Known problems and bugs:
+;;;      Can't currently use voicing intervals which cross syllable boundaries,
+;;;      so pre/post-nuclear tones are currently places 0.2s before/after the 
+;;;      nuclear tone even if no voicing occurs. Failing this they default a
+;;;      percentage of the voicing for that syllable. 
+;;; 
+;;;      Don't know about target points ahead of the current syllable.
+;;;      (As you need to know what comes before them to calculate them)
+;;;      So: post accent tones are placed 0.2 ahead if following syllable exists
+;;;          ends before 0.2 from starred target and is not accented
+;;;      The H-target of the H+!H* is 0.2 sec instead of 0.15 sec before 
+;;;      starred tone.
+;;;      
+;;;      Multi-utterance input has not been tested. 
+;;;      
+;;;      !H- does not generate any targets
+;;;      
+;;;      Unfortunaltely some other modules may decide to put pauses in the 
+;;;      middle of a phrase
+;;;      
+;;;      valleys are not tested yet
+;;;      
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  To use this in a voice 
+;;;     (require 'tobi_rules)
+;;;  And in the voice call
+;;;     (setup_tobi_f0_method)
+;;;  Set the following for your speaker's F0 range
+;;;  (Parameter.set 'Default_Topline 146)
+;;;  (Parameter.set 'Default_Start_Baseline 61)
+;;;  (Parameter.set 'Valley_Dip 75)
+
+;; level of debug printout
+(set! printdebug 0)
+
+(define (setup_tobi_f0_method)
+  "(setup_tobi_f0_method)
+Set up parameters for current voice to use the implementaion
+of ToBI labels to F0 targets by rule."
+  (Parameter.set 'Int_Method Intonation_Tree)
+  (Parameter.set 'Int_Target_Method Int_Targets_General)
+  (set! int_accent_cart_tree no_int_cart_tree) ; NONE always
+  (set! int_tone_cart_tree   no_int_cart_tree) ; NONE always
+  (set! int_general_params
+	(list 
+	 (list 'targ_func tobi_f0_targets)))   ; we will return a list of f0 targets here
+
+  (Parameter.set 'Phrase_Method 'cart_tree)
+  (set! phrase_cart_tree tobi_label_phrase_cart_tree) ; redefines the phrasebreak tree
+  t)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;
+;;;;;; Define and set the new f0 rules
+;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;; Set global parameters
+;;; You may want to reset these for different speakers
+
+(Parameter.set 'Default_Topline 146) ;146
+(Parameter.set 'Default_Start_Baseline 61) ;61
+(Parameter.set 'Current_Topline        (Parameter.get 'Default_Topline))
+(Parameter.set 'Current_Start_Baseline (Parameter.get 'Default_Start_Baseline))
+(Parameter.set 'Current_End_Baseline   (Parameter.get 'Current_Start_Baseline))
+(Parameter.set 'Downstep_Factor 0.70)
+(Parameter.set 'Valley_Dip 75)
+;;; function to add target points on a given syllable and fill in 
+;;; targets where necessary
+
+(define (tobi_f0_targets utt syl)
+  "(tobi_f0_targets UTT ITEM)
+   Returns a list of targets for the given syllable."
+  (if (and (>= printdebug  1)
+	   (not(equal? 0 (item.feat syl "R:Intonation.daughter1.name"))))
+      (format t "### %l (%.2f %.2f) %l ptarg: %l ###\n" (item.name syl)
+	      (item.feat syl "syllable_start")(item.feat syl "syllable_end")
+	      (item.feat syl "R:Intonation.daughter1.name") (ttt_last_target_time syl)))
+  
+  ;; only continue if there is a Word related to this syllable
+  ;; I know there always should be, but there might be a bug elsewhere
+  (cond 
+   ((not(equal? 0 (item.feat syl "R:SylStructure.parent.name")))
+
+    ; get current label. This assumes that there is only one accent and
+    ; one endtone on a syllable. Although there can be one of each.
+    (let ((voicing  (ttt_get_voice_times syl))                ; voicing interval
+	  (pvoicing (ttt_get_voice_times                      ; previous voicing
+		     (item.relation.prev syl 'Syllable)))
+	  (nvoicing (ttt_get_voice_times                      ; next voicing
+		     (item.relation.next syl 'Syllable))))
+
+    ; if first syl of phrase set Phrase_Start and Phrase_End parameters
+    ; and reset downstep (currently does so on big and little breaks.)
+    ; only assignes Default values at this stage 
+    ; maybe trained from CART later - first steps now - MDS
+    ; following Moehler and Mayer, SSW 2001 
+    (if   (eq 0 (item.feat syl 'syl_in)) ;; GM maybe something better needed here?
+	(progn
+	 (Parameter.set 'Phrase_Start (item.feat syl 'R:SylStructure.parent.R:Phrase.last.word_start))
+	 (Parameter.set 'Phrase_End (item.feat syl 'R:SylStructure.parent.R:Phrase.last.word_end))
+	 (Parameter.set 'Current_Topline 
+			(/ (* (wagon syl ttt_topline_tree) 
+			      (Parameter.get 'Default_Topline)) 100))
+	 (Parameter.set 'Current_Start_Baseline
+			(/ (* (wagon syl ttt_baseline_tree)
+			      (Parameter.get 'Default_Start_Baseline)) 100))
+	 (Parameter.set 'Current_End_Baseline 
+			(Parameter.get 'Current_Start_Baseline))
+	 (if (>= printdebug  3)
+	     (begin 
+	       (print (format nil "new range: %f %f %f" 
+			      (Parameter.get 'Current_Topline) 
+			      (Parameter.get 'Current_Start_Baseline)
+			      (Parameter.get 'Current_End_Baseline) ))))  ))
+
+    ; do stuff (should go only if there is an accent/boundary?)
+    (let ((new_targets 
+	   (ttt_to_targets syl (wagon syl ttt_starttone_tree)
+			   voicing
+			   pvoicing
+			   nvoicing
+			   'Starttones)))
+
+    (set! new_targets (append new_targets 
+	   (ttt_to_targets syl (wagon syl ttt_accent_tree)
+			   voicing 
+			   pvoicing 
+			   nvoicing 
+			   'Accents)))
+
+    (set! new_targets (append new_targets 
+	   (ttt_to_targets syl (wagon syl ttt_endtone_tree)
+			   voicing
+			   pvoicing
+			   nvoicing
+			   'Endtones)))
+
+    (if (and(not(equal? new_targets nil))
+	    (>= printdebug  2))
+	(begin
+	  (format t ">> Targets: %l\n" new_targets)
+	  (format t ">> LastTarget: %l\n" (last new_targets))
+	  ))
+
+      new_targets)))))
+
+
+;;; CART tree to specify no accents
+
+(set! no_int_cart_tree
+'
+((NONE)))
+
+;;;
+;;; Relate phrasing to boundary tones.
+;;;   Added downstepped tones - MDS
+
+(set! tobi_label_phrase_cart_tree
+'
+((tone in ("L-" "H-" "!H-"))
+ ((B))
+ ((tone in ("H-H%" "H-L%" "!H-L%" "L-L%" "L-H%"))
+  ((BB))
+  ((NB)))))
+
+;;;
+;;;  The other functions
+;;;
+
+;;; process a list of relative targets and convert to actual targets
+
+(define (ttt_to_targets syl rlist voicing pvoicing nvoicing type)
+  "Takes a list of target sets and returns a list of targets."
+  (if (or (and (>= printdebug  2)
+	       rlist (atom (caar rlist)) 
+	       (not (equal? 'NONE (caar rlist))) (not (equal? '(NONE) (caar rlist))))
+	  (>= printdebug  3)) 
+       (begin (print "Entering ttt_to_targets with:")
+	(print (format nil "rlist: %l vc: %l pvc: %l nvc: %l type: %s" rlist voicing pvoicing nvoicing type))))
+(cond 
+ ;; nowt
+ ((eq (length rlist) 0) ())
+ ;; a single target set
+ ((atom (car (car rlist)))
+  (cond
+   ((eq type 'Accents)
+    (ttt_accent_set_to_targets syl rlist voicing pvoicing nvoicing))
+   ((eq type 'Starttones)
+    (ttt_bound_set_to_targets syl rlist voicing pvoicing))
+   ((eq type 'Endtones)
+    (ttt_bound_set_to_targets syl rlist voicing pvoicing))
+   (t (error "unknown target set encountered in ttt_to_targets"))))
+ ;; list of target sets
+ ((atom (car (car (car rlist))))
+  (append (ttt_to_targets syl (cdr rlist) voicing pvoicing nvoicing type)
+	  (ttt_to_targets syl (car rlist) voicing pvoicing nvoicing type)))
+ ;; error
+ (t (error "something strange has happened in ttt_to_targets"))))
+
+
+;; process a starttone/endtone target set.
+
+(define (ttt_bound_set_to_targets syl tset voicing pvoicing)
+  "takes a start/endtone target set and returns a list of target points."
+  (if (>= printdebug  3) (begin
+      (print "Entering ttt_bound_set_to_targets with:")
+      (pprintf (format nil "tset: %l vc: %l pvc: %l" tset voicing pvoicing))))
+  (cond
+   ;; usually target given is NONE. (also ignore unknown!)
+   ((or (eq (car (car tset)) 'NONE)
+	(eq (car (car tset)) 'UNKNOWN))
+    nil)
+   ;; a pair of target pairs
+   ((eq (length tset) 2)
+    (list (ttt_get_target (car tset) voicing) 
+	  (ttt_get_target (car (cdr tset)) voicing)))
+   ;; single target pair
+   ((eq (length tset) 1)
+    (cond
+     ;; an actual target pair
+     ((not (null (cdr (car tset))))
+      (list (ttt_get_target (car tset) voicing)))
+     ;; a TAKEOVER marker
+     ((eq (car (car tset)) 'TAKEOVER)
+      (list (list (ttt_interval_percent voicing 0) 
+		  (ttt_last_target_value syl))))
+     (t (error "unknown target pair in ttt_bound_set_to_targets"))))
+   (t (error "unknown target set type in ttt_bound_set_to_targets"))))
+
+
+;; process an accent target set.
+
+(define (ttt_accent_set_to_targets syl tset voicing pvoicing nvoicing)
+  "takes a accent target set and returns a list of target points."
+  (if (>= printdebug  3) (begin
+      (print "Entering ttt_accent_set_to_targets with:")
+      (pprintf (format nil "tset: %l vc: %l pvc: %l nvc: %l" tset voicing pvoicing nvoicing))))
+  (cond
+   ;; single target in set
+   ((null (cdr tset)) 
+    (cond
+     ; target given is NONE.
+     ((or (eq (car (car tset)) 'NONE)
+	  (eq (car (car tset)) 'UNKNOWN)) nil) 
+     ; V1 marker
+     ((eq (car (car tset)) 'V1)
+      (let ((target_time (+ (/ (- (next_accent_start syl)
+				  (ttt_last_target_time syl))
+			       2.0)
+			    (ttt_last_target_time syl))))
+	(list (list target_time (ttt_accent_pitch (Parameter.get 'Valley_Dip) target_time)))))
+     ; V2 marker
+     ((eq (car (car tset)) 'V2)
+      (let ((target_time (+ (ttt_last_target_time syl) 0.25)))
+	(list (list target_time (ttt_accent_pitch (Parameter.get 'Valley_Dip) target_time)))))
+     ; V3 marker
+     ((eq (car (car tset)) 'V3)
+      (let ((target_time (- (next_accent_start syl) 0.25)))
+	(list (list target_time (ttt_accent_pitch (Parameter.get 'Valley_Dip) target_time)))))     
+     ; single target pair
+     (t (list (ttt_get_target (car tset) voicing)))))
+   ;; a pair of targets
+   ((length tset 2)
+    (cond
+     ;; a *ed tone with PRE type tone (as in L+H*)
+     ((eq (car (car tset)) 'PRE)
+      (let ((star_target (ttt_get_target (car (cdr tset)) voicing))
+	    (last_target (parse-number(ttt_last_target_time syl))))
+	(cond
+	 ; normal 0.2s case (currently doesn't check for voicing)
+	 ((and (eqv? 0 (ip_initial syl))
+	       (> (- (car star_target) 0.2) last_target))
+	  (list  (list (- (car star_target) 0.2)
+	   	       (ttt_accent_pitch (car (cdr (car tset)))
+					 (- (car star_target) 0.2))) ; the time
+	   	 star_target))
+
+	 ; 90% prev voiced if not before last target - Added back in MDS,
+	 ; with parse-number added and new check for ip_initial
+	 ((and (eqv? 0 (ip_initial syl))
+	       (> (parse-number (ttt_interval_percent pvoicing 90))
+		  (parse-number (ttt_last_target_time syl))))
+	  (list (list (ttt_interval_percent pvoicing 90)
+		      (ttt_accent_pitch (car (cdr (car tset)))
+					(ttt_interval_percent pvoicing 90)))
+		star_target))
+
+	 ;  otherwise (UNTESTED) [NOTE: Voicing for this syllable only]
+	 (t 
+	  (list (list (ttt_interval_percent voicing 20)
+	 		(ttt_accent_pitch (car (cdr (car tset)))
+	 				  (ttt_interval_percent voicing 20)))
+	 	  star_target)))))
+     ; a *ed tone with POST type tone (as L*+H)
+     ((eq (car(car(cdr tset))) 'POST)
+      (let ((star_target (ttt_get_target (car tset) voicing))
+	    (next_target nil ) ; interesting problem
+	    (next_syl (item.next syl)))
+
+	(cond
+	 ; normal 0.2s case (UNTESTED)
+	 ((and (not (equal? next_syl nil))
+	       (eq 0 (item.feat next_syl "accented")))
+	  (cond
+	   ((< (+ (car star_target) 0.2) (item.feat next_syl "syllable_end"))
+	    (list star_target 
+		  (list (+ (car star_target) 0.2) 
+			(ttt_accent_pitch (car (cdr (car (cdr tset))))
+					  (+ (car star_target) 0.2) ))))
+	   (t 
+	    
+	    (list star_target
+		    (list (ttt_interval_percent nvoicing 90)
+			  (ttt_accent_pitch (car (cdr (car (cdr tset))))
+					    (ttt_interval_percent nvoicing 90) ))))))
+
+	 ; 20% next voiced (BUG: Can't do this as the next target hasn't been
+	 ;                                                     calculated yet!)
+	 (nil nil)
+	 ;otherwise (UNTESTED)
+	 (t (list star_target
+		  (list (ttt_interval_percent voicing 90)
+			(ttt_accent_pitch (car (cdr (car (cdr tset))))
+					  (ttt_interval_percent voicing 90) )))))))
+     
+     (t 
+      ;; This case didn't use to happen, but now must 
+      ;; to avoid +H's clobbering endtones - MDS's hack.
+      (list (ttt_get_target (car tset) voicing)
+	    (ttt_get_target (cadr tset) voicing)))))
+
+   
+   ;; something else...
+   (t (error (format nil "unknown accent set in ttt_accent_set_to_targets: %l" tset)))))
+
+
+
+(define (ttt_get_target pair voicing)
+  "Returns actual target pair, usually for a stared tone."
+  (if (>= printdebug  4) (begin
+      (print "Entering ttt_get_target with:")
+      (pprintf pair) (pprintf voicing)))
+  (list (ttt_interval_percent voicing (car pair))
+	(ttt_accent_pitch (car (cdr pair))
+			  (ttt_interval_percent voicing (car pair)))))
+
+(define (ttt_accent_pitch value time)
+  "Converts a accent pitch entry to a pitch value."
+  (if (>= printdebug  4) (begin
+      (print "Entering ttt_accent_pitch with:")
+      (pprintf value)))
+  (cond
+   ;; a real value
+   ((number? value) 
+    (ttt_interval_percent (list (ttt_get_current_baseline time)
+				(Parameter.get 'Current_Topline))
+			  value))
+   ;; Downstep then Topline
+   ((eq value 'DHIGH)
+    (progn
+     (Parameter.set 'Current_Topline (+ (ttt_get_current_baseline time)
+					(* (Parameter.get 'Downstep_Factor)
+					   (- (Parameter.get 'Current_Topline)
+					      (ttt_get_current_baseline time)))))
+     (ttt_interval_percent (list (ttt_get_current_baseline time)
+				 (Parameter.get 'Current_Topline))
+			   100)))
+     
+   ;; Unknown
+   (t  (error "Unknown accent pitch value encountered"))))
+
+
+(define (ttt_get_current_baseline v)
+  "Returns the current declined baseline at time v."
+  (if (>= printdebug  4) (begin
+      (print "Entering  ttt_get_current_baseline with:")
+      (pprintf v)))
+  (let ((h (Parameter.get 'Current_Start_Baseline))
+	(l (Parameter.get 'Current_End_Baseline))
+	(e (Parameter.get 'Phrase_End))
+	(s (Parameter.get 'Phrase_Start)))
+    (- h (* (/ (- h l) (- e s)) (- v s)))))
+
+;;; find the time n% through an inteval
+
+(define (ttt_interval_percent pair percent)
+  "Returns the time that is percent percent thought the pair."
+  (if (>= printdebug  4) (begin
+      (print "Entering ttt_interval_percent with:")
+      (pprintf (format nil "%l, %l" pair percent))))
+  (cond
+   ; no pair given: just return nil
+   ((null pair) nil)
+   ; otherwise do the calculation
+   (t (let ((start (car pair))
+	    (end (car(cdr pair))))
+	(+ start (* (- end start) (/ percent 100)))))))
+
+
+;;;  Getting start and end voicing times in a syllable
+
+(define (ttt_get_voice_times syl_item)
+  "Returns a pair of start time of first voiced phone in syllable and
+end of last voiced phone in syllable, or nil if syllable is nil"
+  (cond
+   ((null syl_item) nil)
+   (t (let ((segs (item.relation.daughters syl_item "SylStructure")))
+	(list
+	 (item.feat (ttt_first_voiced segs) "segment_start")
+	 (item.feat (ttt_first_voiced (reverse segs)) "end"))))))
+
+(define (ttt_first_voiced segs)
+  "Returns first segment that is voiced (vowel or voiced consonant)
+returns last segment if all are unvoiced."
+  (cond
+   ((null (cdr segs))
+    (car segs))  ;; last possibility
+   ((equal? "+" (item.feat (car segs) "ph_vc"))
+    (car segs))
+   ((equal? "+" (item.feat (car segs) "ph_cvox"))
+    (car segs))
+   (t
+    (ttt_first_voiced (cdr segs)))))
+
+;;; ttt_last_target has bifurcated into
+;;;   ttt_last_target_time and
+;;;   ttt_last_target_value 
+;;; to fix a place where f0 was set to last target time!
+;;;   - MDS
+
+(define (ttt_last_target_time syl)
+  "Returns the end of the most recent previous target 
+in the utterance or nil if there is not one present
+"
+  (if (>= printdebug  3)
+      (begin (print "Entering  ttt_last_target_time")
+	     (print syl))
+      )
+  (let ((target (ttt_last_target syl)))
+    (if (null? target)
+	nil
+	(item.feat target "R:Target.daughter1.pos"))))
+
+(define (ttt_last_target_value syl)
+  "Returns the pitch of the most recent previous target 
+in the utterance or nil if there is not one present
+"
+  (if (>= printdebug  3)
+      (begin (print "Entering  ttt_last_target_time")
+	     (print syl))
+      )
+  (let ((target (ttt_last_target syl)))
+    (if (null? target)
+	nil
+	(item.feat target "R:Target.daughter1.f0"))))
+
+;; Changed to scan through segments in the segment relation,
+;; to catch (notional) targets on pauses.  - MDS
+;;
+;;; associated segments are:
+;;; - the segments in the word
+;;; - subsequent segments not in the syllable structure
+;;; and on the first word, preceding segments
+;;; not in the syllable structure 
+
+(define (ttt_collect_following seg accum)
+  (if (or (null? seg)
+	  (not (null? (item.relation seg 'SylStructure))))
+      accum
+      (ttt_collect_following (item.next seg) 
+			     (cons seg accum))))
+
+
+(define (ttt_last_target syl)
+  "Returns the most recent previous target 
+in the utterance or nil if there is not one present
+"
+(if (>= printdebug  3)
+    (begin (print "Entering  ttt_last_target")
+    (print syl))
+    )
+  (let ((prev_syl (item.relation.prev syl 'Syllable)))
+    (cond
+;     ((symbol-bound? 'new_targets) (last (caar new_targets)))
+     ((null prev_syl) nil)
+     ((ttt_last_target_segs 
+       (ttt_collect_following 
+	(item.relation.next 
+	 (item.relation.daughtern prev_syl "SylStructure")
+	 "Segment")
+	(reverse (item.relation.daughters prev_syl "SylStructure")))))
+					;list of segments of prev. syllable
+					;in reverse order, with pauses
+					;prepended.
+     (t (ttt_last_target prev_syl)))))
+
+(define (ttt_last_target_segs segs)
+  "Returns the first target no earlier than seg
+or nil if there is not one
+"
+(if (>= printdebug  4)
+    (begin (print "Entering  ttt_last_target_segs with:")
+	   (pprintf (format nil "%l" segs))
+))
+  (cond
+   ((null segs) nil)
+   ((and  (> (parse-number 
+	      (item.feat  (car segs) "R:Target.daughter1.f0")) 0)
+	  (eq 0 (item.feat (car segs) "R:SylStructure.parent.lisp_lh_condition"))
+	  (eq 0 (item.feat (car segs) "R:SylStructure.parent.lisp_hl_condition"))
+	  (eq 0 (item.feat (car segs) "R:SylStructure.parent.lisp_valley_condition")))
+    (car segs))
+   
+   (t (ttt_last_target_segs (cdr segs)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;
+;;;;;; CART TREES                           (ttt - tobi to target)
+;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Return a list of target lists. A target list comprises of a list
+;;; of related targets (ie for the L and H in L+H*), just to confuse
+;;; matters each target is also a list! (pos pitch)
+;;;
+
+
+(set! ttt_endtone_tree  ; BUG: does it check the current syl for last accent?
+      '
+      ((tobi_endtone is NONE)        ; ususally none
+       ((((NONE))))
+       ((tobi_endtone is "H-H%")     ; H-H%
+	((((100 120))))
+	((tobi_endtone is "L-L%")    ; L-L%
+	 ((((100 -20))))
+	 ((tobi_endtone is "L-H%")   ; L-H%
+	  ((lisp_last_accent > 2)
+	   ((lisp_last_accent_type is "L*") 
+	    ((((0 25) (100 40))))    ; paper says 80 but AWB had 40
+	    ((((0 0) (100 40)))))
+	   ((lisp_last_accent_type is "L*")
+	    ((((100 40))))
+	    ((((50 0) (100 40))))))
+	  ((tobi_endtone is "H-L%")  ; H-L%
+	   ((lisp_last_accent_type is "L*")
+	    ((tobi_accent is"L*")
+	     ((((50 100) (100 100))))
+	     ((((0 100) (100 100)))))
+	    ((((100 100)))))
+	  ((tobi_endtone is "!H-L%")  ; !H-L%
+	   ((lisp_last_accent_type is "L*")
+	    ((tobi_accent is"L*")
+	     ((((50 DHIGH) (100 100))))
+	     ((((0 DHIGH) (100 100)))))
+	    ((((100 DHIGH)))))
+	   ((tobi_endtone is "H-")
+	    ((((100 100))))
+	    ((tobi_endtone is "!H-")
+	     ((((100 DHIGH))))
+	     ((tobi_endtone is "L-")
+	      ((((100 0))))
+	      ((((UNKNOWN))))))))))))))
+
+(set! ttt_starttone_tree
+      '
+      ((lisp_ip_initial = 1)
+       ((tobi_endtone is "%H")
+	((((0 100))))
+	((p.tobi_endtone in ("H-" "!H-" "L-"))
+	 ((((TAKEOVER))))       ; takeover case
+	 ((tobi_accent is NONE)  
+	  ((lisp_next_accent > 2) ; default cases  (dep. on whether next target is low)
+	   ((lisp_next_accent_type in ("L*" "L*+H" "L*+!H" "L+H*" "L+!H*" "L-" "L-H%" "L-L%"))
+	    ((((0 50)(100 25))))
+	    ((((0 50)(100 75)))))
+	   ((lisp_next_accent_type in ("L*" "L*+H" "L*+!H" "L+H*" "L+!H*" "L-" "L-H%" "L-L%"))
+	    ((((0 30))))
+	    ((((0 70))))))
+	  ((tobi_accent in ("L*" "L*+H" "L*+!H" "L+H*" "L+!H*" "L-" "L-H%" "L-L%"))
+	    ((((0 30))))
+	    ((((0 70))))))))
+       ((((NONE))))))     ; otherwise (and usually) nothing.  
+
+;; Redone after Jilka, Moehler and Dogil
+;; - But treating one-syllable-ip's like
+;; last-syllable-of-ip's in cases of 
+;; two tone switches per syllable (e.g. H* L-H%). 
+;; - And (hack) a 70% target for the initial 
+;; H*'s of phrases when the next accent is L+H*
+;; - MDS
+
+(set! ttt_accent_tree
+      '
+      ((tobi_accent is "H*" )    ; H*
+       ((lisp_ip_final = 1)
+	((lisp_ip_one_syllable_case = 1)
+	 ((((50 100))))
+	 ((((25 100)))))
+	((lisp_hstar_weak_target = 1)
+	 ((((60 70))))
+	 ((lisp_ip_initial = 1) 
+	  ((((85 100))))
+	  ((((60 100)))))))
+
+      ((tobi_accent is "!H*" )    ; !H*
+       ((lisp_ip_final = 1)
+	((lisp_ip_one_syllable_case = 1)
+	 ((((50 DHIGH))))
+	 ((((25 DHIGH)))))
+       ((lisp_ip_initial = 1) 
+	((((85 DHIGH))))
+	((((60 DHIGH))))))
+
+	((tobi_accent is "L*" )    ; L*
+	 ((lisp_ip_final = 1)
+	  ((lisp_ip_one_syllable_case = 1)
+	   ((((50 0))))
+	   ((((25 0)))))
+	  ((lisp_ip_initial = 1) 
+	   ((((85 0))))
+	   ((((60 0))))))
+
+	((tobi_accent is "L+H*")   ; L+H*
+	 ((lisp_ip_final = 1)
+	  ((lisp_ip_one_syllable_case = 1)
+	   ((((PRE 20) (50 100))))  ; JMD estimated 70
+	   ((((PRE 20) (25 100)))))
+	  ((lisp_ip_initial = 1) 
+	   ((((PRE 20) (90 100))))
+	   ((((PRE 20) (75 100))))))
+
+	 ((tobi_accent is "L+!H*")   ; L+!H*
+	 ((lisp_ip_final = 1)
+	  ((lisp_ip_one_syllable_case = 1)
+	   ((((PRE 20) (70 DHIGH))))
+	   ((((PRE 20) (25 DHIGH)))))
+	  ((lisp_ip_initial = 1) 
+	   ((((PRE 20) (90 DHIGH))))
+	   ((((PRE 20) (75 DHIGH))))))
+
+	  ((tobi_accent is "L*+H")   ; L*+H
+	   ((lisp_ip_final = 1)
+	    ((lisp_ip_one_syllable_case = 1)
+	     ((((35 0) (80 100))))     ; POST would clobber endtones
+	     ((((15 0) (40 100)))))    ; POST would clobber endtones - MDS
+	    ((lisp_ip_initial = 1) 
+	     ((((55 0) (POST 100))))
+	     ((((40 0) (POST 100))))))
+
+	  ((tobi_accent is "L*+!H")   ; L*+!H
+	   ((lisp_ip_final = 1)
+	    ((lisp_ip_one_syllable_case = 1)
+	     ((((35 0) (80 DHIGH))))    ; POST would clobber endtones - MDS
+	     ((((15 0) (40 DHIGH)))))   ; POST would clobber endtones - MDS
+	    ((lisp_ip_initial = 1) 
+	     ((((55 0) (POST DHIGH))))
+	     ((((40 0) (POST DHIGH))))))
+
+	   ((tobi_accent is "H+!H*")    ; H+!H* 
+	    ((lisp_ip_final = 1)
+	     ((lisp_ip_one_syllable_case = 1)
+	      ((((PRE 143) (60 DHIGH)))) ; the 143 is a hack to level out the downstep
+	      ((((PRE 143) (20 DHIGH)))))
+	     ((lisp_ip_initial = 1) 
+	      ((((PRE 143) (90 DHIGH))))
+	      ((((PRE 143) (60 DHIGH))))))
+
+	    ((lisp_lh_condition = 1) 
+	     ((((100 75))))
+	     ((lisp_lh_condition = 2)
+	      ((((0 90))))    
+	      ((lisp_hl_condition = 1)
+	       ((((100 25))))
+	       ((lisp_valley_condition = 1)
+		((((V1 85))))
+		((lisp_valley_condition = 2)
+		 ((((V2 70))))
+		 ((lisp_valley_condition = 3)
+		  ((((V3 70))))
+		  ((tobi_accent is NONE)   ; usually we find no accent
+		   ((((NONE))))
+		   ((((UNKNOWN))))))))))))))))))))     ; UNKNOWN TARGET FOUND
+
+;;; Cart tree to "predict" pitch range
+;;; Right now just accesses a feature
+;;; "register" following Moehler & Mayer 2001.
+;;; Register must be one of
+;;;   H    - primary high register (default): 133% lowest, 92% highest
+;;;   H-H  - expanded high register: 134% lowest, 100% highest
+;;;   H-L  - lowered high register: 128% lowest, 87% highest
+;;;   L    - primary low register: 100% lowest, 73% highest
+;;;   L-L  and HL-L - low compressed: 100% lowest, 66% highest
+;;;   HL   - expanded register:   100% lowest, 84% highest
+;;;   HL-H - complete register:   100% lowest, 96% highest
+;;; For their speaker, ,BASELINE was 42% of PEAK
+
+(set! ttt_topline_tree 
+      '
+      ((R:SylStructure.parent.register is "H")
+       (92)
+       ((R:SylStructure.parent.register is "H-H")
+	(100)
+	((R:SylStructure.parent.register is "H-L")
+	 (87)
+	 ((R:SylStructure.parent.register is "L")
+	  (73)
+	  ((R:SylStructure.parent.register is "L-L")
+	   (66)
+	   ((R:SylStructure.parent.register is "HL")
+	    (84)
+	    ((R:SylStructure.parent.register is "HL-H")
+	     (96)
+	     (92)))))))))
+
+(set! ttt_baseline_tree 
+      '
+      ((R:SylStructure.parent.register is "H")
+       (133)
+       ((R:SylStructure.parent.register is "H-H")
+	(134)
+	((R:SylStructure.parent.register is "H-L")
+	 (128)
+	 ((R:SylStructure.parent.register is "L")
+	  (100)
+	  ((R:SylStructure.parent.register is "L-L")
+	   (100)
+	   ((R:SylStructure.parent.register is "HL")
+	    (100)
+	    ((R:SylStructure.parent.register is "HL-H")
+	     (100)
+	     (133)))))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;
+;;;;;;   Lisp Feature functions.
+;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (valley_condition syl)
+"(valley_condition syl)
+Function to determine if a lowered target between two high target points
+is needed in this syllable.
+Returns:  0 - no target required
+          1 - the single target case
+          2 - the first of the two target case
+          3 - the second of the two target case
+"
+(if (>= printdebug  4)
+    (begin (print "Entering valley_condition")))
+(cond
+ ((and (eq 0 (item.feat syl 'accented))
+       (string-matches (next_accent_type syl)
+		       "\\(H\\*\\|H\\-\\|H\\-L\\%\\|H\\-H\\%\\|\\!H\\*\\|\\!H\\-\\|\\!H\\-L\\%\\|\\!H\\-H\\%\\)")
+       (string-matches (last_accent_type syl)
+		       "\\(H\\*\\|L\\+H\\*\\|L\\*\\+H\\\\|\\!H\\*\\|L\\+\\!H\\*\\|L\\*\\+\\!H\\)")) 
+                       ;GM: excluded %H (returns nil for last target)
+  (let ((nas (next_accent_start syl))
+	(syls (item.feat syl 'syllable_start))
+	(syle (item.feat syl 'syllable_end))
+	(las (ttt_last_target_time syl)))
+    (if (>= printdebug  3)
+	(begin (print (format nil "nas: %l syls: %l syle %l las %l" nas syls syle las))))
+    (cond
+     ((and (< (- nas las) 0.5)
+	   (> (- nas las) 0.25)
+	   (< syls (+ (/ (- nas las) 2.0) (ttt_last_target_time syl)))
+	   (> syle (+ (/ (- nas las) 2.0) (ttt_last_target_time syl)))) 1)
+     ((and (> (- nas las) 0.5)
+	   (< syls (+ (ttt_last_target_time syl) 0.25))
+	   (> syle (+ (ttt_last_target_time syl) 0.25))) 2)
+     ((and (> (- nas las) 0.5)
+	   (< syls (- nas 0.25))
+	   (> syle (- nas 0.25))) 3)
+     (t 0))))
+ (t 0))) 
+   
+       
+
+(define (lh_condition syl)
+"(lh_condition syl)
+Function to determine the need for extra target points between an L and an H
+Returns: 1 - first extra target required
+         2 - second extra target required
+         0 - no target required.
+"
+(if (>= printdebug  4)
+    (begin (print "Entering LH_condition")))
+(cond
+ ((and (eq 0 (item.feat syl 'accented))
+       (string-matches (last_accent_type syl) "\\(L\\*\\)")
+       (string-matches (next_accent_type syl)
+		       "\\(H\\*\\|H\\-\\|H\\-L\\%\\|H\\-H\\%\\)"))
+  (cond
+   ((and (eq 1 (last_accent syl))
+	 (< 2 (next_accent syl))) 1)
+   ((and (< 2 (last_accent syl))
+	 (eq 1 (next_accent syl))) 2)
+   (t 0)))
+ (t 0)))
+
+(define (hl_condition syl)
+"(lh_condition syl)
+Function to determine the need for extra target points between an H and an L
+Returns: 1 - extra target required
+         0 - no target required.
+"
+(if (>= printdebug  4) 
+    (begin (print "Entering HL_condition")))
+(cond
+ ((and (eq 0 (item.feat syl 'accented))
+       (string-matches (next_accent_type syl)
+           "\\(L\\*\\|L\\+H\\*\\|L\\+\\!H\\*\\|L\\*\\+H\\|L\\*\\+!H\\|L\\-\\|L\\-L\\%\\|L-H\\%\\)")
+       (string-matches (last_accent_type syl)
+		       "\\(H\\*\\|L\\+H\\*\\|L\\*\\+H\\\\|\\!H\\*\\|L\\+\\!H\\*\\|L\\*\\+\\!H\\|\\%H\\)")
+                       ;MDS: added !H's
+       (eq 1 (last_accent syl))
+
+       ;; fall faster! -MDS
+       (<= 2 (next_accent syl))) 1)
+ (t 0)))
+
+(define (next_accent syl)
+"(next_accent syl)
+Wrapper for c++ func ff_next_accent.
+Returns the number of the syllables to the next accent in the following format.
+0 - no next accent
+1 - next syllable
+2 - next next syllable
+etc..."
+(if (>= printdebug  4) 
+    (begin (print "Entering next_accent")))
+(cond
+ ((eq 0 (next_accent_type syl)) 0)
+ (t (+ (item.feat syl 'next_accent) 1))))
+
+;; Fixed bug that crashed complex phrase tones. - MDS
+;; Not sure how else to get a big number...
+(define infinity (/ 1 0))
+
+;; Modified to include current accent as well -MDS
+
+(define (last_accent syl)
+"(last_accent syl)
+Wrapper for c++ func ff_last_accent.
+Returns the number of the syllables to the previous accent in the following format.
+0 - accent on current syllable
+1 - prev syllable
+2 - prev to prev syllable
+etc...
+infinity - no previous syllable"
+(if (>= printdebug  4) 
+    (begin (print "Entering last_accent")))
+(cond
+ ((not (equal? "NONE" (item.feat syl 'tobi_accent))) 0)
+ ((equal? 0 (last_accent_type syl)) infinity)
+ (t (+  (item.feat syl 'last_accent) 1))))
+
+(define (next_accent_type syl)
+"(next_accent_type syl)
+Returns the type of the next accent."
+(cond 
+ ((not (eq 0 (item.feat syl "n.R:Intonation.daughter1.name")))
+  (item.feat syl "n.R:Intonation.daughter1.name"))
+ ((eq 0 (item.feat syl 'syl_out)) 0)  ;;GM real ip_final would be better
+ (t (next_accent_type (item.relation.next syl 'Syllable)))))
+
+(define (last_accent_type syl)
+"(last_accent_type syl)
+Returns the type of the last (previous)  accent."
+(if (>= printdebug  4) 
+    (begin (print "Entering last_accent_type")))
+(cond
+  ((not (equal? "NONE"  (item.feat syl 'p.tobi_endtone)))
+   (item.feat syl 'R:Syllable.p.tobi_endtone))
+  ((not (equal? "NONE"  (item.feat syl 'p.tobi_accent)))
+   (item.feat syl 'R:Syllable.p.tobi_accent))
+  ((eq 0 (item.feat syl 'syl_in)) 0)  ;;GM real ip_initial would be better
+  (t (last_accent_type (item.prev syl 'Syllable)))))
+
+(define (next_accent_start syl)
+"(next_accent_start syl)
+Returns the start time  of the vowel of next accented syllable"
+(if (>= printdebug 4) 
+    (begin (print "Entering next_accent_start")))
+(cond 
+ ((not (eq 0 (item.feat syl "n.R:Intonation.daughter1.name")))
+  (item.feat syl "R:Syllable.n.syllable_start")) ;;GM vowel start would be better
+ ((eq 0 (item.feat syl 'syl_out)) 0)
+ (t (next_accent_start (item.relation.next syl 'Syllable)))))
+
+; new features (not used yet)
+
+(define (ip_final syl)
+  "(ip_final SYL)
+  returns 1 if the syllable is the final syllable of an 
+  ip (intermediate phrase)"
+  (cond  
+   ((or (equal? 0 (item.feat syl "syl_out"))
+       (equal? "L-" (item.feat syl "tobi_endtone"))
+       (equal? "H-" (item.feat syl "tobi_endtone"))
+       (equal? "!H-" (item.feat syl "tobi_endtone"))) 1)
+   (t 0)))
+
+(define (ip_initial syl)
+  "(ip_initial SYL)
+  returns 1 if the syllable is the initial syllable of an 
+  ip (intermediate phrase)"
+  (cond
+   ((equal? 0 (item.feat syl "syl_in"))
+    1)
+   ((equal? 1 (ip_final (item.relation.prev syl 'Syllable)))
+    1)
+   (t 0)))
+
+;; NEXT TWO FUNCTIONS ARE NEW - MDS
+(define (ip_one_syllable_case syl)
+  "(ip_one_syllable_case SYL)
+  returns true if the syllable is the initial syllable of an 
+  ip (intermediate phrase) and doesn't itself contain a complex
+  tone that starts opposite this syllable's accent"
+  (if (eqv? 0 (ip_initial syl))
+      0
+      (let ((accent (item.feat syl "tobi_accent"))
+	    (tone (item.feat syl "tobi_endtone")))
+	(cond
+	  ((and (equal? tone "L-H%")
+		(or (equal? accent "H*")
+		    (equal? accent "!H*")
+		    (equal? accent "L+H*")
+		    (equal? accent "L+!H*")
+		    (equal? accent "L*+H")
+		    (equal? accent "L*+!H*")
+		    (equal? accent "H+!H*")))
+	   0)
+	  ((and (or (equal? tone "H-L%")
+		    (equal? tone "!H-L%"))
+		(equal? accent "L*"))
+	   0)
+	  (t
+	   1)))))
+
+(define (hstar_weak_target syl)
+  (if (and (equal? 0 (item.feat syl 'asyl_in))
+	   (member (next_accent_type syl)
+		   (list "L*" "L*+H" "L*+!H" "L+H*" "L+!H*")))
+      1
+      0))
+       
+(provide 'tobi_rules)

CosyVoice-ttsfrd/resource/festival/token.scm

@@ -0,0 +1,809 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Various tokenizing functions and customization 
+
+(define (Token utt)
+  "(Token UTT)
+Build a Word stream from the Token stream, analyzing compound words
+numbers etc as tokens into words. Respects the Parameter Language
+to choose the appropriate token to word module."
+  (let ((rval (apply_method 'Token_Method utt)) ;; might be defined
+	(language (Parameter.get 'Language)))
+    (cond
+     (rval rval)  ;; newer style
+     ((or (string-equal "britishenglish" language)
+	  (string-equal "english" language)
+	  (string-equal "americanenglish" language))
+      (Token_English utt))
+     ((string-equal "welsh" language)
+      (Token_Welsh utt))
+     (t
+      (Token_Any utt)))))
+
+(define (remove_leadtrail_underscores name)
+  "(remove_leadtrail_underscores name)
+Get rid of leading and trailing underscores that may be used for emphasis,
+not this is called when there are underscores at the beginning and end but
+there may not be an equal number of them."
+  (let ((se (symbolexplode name)))
+    (while (string-equal "_" (car se))
+      (set! se (cdr se)))
+    (set! se (reverse se))
+    (while (string-equal "_" (car se))
+      (set! se (cdr se)))
+    (apply string-append (reverse se))))
+
+(define (english_token_to_words token name)
+"(english_token_to_words TOKEN NAME)
+Returns a list of words for NAME from TOKEN.  This allows the
+user to customize various non-local, multi-word, context dependent
+translations of tokens into words.  If this function is unset only
+the builtin translation rules are used, if this is set the builtin
+rules are not used unless explicitly called. [see Token to word rules]"
+ (cond
+  ((string-equal name "POA")
+   (list "P" "O" (list '(name "A") (list 'pos token.letter_pos))))
+  ((string-equal name "US")
+   (list "U" "S"))
+  ((string-equal name "AI")
+   (list (list '(name "A") (list 'pos token.letter_pos)) "I"))
+  ((string-equal (downcase name) "openai")
+   (list "Open" (list '(name "A") (list 'pos token.letter_pos)) "I"))
+  ((string-equal name "EB")
+   (list "E" "B"))
+  ((string-equal (downcase name) "ios")
+   (list "I" "O" "S"))
+  ((string-equal (downcase name) "content")
+   (if (and (string-equal (downcase (item.feat token "n.name")) "with")
+            (string-matches (downcase (item.feat token "p.name")) "be\\|been\\|being\\|is\\(n'?t\\)?\\|are\\(n'?t\\)?\\|was\\(n'?t\\)\\|were\\(n'?t\\)\\|not\\|will\\|won'?t\\|may\\|would\\(n'?t\\)?\\|can\\(not\\)?\\|could\\(n'?t\\)?\\|should\\(n'?t\\)?\\|must\\(n'?t\\)?\\|might"))
+       (list (list (list 'name name)(list 'pos 'jj)))
+       (list (list (list 'name name)(list 'pos 'nn)))))
+  ((string-equal name "/") (list ""))
+  ((and (string-equal (downcase name) "refuse")
+        (string-equal (downcase (item.feat token "n.name")) "to"))
+       (list (list (list 'name name)(list 'pos 'vb))))
+  ((string-equal (downcase name) "live")
+   (cond
+    ((or (string-matches (downcase (item.feat token "n.name")) "nation\\|tv\\|news\\|broadcasts?\\|streams?\\|stream\\(ing\\)?\\|shows?\\|events?\\|games?\\|match\\(es\\)?\\|scores?")
+           (string-matches (downcase (item.feat token "nn.name")) "games?\\|match\\(es\\)?\\|scores?"))
+     (list (list (list 'name name)(list 'pos 'jj))))
+    ((string-equal (item.feat token "p.name") "I")
+       (list (list (list 'name name)(list 'pos 'vb))))
+    ((not (string-equal (item.feat token "punc") 0))
+      (if (string-matches (downcase (item.feat token "p.name")) "to\\|I\\|we\\|you\\|they\\|he\\|she\\|will\\|may\\|would\\|can\\|could\\|should\\|must\\|might")
+		    (list (list (list 'name name)(list 'pos 'vb)))
+		    (list (list (list 'name name)(list 'pos 'jj)))))
+    (t
+     (builtin_english_token_to_words token name))))
+  ((string-equal name "#") (list "pound"))
+  ((string-equal name "$") (list "dollar"))
+  ((string-matches name "[A-Z]*[\\$#][0-9,]+\\(\\.[0-9]+\\)?")
+   ;; Some form of money (pounds or type of dollars)
+   (let (amount type currency)
+     (cond
+      ((string-matches name ".*\\$.*")
+       (set! amount (string-after name "$"))
+       (set! type (string-before name "$"))
+       (set! currency "dollar"))
+      ((string-matches name ".*#.*")
+       (set! amount (string-after name "#"))
+       (set! type (string-before name "#"))
+       (set! currency "pound"))
+      (t
+       ;; who knows
+       (set! amount (string-after name "$"))
+       (set! type (string-before name "$"))
+       (set! currency "dollar")))
+     (cond
+      ((string-matches (item.feat token "n.name")
+		       ".*illion.?")
+       (append   ;; "billions and billions" - Sagan
+	(builtin_english_token_to_words token amount)
+	(list (item.feat token "n.name")) ;; illion
+	(token_money_expand type)
+	(list (string-append currency "s"))))
+      ((string-matches amount ".*\\...$")
+       (cond
+        ((string-equal amount "0.00")
+         (append
+          (list "zero")
+          (list (string-append currency "s"))))
+        ((string-equal amount "0.01")
+         (append
+          (list "one")
+          (if (string-equal currency "dollar")
+           (list "cent")
+           (list "penny"))))
+        ((string-matches amount "0\\.[0-9][0-9]")
+         (append
+          (builtin_english_token_to_words
+           token (remove_leading_zeros (string-after amount ".")))
+          (if (string-equal currency "dollar")
+           (list "cents")
+           (list "pence"))))
+        (t
+         (append
+	  (builtin_english_token_to_words token (string-before amount "."))
+	  (token_money_expand type)
+	  (if (string-matches amount "1\\..*")
+	   (list currency)
+	   (list (string-append currency "s")))
+          (cond
+           ((string-matches name ".*\\.00$")
+            nil)
+           ((string-matches name ".*\\.01$")
+            (append
+             (list "and" "one")
+             (if (string-equal currency "dollar")
+              (list "cent")
+              (list "penny"))))
+           (t
+            (append
+             (list "and")
+             (builtin_english_token_to_words
+              token (remove_leading_zeros (string-after amount ".")))
+             (if (string-equal currency "dollar")
+              (list "cents")
+              (list "pence")))))))))
+      (t
+       (append   ;; nothing after point or lots after point
+	(builtin_english_token_to_words token amount)
+	(token_money_expand type)
+	(if (or (string-matches amount "1")
+		(string-equal currency "yuan"))
+	    (list currency)
+	    (list (string-append currency "s"))))))))
+  ((and (string-matches name ".*illion.?")
+	(string-matches (item.feat token "p.name")
+			"[A-Z]*[\\$#][0-9,]+\\(\\.[0-9]+\\)?"))
+   nil ;; dealt with on the previous symbol
+   )
+  ((string-matches name "[1-9][0-9]*/[1-9][0-9]*")
+   (let ((numerator (string-before name "/"))
+	 (denominator (string-after name "/"))
+	 )
+     (cond
+      ((string-matches name "1/2")
+       (list "half"))
+      ((string-matches denominator "4")
+       (append
+	(builtin_english_token_to_words token numerator)
+	(list "quarter")
+	(if (string-equal numerator "1")
+	    (list '((name "'s")(pos nnp)))
+	    nil)))
+      (t
+       (append
+	(builtin_english_token_to_words token numerator)
+	(begin
+	  (item.set_feat token "token_pos" "ordinal")
+	  (builtin_english_token_to_words token denominator))
+	(if (string-equal numerator "1")
+	    nil
+	    (list '((name "'s")(pos nnp)))))))))
+  ((and (string-matches name "No")
+	(item.next token)
+        (string-matches (item.feat token "n.name")
+			"[0-9]+"))
+   (list
+    "number"))
+  ((string-matches name ".*%$")
+   (append
+    (token_to_words token (string-before name "%"))
+    (list "percent")))
+  ((string-matches name "[0-9]+s")  ;; e.g. 1950s
+   (item.set_feat token "token_pos" "year")  ;; reasonable guess
+   (append
+    (builtin_english_token_to_words token (string-before name "s"))
+    (list '((name "'s")(pos nnp))) ;; will get assimilated by postlexical rules
+   ))
+  ((string-matches name "[0-9]+'s")  ;; e.g. 1950's
+   (item.set_feat token "token_pos" "year")  ;; reasonable guess
+   (append
+    (builtin_english_token_to_words token (string-before name "'s"))
+    (list '((name "'s")(pos nnp))) ;; will get assimilated by postlexical rules
+   ))
+  ((and (string-matches name ".*s$")
+	(string-equal (item.feat token "punc") "'"))
+   ;; potential possessive or may be end of a quote
+   (if (token_no_starting_quote token)
+       (item.set_feat token "punc" ""))
+   (builtin_english_token_to_words token name))
+  ((and (string-equal name "A")  ;; letter or determiner
+	(or (and (string-matches (item.feat token "p.name") "[A-Za-z].*")
+			 (or (string-equal (item.feat token "p.punc") 0)
+				 (not string-matches (item.feat token "p.punc") ".*[?!:\\.;].*")))
+	    (string-matches (item.feat token "n.name") "[A-Z].*")))
+   (list (list '(name "a")(list 'pos token.letter_pos))))
+  ((and (or (string-equal name "A") (string-equal name "a")) ;; letter or determiner
+	(and (string-equal (item.feat token "p.name") 0)
+	    (string-equal (item.feat token "n.name") 0)))
+   (list (list '(name "a")(list 'pos token.letter_pos))))
+  ((member_string name english_homographs)
+   (list (list (list 'name name)
+	       (list 'hg_pos (item.feat token "token_pos")))))
+  ((string-matches name "__*[^_][^_]*_*_") ;; _emphasis_
+   (english_token_to_words
+    token
+    (remove_leadtrail_underscores name)
+   ))
+  ((string-matches name "\\(EW\\|NS\\|NE\\|CC\\|DT\\|TE\\|JS\\|JW\\|JE\\|CR\\|CP\\)[1-4][0-9]")  ;; Singapore MRT station IDs
+   (let (lname num)
+     (cond
+      ((string-matches name "EW.*")
+       (set! lname "EW"))
+      ((string-matches name "NS.*")
+       (set! lname "NS"))
+      ((string-matches name "NE.*")
+       (set! lname "NE"))
+      ((string-matches name "CC.*")
+       (set! lname "CC"))
+      ((string-matches name "DT.*")
+       (set! lname "DT"))
+      ((string-matches name "TE.*")
+       (set! lname "TE"))
+      ((string-matches name "JS.*")
+       (set! lname "JS"))
+      ((string-matches name "JW.*")
+       (set! lname "JW"))
+      ((string-matches name "JE.*")
+       (set! lname "JE"))
+      ((string-matches name "CR.*")
+       (set! lname "CR"))
+      (t
+        (set! lname "CP")))
+     (set! num (string-after name lname))
+     (append
+      (symbolexplode lname)
+      (builtin_english_token_to_words token num))))
+  ((string-matches name "\\([1-9]\\|10\\|11\\|12\\)[AaPp][Mm]")  ;; time
+   (let (hour apm (atime (downcase name)))
+     (if (string-matches atime ".*am")
+         (set! apm "am")
+         (set! apm "pm"))
+     (set! hour (string-before atime apm))
+     (append
+      (builtin_english_token_to_words token hour)
+      (if (string-equal apm "am")
+          (builtin_english_token_to_words token "A.M")
+          (builtin_english_token_to_words token "P.M")))))
+  ((string-matches name "[0-9]?[0-9][:\\.][0-9][0-9][AaPp][Mm]")  ;; time
+   ;;  must be am/pm present for . to be acceptable separator
+   (let (hours mins half sep (ttime (downcase name)))
+     (if (string-matches ttime ".*:.*")
+	 (set! sep ":")
+	 (set! sep "."))
+     (set! hours (string-before ttime sep))
+     (set! mins (string-after ttime sep))
+     (if (string-matches ttime ".*am")
+	 (set! sep "am")
+	 (set! sep "pm"))
+     (set! mins (string-before mins sep))
+     (append
+      (builtin_english_token_to_words token hours)
+      (cond
+       ((string-equal mins "00")
+	nil)
+       ((string-matches mins "0.")
+	(cons
+	 "oh"
+	 (builtin_english_token_to_words token (string-after mins "0"))))
+       (t
+	(builtin_english_token_to_words token mins)))
+      (if (string-equal sep "am")
+	  (builtin_english_token_to_words token "A.M")
+	  (builtin_english_token_to_words token "P.M")))))
+  ((string-matches name "[0-9]?[0-9]:[0-9][0-9]")  ;; time
+   (append
+     (builtin_english_token_to_words 
+      token (remove_leading_zeros (string-before name ":")))
+     (cond
+      ((string-equal "00" (string-after name ":"))
+	 nil)
+      ((string-matches (string-after name ":") "0.")
+	(cons
+	 "oh"
+	 (builtin_english_token_to_words 
+	  token 
+	  (remove_leading_zeros (string-after name ":")))))
+      (t
+	 (builtin_english_token_to_words 
+	  token 
+	  (string-after name ":"))))))
+  ((string-matches name "[0-9][0-9]:[0-9][0-9]:[0-9][0-9]")  ;; exact time
+   (append
+    (builtin_english_token_to_words 
+     token (remove_leading_zeros (string-before name ":")))
+    (list "hours")
+    (builtin_english_token_to_words 
+      token (remove_leading_zeros 
+		 (string-before (string-after name ":") ":")))
+    (list "minutes" "and")
+    (builtin_english_token_to_words 
+      token (remove_leading_zeros
+		 (string-after (string-after name ":") ":")))
+    (list "seconds")))
+  ((string-matches name "[12][0-9][0-9][0-9]/\\(1[012]\\|0[1-9]\\)/\\(0[1-9]\\|[12][0-9]\\|3[01]\\)")
+   (let ((year (string-before name "/"))
+         (num1 (string-before (string-after name "/") "/"))
+         (num2 (string-after (string-after name "/") "/"))
+         month day)
+     (cond
+      ((string-equal num1 "01")
+       (set! month "january"))
+      ((string-equal num1 "02")
+       (set! month "february"))
+      ((string-equal num1 "03")
+       (set! month "march"))
+      ((string-equal num1 "04")
+       (set! month "april"))
+      ((string-equal num1 "05")
+       (set! month "may"))
+      ((string-equal num1 "06")
+       (set! month "june"))
+      ((string-equal num1 "07")
+       (set! month "july"))
+      ((string-equal num1 "08")
+       (set! month "august"))
+      ((string-equal num1 "09")
+       (set! month "september"))
+      ((string-equal num1 "10")
+       (set! month "october"))
+      ((string-equal num1 "11")
+       (set! month "november"))
+      ((string-equal num1 "12")
+       (set! month "december"))
+      (t
+       (set! month (tok_string_as_letters num1))))
+     (item.set_feat token "token_pos" "ordinal")
+     (set! day (builtin_english_token_to_words token num2))
+     (item.set_feat token "token_pos" "year")
+     (append
+      (list month)
+      (list "the")
+      day
+      (builtin_english_token_to_words token year))))
+  ((string-matches name "[0-9][0-9]?/[0-9][0-9]?/[0-9][0-9]\\([0-9][0-9]\\)?")
+   ;; date, say it as numbers to avoid American/British problem
+   (let ((num1 (string-before name "/"))
+	 (num2 (string-before (string-after name "/") "/"))
+	 (year (string-after (string-after name "/") "/"))
+	 day month)
+     (item.set_feat token "token_pos" "cardinal")
+     (set! day (builtin_english_token_to_words token num1))
+     (set! month (builtin_english_token_to_words token num2))
+     (item.set_feat token "token_pos" "year")
+     (append
+      day
+      month
+      (list '((name ",")(pbreak_scale 0.9)))
+      (builtin_english_token_to_words token year))))
+  ((string-matches name "[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]")
+   (item.set_feat token "token_pos" "digits")  ;; canonical phone number
+   (append
+    (builtin_english_token_to_words token (string-before name "-"))
+    (list '((name ",")(pbreak_scale 1.0)))
+    (builtin_english_token_to_words token (string-after name "-"))))
+  ((string-matches name "[0-9]+-[0-9]+-[-0-9]+")
+   ;; long distance number 
+   (let ((r '(dummy)) (remainder name))
+     (item.set_feat token "token_pos" "digits")
+     (while (> (length remainder) 0)
+       (if (string-matches remainder "[0-9]+")
+	   (set! r (append r 
+		       (builtin_english_token_to_words 
+			token remainder)))
+	   (set! r (append r 
+			   (builtin_english_token_to_words 
+			    token (string-before remainder "-")))))
+       (set! remainder (string-after remainder "-"))
+       (if (> (length remainder) 0)
+	   (set! r (append r (list '((name ",")(pbreak_scale 1.0)))))))
+     (cdr r))
+   )
+  ((and (string-matches name "[0-9][0-9][0-9]")
+	(string-matches (item.feat token "n.name")
+			"[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]"))
+     (item.set_feat token "token_pos" "digits")
+     (builtin_english_token_to_words token name))
+  ((string-matches name "[0-9]+-[0-9]+")
+   (let ((tokpos))
+     (item.set_name token (string-before name "-"))
+     (set! tokpos (wagon token 
+			 (car (cdr (assoc "[0-9]+" token_pos_cart_trees)))))
+     (item.set_feat token "token_pos" (car tokpos))
+     (append
+      (builtin_english_token_to_words token (string-before name "-"))
+      (list "to")
+      (builtin_english_token_to_words token (string-after name "-")))))
+  ((string-matches name "\\(iii?\\|II?I?\\|IV\\|VI?I?I?\\|IX\\|X[VIX]*\\)")
+   ;; Roman numerals
+   (let ((tp (item.feat token "token_pos")))
+     (cond
+      ((string-matches tp "century");; always believe this
+       (item.set_feat token "token_pos" "ordinal")
+       (if (or (string-equal "1" (tok_rex token))
+	       (item.feat token "p.lisp_tok_rex_names"))
+	   (append
+	    (list "the")
+	    (builtin_english_token_to_words 
+	     token (tok_roman_to_numstring name)))
+	   (builtin_english_token_to_words 
+	    token (tok_roman_to_numstring name))))
+      ((string-matches name "[IVX]");; be *very* wary of this one
+       (if (and (string-equal 
+		 "1" (item.feat token "p.lisp_tok_section_name"))
+		(string-matches tp "number"))
+	   (builtin_english_token_to_words 
+	    token (tok_roman_to_numstring name))
+	   (tok_string_as_letters name)))
+      ((or (string-matches tp "number")
+           (string-matches name "iii?\\|III?"))
+       (item.set_feat token "token_pos" "cardinal")
+       (builtin_english_token_to_words 
+	token (tok_roman_to_numstring name)))
+      (t;; else its a letter
+       (tok_string_as_letters name)))))
+  ((and (string-matches name "pp")
+	(string-matches (item.feat token "n.name")
+			"[0-9]+-[0-9]+"))
+   (list "pages"))
+  ((and (string-matches name "ss")
+	(string-matches (item.feat token "n.name")
+			"[0-9]+-[0-9]+"))
+   (list "sections"))
+  ((string-matches name "_____+")
+   (list "line" "of" "underscores"))
+  ((string-matches name "=====+")
+   (list "line" "of" "equals"))
+  ((string-matches name "-----+")
+   (list "line" "of" "hyphens"))
+  ((string-matches name "\\*\\*\\*\\*\\*+")
+   (list "line" "of" "asterisks"))
+  ((string-matches name "--+")
+   (list '((name ",")(pbreak_scale 1.0))))
+  ((string-matches name ".*--+.*")
+   (append
+    (builtin_english_token_to_words token (string-before name "--"))
+    (list '((name ",")(pbreak_scale 1.0)))
+    (builtin_english_token_to_words token (string-after name "--"))))
+  ((string-matches name "[A-Z][A-Z]?&[A-Z][A-Z]?")
+   (append
+    (tok_string_as_letters (string-before name "&"))
+    (list "and")
+    (tok_string_as_letters (string-after name "&"))))
+  ((and (string-equal name "Ms")
+        (string-matches (item.feat token "n.name") "[A-Z][^A-Z]*"))
+   (list "mizz"))
+  ((string-matches name "[A-Z]+'s")
+   (append
+    (builtin_english_token_to_words token (string-before name "'s"))
+    (list '((name "'s")(pos nnp))) ;; will get assimilated by postlexical rules
+    ))
+  ((or (string-matches name "[A-Z][A-Z]+s")
+       (string-matches name "[BCDEFGHJKLMNOPQRSTVWXYZ]+s"))
+   (append
+    (builtin_english_token_to_words token (string-before name "s"))
+    (list '((name "'s")(pos nnp))) ;; will get assimilated by postlexical rules
+    ))
+  ((string-matches name "<.*@.*>")  ;; quoted e-mail
+   (append 
+    (builtin_english_token_to_words
+     token (string-after (string-before name "@") "<"))
+    (list "at")
+    (builtin_english_token_to_words
+     token (string-before (string-after name "@") ">"))))
+  ((string-matches name "\\(Dr\\|St\\)")
+   (if (string-equal (item.feat token "token_pos") "street")
+       (if (string-matches name "Dr")
+	   (list "drive")
+	   (list "street"))
+       (if (string-matches name "Dr")  ;; default on title side
+	   (list "doctor")
+	   (list "saint"))))
+  ((string-matches name "[Cc]alif")  ;; hopelessly specific ...
+   (list 
+    "california"))
+  (t
+   (builtin_english_token_to_words token name))))
+
+;;; This is set as the default
+(defvar token_to_words english_token_to_words)
+
+(defvar token.punctuation "\"'`.,:;!?(){}[]"
+  "token.punctuation
+A string of characters which are to be treated as punctuation when
+tokenizing text.  Punctuation symbols will be removed from the text
+of the token and made available through the \"punctuation\" feature.
+[see Tokenizing]")
+(defvar token.prepunctuation "\"'`({["
+  "token.prepunctuation
+A string of characters which are to be treated as preceding punctuation
+when tokenizing text.  Prepunctuation symbols will be removed from the text
+of the token and made available through the \"prepunctuation\" feature.
+[see Tokenizing]")
+(defvar token.whitespace " \t\n\r "
+  "token.whitespace
+A string of characters which are to be treated as whitespace when
+tokenizing text.  Whitespace is treated as a separator and removed
+from the text of a token and made available through the \"whitespace\"
+feature.  [see Tokenizing]")
+(defvar token.singlecharsymbols ""
+  "token.singlecharsymbols
+Characters which have always to be split as tokens.  This would be
+usual is standard text, but is useful in parsing some types of
+file. [see Tokenizing]")
+
+(defvar token.letter_pos 'nn
+  "token.letter_pos
+The part of speech tag (valid for your part of speech tagger) for
+individual letters.  When the tokenizer decide to pronounce a token
+as a list of letters this tag is added to each letter in the list.  
+Note this should be from the part of speech set used in your tagger 
+which may not be the same one that appears in the actual lexical 
+entry (if you map them afterwards).  This specifically allows \"a\"
+to come out as ae rather than @.")
+
+(defvar token.unknown_word_name "unknown"
+  "token.unknown_word_name
+When all else fails and a pronunciation for a word or character can't
+be found this word will be said instead.  If you make this \"\" them
+the unknown word will simple be omitted.  This will only
+really be called when there is a bug in the lexicon and characters
+are missing from the lexicon.  Note this word should be in the lexicon.")
+
+(def_feature_docstring
+  'Token.punc
+  "Token.punc
+Succeeding punctuation symbol found after token in original 
+string/file.")
+(def_feature_docstring
+  'Token.whitespace
+  "Token.whitespace
+Whitespace found before token in original string/file.")
+(def_feature_docstring
+  'Token.prepunctuation
+  "Token.prepunctuation
+Preceeding puctuation symbol found before token in original string/file.")
+
+(require 'tokenpos)
+;;;
+;;;  Token pos are gross level part of speech tags which help decide
+;;;  pronunciation of tokens (particular expansion of Tokens into words)
+;;;  The most obvious example is identifying number types (ordinals,
+;;;  years, digits or numbers).
+;;;
+(defvar english_token_pos_cart_trees
+  '(
+    ;;  Format is (Regex Tree)
+    ("[0-9]+" 
+     ((lisp_num_digits < 3.8)
+      ((p.lisp_token_pos_guess is month)
+       ((lisp_month_range is 0) ((cardinal)) ((ordinal)))
+       ((n.lisp_token_pos_guess is month)
+	((lisp_month_range is 0) ((cardinal)) ((ordinal)))
+	((n.lisp_token_pos_guess is numeric)
+	 ((lisp_num_digits < 2)
+	  ((p.lisp_token_pos_guess is numeric)
+	   ((pp.lisp_token_pos_guess is sym) ((digits)) ((cardinal)))
+	   ((cardinal)))
+	  ((nn.lisp_token_pos_guess is sym) ((cardinal)) ((digits))))
+	 ((lisp_num_digits < 2)
+	  ((nn.lisp_token_pos_guess is numeric)
+	   ((n.lisp_token_pos_guess is sym)
+	    ((lisp_month_range is 0) ((digits)) ((cardinal)))
+	    ((cardinal)))
+	   ((cardinal)))
+	  ((name < 302.3)
+	   ((p.lisp_token_pos_guess is flight)
+	    ((digits))
+	    ((n.lisp_token_pos_guess is sym)
+	     ((p.lisp_token_pos_guess is sym) ((digits)) ((cardinal)))
+	     ((cardinal))))
+	   ((p.lisp_token_pos_guess is a)
+	    ((digits))
+	    ((n.lisp_token_pos_guess is sym)
+	     ((nn.lisp_token_pos_guess is sym)
+	      ((name < 669.2) ((digits)) ((cardinal)))
+	      ((cardinal)))
+	     ((name < 373.2)
+	      ((cardinal))
+	      ((name < 436.2)
+	       ((name < 392.6) ((digits)) ((cardinal)))
+	       ((name < 716.5)
+		((cardinal))
+		((name < 773.6)
+		 ((p.lisp_token_pos_guess is _other_) ((digits)) ((cardinal)))
+		 ((cardinal)))))))))))))
+      ((p.lisp_token_pos_guess is numeric)
+       ((pp.lisp_token_pos_guess is month)
+	((year))
+	((nn.lisp_token_pos_guess is numeric) 
+	((cardinal)) 
+	((p.lisp_token_pos_precise_val is year)
+	((cardinal))
+	((p.lisp_token_pos_precise_val is ordinal)
+	((cardinal))
+	((digits))))))
+       ((nn.lisp_token_pos_guess is numeric)
+	((n.lisp_token_pos_guess is month)
+	 ((cardinal))
+	 ((n.lisp_token_pos_guess is numeric)
+	  ((digits))
+	  ((p.lisp_token_pos_guess is _other_) ((cardinal)) ((year)))))
+	((p.lisp_token_pos_guess is _other_)
+	 ((lisp_num_digits < 4.4)
+	  ((name < 2959.6)
+	   ((name < 1773.4) ((cardinal)) ((year)))
+	   ((cardinal)))
+	  ((pp.lisp_token_pos_guess is _other_) ((digits)) ((cardinal))))
+	 ((n.lisp_token_pos_guess is to)
+	  ((year))
+	  ((p.lisp_token_pos_guess is sym)
+	   ((pp.lisp_token_pos_guess is sym)
+	    ((cardinal))
+	    ((lisp_num_digits < 4.6) ((year)) ((digits))))
+	   ((lisp_num_digits < 4.8)
+	    ((name < 2880)
+	     ((name < 1633.2)
+	      ((name < 1306.4) ((cardinal)) ((year)))
+	      ((year)))
+	     ((cardinal)))
+	    ((cardinal)))))))))
+     )
+    ("\\(II?I?\\|IV\\|VI?I?I?\\|IX\\|X[VIX]*\\)";; Roman numerals
+     ((p.lisp_tok_rex_names is 0)
+      ((lisp_num_digits is 5)
+       ((number))
+       ((lisp_num_digits is 4)
+	((number))
+	((nn.lisp_num_digits is 13)
+	 ((number))
+	 ((p.lisp_num_digits is 7)
+	  ((number))
+	  ((p.lisp_tok_section_name is 0)
+	   ((lisp_tok_rex is 0)
+	    ((lisp_num_digits is 3)
+	     ((p.lisp_num_digits is 4)
+	      ((number))
+	      ((nn.lisp_num_digits is 4)
+	       ((number))
+	       ((n.lisp_num_digits is 4)
+		((number))
+		((pp.lisp_num_digits is 3)
+		 ((number))
+		 ((p.lisp_num_digits is 2)
+		  ((letter))
+		  ((nn.lisp_num_digits is 2)
+		   ((letter))
+		   ((n.cap is 0) ((letter)) ((number)))))))))
+	     ((nn.lisp_num_digits is 11)
+	      ((letter))
+	      ((lisp_num_digits is 1)
+	       ((pp.lisp_num_digits is 9)
+		((letter))
+		((p.lisp_num_digits is 9)
+		 ((letter))
+		 ((n.lisp_num_digits is 6)
+		  ((letter))
+		  ((pp.lisp_num_digits is 6)
+		   ((letter))
+		   ((pp.cap is 0)
+		    ((n.cap is 0)
+		     ((p.lisp_num_digits is 1)
+		      ((letter))
+		      ((n.lisp_num_digits is 4) ((letter)) ((letter))))
+		     ((letter)))
+		    ((letter)))))))
+	       ((p.lisp_num_digits is 10)
+		((number))
+		((n.lisp_num_digits is 8)
+		 ((number))
+		 ((pp.lisp_num_digits is 9)
+		  ((number))
+		  ((nn.lisp_num_digits is 5)
+		   ((number))
+		   ((n.lisp_num_digits is 4) ((number)) ((letter))))))))))
+	    ((letter)))
+	   ((number)))))))
+      ((century))))
+    ("\\(Dr\\|St\\)"
+     ((n.name is 0)
+      ((p.cap is 1)
+       ((street))
+       ((p.name matches "[0-9]*\\(1[sS][tT]\\|2[nN][dD]\\|3[rR][dD]\\|[0-9][tT][hH]\\)")
+	((street))
+	((title))))
+      ((punc matches ".*,.*")
+       ((street))
+       ((p.punc matches ".*,.*")
+	((title))
+	((n.cap is 0)
+	 ((street))
+	 ((p.cap is 0)
+	  ((p.name matches "[0-9]*\\(1[sS][tT]\\|2[nN][dD]\\|3[rR][dD]\\|[0-9][tT][hH]\\)")
+	   ((street))
+	   ((title)))
+	  ((pp.name matches "[1-9][0-9]+")
+	   ((street))
+	   ((title)))))))))
+    ("lead"
+     ((p.name in (was were have had been having has is are))
+      ((led))
+      ((liid))))
+    ("read"
+     ((p.name in ("was" "wasn't" "were" "weren't" "have" "haven't" "had" "hadn't" "been" "having" "has" "hasn't" "is" "isn't" "are" "aren't" "He" "She"))
+       ((red))
+       ((riid))))
+    ;("read"
+    ; ((p.name matches "[Pp]lease\\|PLEASE\\|[Ll]et'?s\\|LET'?S\\|[Tt][Oo]\\|[Ww]ill\\|WILL\\|[Ww]on'?t\\|WON'?T\\|[Mm]ay\\|MAY\\|[Cc]an\\(not\\|'?t\\)?\\|CAN\\(NOT\\|'?T\\)?\\|[Mm]ight\\|MIGHT\\|\\([Ww]ould\\|[Cc]ould\\|[Ss]hould\\|[Mm]ust\\)\\(n'?t\\)?\\|\\(WOULD\\|COULD\\|SHOULD\\|MUST\\)\\(N'?T\\)?")
+    ;  ((riid))
+    ;  ((p.name is 0)
+    ;   ((riid))
+    ;   ((red)))))
+    ("and"
+     ((n.name is 0)
+      ((aend))
+      ((punc is 0)
+       ((ahnd))
+       ((aend)))))
+    ("for"
+     ((n.name is 0)
+      ((faor))
+      ((punc is 0)
+       ((fer))
+       ((faor)))))
+    ("to"
+     ((n.name is 0)
+      ((tuu))
+      ((punc is 0)
+       ((to))
+       ((tuu)))))
+    ))
+
+(defvar english_homographs
+  '("lead" "read" "and" "for" "to")
+  "english_homographs
+A list of tokens that are dealt with by a homograph disambiguation tree
+in english_token_pos_cart_trees.")
+
+(defvar token_pos_cart_trees
+  english_token_pos_cart_trees
+  "token_pos_cart_trees
+This is a list of pairs or regex plus CART tree.  Tokens that match
+the regex will have the CART tree aplied, setting the result as
+the token_pos feature on the token.  The list is checked in order
+and only the first match will be applied.")
+
+(provide 'token)

CosyVoice-ttsfrd/resource/festival/tokenpos.scm

@@ -0,0 +1,286 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Functions used in identifying token types.
+;;;
+
+(defvar token_most_common
+'(
+sym numeric month to day in the of on and writes a years from
+for jst at million by is was gmt page he that than more since as when
+with but after about or his i has it date no died number bst who miles
+university some people an only w year have ago were are pages up days
+months hours minutes through out had which least hi last now ft this
+all one its there between cents until over will before past they
+nearly times tim message so lbs just if age we during she billion then
+other be time new her first states not you members under would many
+says degrees two next fax week while bush been around including back
+campaign american within publisher flight points even early later
+world countries every edt can president most could their what them
+former began women killed another also received long americans pounds
+do dear said km made into did dead war tel still old x took total men
+like f am less c well late down weeks end chapter among place house
+away him election death almost students state soviet where version
+summer man s nation because washington top though m id est these spent
+seats gnu estimated those lost ian high each copies children acres
+tons son per my found won off seconds power nations federal born
+presidential much city begin p name different whose three home hello
+million-euro)
+
+"token_most_common
+A list of (English) words which were found to be most common in 
+an text database and are used as discriminators in token analysis.")
+
+(define (token_pos_precise_val sc)
+"(tok_pos sc)
+Returns a general pos for sc's name. 
+  numeric   All digits
+  number    float or comma'd numeric
+  sym       Contains at least one non alphanumeric
+  month     has month name (or abbrev)
+  day       has day name (or abbrev)
+  rootname  else downcased alphabetic.
+Note this can be used to find token_pos but isn't used directly as
+its not disciminatory enough."
+  (let ((name (downcase (item.feat sc "token_pos"))))
+    (cond
+     ((string-equal name "year")
+      'year)
+     ((string-equal name "ordinal")
+      'ordinal)
+     (t
+      '_other_))))
+	  
+(define (token_pos_guess sc)
+"(tok_pos sc)
+Returns a general pos for sc's name. 
+  numeric   All digits
+  number    float or comma'd numeric
+  sym       Contains at least one non alphanumeric
+  month     has month name (or abbrev)
+  day       has day name (or abbrev)
+  rootname  else downcased alphabetic.
+Note this can be used to find token_pos but isn't used directly as
+its not disciminatory enough."
+  (let ((name (downcase (item.name sc))))
+    (cond
+     ((string-matches name "[0-9]+")
+      'numeric)
+     ((or (string-matches name "[0-9]+\\.[0-9]+")
+	  (string-matches name 
+	     "[0-9][0-9]?[0-9]?,\\([0-9][0-9][0-9],\\)*[0-9][0-9][0-9]"))
+      'number)
+     ((member_string name token_most_common)
+      name)
+     ((string-matches name ".*[^A-Za-z0-9].*")
+      'sym)
+     ((member_string name '(jan january feb february mar march 
+   			    apr april may jun june
+			    jul july aug august sep sept september
+			    oct october nov november dec december))
+      'month)
+     ((member_string name '(sun sunday mon monday tue tues tuesday 
+			    wed wednesday thu thurs thursday 
+			    fri friday sat saturday))
+      'day)
+     (t
+      '_other_))))
+
+(define (token_no_starting_quote token)
+  "(token_no_starting_quote TOKEN)
+Check to see if a single quote (or backquote) appears as prepunctuation
+in this token or any previous one in this utterance.  This is used to
+disambiguate ending single quote as possessive or end quote."
+  (cond
+   ((null token)
+    t)
+   ((string-matches (item.feat token "prepunctuation") "[`']")
+    nil)
+   (t
+    (token_no_starting_quote (item.relation.prev token "Token")))))
+
+(define (token_zerostart sc)
+"(zerostart sc)
+Returns, 1 if first char of sc's name is 0, 0 otherwise."
+  (if (string-matches (item.name sc) "^0.*")
+      "1"
+      "0"))
+
+(define (tok_roman_to_numstring roman)
+  "(tok_roman_to_numstring ROMAN)
+Takes a string of roman numerals and converts it to a number and
+then returns the printed string of that.  Only deals with numbers up to 50."
+  (let ((val 0) (chars (symbolexplode (upcase roman))))
+    (while chars
+     (cond
+      ((equal? (car chars) 'X)
+       (set! val (+ 10 val)))
+      ((equal? (car chars) 'V)
+       (set! val (+ 5 val)))
+      ((equal? (car chars) 'I)
+       (cond
+	((equal? (car (cdr chars)) 'V)
+	 (set! val (+ 4 val))
+	 (set! chars (cdr chars)))
+	((equal? (car (cdr chars)) 'X)
+	 (set! val (+ 9 val))
+	 (set! chars (cdr chars)))
+	(t
+	 (set! val (+ 1 val))))))
+     (set! chars (cdr chars)))
+    (format nil "%d" val)))
+
+(define (num_digits sc)
+"(num_digits SC)
+Returns number of digits (actually chars) is SC's name."
+  (string-length (format nil "%s" (item.name sc))))
+
+(define (month_range sc)
+"(month_range SC)
+1 if SC's name is > 0 and < 32, 0 otherwise."
+  (let ((val (parse-number (item.name sc))))
+    (if (and (> val 0) (< val 32))
+	"1"
+	"0")))
+
+(define (remove_leading_zeros name)
+  "(remove_leading_zeros name)
+Remove leading zeros from given string."
+  (let ((nname name))
+    (while (string-matches nname "^0..*")
+	   (set! nname (string-after nname "0")))
+    nname))
+
+(define (token_money_expand type)
+"(token_money_expand type)
+Convert shortened form of money identifier to words if of a known type."
+  (cond
+   ((string-equal type "HK")
+    (list "Hong" "Kong"))
+   ((string-equal type "C")
+    (list "Canadian"))
+   ((string-equal type "A")
+    (list "Australian"))
+   ((< (length type) 4)
+    (mapcar
+     (lambda (letter)
+       (list (list 'name letter)
+	     (list 'pos token.letter_pos)))
+     (symbolexplode type)))
+   (t
+    (list type))))
+
+(define (find_month_from_number token string-number)
+  "(find_month_from_number token string-number)
+Find the textual representation of the month from the given string number"
+  (let ((nnum (parse-number string-number)))
+    (cond
+     ((equal? 1 nnum) (list "January"))
+     ((equal? 2 nnum) (list "February"))
+     ((equal? 3 nnum) (list "March"))
+     ((equal? 4 nnum) (list "April"))
+     ((equal? 5 nnum) (list "May"))
+     ((equal? 6 nnum) (list "June"))
+     ((equal? 7 nnum) (list "July"))
+     ((equal? 8 nnum) (list "August"))
+     ((equal? 9 nnum) (list "September"))
+     ((equal? 10 nnum) (list "October"))
+     ((equal? 11 nnum) (list "November"))
+     ((equal? 12 nnum) (list "December"))
+     (t
+      (cons "month"
+	    (builtin_english_token_to_words token string-number))))))
+      
+(define (tok_allcaps sc)
+  "(tok_allcaps sc)
+Returns 1 if sc's name is all capitals, 0 otherwise"
+  (if (string-matches (item.name sc) "[A-Z]+")
+      "1"
+      "0"))
+
+(define (tok_section_name sc)
+  "(tok_section_name sc)
+Returns 1 if sc's name is in list of things that are section/chapter
+like."
+  (if (member_string
+       (downcase (item.name sc))
+       '(chapter section part article phrase verse scene act book 
+		 volume chap sect art vol war fortran saturn
+		 trek))
+      "1"
+      "0"))
+
+(define (tok_string_as_letters name)
+  "(tok_string_as_letters NAME)
+Return list of letters marked as letter part of speech made
+by exploding NAME."
+  (mapcar
+   (lambda (letter)
+     (list (list 'name letter)
+	   (list 'pos token.letter_pos)))
+   (symbolexplode name)))
+
+(define (tok_rex sc)
+  "(tok_rex sc)
+Returns 1 if King like title is within 3 tokens before or 2 after."
+  (let ((kings '(king queen pope duke tsar emperor shah ceasar
+		      duchess tsarina empress baron baroness
+		      count countess)))
+    (if (or (member_string 
+	     (downcase (item.feat sc "R:Token.pp.name"))
+	     kings)
+	    (member_string 
+	     (downcase (item.feat sc "R:Token.pp.p.name"))
+	     kings)
+	    (member_string 
+	     (downcase (item.feat sc "R:Token.n.name"))
+	     kings))
+	"1"
+	"0")))
+
+(define (tok_rex_names sc)
+  "(tok_rex sc)
+Returns 1 if this is a King-like name."
+  (if (and
+       (member_string
+        (downcase (item.name sc))
+        '(louis henry charles philip george edward pius william richard
+                ptolemy john paul peter nicholas
+                alexander frederick james alfonso ivan napolean leo 
+                gregory catherine alexandria pierre elizabeth mary))
+       (or (string-equal "" (item.feat sc "punc"))
+           (string-equal "0" (item.feat sc "punc"))))
+      "1"
+      "0"))
+
+(provide 'tokenpos)

CosyVoice-ttsfrd/resource/festival/tts.scm

@@ -0,0 +1,304 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Various tts functions and hooks
+
+;;;  Once the utterance is built these functions synth and play it
+(defvar tts_hooks (list utt.synth utt.play)
+  "tts_hooks
+Function or list of functions to be called during text to speech.
+The function tts_file, chunks data into Utterances of type Token and
+applies this hook to the utterance.  This typically contains the utt.synth
+function and utt.play. [see TTS]")
+
+;;;  This is used to define utterance breaks in tts on files
+(defvar eou_tree 
+  '((lisp_max_num_tokens > 200)
+    ((1))
+    ((n.whitespace matches ".*\n.*\n\\(.\\|\n\\)*");; significant break (2 nls)
+     ((1))
+     ((name matches "--+")
+     ((1))
+     ((punc matches ".*[\\?:!;].*")
+      ((1))
+      ((punc matches ".*\\..*")
+       ((punc matches "..+");; longer punctuation string
+	((punc matches "\\..*,")  ;; for U.S.S.R., like tokens
+	 ((0))
+	 ((1)))
+	;; This is to distinguish abbreviations vs periods
+	;; These are heuristics
+	((name matches "\\(.*\\..*\\|[A-Z][A-Za-z]?[A-Za-z]?\\|etc\\)");; an abbreviation
+	 ((n.whitespace is " ")
+	  ((0));; if abbrev single space isn't enough for break
+	  ((n.name matches "[A-Z].*")
+	   ((1))
+	   ((0))))
+	 ((n.whitespace is " ");; if it doesn't look like an abbreviation
+	  ((n.name matches "[A-Z].*");; single space and non-cap is no break
+	   ((1))
+	   ((0)))
+	  ((1)))))
+       ((0)))))))
+  "eou_tree
+End of utterance tree.  A decision tree used to determine if the given
+token marks the end of an utterance.  It may look one token ahead to
+do this. [see Utterance chunking]")
+
+(define (max_num_tokens x)
+  "(num_tokens x)
+This is probably controversial, but its good to have a maximum number
+of tokens in an utterance.  You really dont want to wait on very long
+utterances, some utts can be thousands of words long, these maybe
+shouldn't be spoken, but we do have to deal with them."
+  (let ((c 1) (y x))
+    (while y
+     (set! c (+ 1 c))
+     (set! y (item.prev y)))
+    c))
+
+;;;  The program used to parse stml files
+;;;  Needs version 1.0 to allow -D option to work
+(defvar sgml_parse_progname "nsgmls-1.0"
+  "sgml_parse_progname
+The name of the program to use to parse SGML files.  Typically this is
+nsgml-1.0 from the sp SGML package. [see XML/SGML requirements]")
+
+;;;  When PHRASE elements are specified in an utterance in STML
+;;;  no other method for phrase prediction is to be used, so we
+;;;  use the following tree
+(set! stml_phrase_cart_tree
+'((R:Token.parent.pbreak is B)
+  ((B))
+  ((n.name is 0)
+   ((B))
+   ((NB)))))
+
+(define (xxml_synth utt)
+"(xxml_synth UTT)
+This applies the xxml_hooks (mode specific) and tts_hooks to the
+given utterance.  This function should be called from xxml element
+definitions that signal an utterance boundary."
+   (cond
+    ((or (not utt)
+	 (not (utt.relation utt 'Token)))  ;; no tokens
+     nil)
+    (t
+     (apply_hooks xxml_hooks utt)
+     (apply_hooks tts_hooks utt)
+     (set! utt nil) ;; not enough ... 
+     (gc)
+     utt))
+)
+
+(define (xxml_attval ATTNAME ATTLIST)
+"(xxml_attval ATTNAME ATTLIST)
+Returns attribute value of ATTNAME in ATTLIST or nil if it doesn't
+exists."
+  (cond
+   ((not ATTLIST)
+    nil)
+   ((string-equal ATTNAME (car (car ATTLIST)))
+    (car (cdr (car ATTLIST))))
+   (t
+    (xxml_attval ATTNAME (cdr ATTLIST)))))
+
+(defvar xxml_word_features nil
+  "xxml_word_features
+An assoc list of features to be added to the current word when
+in xxml parse mode.")
+
+(defvar xxml_token_hooks nil
+  "xxml_token_hooks
+Functions to apply to each token.")
+
+(defvar xxml_hooks nil
+  "xxml_hooks
+  Function or list of functions to be applied to an utterance when
+  parsed with xxML, before tts_hooks.")
+
+(defvar xxml_elements nil
+  "xxml_elements
+List of Scheme actions to perform on finding xxML tags.")
+
+(defvar xml_dtd_dir libdir
+  "xml_dtd_dir
+The directory holding standard DTD form the xml parser.")
+
+(set! tts_fnum 1)
+(define (save_tts_output utt)
+  (let ((fname (string-append "tts_file_" tts_fnum ".wav")))
+    (format stderr "festival: saving waveform in %s\n" fname)
+    (utt.save.wave utt fname)
+    (set! tts_fnum (+ 1 tts_fnum))
+    utt))
+
+(define (save_waves_during_tts)
+  "(save_waves_during_tts)
+Save each waveform in the current directory in files \"tts_file_XXX.wav\".
+use (save_waves_during_tts_STOP) to stop saving waveforms"
+  (if (not (member save_tts_output tts_hooks))
+      (set! tts_hooks (append tts_hooks (list save_tts_output))))
+  t)
+
+(define (save_waves_during_tts_STOP)
+  "(save_waves_during_tts_STOP)
+Stop saving waveforms when doing tts."
+  (if (member save_tts_output tts_hooks)
+      (set! tts_hooks (delq save_tts_output tts_hooks)))
+  t)
+
+(define (tts file mode)
+  "(tts FILE MODE)
+  Convert FILE to speech.  MODE identifies any special treatment
+  necessary for FILE.  This is simply a front end to tts_file but 
+  puts the system in async audio mode first. [see TTS]"
+  (audio_mode 'async)
+  (if mode
+      (tts_file file mode)
+      (tts_file file (tts_find_text_mode file auto-text-mode-alist)))
+;;  (audio_mode 'sync) ;; Hmm this is probably bad
+)
+
+(define (tts_text string mode)
+  "(tts_text STRING mode)
+Apply tts on given string.  That is, segment it into utterances and
+apply tts_hooks to each utterance.  This is naively done by saving the
+string to a file and calling tts_file on that file.  This differs from
+SayText which constructs a single utterance for the whole given text."
+  (let ((tmpfile (make_tmp_filename))
+	(fd))
+    (set! fd (fopen tmpfile "wb"))
+    (format fd "%s" string)
+    (fclose fd)
+    (audio_mode 'async)
+    (tts_file tmpfile mode)
+    (delete-file tmpfile)))
+
+(define (save_record_wave utt)
+"Saves the waveform and records its so it can be joined into a 
+a single waveform at the end."
+  (let ((fn (make_tmp_filename)))
+    (utt.save.wave utt fn)
+    (set! wavefiles (cons fn wavefiles))
+    utt))
+
+(define (combine_waves)
+  "(combine_waves)
+Join all the waves together into the desired output file
+and delete the intermediate ones."
+  (let ((wholeutt (Utterance Text "")))
+    (mapcar
+     (lambda (d) 
+       (utt.import.wave wholeutt d t)
+       (delete-file d))
+     (reverse wavefiles))
+    wholeutt))
+
+(define (tts_textall string mode)
+  "(tts_textall STRING MODE)
+Apply tts to STRING.  This function is specifically designed for
+use in server mode so a single function call may synthesize the string.
+This function name maybe added to the server safe functions."
+  (if (not (string-equal mode "nil"))
+      (begin
+ 	  ;; a mode has been specified so do something different
+	  (let ((tmpfile (make_tmp_filename))
+		(fd))
+	    (set! fd (fopen tmpfile "wb"))
+	    (format fd "%s" string)
+	    (fclose fd)
+	    (set! tts_hooks (list utt.synth save_record_wave))
+	    (set! wavefiles nil)
+	    (tts_file tmpfile mode)
+	    (delete-file tmpfile)
+	    (utt.send.wave.client (combine_waves))
+	))
+      ;; Simple fundamental mode
+      (utt.send.wave.client 
+       (utt.synth
+	(eval (list 'Utterance 'Text string))))))
+
+;; Function to interface with app_festival for asterisk
+;; See http://www.asterisk.org
+(define (tts_textasterisk string mode)
+  "(tts_textasterisk STRING MODE)
+Apply tts to STRING.  This function is specifically designed for
+use in server mode so a single function call may synthesize the string.
+This function name may be added to the server safe functions."
+  (utt.send.wave.asterisk
+   (utt.synth
+    (eval (list 'Utterance 'Text string)))))
+
+
+
+(define (tts_return_to_client)
+  "(tts_return_to_client)
+This function is called by clients who wish to return waveforms of
+their text samples asynchronously.  This replaces utt.play in tts_hooks
+with utt.send.wave.client."
+  (if (not (member utt.send.wave.client tts_hooks))
+      (set! tts_hooks
+	    (append (delq utt.play tts_hooks)
+		    (list utt.send.wave.client)))))
+
+(defvar tts_text_modes nil
+"tts_text_modes
+An a-list of text modes data for file type specific tts functions.
+See the manual for an example.  [see Text modes]")
+
+(define (tts_find_text_mode file alist)
+  "(find_text_mode FILE ALIST)
+Search through ALIST for one that matches FILE.  Returns nil if
+nothing macthes."
+  (cond
+   ((null alist) nil)  ;; can't find a match
+   ((string-matches file (string-append ".*" (car (car alist)) ".*"))
+    (cdr (car alist)))
+   (t
+    (tts_find_text_mode file (cdr alist)))))
+
+(defvar auto-text-mode-alist
+  (list
+   (cons "\\.sable$" 'sable)
+   (cons "\\.ogi" 'ogimarkup)
+   (cons "\\.email" 'email)
+   (cons "" 'fundamental)
+   )
+  "auto-text-mode-alist
+Following Emacs' auto-mode-alist thios provides a mechanism for auto
+selecting a TTS text mode based on the filename being analyzed.  Its
+format is exactly the same as Emacs in that it consists of an alist of
+dotted pairs of regular expression and text mode name.")
+
+(provide 'tts)

CosyVoice-ttsfrd/resource/festival/unilex_phones.scm

@@ -0,0 +1,189 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 2003, 2004                        ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; unilex phoneset
+;;;
+
+
+(defPhoneSet
+  unilex
+  ;;;  Phone Features
+  (;; vowel or consonant
+   (vc + -)  
+   ;; vowel length: short long dipthong schwa
+   (vlng s l d a 0)
+   ;; vowel height: high mid low
+   (vheight 1 2 3 0)
+   ;; vowel frontness: front mid back
+   (vfront 1 2 3 0)
+   ;; lip rounding
+   (vrnd + - 0)
+   ;; consonant type: stop fricative affricative nasal liquid approximant
+   (ctype s f a n l t r 0)
+   ;; place of articulation: labial alveolar palatal labio-dental
+   ;;                         dental velar glottal
+   (cplace l a p b d v g 0)
+   ;; consonant voicing
+   (cvox + - 0)
+   )
+  (
+   (SIL  - 0 0 0 0 0 0 -)  ;; slience ... 
+   (#  - 0 0 0 0 0 0 -)  ;; slience ... 
+   (B_10  - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_20 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_30 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_40 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_50 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_100 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_150 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_200 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_250 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_300 - 0 0 0 0 0 0 -)  ;; Pauses
+   (B_400 - 0 0 0 0 0 0 -)  ;; Pauses
+   (IGNORE - 0 0 0 0 0 0 -)  ;; Pauses
+
+
+   ;; insert the phones here, see examples in 
+   ;; festival/lib/*_phones.scm
+
+   ;(name vc vling vheight vfront vrnd ctype cplace cvox)
+
+   ;;; Rob guesed these values for Edinburgh English
+   ;;; Not to be taken too seriously.
+
+   (p    -   0   0   0   0   s   l   -)
+   (t    -   0   0   0   0   s   a   -)
+   (?    -   0   0   0   0   s   g   +) ;;; ???
+   (t^   -   0   0   0   0   t   a   +) ;;; ???
+   (k    -   0   0   0   0   s   v   -)
+   (x    -   0   0   0   0   f   v   -)
+   (b    -   0   0   0   0   s   l   +)
+   (d    -   0   0   0   0   s   a   +)
+   (g    -   0   0   0   0   s   v   +)
+   (ch   -   0   0   0   0   a   p   -)
+   (jh   -   0   0   0   0   a   p   +)
+   (s    -   0   0   0   0   f   a   -)
+   (z    -   0   0   0   0   f   a   +)
+   (sh   -   0   0   0   0   f   p   -)
+   (zh   -   0   0   0   0   f   p   +)
+   (f    -   0   0   0   0   f   b   -)
+   (v    -   0   0   0   0   f   b   +)
+   (th   -   0   0   0   0   f   d   -)
+   (dh   -   0   0   0   0   f   d   +)
+   (h    -   0   0   0   0   f   0   -) ;;; ???
+   (m    -   0   0   0   0   n   l   +)
+   (m!   -   0   0   0   0   n   l   +)
+   (n    -   0   0   0   0   n   a   +)
+   (n!   -   0   0   0   0   n   a   +)
+   (ng   -   0   0   0   0   n   v   +)
+   (l    -   0   0   0   0   r   a   +)
+   (ll   -   0   0   0   0   r   a   +)
+   (lw   -   0   0   0   0   r   a   +)
+   (l!   -   0   0   0   0   r   a   +)
+   (r    -   0   0   0   0   r   a   +)
+   (y    -   0   0   0   0   l   p   +)
+   (w    -   0   0   0   0   l   l   +)
+   (hw   -   0   0   0   0   l   l   +)
+   (e    +   s   2   1   -   0   0   0)
+   (ao   +   s   3   1   -   0   0   0)
+   (a    +   s   3   1   -   0   0   0)
+   (ah   +   s   3   1   -   0   0   0)
+   (oa   +   s   3   1   -   0   0   0)
+   (aa   +   s   3   1   -   0   0   0)
+   (ar   +   s   3   1   -   0   0   0)
+   (eh   +   s   3   1   -   0   0   0)   ;;; ?
+   (oul  +   d   2   3   +   0   0   0)   ;;; ?
+   (ou   +   d   2   3   +   0   0   0)
+   (ouw  +   d   2   3   +   0   0   0)
+   (oou  +   l   3   3   +   0   0   0)
+   (o    +   l   3   3   +   0   0   0)
+   (au   +   l   3   3   +   0   0   0)
+   (oo   +   l   3   3   +   0   0   0)
+   (or   +   l   3   3   +   0   0   0)
+   (our  +   d   2   3   +   0   0   0)
+   (ii   +   l   1   1   -   0   0   0)
+   (ihr  +   s   1   1   -   0   0   0)
+   (iy   +   l   1   1   -   0   0   0)
+   (i    +   s   1   1   -   0   0   0)
+   (ie   +   l   1   1   -   0   0   0)   ;;; ?
+   (iii  +   s   1   1   -   0   0   0)   ;;; was ii;
+   (@r   +   a   2   2   -   r   a   +)
+   (@    +   a   2   2   -   0   0   0)
+   (uh   +   s   2   2   -   0   0   0) 
+   (uhr  +   s   2   2   -   0   0   0)
+   (u    +   l   1   3   +   0   0   0)
+   (uu   +   l   1   3   +   0   0   0)
+   (iu   +   l   1   3   +   0   0   0)
+   (uuu  +   l   1   3   +   0   0   0)   ;;; was uu;
+   (uw   +   l   1   3   +   0   0   0)   ;;; ???
+   (uul  +   l   1   3   +   0   0   0)   ;;; ???
+   (ei   +   d   2   1   -   0   0   0)
+   (ee   +   d   2   1   -   0   0   0)
+   (ai   +   d   3   2   -   0   0   0)    ;;; ???
+   (ae   +   d   3   2   -   0   0   0)    ;;; ???
+   (aer  +   d   3   2   -   0   0   0)    ;;; ???
+   (aai  +   d   3   2   -   0   0   0)    ;;; ???
+   (oi   +   d   2   3   +   0   0   0)    ;;; ???
+   (oir  +   d   2   3   +   0   0   0)    ;;; ???
+   (ow   +   d   3   2   -   0   0   0)
+   (owr  +   d   3   2   -   0   0   0)    ;;; ???
+   (oow  +   d   3   2   -   0   0   0)    ;;; ???
+   (i@   +   l   1   1   -   0   0   0)    ;;; iy + @ ?
+   (ir   +   s   1   1   -   0   0   0)
+   (irr  +   s   1   1   -   0   0   0)    ;;; was ir;
+   (iir  +   s   1   1   -   0   0   0)
+   (@@r  +   a   2   2   -   0   0   0)
+   (er   +   s   2   1   -   0   0   0)
+   (eir  +   s   2   1   -   0   0   0)    ;;; ???
+   (ur   +   s   1   3   +   0   0   0)    ;;; ???
+   (urr  +   s   1   3   +   0   0   0)    ;;; ???
+   (iur  +   s   1   3   +   0   0   0)    ;;; ???
+  )
+)
+
+(PhoneSet.silences '( # SIL))
+
+(define (unilex::select_phoneset)
+  "(unilex::select_phoneset)
+Set up phone set for unilex"
+  (Parameter.set 'PhoneSet 'unilex)
+  (PhoneSet.select 'unilex)
+)
+
+(define (unilex::reset_phoneset)
+  "(unilex::reset_phoneset)
+Reset phone set for unilex."
+  t
+)
+
+(provide 'unilex_phones)

CosyVoice-ttsfrd/resource/festival/voices.scm

@@ -0,0 +1,361 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Preapre to access voices. Searches down a path of places.
+;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define current-voice nil
+  "current-voice
+   The name of the current voice.")
+
+;; The path to search for voices is created from the load-path with
+;; an extra list of directories appended.
+
+(defvar system-voice-path '( )
+  "system-voice-path
+   Additional directory not near the load path where voices can be
+   found, this can be redefined in lib/sitevars.scm if desired.")
+
+(defvar system-voice-path-multisyn '( )
+  "system-voice-path-multisyn
+   Additional directory not near the load path where multisyn voices can be
+   found, this can be redefined in lib/sitevars.scm if desired.")
+
+(defvar voice-path 
+  (remove-duplicates
+   (append (mapcar (lambda (d) (path-append d "voices/")) load-path)
+	   (mapcar (lambda (d) (path-as-directory d)) system-voice-path)
+	   ))
+
+  "voice-path
+   List of places to look for voices. If not set it is initialised from
+   load-path by appending \"voices/\" to each directory with 
+   system-voice-path appended.")
+
+(defvar voice-path-multisyn 
+  (remove-duplicates
+   (append (mapcar (lambda (d) (path-append d "voices-multisyn/")) load-path)
+	   (mapcar (lambda (d) (path-as-directory d)) system-voice-path-multisyn)
+	   ))
+
+  "voice-path-multisyn
+   List of places to look for multisyn voices. If not set it is initialised from
+   load-path by appending \"voices-multisyn/\" to each directory with 
+   system-voice-path-multisyn appended.")
+
+
+;; Declaration of voices. When we declare a voice we record the
+;; directory and set up an autoload for the vocie-selecting function
+
+(defvar voice-locations ()
+  "voice-locations
+   Association list recording where voices were found.")
+
+(defvar voice-location-trace nil
+  "voice-location-trace
+   Set t to print voice locations as they are found")
+
+(define (voice-location name dir doc)
+  "(voice-location NAME DIR DOCSTRING)
+   Record the location of a voice. Called for each voice found on voice-path.
+   Can be called in site-init or .festivalrc for additional voices which
+   exist elsewhere."
+  (let ((func_name (intern (string-append "voice_" name)))
+	)
+
+    (set! name (intern name))
+    (set! voice-locations (cons (cons name dir) voice-locations))
+    (eval (list 'autoload func_name (path-append dir "festvox/" name) doc))
+    (if voice-location-trace
+	(format t "Voice: %s %s\n" name dir)
+	)
+    )
+  )
+
+(define (voice-location-multisyn name rootname dir doc)
+  "(voice-location NAME ROOTNAME DIR DOCSTRING)
+   Record the location of a voice. Called for each voice found on voice-path.
+   Can be called in site-init or .festivalrc for additional voices which
+   exist elsewhere."
+  (let ((func_name (intern (string-append "voice_" name)))
+	)
+
+    (set! name (intern name))
+    (set! voice-locations (cons (cons name dir) voice-locations))
+    (eval (list 'autoload func_name (path-append dir "festvox/" rootname) doc))
+    (if voice-location-trace
+	(format t "Voice: %s %s\n" name dir)
+	)
+    )
+  )
+
+
+
+(define (current_voice_reset)
+"(current_voice_reset)
+This function is called at the start of defining any new voice.
+It is design to allow the previous voice to reset any global
+values it has messed with.  If this variable value is nil then
+the function wont be called.")
+
+(define (voice_reset)
+"(voice_reset)
+This resets all variables back to acceptable values that may affect
+voice generation.  This function should always be called at the
+start of any function defining a voice.  In addition to reseting
+standard variables the function current_voice_reset will be called.
+This should always be set by the voice definition function (even
+if it does nothing).  This allows voice specific changes to be reset
+when a new voice is selection.  Unfortunately I can't force this
+to be used."
+   (Parameter.set 'Duration_Stretch 1.0)
+   (set! after_synth_hooks default_after_synth_hooks)
+
+   ;; The follow are reset to allow existing voices to continue
+   ;; to work, new voices should be setting these explicitly
+   (Parameter.set 'Token_Method 'Token_English)
+   (Parameter.set 'POS_Method Classic_POS)
+   (Parameter.set 'Phrasify_Method Classic_Phrasify)
+   (Parameter.set 'Word_Method Classic_Word)
+   (Parameter.set 'Pause_Method Classic_Pauses)
+   (Parameter.set 'PostLex_Method Classic_PostLex)
+
+   (set! diphone_module_hooks nil)
+   (set! UniSyn_module_hooks nil)
+
+   (if current_voice_reset
+       (current_voice_reset))
+   (set! current_voice_reset nil)
+)
+
+
+(defvar Voice_descriptions nil
+  "Internal variable containing list of voice descriptions as
+decribed by proclaim_voice.")
+
+(define (proclaim_voice name description)
+"(proclaim_voice NAME DESCRIPTION)
+Describe a voice to the systen.  NAME should be atomic name, that
+conventionally will have voice_ prepended to name the basic selection
+function.  OPTIONS is an assoc list of feature and value and must
+have at least features for language, gender, dialect and 
+description.  The first there of these are atomic, while the description
+is a text string describing the voice."
+  (let ((voxdesc (assoc name Voice_descriptions)))
+    (if voxdesc
+	(set-car! (cdr voxdesc) description)
+	(set! Voice_descriptions 
+	      (cons (list name description) Voice_descriptions))))
+)
+
+(define (voice.description name)
+"(voice.description NAME)
+Output description of named voice.  If the named voice is not yet loaded
+it is loaded."
+  (let ((voxdesc (assoc name Voice_descriptions))
+	(cv current-voice))
+    (if (null voxdesc)
+	(unwind-protect
+	 (begin 
+	   (voice.select name)
+	   (voice.select cv) ;; switch back to current voice
+	   (set! voxdesc (assoc name Voice_descriptions)))))
+    (if voxdesc
+       voxdesc
+       (begin
+	 (format t "SIOD: unknown voice %s\n" name)
+	 nil))))
+
+(define (voice.select name)
+"(voice.select NAME)
+Call function to set up voice NAME.  This is normally done by 
+prepending voice_ to NAME and call it as a function."
+  (eval (list (intern (string-append "voice_" name)))))
+
+(define (voice.describe name)
+"(voice.describe NAME)
+Describe voice NAME by saying its description.  Unfortunately although
+it would be nice to say that voice's description in the voice itself
+its not going to work cross language.  So this just uses the current
+voice.  So here we assume voices describe themselves in English 
+which is pretty anglo-centric, shitsurei shimasu."
+  (let ((voxdesc (voice.description name)))
+    (let ((desc (car (cdr (assoc 'description (car (cdr voxdesc)))))))
+      (cond
+       (desc (tts_text desc nil))
+       (voxdesc 
+	(SayText 
+	 (format nil "A voice called %s exist but it has no description"
+		 name)))
+       (t
+	(SayText 
+	 (format nil "There is no voice called %s defined" name)))))))
+
+(define (voice.list)
+"(voice.list)
+List of all (potential) voices in the system.  This checks the voice-location
+list of potential voices found be scanning the voice-path at start up time.
+These names can be used as arguments to voice.description and
+voice.describe."
+   (mapcar car voice-locations))
+
+;; Voices are found on the voice-path if they are in directories of the form
+;;		DIR/LANGUAGE/NAME
+
+(define (search-for-voices)
+  "(search-for-voices)
+   Search down voice-path to locate voices."
+
+  (let ((dirs voice-path)
+	(dir nil)
+	languages language
+	voices voicedir voice
+	)
+    (while dirs
+     (set! dir (car dirs))
+     (setq languages (directory-entries dir t))
+     (while languages
+       (set! language (car languages))
+       (set! voices (directory-entries (path-append dir language) t))
+       (while voices
+	 (set! voicedir (car voices))
+	 (set! voice (path-basename voicedir))
+	 (if (string-matches voicedir ".*\\..*")
+	     nil
+	     (voice-location 
+	      voice 
+	      (path-as-directory (path-append dir language voicedir))
+	      "voice found on path")
+	     )
+	 (set! voices (cdr voices))
+	 )
+       (set! languages (cdr languages))
+       )
+     (set! dirs (cdr dirs))
+     )
+    )
+  )
+
+;; A single file is allowed to define multiple multisyn voices, so this has
+;; been adapted for this. Rob thinks this is just evil, but couldn't think
+;; of a better way.
+(define (search-for-voices-multisyn)
+  "(search-for-voices-multisyn)
+   Search down multisyn voice-path to locate multisyn voices."
+  (let ((dirs voice-path-multisyn)
+	(dir nil)
+	languages language
+	voices voicedir voice voice-list
+	)
+    (while dirs
+     (set! dir (car dirs))
+     (set! languages (directory-entries dir t))
+     (while languages
+       (set! language (car languages))
+       (set! voices (directory-entries (path-append dir language) t))
+       (while voices
+	 (set! voicedir (car voices))
+	 (set! voice (path-basename voicedir))
+	 (if (string-matches voicedir ".*\\..*")
+	     nil
+	     (begin
+	       ;; load the voice definition file, but don't evaluate it!
+	       (set! voice-def-file (load (path-append dir language voicedir "festvox" 
+						       (string-append voicedir ".scm")) t))
+	       ;; now find the "proclaim_voice" lines and register these voices.
+	       (mapcar
+		(lambda (line)
+		  (if (string-matches (car line) "proclaim_voice")
+		      (voice-location-multisyn (intern (cadr (cadr line)))  voicedir (path-append dir language voicedir) "registerd multisyn voice")))
+		voice-def-file)
+	     ))
+	 (set! voices (cdr voices)))
+       (set! languages (cdr languages)))
+     (set! dirs (cdr dirs)))))
+
+(search-for-voices)
+(search-for-voices-multisyn)
+
+;; We select the default voice from a list of possibilities. One of these
+;; had better exist in every installation.
+
+(define (no_voice_error)
+  (format t "\nWARNING\n")
+  (format t "No default voice found in %l\n" voice-path)
+  (format t "either no voices unpacked or voice-path is wrong\n")
+  (format t "Scheme interpreter will work, but there is no voice to speak with.\n")
+  (format t "WARNING\n\n"))
+
+(defvar voice_default 'no_voice_error
+ "voice_default
+A variable whose value is a function name that is called on start up to
+the default voice. [see Site initialization]")
+
+(defvar default-voice-priority-list 
+  '(kal_diphone
+    cmu_us_slt_cg
+    cmu_us_rms_cg
+    cmu_us_bdl_cg
+    cmu_us_jmk_cg
+    cmu_us_awb_cg
+;    cstr_rpx_nina_multisyn       ; restricted license (lexicon)
+;    cstr_rpx_jon_multisyn       ; restricted license (lexicon)
+;    cstr_edi_awb_arctic_multisyn ; restricted license (lexicon)
+;    cstr_us_awb_arctic_multisyn
+    ked_diphone
+    don_diphone
+    rab_diphone
+    en1_mbrola
+    us1_mbrola
+    us2_mbrola
+    us3_mbrola
+    gsw_diphone  ;; not publically distributed
+    el_diphone
+    )
+  "default-voice-priority-list
+   List of voice names. The first of them available becomes the default voice.")
+
+(let ((voices default-voice-priority-list)
+      voice)
+  (while (and voices (eq voice_default 'no_voice_error))
+	 (set! voice (car voices))
+	 (if (assoc voice voice-locations)
+	     (set! voice_default (intern (string-append "voice_" voice)))
+	     )
+	 (set! voices (cdr voices))
+	 )
+  )
+
+
+(provide 'voices)

CosyVoice-ttsfrd/resource/festival/voices/english/kal_diphone/COPYING

@@ -0,0 +1,43 @@
+
+This directory contains a diphone synthesizer voice for American English.
+This distribution falls under the following copyright.   See further
+notes below copyright.
+
+                    Alan W Black and Kevin Lenzo                       
+                         Copyright (c) 1998                            
+                        All Rights Reserved.                           
+                                                                       
+  Permission is hereby granted, free of charge, to use and distribute  
+  this software and its documentation without restriction, including   
+  without limitation the rights to use, copy, modify, merge, publish,  
+  distribute, sublicense, and/or sell copies of this work, and to      
+  permit persons to whom this work is furnished to do so, subject to   
+  the following conditions:                                            
+   1. The code must retain the above copyright notice, this list of    
+      conditions and the following disclaimer.                         
+   2. Any modifications must be clearly marked as such.                
+   3. Original authors' names are not deleted.                         
+   4. The authors' names are not used to endorse or promote products   
+      derived from this software without specific prior written        
+      permission.                                                      
+                                                                       
+  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        
+  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      
+  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   
+  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     
+  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    
+  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   
+  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          
+  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       
+  THIS SOFTWARE.                                                       
+
+Note this voice cotains a file Copyright CSTR, University of Edinburgh
+under the same lincences as the above.  The voice also requires the
+separate distributions festlex_POSLEX.tar.gz and festlex_CMU.tar.gz.
+festlex_POSLEX.tar.gz is copyright CSTR under the same free licence
+while festlex_CMU.tar.gz contain material derived from material
+copyright by Carnegie Mellon University, though their licence is as
+free as the one above so.
+
+This voice was created while awb was visiting the speech group at
+CMU in fall 98.

CosyVoice-ttsfrd/resource/festival/voices/english/kal_diphone/festvox/kal_diphone.scm

@@ -0,0 +1,266 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;-*-mode:scheme-*-
+;;;                                                                       ;;
+;;;                    Alan W Black and Kevin Lenzo                       ;;
+;;;                         Copyright (c) 1998                            ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE AUTHORS OF THIS WORK DISCLAIM ALL WARRANTIES WITH REGARD TO      ;;
+;;;  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY   ;;
+;;;  AND FITNESS, IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY         ;;
+;;;  SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES            ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;  This file is part "Building Voices in the Festival Speech            ;;
+;;;  Synthesis System" by Alan W Black and Kevin Lenzo written at         ;;
+;;;  Robotics Institute, Carnegie Mellon University, fall 98              ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  A US English diphone voice based on KAL
+;;;
+;;;  Much of the front end is based on KED
+;;;
+
+(defvar kal_diphone_dir (cdr (assoc 'kal_diphone voice-locations))
+  "kal_diphone_dir
+  The default directory for the kal diphone database.")
+(set! load-path (cons (path-append kal_diphone_dir "festvox/") load-path))
+
+(require 'radio_phones)
+(require_module 'UniSyn)
+
+;; set this to lpc or psola
+(defvar kal_sigpr 'lpc)
+;; Rset this to ungroup for ungrouped version
+(defvar kal_groupungroup 'group)
+
+(if (probe_file (path-append kal_diphone_dir "group/kallpc16k.group"))
+    (defvar kal_index_file 
+      (path-append kal_diphone_dir "group/kallpc16k.group"))
+    (defvar kal_index_file 
+      (path-append kal_diphone_dir "group/kallpc8k.group")))
+
+(set! kal_psola_sep 
+      (list
+       '(name "kal_psola_sep")
+       (list 'index_file (path-append kal_diphone_dir "dic/diphdic.est"))
+       '(grouped "false")
+       (list 'coef_dir (path-append kal_diphone_dir "pm"))
+       (list 'sig_dir (path-append kal_diphone_dir "wav"))
+       '(coef_ext ".pm")
+       '(sig_ext ".wav")
+;       '(alternates_left ((er ax)))
+;       '(alternates_right (($p p) ($k k) ($g g) ($d d) ($b b) ($t t)
+;				  (y ih) (ax ah) (ll l)))
+       '(alternates_right ((er ax)))
+       '(default_diphone "ax-ax")))
+
+(set! kal_lpc_sep 
+      (list
+       '(name "kal_lpc_sep")
+       (list 'index_file (path-append kal_diphone_dir "dic/diphdic.est"))
+       '(grouped "false")
+       (list 'coef_dir (path-append kal_diphone_dir "lpc"))
+       (list 'sig_dir  (path-append kal_diphone_dir "lpc"))
+       '(coef_ext ".lpc")
+       '(sig_ext ".res")
+       '(alternates_right ((er ax)))
+       '(default_diphone "ax-ax")))
+
+(set! kal_lpc_group 
+      (list
+       '(name "kal_lpc_group")
+       (list 'index_file kal_index_file)
+       '(grouped "true")
+       '(alternates_right ((er ax)))
+       '(default_diphone "ax-ax")))
+
+(defvar kal_di_16k nil)
+(defvar kal_di_8k nil)
+
+(cond
+ (kal_di_16k
+  (require 'kal_di)
+  (setup_kal_diphone_lpc_16k_grouped))
+ (kal_di_8k
+  (require 'kal_di)
+  (setup_kal_diphone_lpc_8k_grouped))
+ ((and (eq kal_sigpr 'psola)
+       (eq kal_groupungroup 'group))
+  (set! kal_db_name (us_diphone_init kal_psola_group)))
+ ((and (eq kal_sigpr 'psola)
+       (eq kal_groupungroup 'ungroup))
+  (set! kal_db_name (us_diphone_init kal_psola_sep)))
+ ((and (eq kal_sigpr 'lpc)
+       (eq kal_groupungroup 'group))
+  (set! kal_db_name (us_diphone_init kal_lpc_group)))
+ ((and (eq kal_sigpr 'lpc)
+       (eq kal_groupungroup 'ungroup))
+  (set! kal_db_name (us_diphone_init kal_lpc_sep))))
+
+;;;;
+;;;;  Our general diphone scheme allows identification of consonant
+;;;   clusters etc the follow rules should work for American English
+;;;;
+(define (kal_diphone_const_clusters utt)
+"(kal_diphone_const_clusters UTT)
+Identify consonant clusters, dark ls etc in the segment stream
+ready for diphone resynthesis.  This may be called as a post lexical
+rule through poslex_rule_hooks."
+  (mapcar
+   (lambda (s) (kal_diphone_fix_phone_name utt s))
+   (utt.relation.items utt 'Segment))
+  utt)
+
+(define (kal_diphone_fix_phone_name utt seg)
+"(kal_diphone_fix_phone_name UTT SEG)
+Add the feature diphone_phone_name to given segment with the appropriate
+name for constructing a diphone.  Basically adds _ if either side is part
+of the same consonant cluster, adds $ either side if in different
+syllable for preceding/succeeding vowel syllable."
+  (let ((name (item.name seg)))
+    (cond
+     ((string-equal name "pau") t)
+     ((string-equal "-" (item.feat seg 'ph_vc))
+      (if (and (member_string name '(r w y l))
+	       (member_string (item.feat seg "p.name") '(p t k b d g))
+	       (item.relation.prev seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_right" (format nil "_%s" name)))
+      (if (and (member_string name '(w y l m n p t k))
+	       (string-equal (item.feat seg "p.name") 's)
+	       (item.relation.prev seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_right" (format nil "_%s" name)))
+      (if (and (string-equal name 's)
+	       (member_string (item.feat seg "n.name") '(w y l m n p t k))
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s_" name)))
+      (if (and (string-equal name 'hh)
+	       (string-equal (item.feat seg "n.name") 'y)
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s_" name)))
+      (if (and (string-equal name 'y)
+	       (string-equal (item.feat seg "p.name") 'hh)
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_right" (format nil "_%s" name)))
+      (if (and (member_string name '(p t k b d g))
+	       (member_string (item.feat seg "n.name") '(r w y l))
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s_" name)))
+      )
+     ((string-equal "ah" (item.name seg))
+      (item.set_feat seg "us_diphone" "aa"))
+
+   )))
+
+;;;  Set up the CMU lexicon
+(setup_cmu_lex)
+
+(define (voice_kal_diphone)
+"(voice_kal_diphone)
+ Set up the current voice to be male  American English (Kevin) using
+ the standard diphone code."
+  ;; Phone set
+  (voice_reset)
+  (Parameter.set 'Language 'americanenglish)
+  (require 'radio_phones)
+  (Parameter.set 'PhoneSet 'radio)
+  (PhoneSet.select 'radio)
+  ;; Tokenization rules
+  (set! token_to_words english_token_to_words)
+  ;; POS tagger
+  (require 'pos)
+  (set! pos_lex_name "english_poslex")
+  (set! pos_ngram_name 'english_pos_ngram)
+  (set! pos_supported t)
+  (set! guess_pos english_guess_pos)   ;; need this for accents
+  ;; Lexicon selection
+  (lex.select "cmu")
+  (set! postlex_rules_hooks (list postlex_apos_s_check))
+  (set! postlex_s_check postlex_apos_s_check)
+  ;; Phrase prediction
+  (require 'phrase)
+  (Parameter.set 'Phrase_Method 'prob_models)
+  (set! phr_break_params english_phr_break_params)
+  ;; Accent and tone prediction
+  (require 'tobi)
+  (set! int_tone_cart_tree f2b_int_tone_cart_tree)
+  (set! int_accent_cart_tree f2b_int_accent_cart_tree)
+
+  (set! postlex_vowel_reduce_cart_tree 
+	postlex_vowel_reduce_cart_data)
+  ;; F0 prediction
+  (require 'f2bf0lr)
+  (set! f0_lr_start f2b_f0_lr_start)
+  (set! f0_lr_mid f2b_f0_lr_mid)
+  (set! f0_lr_end f2b_f0_lr_end)
+  (Parameter.set 'Int_Method Intonation_Tree)
+  (set! int_lr_params
+	'((target_f0_mean 105) (target_f0_std 14)
+	  (model_f0_mean 170) (model_f0_std 34)))
+  (Parameter.set 'Int_Target_Method Int_Targets_LR)
+  ;; Duration prediction
+  (require 'kaldurtreeZ)
+  (set! duration_cart_tree kal_duration_cart_tree)
+  (set! duration_ph_info kal_durs)
+  (Parameter.set 'Duration_Method Duration_Tree_ZScores)
+  (Parameter.set 'Duration_Stretch 1.1)
+  ;; Waveform synthesizer: kal diphones
+  ;; This assigned the diphone names from their context (_ $ etc)
+  (cond
+   ((or kal_di_16k kal_di_8k)
+    ;; Waveform synthesizer: kal diphones
+    (Parameter.set 'Synth_Method Diphone_Synthesize)
+    ;; This assigned the diphone names from their context (_ $ etc)
+    (set! diphone_module_hooks (list kal_di_const_clusters ))
+    (Diphone.select 'kal))
+   (t
+    (set! UniSyn_module_hooks (list kal_diphone_const_clusters ))
+    (set! us_abs_offset 0.0)
+    (set! window_factor 1.0)
+    (set! us_rel_offset 0.0)
+    (set! us_gain 0.9)
+
+    (Parameter.set 'Synth_Method 'UniSyn)
+    (Parameter.set 'us_sigpr kal_sigpr)
+    (us_db_select kal_db_name)))
+
+  (set! after_synth_hooks 
+	(lambda (utt) 
+	  (utt.wave.rescale utt 2.6)))
+
+  (set! current-voice 'kal_diphone)
+)
+
+(proclaim_voice
+ 'kal_diphone
+ '((language english)
+   (gender male)
+   (dialect american)
+   (description
+    "This voice provides an American English male voice using a
+     residual excited LPC diphone synthesis method.  It uses 
+     the CMU Lexicon pronunciations.  Prosodic phrasing is provided 
+     by a statistically trained model using part of speech and local 
+     distribution of breaks.  Intonation is provided by a CART tree 
+     predicting ToBI accents and an F0 contour generated from a model 
+     trained from natural speech.  The duration model is also trained 
+     from data using a CART tree.")))
+
+(provide 'kal_diphone)
+

CosyVoice-ttsfrd/resource/festival/voices/english/kal_diphone/festvox/kaldurtreeZ.scm

@@ -0,0 +1,978 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;   A tree to predict zcore durations build from f2b
+;;;   doesn't use actual phonemes so it can have better generalizations
+;;;
+;;;   Basically copied from ked
+;;;
+
+(set! kal_durs
+'(
+  (uh 0.067 0.025)
+  (hh 0.061 0.028)
+  (ao 0.138 0.046)
+  (hv 0.053 0.020)
+  (v 0.051 0.019)
+  (ih 0.058 0.023)
+  (el 0.111 0.043)
+  (ey 0.132 0.042)
+  (em 0.080 0.033)
+  (jh 0.094 0.024)
+  (w 0.054 0.023)
+  (uw 0.107 0.044)
+  (ae 0.120 0.036)
+  (en 0.117 0.056)
+  (k 0.089 0.034)
+  (y 0.048 0.025)
+  (axr 0.147 0.035)
+;  (l 0.056 0.026)
+  (l 0.066 0.026)
+  (ng 0.064 0.024)
+  (zh 0.071 0.030)
+  (z 0.079 0.034)
+  (brth 0.246 0.046)
+  (m 0.069 0.028)
+  (iy 0.097 0.041)
+  (n 0.059 0.025)
+  (ah 0.087 0.031)
+  (er 0.086 0.010)
+  (b 0.069 0.024)
+  (pau 0.200 0.104)
+  (aw 0.166 0.053)
+  (p 0.088 0.030)
+  (ch 0.115 0.025)
+  (ow 0.134 0.039)
+  (dh 0.031 0.016)
+  (nx 0.049 0.100)
+  (d 0.048 0.021)
+  (ax 0.046 0.024)
+  (h# 0.060 0.083)
+  (r 0.053 0.031)
+  (eh 0.095 0.036)
+  (ay 0.137 0.047)
+  (oy 0.183 0.050)
+  (f 0.095 0.033)
+  (sh 0.108 0.031)
+  (s 0.102 0.037)
+  (g 0.064 0.021)
+  (dx 0.031 0.016)
+  (th 0.093 0.050)
+  (aa 0.094 0.037)
+  (t 0.070 0.020)
+)
+)
+
+(set! kal_duration_cart_tree
+'
+((name is pau)
+ ((emph_sil is +)
+  ((0.0 -0.5))
+  ((p.R:SylStructure.parent.parent.pbreak is BB)
+   ((0.0 2.0))  
+   ((0.0 0.0))))
+((R:SylStructure.parent.accented is 0)
+ ((n.ph_ctype is 0)
+  ((p.ph_vlng is 0)
+   ((R:SylStructure.parent.syl_codasize < 1.5)
+    ((p.ph_ctype is n)
+     ((ph_ctype is f)
+      ((0.559208 -0.783163))
+      ((1.05215 -0.222704)))
+     ((ph_ctype is s)
+      ((R:SylStructure.parent.syl_break is 2)
+       ((0.589948 0.764459))
+       ((R:SylStructure.parent.asyl_in < 0.7)
+        ((1.06385 0.567944))
+        ((0.691943 0.0530272))))
+      ((ph_vlng is l)
+       ((pp.ph_vfront is 1)
+        ((1.06991 0.766486))
+        ((R:SylStructure.parent.syl_break is 1)
+         ((0.69665 0.279248))
+         ((0.670353 0.0567774))))
+       ((p.ph_ctype is s)
+        ((seg_onsetcoda is coda)
+         ((0.828638 -0.038356))
+         ((ph_ctype is f)
+          ((0.7631 -0.545853))
+          ((0.49329 -0.765994))))
+        ((R:SylStructure.parent.parent.gpos is det)
+         ((R:SylStructure.parent.last_accent < 0.3)
+          ((R:SylStructure.parent.sub_phrases < 1)
+           ((0.811686 0.160195))
+           ((0.799015 0.713958)))
+          ((0.731599 -0.215472)))
+         ((ph_ctype is r)
+          ((0.673487 0.092772))
+          ((R:SylStructure.parent.asyl_in < 1)
+           ((0.745273 0.00132813))
+           ((0.75457 -0.334898)))))))))
+    ((pos_in_syl < 0.5)
+     ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+      ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+       ((0.902446 -0.041618))
+       ((R:SylStructure.parent.sub_phrases < 2.3)
+        ((0.900629 0.262952))
+        ((1.18474 0.594794))))
+      ((seg_onset_stop is 0)
+       ((R:SylStructure.parent.position_type is mid)
+        ((0.512323 -0.760444))
+        ((R:SylStructure.parent.syl_out < 6.8)
+         ((pp.ph_vlng is a)
+          ((0.640575 -0.450449))
+          ((ph_ctype is f)
+           ((R:SylStructure.parent.sub_phrases < 1.3)
+            ((0.862876 -0.296956))
+            ((R:SylStructure.parent.syl_out < 2.4)
+             ((0.803215 0.0422868))
+             ((0.877856 -0.154465))))
+           ((R:SylStructure.parent.syl_out < 3.6)
+            ((R:SylStructure.parent.syl_out < 1.2)
+             ((0.567081 -0.264199))
+             ((0.598043 -0.541738)))
+            ((0.676843 -0.166623)))))
+         ((0.691678 -0.57173))))
+       ((R:SylStructure.parent.parent.gpos is cc)
+        ((1.15995 0.313289))
+        ((pp.ph_vfront is 1)
+         ((0.555993 0.0695819))
+         ((R:SylStructure.parent.asyl_in < 1.2)
+          ((R:SylStructure.parent.sub_phrases < 2.7)
+           ((0.721635 -0.367088))
+           ((0.71919 -0.194887)))
+          ((0.547052 -0.0637491)))))))
+     ((ph_ctype is s)
+      ((R:SylStructure.parent.syl_break is 0)
+       ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+        ((0.650007 -0.333421))
+        ((0.846301 -0.165383)))
+       ((0.527756 -0.516332)))
+      ((R:SylStructure.parent.syl_break is 0)
+       ((p.ph_ctype is s)
+        ((0.504414 -0.779112))
+        ((0.812498 -0.337611)))
+       ((pos_in_syl < 1.4)
+        ((0.513041 -0.745807))
+        ((p.ph_ctype is s)
+         ((0.350582 -1.04907))
+         ((0.362 -0.914974))))))))
+   ((R:SylStructure.parent.syl_break is 0)
+    ((ph_ctype is n)
+     ((R:SylStructure.parent.position_type is initial)
+      ((pos_in_syl < 1.2)
+       ((0.580485 0.172658))
+       ((0.630973 -0.101423)))
+      ((0.577937 -0.360092)))
+     ((R:SylStructure.parent.syl_out < 2.9)
+      ((R:SylStructure.parent.syl_out < 1.1)
+       ((R:SylStructure.parent.position_type is initial)
+        ((0.896092 0.764189))
+        ((R:SylStructure.parent.sub_phrases < 3.6)
+         ((ph_ctype is s)
+          ((0.877362 0.555132))
+          ((0.604511 0.369882)))
+         ((0.799982 0.666966))))
+       ((seg_onsetcoda is coda)
+        ((p.ph_vlng is a)
+         ((R:SylStructure.parent.last_accent < 0.4)
+          ((0.800736 0.240634))
+          ((0.720606 0.486176)))
+         ((1.18173 0.573811)))
+        ((0.607147 0.194468))))
+      ((ph_ctype is r)
+       ((0.88377 0.499383))
+       ((R:SylStructure.parent.last_accent < 0.5)
+        ((R:SylStructure.parent.position_type is initial)
+         ((R:SylStructure.parent.parent.word_numsyls < 2.4)
+          ((0.62798 0.0737318))
+          ((0.787334 0.331014)))
+         ((ph_ctype is s)
+          ((0.808368 0.0929299))
+          ((0.527948 -0.0443271))))
+        ((seg_coda_fric is 0)
+         ((p.ph_vlng is a)
+          ((0.679745 0.517681))
+          ((R:SylStructure.parent.sub_phrases < 1.1)
+           ((0.759979 0.128316))
+           ((0.775233 0.361383))))
+         ((R:SylStructure.parent.last_accent < 1.3)
+          ((0.696255 0.054136))
+          ((0.632425 0.246742))))))))
+    ((pos_in_syl < 0.3)
+     ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+      ((0.847602 0.621547))
+      ((ph_ctype is s)
+       ((0.880645 0.501679))
+       ((R:SylStructure.parent.sub_phrases < 3.3)
+        ((R:SylStructure.parent.sub_phrases < 0.3)
+         ((0.901014 -0.042049))
+         ((0.657493 0.183226)))
+        ((0.680126 0.284799)))))
+     ((ph_ctype is s)
+      ((p.ph_vlng is s)
+       ((0.670033 -0.820934))
+       ((0.863306 -0.348735)))
+      ((ph_ctype is n)
+       ((R:SylStructure.parent.asyl_in < 1.2)
+        ((0.656966 -0.40092))
+        ((0.530966 -0.639366)))
+       ((seg_coda_fric is 0)
+        ((1.04153 0.364857))
+        ((pos_in_syl < 1.2)
+         ((R:SylStructure.parent.syl_out < 3.4)
+          ((0.81503 -0.00768613))
+          ((0.602665 -0.197753)))
+         ((0.601844 -0.394632)))))))))
+  ((n.ph_ctype is f)
+   ((pos_in_syl < 1.5)
+    ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+     ((pos_in_syl < 0.1)
+      ((1.63863 0.938841))
+      ((R:SylStructure.parent.position_type is initial)
+       ((0.897722 -0.0796637))
+       ((nn.ph_vheight is 0)
+        ((0.781081 0.480026))
+        ((0.779711 0.127175)))))
+     ((ph_ctype is r)
+      ((p.ph_ctype is s)
+       ((0.581329 -0.708767))
+       ((0.564366 -0.236212)))
+      ((ph_vlng is a)
+       ((p.ph_ctype is r)
+        ((0.70992 -0.273389))
+        ((R:SylStructure.parent.parent.gpos is in)
+         ((0.764696 0.0581338))
+         ((nn.ph_vheight is 0)
+          ((0.977737 0.721904))
+          ((R:SylStructure.parent.sub_phrases < 2.2)
+           ((pp.ph_vfront is 0)
+            ((0.586708 0.0161206))
+            ((0.619949 0.227372)))
+           ((0.707285 0.445569))))))
+       ((ph_ctype is n)
+        ((R:SylStructure.parent.syl_break is 1)
+         ((nn.ph_vfront is 2)
+          ((0.430295 -0.120097))
+          ((0.741371 0.219042)))
+         ((0.587492 0.321245)))
+        ((p.ph_ctype is n)
+         ((0.871586 0.134075))
+         ((p.ph_ctype is r)
+          ((0.490751 -0.466418))
+          ((R:SylStructure.parent.syl_codasize < 1.3)
+           ((R:SylStructure.parent.sub_phrases < 2.2)
+            ((p.ph_ctype is s)
+             ((0.407452 -0.425925))
+             ((0.644771 -0.542809)))
+            ((0.688772 -0.201899)))
+           ((ph_vheight is 1)
+            ((nn.ph_vheight is 0)
+             ((0.692018 0.209018))
+             ((0.751345 -0.178136)))
+            ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.3)
+             ((R:SylStructure.parent.asyl_in < 1.5)
+              ((0.599633 -0.235593))
+              ((0.60042 0.126118)))
+             ((p.ph_vlng is a)
+              ((0.7148 -0.174812))
+              ((R:SylStructure.parent.parent.gpos is content)
+               ((0.761296 -0.231509))
+               ((0.813081 -0.536405)))))))))))))
+    ((ph_ctype is n)
+     ((0.898844 0.163343))
+     ((p.ph_vlng is s)
+      ((seg_coda_fric is 0)
+       ((0.752921 -0.45528))
+       ((0.890079 -0.0998025)))
+      ((ph_ctype is f)
+       ((0.729376 -0.930547))
+       ((ph_ctype is s)
+        ((R:SylStructure.parent.R:Syllable.p.syl_break is 0)
+         ((0.745052 -0.634119))
+         ((0.521502 -0.760176)))
+        ((R:SylStructure.parent.syl_break is 1)
+         ((0.766575 -0.121355))
+         ((0.795616 -0.557509))))))))
+   ((p.ph_vlng is 0)
+    ((p.ph_ctype is r)
+     ((ph_vlng is 0)
+      ((0.733659 -0.402734))
+      ((R:SylStructure.parent.sub_phrases < 1.5)
+       ((ph_vlng is s)
+        ((0.326176 -0.988478))
+        ((n.ph_ctype is s)
+         ((0.276471 -0.802536))
+         ((0.438283 -0.900628))))
+       ((nn.ph_vheight is 0)
+        ((ph_vheight is 2)
+         ((0.521 -0.768992))
+         ((0.615436 -0.574918)))
+        ((ph_vheight is 1)
+         ((0.387376 -0.756359))
+         ((pos_in_syl < 0.3)
+          ((0.417235 -0.808937))
+          ((0.384043 -0.93315)))))))
+     ((ph_vlng is a)
+      ((ph_ctype is 0)
+       ((n.ph_ctype is s)
+        ((p.ph_ctype is f)
+         ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+          ((0.415908 -0.428493))
+          ((pos_in_syl < 0.1)
+           ((0.790441 0.0211071))
+           ((0.452465 -0.254485))))
+         ((p.ph_ctype is s)
+          ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+           ((0.582447 -0.389966))
+           ((0.757648 0.185781)))
+          ((R:SylStructure.parent.sub_phrases < 1.4)
+           ((0.628965 0.422551))
+           ((0.713613 0.145576)))))
+        ((seg_onset_stop is 0)
+         ((R:SylStructure.parent.R:Syllable.p.syl_break is 0)
+          ((pp.ph_vfront is 1)
+           ((0.412363 -0.62319))
+           ((R:SylStructure.parent.syl_out < 3.6)
+            ((0.729259 -0.317324))
+            ((0.441633 -0.591051))))
+          ((R:SylStructure.parent.syl_break is 1)
+           ((R:SylStructure.parent.sub_phrases < 2.7)
+            ((0.457728 -0.405607))
+            ((0.532411 -0.313148)))
+           ((R:SylStructure.parent.last_accent < 0.3)
+            ((1.14175 0.159416))
+            ((0.616396 -0.254651)))))
+         ((R:SylStructure.parent.position_type is initial)
+          ((0.264181 -0.799896))
+          ((0.439801 -0.551309)))))
+       ((R:SylStructure.parent.position_type is final)
+        ((0.552027 -0.707084))
+        ((0.585661 -0.901874))))
+      ((ph_ctype is s)
+       ((pos_in_syl < 1.2)
+        ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+         ((pp.ph_vfront is 1)
+          ((0.607449 0.196466))
+          ((0.599662 0.00382414)))
+         ((0.64109 -0.12859)))
+        ((pp.ph_vfront is 1)
+         ((0.720484 -0.219339))
+         ((0.688707 -0.516734))))
+       ((ph_vlng is s)
+        ((n.ph_ctype is s)
+         ((R:SylStructure.parent.parent.gpos is content)
+          ((R:SylStructure.parent.position_type is single)
+           ((0.659206 0.159445))
+           ((R:SylStructure.parent.parent.word_numsyls < 3.5)
+            ((R:SylStructure.parent.sub_phrases < 2)
+             ((0.447186 -0.419103))
+             ((0.631822 -0.0928561)))
+            ((0.451623 -0.576116))))
+          ((ph_vheight is 3)
+           ((0.578626 -0.64583))
+           ((0.56636 -0.4665))))
+         ((R:SylStructure.parent.parent.gpos is in)
+          ((0.771516 -0.217292))
+          ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+           ((0.688571 -0.304382))
+           ((R:SylStructure.parent.parent.gpos is content)
+            ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+             ((n.ph_ctype is n)
+              ((0.556085 -0.572203))
+              ((0.820173 -0.240338)))
+             ((R:SylStructure.parent.parent.word_numsyls < 2.2)
+              ((0.595398 -0.588171))
+              ((0.524737 -0.95797))))
+            ((R:SylStructure.parent.sub_phrases < 3.9)
+             ((0.371492 -0.959427))
+             ((0.440479 -0.845747)))))))
+        ((R:SylStructure.parent.R:Syllable.p.syl_break is 0)
+         ((p.ph_ctype is f)
+          ((0.524088 -0.482247))
+          ((nn.ph_vheight is 1)
+           ((0.587666 -0.632362))
+           ((ph_vlng is l)
+            ((R:SylStructure.parent.position_type is final)
+             ((0.513286 -0.713117))
+             ((0.604613 -0.924308)))
+            ((R:SylStructure.parent.syl_codasize < 2.2)
+             ((0.577997 -0.891342))
+             ((0.659804 -1.15252))))))
+         ((pp.ph_vlng is s)
+          ((ph_ctype is f)
+           ((0.813383 -0.599624))
+           ((0.984027 -0.0771909)))
+          ((p.ph_ctype is f)
+           ((R:SylStructure.parent.parent.gpos is in)
+            ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+             ((0.313572 -1.03242))
+             ((0.525854 -0.542799)))
+            ((R:SylStructure.parent.syl_out < 2.8)
+             ((0.613007 -0.423979))
+             ((0.570258 -0.766379))))
+           ((R:SylStructure.parent.syl_break is 1)
+            ((R:SylStructure.parent.parent.gpos is to)
+             ((0.364585 -0.792895))
+             ((ph_vlng is l)
+              ((0.69143 -0.276816))
+              ((0.65673 -0.523721))))
+            ((R:SylStructure.parent.syl_out < 3.6)
+             ((R:SylStructure.parent.position_type is initial)
+              ((0.682096 -0.488102))
+              ((0.406364 -0.731758)))
+             ((0.584694 -0.822229)))))))))))
+    ((n.ph_ctype is r)
+     ((R:SylStructure.parent.position_type is initial)
+      ((p.ph_vlng is a)
+       ((0.797058 1.02334))
+       ((ph_ctype is s)
+        ((1.0548 0.536277))
+        ((0.817253 0.138201))))
+      ((R:SylStructure.parent.sub_phrases < 1.1)
+       ((R:SylStructure.parent.syl_out < 3.3)
+        ((0.884574 -0.23471))
+        ((0.772063 -0.525292)))
+       ((nn.ph_vfront is 1)
+        ((1.25254 0.417485))
+        ((0.955557 -0.0781996)))))
+     ((pp.ph_vfront is 0)
+      ((ph_ctype is f)
+       ((n.ph_ctype is s)
+        ((R:SylStructure.parent.parent.gpos is content)
+         ((R:SylStructure.parent.R:Syllable.p.syl_break is 0)
+          ((0.583506 -0.56941))
+          ((0.525949 -0.289362)))
+         ((0.749316 -0.0921038)))
+        ((p.ph_vlng is s)
+         ((0.734234 0.139463))
+         ((0.680119 -0.0708717))))
+       ((ph_vlng is s)
+        ((ph_vheight is 1)
+         ((0.908712 -0.618971))
+         ((0.55344 -0.840495)))
+        ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 1.2)
+         ((pos_in_syl < 1.2)
+          ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+           ((0.838715 0.00913392))
+           ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+            ((ph_vheight is 2)
+             ((0.555513 -0.512523))
+             ((R:SylStructure.parent.position_type is initial)
+              ((0.758711 0.121704))
+              ((0.737555 -0.25637))))
+            ((R:SylStructure.parent.syl_out < 3.1)
+             ((n.ph_ctype is s)
+              ((0.611756 -0.474522))
+              ((1.05437 -0.247206)))
+             ((R:SylStructure.parent.syl_codasize < 2.2)
+              ((R:SylStructure.parent.position_type is final)
+               ((0.567761 -0.597866))
+               ((0.785599 -0.407765)))
+              ((0.575598 -0.741256))))))
+          ((ph_ctype is s)
+           ((n.ph_ctype is s)
+            ((0.661069 -1.08426))
+            ((0.783184 -0.39789)))
+           ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+            ((R:SylStructure.parent.sub_phrases < 2.6)
+             ((0.511323 -0.666011))
+             ((0.691878 -0.499492)))
+            ((ph_ctype is r)
+             ((0.482131 -0.253186))
+             ((0.852955 -0.372832))))))
+         ((0.854447 -0.0936489)))))
+      ((R:SylStructure.parent.position_type is final)
+       ((0.685939 -0.249982))
+       ((R:SylStructure.parent.syl_out < 3.2)
+        ((0.989843 0.18086))
+        ((0.686805 -0.0402908)))))))))
+ ((R:SylStructure.parent.syl_out < 2.4)
+  ((R:SylStructure.parent.syl_out < 0.2)
+   ((seg_onsetcoda is coda)
+    ((ph_ctype is s)
+     ((R:SylStructure.parent.syl_break is 4)
+      ((pp.ph_vlng is 0)
+       ((0.959737 1.63203))
+       ((1.20714 0.994933)))
+      ((n.ph_ctype is 0)
+       ((R:SylStructure.parent.syl_break is 2)
+        ((0.864809 0.214457))
+        ((0.874278 0.730381)))
+       ((pp.ph_vfront is 0)
+        ((seg_coda_fric is 0)
+         ((1.20844 -0.336221))
+         ((1.01357 0.468302)))
+        ((0.658106 -0.799121)))))
+     ((n.ph_ctype is f)
+      ((ph_ctype is f)
+       ((1.26332 0.0300613))
+       ((ph_vlng is d)
+        ((1.02719 1.1649))
+        ((ph_ctype is 0)
+         ((R:SylStructure.parent.asyl_in < 1.2)
+          ((1.14048 2.2668))
+          ((ph_vheight is 1)
+           ((1.15528 1.50375))
+           ((1.42406 2.07927))))
+         ((R:SylStructure.parent.sub_phrases < 1.1)
+          ((0.955892 1.10243))
+          ((R:SylStructure.parent.syl_break is 2)
+           ((1.32682 1.8432))
+           ((1.27582 1.59853)))))))
+      ((n.ph_ctype is 0)
+       ((ph_ctype is n)
+        ((R:SylStructure.parent.syl_break is 2)
+         ((1.45399 1.12927))
+         ((1.05543 0.442376)))
+        ((R:SylStructure.parent.syl_break is 4)
+         ((R:SylStructure.parent.position_type is final)
+          ((ph_ctype is f)
+           ((1.46434 1.76508))
+           ((0.978055 0.7486)))
+          ((1.2395 2.30826)))
+         ((ph_ctype is 0)
+          ((0.935325 1.69917))
+          ((nn.ph_vfront is 1)
+           ((1.20456 1.31128))
+           ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+            ((nn.ph_vheight is 0)
+             ((1.16907 0.212421))
+             ((0.952091 0.653094)))
+            ((p.ph_ctype is 0)
+             ((1.05502 1.25802))
+             ((0.818731 0.777568))))))))
+       ((ph_ctype is f)
+        ((p.ph_ctype is 0)
+         ((1.03918 0.163941))
+         ((0.737545 -0.167063)))
+        ((R:SylStructure.parent.position_type is final)
+         ((n.ph_ctype is n)
+          ((R:SylStructure.parent.last_accent < 0.5)
+           ((R:SylStructure.parent.sub_phrases < 2.8)
+            ((0.826207 -0.000859005))
+            ((0.871119 0.273433)))
+           ((R:SylStructure.parent.parent.word_numsyls < 2.4)
+            ((1.17405 1.05694))
+            ((0.858394 0.244916))))
+          ((R:SylStructure.parent.syl_codasize < 2.2)
+           ((p.ph_ctype is 0)
+            ((1.14092 1.21187))
+            ((R:SylStructure.parent.syl_break is 2)
+             ((1.02653 0.59865))
+             ((0.94248 1.1634))))
+           ((seg_coda_fric is 0)
+            ((1.07441 0.292935))
+            ((1.15736 0.92574)))))
+         ((ph_vlng is s)
+          ((R:SylStructure.parent.syl_break is 2)
+           ((1.34638 1.23484))
+           ((0.951514 2.02008)))
+          ((ph_ctype is 0)
+           ((p.ph_ctype is r)
+            ((0.806106 0.697089))
+            ((R:SylStructure.parent.syl_break is 2)
+             ((1.10891 0.992197))
+             ((1.04657 1.51093))))
+           ((1.18165 0.520952)))))))))
+    ((p.ph_vlng is 0)
+     ((pos_in_syl < 0.7)
+      ((R:SylStructure.parent.position_type is final)
+       ((ph_ctype is r)
+        ((0.966357 0.185827))
+        ((ph_ctype is s)
+         ((0.647163 0.0332298))
+         ((0.692972 -0.534917))))
+       ((ph_ctype is s)
+        ((0.881521 0.575107))
+        ((p.ph_ctype is f)
+         ((0.8223 -0.111275))
+         ((R:SylStructure.parent.last_accent < 0.3)
+          ((0.969188 0.09447))
+          ((0.894438 0.381947))))))
+      ((p.ph_ctype is f)
+       ((0.479748 -0.490108))
+       ((0.813125 -0.201268))))
+     ((ph_ctype is s)
+      ((0.908566 1.20397))
+      ((R:SylStructure.parent.last_accent < 1.2)
+       ((0.88078 0.636568))
+       ((0.978087 1.07763))))))
+   ((pos_in_syl < 1.3)
+    ((R:SylStructure.parent.syl_break is 0)
+     ((pos_in_syl < 0.1)
+      ((R:SylStructure.parent.position_type is initial)
+       ((p.ph_ctype is n)
+        ((0.801651 -0.0163359))
+        ((ph_ctype is s)
+         ((n.ph_ctype is r)
+          ((0.893307 1.07253))
+          ((p.ph_vlng is 0)
+           ((0.92651 0.525806))
+           ((0.652444 0.952792))))
+         ((p.ph_vlng is 0)
+          ((seg_onsetcoda is coda)
+           ((0.820151 0.469117))
+           ((p.ph_ctype is f)
+            ((0.747972 -0.0716448))
+            ((ph_ctype is f)
+             ((0.770882 0.457137))
+             ((0.840905 0.102492)))))
+          ((R:SylStructure.parent.syl_out < 1.1)
+           ((0.667824 0.697337))
+           ((0.737967 0.375114))))))
+       ((ph_vheight is 1)
+        ((0.624353 0.410671))
+        ((R:SylStructure.parent.asyl_in < 0.8)
+         ((0.647905 -0.331055))
+         ((p.ph_ctype is s)
+          ((0.629039 -0.240616))
+          ((0.749277 -0.0191273))))))
+      ((ph_vheight is 3)
+       ((p.ph_ctype is s)
+        ((0.626922 0.556537))
+        ((0.789357 0.153892)))
+       ((seg_onsetcoda is coda)
+        ((n.ph_ctype is 0)
+         ((R:SylStructure.parent.parent.word_numsyls < 3.4)
+          ((0.744714 0.123242))
+          ((0.742039 0.295753)))
+         ((seg_coda_fric is 0)
+          ((R:SylStructure.parent.parent.word_numsyls < 2.4)
+           ((ph_vheight is 1)
+            ((0.549715 -0.341018))
+            ((0.573641 -0.00893114)))
+           ((nn.ph_vfront is 2)
+            ((0.67099 -0.744625))
+            ((0.664438 -0.302803))))
+          ((p.ph_vlng is 0)
+           ((0.630028 0.113815))
+           ((0.632794 -0.128733)))))
+        ((ph_ctype is r)
+         ((0.367169 -0.854509))
+         ((0.94334 -0.216179))))))
+     ((n.ph_ctype is f)
+      ((ph_vlng is 0)
+       ((1.3089 0.46195))
+       ((R:SylStructure.parent.syl_codasize < 1.3)
+        ((1.07673 0.657169))
+        ((pp.ph_vlng is 0)
+         ((0.972319 1.08222))
+         ((1.00038 1.46257)))))
+      ((p.ph_vlng is l)
+       ((1.03617 0.785204))
+       ((p.ph_vlng is a)
+        ((R:SylStructure.parent.position_type is final)
+         ((1.00681 0.321168))
+         ((0.928115 0.950834)))
+        ((ph_vlng is 0)
+         ((pos_in_syl < 0.1)
+          ((R:SylStructure.parent.position_type is final)
+           ((0.863682 -0.167374))
+           ((nn.ph_vheight is 0)
+            ((p.ph_ctype is f)
+             ((0.773591 -0.00374425))
+             ((R:SylStructure.parent.syl_out < 1.1)
+              ((0.951802 0.228448))
+              ((1.02282 0.504252))))
+            ((1.09721 0.736476))))
+          ((R:SylStructure.parent.position_type is final)
+           ((1.04302 0.0590974))
+           ((0.589208 -0.431535))))
+         ((n.ph_ctype is 0)
+          ((1.27879 1.00642))
+          ((ph_vlng is s)
+           ((R:SylStructure.parent.asyl_in < 1.4)
+            ((0.935787 0.481652))
+            ((0.9887 0.749861)))
+           ((R:SylStructure.parent.syl_out < 1.1)
+            ((R:SylStructure.parent.position_type is final)
+             ((0.921307 0.0696307))
+             ((0.83675 0.552212)))
+            ((0.810076 -0.0479225))))))))))
+    ((ph_ctype is s)
+     ((n.ph_ctype is s)
+      ((0.706959 -1.0609))
+      ((p.ph_ctype is n)
+       ((0.850614 -0.59933))
+       ((n.ph_ctype is r)
+        ((0.665947 0.00698725))
+        ((n.ph_ctype is 0)
+         ((R:SylStructure.parent.position_type is initial)
+          ((0.762889 -0.0649044))
+          ((0.723956 -0.248899)))
+         ((R:SylStructure.parent.sub_phrases < 1.4)
+          ((0.632957 -0.601987))
+          ((0.889114 -0.302401)))))))
+     ((ph_ctype is f)
+      ((R:SylStructure.parent.syl_codasize < 2.2)
+       ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+        ((R:SylStructure.parent.syl_out < 1.1)
+         ((0.865267 0.164636))
+         ((0.581827 -0.0989051)))
+        ((nn.ph_vfront is 2)
+         ((0.684459 -0.316836))
+         ((0.778854 -0.0961191))))
+       ((R:SylStructure.parent.syl_out < 1.1)
+        ((p.ph_ctype is s)
+         ((0.837964 -0.429437))
+         ((0.875304 -0.0652743)))
+        ((0.611071 -0.635089))))
+      ((p.ph_ctype is r)
+       ((R:SylStructure.parent.syl_out < 1.1)
+        ((0.762012 0.0139361))
+        ((0.567983 -0.454845)))
+       ((R:SylStructure.parent.syl_codasize < 2.2)
+        ((ph_ctype is l)
+         ((1.18845 0.809091))
+         ((R:SylStructure.parent.position_type is initial)
+          ((ph_ctype is n)
+           ((0.773548 -0.277092))
+           ((1.01586 0.281001)))
+          ((p.ph_ctype is 0)
+           ((1.06831 0.699145))
+           ((0.924189 0.241873)))))
+        ((R:SylStructure.parent.syl_break is 0)
+         ((ph_ctype is n)
+          ((0.592321 -0.470784))
+          ((0.778688 -0.072112)))
+         ((n.ph_ctype is s)
+          ((1.08848 0.0733489))
+          ((1.25674 0.608371))))))))))
+  ((pos_in_syl < 0.7)
+   ((p.ph_vlng is 0)
+    ((R:SylStructure.parent.position_type is mid)
+     ((ph_ctype is 0)
+      ((ph_vheight is 2)
+       ((0.456225 -0.293282))
+       ((0.561529 -0.0816115)))
+      ((0.6537 -0.504024)))
+     ((ph_ctype is s)
+      ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+       ((1.31586 0.98395))
+       ((R:SylStructure.parent.position_type is single)
+        ((0.816869 0.634789))
+        ((R:SylStructure.parent.syl_out < 4.4)
+         ((1.05578 0.479029))
+         ((R:SylStructure.parent.asyl_in < 0.4)
+          ((1.11813 0.143214))
+          ((0.87178 0.406834))))))
+      ((n.ph_ctype is n)
+       ((R:SylStructure.parent.last_accent < 0.6)
+        ((0.838154 -0.415599))
+        ((0.924024 0.110288)))
+       ((seg_onsetcoda is coda)
+        ((nn.ph_vfront is 2)
+         ((0.670096 0.0314187))
+         ((n.ph_ctype is f)
+          ((1.00363 0.693893))
+          ((R:SylStructure.parent.syl_out < 6)
+           ((0.772363 0.215675))
+           ((0.920313 0.574068)))))
+        ((R:SylStructure.parent.position_type is final)
+         ((0.673837 -0.458142))
+         ((R:SylStructure.parent.sub_phrases < 2.8)
+          ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+           ((0.894817 0.304628))
+           ((ph_ctype is n)
+            ((0.787302 -0.23094))
+            ((R:SylStructure.parent.asyl_in < 1.2)
+             ((ph_ctype is f)
+              ((R:SylStructure.parent.last_accent < 0.5)
+               ((1.12278 0.326954))
+               ((0.802236 -0.100616)))
+              ((0.791255 -0.0919132)))
+             ((0.95233 0.219053)))))
+          ((R:SylStructure.parent.position_type is initial)
+           ((ph_ctype is f)
+            ((1.0616 0.216118))
+            ((0.703216 -0.00834086)))
+           ((ph_ctype is f)
+            ((1.22277 0.761763))
+            ((0.904811 0.332721))))))))))
+    ((ph_vheight is 0)
+     ((p.ph_vlng is s)
+      ((0.873379 0.217178))
+      ((n.ph_ctype is r)
+       ((0.723915 1.29451))
+       ((n.ph_ctype is 0)
+        ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+         ((R:SylStructure.parent.sub_phrases < 4)
+          ((seg_coda_fric is 0)
+           ((p.ph_vlng is l)
+            ((0.849154 0.945261))
+            ((0.633261 0.687498)))
+           ((0.728546 0.403076)))
+          ((0.850962 1.00255)))
+         ((0.957999 1.09113)))
+        ((0.85771 0.209045)))))
+     ((ph_vheight is 2)
+      ((0.803401 -0.0544067))
+      ((0.681353 0.256045)))))
+   ((n.ph_ctype is f)
+    ((ph_ctype is s)
+     ((p.ph_vlng is 0)
+      ((0.479307 -0.9673))
+      ((0.700477 -0.351397)))
+     ((ph_ctype is f)
+      ((0.73467 -0.6233))
+      ((R:SylStructure.parent.syl_break is 0)
+       ((p.ph_ctype is s)
+        ((0.56282 0.266234))
+        ((p.ph_ctype is r)
+         ((0.446203 -0.302281))
+         ((R:SylStructure.parent.sub_phrases < 2.7)
+          ((ph_ctype is 0)
+           ((0.572016 -0.0102436))
+           ((0.497358 -0.274514)))
+          ((0.545477 0.0482177)))))
+       ((ph_vlng is s)
+        ((0.805269 0.888495))
+        ((ph_ctype is n)
+         ((0.869854 0.653018))
+         ((R:SylStructure.parent.sub_phrases < 2.2)
+          ((0.735031 0.0612886))
+          ((0.771859 0.346637))))))))
+    ((R:SylStructure.parent.syl_codasize < 1.4)
+     ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.3)
+      ((R:SylStructure.parent.position_type is initial)
+       ((0.743458 0.0411808))
+       ((1.13068 0.613305)))
+      ((pos_in_syl < 1.2)
+       ((R:SylStructure.parent.R:Syllable.p.syl_break is 1)
+        ((1.11481 0.175467))
+        ((0.937893 -0.276407)))
+       ((0.74264 -0.550878))))
+     ((pos_in_syl < 3.4)
+      ((seg_onsetcoda is coda)
+       ((ph_ctype is r)
+        ((n.ph_ctype is s)
+         ((0.714319 -0.240328))
+         ((p.ph_ctype is 0)
+          ((0.976987 0.330352))
+          ((1.1781 -0.0816682))))
+        ((ph_ctype is l)
+         ((n.ph_ctype is 0)
+          ((1.39137 0.383533))
+          ((0.725585 -0.324515)))
+         ((ph_vheight is 3)
+          ((ph_vlng is d)
+           ((0.802626 -0.62487))
+           ((n.ph_ctype is r)
+            ((0.661091 -0.513869))
+            ((R:SylStructure.parent.position_type is initial)
+             ((R:SylStructure.parent.parent.word_numsyls < 2.4)
+              ((0.482285 0.207874))
+              ((0.401601 -0.0204711)))
+             ((0.733755 0.397372)))))
+          ((n.ph_ctype is r)
+           ((p.ph_ctype is 0)
+            ((pos_in_syl < 1.2)
+             ((0.666325 0.271734))
+             ((nn.ph_vheight is 0)
+              ((0.642401 -0.261466))
+              ((0.783684 -0.00956571))))
+            ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+             ((0.692225 -0.381895))
+             ((0.741921 -0.0898767))))
+           ((nn.ph_vfront is 2)
+            ((ph_ctype is s)
+             ((0.697527 -1.12626))
+             ((n.ph_ctype is s)
+              ((ph_vlng is 0)
+               ((R:SylStructure.parent.sub_phrases < 2.4)
+                ((0.498719 -0.906926))
+                ((0.635342 -0.625651)))
+               ((0.45886 -0.385089)))
+              ((0.848596 -0.359702))))
+            ((p.ph_vlng is a)
+             ((p.ph_ctype is 0)
+              ((0.947278 0.216904))
+              ((0.637933 -0.394349)))
+             ((p.ph_ctype is r)
+              ((R:SylStructure.parent.syl_break is 0)
+               ((0.529903 -0.860573))
+               ((0.581378 -0.510488)))
+              ((ph_vlng is 0)
+               ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+                ((seg_onset_stop is 0)
+                 ((R:SylStructure.parent.syl_break is 0)
+                  ((p.ph_vlng is d)
+                   ((0.768363 0.0108428))
+                   ((ph_ctype is s)
+                    ((0.835756 -0.035054))
+                    ((ph_ctype is f)
+                     ((p.ph_vlng is s)
+                      ((0.602016 -0.179727))
+                      ((0.640126 -0.297341)))
+                     ((0.674628 -0.542602)))))
+                  ((ph_ctype is s)
+                   ((0.662261 -0.60496))
+                   ((0.662088 -0.432058))))
+                 ((R:SylStructure.parent.syl_out < 4.4)
+                  ((0.582448 -0.389079))
+                  ((ph_ctype is s)
+                   ((0.60413 -0.73564))
+                   ((0.567153 -0.605444)))))
+                ((R:SylStructure.parent.R:Syllable.p.syl_break is 2)
+                 ((0.761115 -0.827377))
+                 ((ph_ctype is n)
+                  ((0.855183 -0.275338))
+                  ((R:SylStructure.parent.syl_break is 0)
+                   ((0.788288 -0.802801))
+                   ((R:SylStructure.parent.syl_codasize < 2.2)
+                    ((0.686134 -0.371234))
+                    ((0.840184 -0.772883)))))))
+               ((pos_in_syl < 1.2)
+                ((R:SylStructure.parent.syl_break is 0)
+                 ((n.ph_ctype is n)
+                  ((0.423592 -0.655006))
+                  ((R:SylStructure.parent.syl_out < 4.4)
+                   ((0.595269 -0.303751))
+                   ((0.478433 -0.456882))))
+                 ((0.688133 -0.133182)))
+                ((seg_onset_stop is 0)
+                 ((1.27464 0.114442))
+                 ((0.406837 -0.167545))))))))))))
+       ((ph_ctype is r)
+        ((0.462874 -0.87695))
+        ((R:SylStructure.parent.R:Syllable.n.syl_onsetsize < 0.2)
+         ((0.645442 -0.640572))
+         ((0.673717 -0.321322)))))
+      ((0.61008 -0.925472))))))))
+;; RMSE 0.8085 Correlation is 0.5899 Mean (abs) Error 0.6024 (0.5393)
+
+
+))
+
+(provide 'kaldurtreeZ)

CosyVoice-ttsfrd/resource/festival/voices/english/rab_diphone/COPYING

@@ -0,0 +1,38 @@
+
+This directory contains a diphone synthesizer voice for British English.
+This distribution falls under the following copyright.   See further
+notes below copyright.
+
+                Centre for Speech Technology Research                  
+                     University of Edinburgh, UK                       
+                       Copyright (c) 1996,1997                         
+                        All Rights Reserved.                           
+                                                                       
+  Permission is hereby granted, free of charge, to use and distribute  
+  this software and its documentation without restriction, including   
+  without limitation the rights to use, copy, modify, merge, publish,  
+  distribute, sublicense, and/or sell copies of this work, and to      
+  permit persons to whom this work is furnished to do so, subject to   
+  the following conditions:                                            
+   1. The code must retain the above copyright notice, this list of    
+      conditions and the following disclaimer.                         
+   2. Any modifications must be clearly marked as such.                
+   3. Original authors' names are not deleted.                         
+   4. The authors' names are not used to endorse or promote products   
+      derived from this software without specific prior written        
+      permission.                                                      
+                                                                       
+  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        
+  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      
+  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   
+  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     
+  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    
+  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   
+  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          
+  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       
+  THIS SOFTWARE.                                                       
+
+Note this voice (as it currently is set up) also requires the separate
+distributions festlex_POSLEX.tar.gz and festlex_OALD.tar.gz.  
+festlex_POSLEX.tar.gz fall under the same copyright as the above
+but festlex_OALD.tar.gz is free for non-commercial use only.

CosyVoice-ttsfrd/resource/festival/voices/english/rab_diphone/festvox/rab_diphone.scm

@@ -0,0 +1,263 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                       Copyright (c) 1996,1997                         ;;
+;;;                        All Rights Reserved.                           ;;
+;;;                                                                       ;;
+;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
+;;;  this software and its documentation without restriction, including   ;;
+;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
+;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
+;;;  permit persons to whom this work is furnished to do so, subject to   ;;
+;;;  the following conditions:                                            ;;
+;;;   1. The code must retain the above copyright notice, this list of    ;;
+;;;      conditions and the following disclaimer.                         ;;
+;;;   2. Any modifications must be clearly marked as such.                ;;
+;;;   3. Original authors' names are not deleted.                         ;;
+;;;   4. The authors' names are not used to endorse or promote products   ;;
+;;;      derived from this software without specific prior written        ;;
+;;;      permission.                                                      ;;
+;;;                                                                       ;;
+;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
+;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
+;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
+;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
+;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
+;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
+;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
+;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
+;;;  THIS SOFTWARE.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  Set up rab_diphones using the standard UniSyn diphone synthesizer
+;;;
+;;;  Roger diphones: male RP English collected October 1996
+;;;
+
+(defvar rab_diphone_dir (cdr (assoc 'rab_diphone voice-locations))
+  "rab_diphone_dir
+  The default directory for the rab diphone database.")
+
+(require 'mrpa_phones)
+(require 'pos)
+(require 'phrase)
+(require 'tobi)
+(require 'f2bf0lr)
+(require 'mrpa_durs)
+(require 'gswdurtreeZ)
+(require_module 'UniSyn)
+
+(setup_oald_lex)
+;; set this to lpc or psola
+(defvar rab_sigpr 'lpc)
+;; Rset this to ungroup for ungrouped version
+(defvar rab_groupungroup 'group)
+
+(if (probe_file (path-append rab_diphone_dir "group/rablpc16k.group"))
+    (defvar rab_index_file 
+      (path-append rab_diphone_dir "group/rablpc16k.group"))
+    (defvar rab_index_file 
+      (path-append rab_diphone_dir "group/rablpc8k.group")))
+
+(set! rab_psola_sep 
+      (list
+       '(name "rab_psola_sep")
+       (list 'index_file (path-append rab_diphone_dir "dic/diphdic_full.est"))
+       '(grouped "false")
+       (list 'coef_dir (path-append rab_diphone_dir "pm"))
+       (list 'sig_dir (path-append rab_diphone_dir "wav"))
+       '(coef_ext ".pm")
+       '(sig_ext ".wav")))
+
+(set! rab_lpc_sep 
+      (list
+       '(name "rab_lpc_sep")
+       (list 'index_file (path-append rab_diphone_dir "dic/diphdic_full.est"))
+       '(grouped "false")
+       (list 'coef_dir (path-append rab_diphone_dir "lpc"))
+       (list 'sig_dir  (path-append rab_diphone_dir "lpc"))
+       '(coef_ext ".lpc")
+       '(sig_ext ".res")))
+
+(set! rab_psola_group 
+      (list
+       '(name "rab_psola_group")
+       (list 'index_file 
+	     (path-append rab_diphone_dir "group/rab.group"))
+       '(grouped "true")))
+
+(set! rab_lpc_group 
+      (list
+       '(name "rab_lpc_group")
+       (list 'index_file rab_index_file)
+       '(alternates_left ((i ii) (ll l) (u uu) (i@ ii) (uh @) (a aa)
+				 (u@ uu) (w @) (o oo) (e@ ei) (e ei)
+				 (r @)))
+       '(alternates_right ((i ii) (ll l) (u uu) (i@ ii) 
+				  (y i) (uh @) (r @) (w @)))
+       '(default_diphone @-@@)
+       '(grouped "true")))
+
+;;; Setup the desried DB 
+(cond
+ ((and (eq rab_sigpr 'psola)
+       (eq rab_groupungroup 'group))
+  (set! rab_db_name (us_diphone_init rab_psola_group)))
+ ((and (eq rab_sigpr 'psola)
+       (eq rab_groupungroup 'ungroup))
+  (set! rab_db_name (us_diphone_init rab_psola_sep)))
+ ((and (eq rab_sigpr 'lpc)
+       (eq rab_groupungroup 'group))
+  (set! rab_db_name (us_diphone_init rab_lpc_group)))
+ ((and (eq rab_sigpr 'lpc)
+       (eq rab_groupungroup 'ungroup))
+  (set! rab_db_name (us_diphone_init rab_lpc_sep))))
+
+(define (rab_postlex_syllabics utt)
+"(rab_postlex_syllabics utt)
+Because the lexicon is somewhat random in its used of syllable l n and
+m this is designed to post process the output inserting schwa before
+them.  Ideally the lexicon should be fixed."
+  (mapcar
+   (lambda (s)
+     (if (and (member_string (item.name s) '("l" "n" "m"))
+	      (string-equal "coda" (item.feat s "seg_onsetcoda"))
+	      (not (member_string (item.feat s "p.name") '(l r)))
+	      (string-equal "-" (item.feat s "p.ph_vc")))
+	 (item.relation.insert 
+	  s 'SylStructure
+	  (item.insert s (list "@") 'before)
+	  'before)))
+   (utt.relation.items utt 'Segment)))
+
+(define (rab_diphone_const_clusters utt)
+"(rab_diphone_const_clusters UTT)
+Identify consonant clusters, dark ls etc in the segment item
+ready for diphone resynthesis.  This may be called as a post lexical
+rule through poslex_rule_hooks."
+  (mapcar
+   (lambda (s) (rab_diphone_fix_phone_name utt s))
+   (utt.relation.items utt 'Segment))
+  utt)
+
+(define (rab_diphone_fix_phone_name utt seg)
+"(rab_diphone_fix_phone_name UTT SEG)
+Add the feature diphone_phone_name to given segment with the appropriate
+name for constructing a diphone.  Basically adds _ if either side is part
+of the same consonant cluster, adds $ either side if in different
+syllable for preceding/succeeding vowel syllable, and converts l to ll
+in coda part of syllables."
+  (let ((name (item.name seg)))
+    (cond
+     ((string-equal name "#") t)
+     ((string-equal "-" (item.feat seg 'ph_vc))
+      (if (and (member_string name '(r w y l))
+	       (member_string (item.feat seg "p.name") '(p t k b d g))
+	       (item.relation.prev seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_right" (format nil "_%s" name)))
+      (if (and (member_string name '(w y l m n p t k))
+	       (string-equal (item.feat seg "p.name") 's)
+	       (item.relation.prev seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_right" (format nil "_%s" name)))
+      (if (and (string-equal name 's)
+	       (member_string (item.feat seg "n.name") '(w y l m n p t k))
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s_" name)))
+      (if (and (member_string name '(p t k b d g))
+	       (member_string (item.feat seg "n.name") '(r w y l))
+	       (item.relation.next seg "SylStructure"))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s_" name)))
+      (if (and (member_string name '(p k b d g))
+	       (string-equal "+" (item.feat seg 'p.ph_vc))
+	       (not (member_string (item.feat seg "p.name") '(@ aa o)))
+	       (not (item.relation.prev seg "SylStructure")))
+	  (item.set_feat seg "us_diphone_right" (format nil "$%s" name)))
+      (if (and (member_string name '(p t k b d g))
+	       (string-equal "+" (item.feat seg 'n.ph_vc))
+	       (not (member_string (item.feat seg "n.name") '(@ aa)))
+	       (not (item.relation.next seg "SylStructure")))
+	  (item.set_feat seg "us_diphone_left" (format nil "%s$" name)))
+      (if (and (string-equal "l" name)
+	       (string-equal "+" (item.feat seg "p.ph_vc"))
+	       (not (string-equal "a" (item.feat seg "p.ph_vlng")))
+	       (item.relation.prev seg 'SylStructure))
+	  (item.set_feat seg "us_diphone_right" "ll"))
+      (if (and (member_string name '(ch jh))
+	       (string-equal "+" (item.feat seg 'p.ph_vc)))
+	  (item.set_feat seg "us_diphone_right" "t"))
+      )
+      )))
+
+(define (voice_rab_diphone)
+"(voice_rab_diphone)
+ Set up the current voice to be a British male RP (Roger) speaker using
+ the rab diphone set."
+  (voice_reset)
+  (Parameter.set 'Language 'britishenglish)
+  ;; Phone set
+  (Parameter.set 'PhoneSet 'mrpa)
+  (PhoneSet.select 'mrpa)
+  ;; Tokenization rules
+  (set! token_to_words english_token_to_words)
+  ;; POS tagger
+  (set! pos_lex_name "english_poslex")
+  (set! pos_ngram_name 'english_pos_ngram)
+  (set! pos_supported t)
+  (set! guess_pos english_guess_pos)   ;; need this for accents
+  ;; Lexicon selection
+  (lex.select "oald")
+  (set! postlex_rules_hooks (list postlex_apos_s_check
+				  rab_postlex_syllabics))
+  (set! postlex_s_check postlex_apos_s_check)
+  ;; Phrase prediction
+  (Parameter.set 'Phrase_Method 'prob_models)
+  (set! phr_break_params english_phr_break_params)
+  ;; Accent and tone prediction
+  (set! int_tone_cart_tree f2b_int_tone_cart_tree)
+  (set! int_accent_cart_tree f2b_int_accent_cart_tree)
+  ;; F0 prediction
+  (set! f0_lr_start f2b_f0_lr_start)
+  (set! f0_lr_mid f2b_f0_lr_mid)
+  (set! f0_lr_end f2b_f0_lr_end)
+  (Parameter.set 'Int_Method Intonation_Tree)
+  (set! int_lr_params
+	'((target_f0_mean 105) (target_f0_std 14)
+	  (model_f0_mean 170) (model_f0_std 34)))
+  (Parameter.set 'Int_Target_Method Int_Targets_LR)
+  ;; Duration prediction -- use gsw durations
+  (set! duration_cart_tree gsw_duration_cart_tree)
+  (set! duration_ph_info gsw_durs)
+  (Parameter.set 'Duration_Method Duration_Tree_ZScores)
+  (Parameter.set 'Duration_Stretch 1.05)
+  ;; Waveform synthesizer: Roger diphones
+  ;; This assigned the diphone names from their context (_ $ etc)
+  (set! UniSyn_module_hooks (list rab_diphone_const_clusters ))
+  (set! us_abs_offset 0.0)
+  (set! window_factor 1.0)
+  (set! us_rel_offset 0.0)
+  (set! us_gain 0.9)
+
+  (Parameter.set 'Synth_Method 'UniSyn)
+  (Parameter.set 'us_sigpr rab_sigpr)
+  (us_db_select rab_db_name)
+
+  (set! current-voice 'rab_diphone)
+)
+
+(proclaim_voice
+ 'rab_diphone
+ '((language english)
+   (gender male)
+   (dialect british)
+   (description
+    "This voice provides a British RP English male voice using a
+     residual excited LPC diphone synthesis method.  It uses a 
+     modified Oxford Advanced Learners' Dictionary for pronunciations.
+     Prosodic phrasing is provided by a statistically trained model
+     using part of speech and local distribution of breaks.  Intonation
+     is provided by a CART tree predicting ToBI accents and an F0 
+     contour generated from a model trained from natural speech.  The
+     duration model is also trained from data using a CART tree.")))
+
+(provide 'rab_diphone)