Add files using upload-large-folder tool

.gitattributes

@@ -33,3 +33,28 @@ 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_dependency-0.1-py3-none-any.whl filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_zhsc/puncNumberTimeLetter.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_hk/puncNumberTimeLetter.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_zhsc/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_zhsc/crf_model filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_zhsc/ws-dfa-rule.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chsh/ws-dfa-rule.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/ttsfrd-0.4.2-cp310-cp310-linux_x86_64.whl filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_hk/ws-dfa-rule.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chsh/puncNumberTimeLetter.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/festival/dicts/wsj.wp39.tri.ngrambin filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/ttsfrd-0.4.2-cp38-cp38-linux_x86_64.whl filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chhk/puncNumberTimeLetter.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/puncNumberTimeLetter.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/ws-dfa-rule.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws_chhk/ws-dfa-rule.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/ws/crf_model 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_chsh/xiaoyan.dict filter=lfs diff=lfs merge=lfs -text
+CosyVoice-ttsfrd/resource/jprsc/sys.dic filter=lfs diff=lfs merge=lfs -text
+CosyVoice2-0.5B/flow.decoder.estimator.fp16.l20.plan filter=lfs diff=lfs merge=lfs -text
+CosyVoice2-0.5B/flow.decoder.estimator.fp16.v100.plan filter=lfs diff=lfs merge=lfs -text
+CosyVoice2-0.5B/flow.decoder.estimator.fp16.a10.plan filter=lfs diff=lfs merge=lfs -text

CosyVoice-ttsfrd/resource.zip

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

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/dicts/wsj.wp39.tri.ngrambin

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

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/festdoc.scm

@@ -0,0 +1,178 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                         Author: Alan W Black
+;;;                         Date:   August 1996
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  Save documentation strings as texinfo files 
+;;;
+;;;  Finds all functions with documentation, and all variables with
+;;;  documentation, sorts and dumps the information in doc/festfunc.texi
+;;;  and doc/festvars.texi
+;;;
+;;;  The makefile in the doc directory runs the compiled festival binary and
+;;;  causes these files to be created form the currently defined functions
+;;;  and variables
+;;;
+;;;  Also provides function to extract manual section for documentation
+;;;  string and send a url to Netscape to display it 
+;;;
+
+(define (make-doc)
+"(make-doc)
+Find function and variable document strings and save them in texinfo
+format to respective files."
+ (format t "Making function, feature and variable lists\n")
+
+ ;; Need to ensure all library files are actually loaded if they contain
+ ;; funcstions/variables which have to be put in the manual
+ (require 'display)
+ (require 'mbrola)
+ (require 'tilt)
+
+ (make-a-doc "festfunc.texi" 'function)
+ (make-a-doc "festfeat.texi" 'features)
+ (make-a-doc "festvars.texi" 'vars))
+
+(define (make-a-doc outfile doclist)
+"(make-a-doc FILENAME DOCLIST)
+Make a texinfo document in FILENAME as a texinfo table, items are
+from DOCLIST.  DOCLIST names which doclist to use, it may be
+one of 'function, 'features or 'vars."
+  (let ((outfp (fopen outfile "wb")))
+   (format outfp "@table @code\n")
+   ;; Yes I am so lazy I'm not willing to write a sort function in Scheme
+   (sort-and-dump-docstrings doclist outfp)
+   (format outfp "@end table\n")
+   (fclose outfp)))
+
+;;;
+;;;  Documentation string may refer to a section in the manual
+;;;  If it does then we can automatically go to that section in the
+;;;  menu using Netscape.
+;;;
+
+(defvar manual-browser "netscape"
+"manual-browser
+The Unix program name of your Netscape Navigator browser.
+[see Getting some help]")
+
+(defvar manual-url 
+  (format nil "http://www.cstr.ed.ac.uk/projects/festival/manual-%s.%s.%s/"
+	  (car festival_version_number)
+	  (car (cdr festival_version_number))
+	  (car (cdr (cdr festival_version_number))))
+"manual-url
+The default URL for the Festival Manual in html format.  You may
+reset this to a file://.../... type URL on you're local machine.
+[see Getting some help]")
+
+;;;  Paul got this idea from VM, the email system for emacs and
+;;;  I found out how to do this from their code, thanks Kyle
+
+(define (send-url-to-netscape url)
+"(send-url-to-netscape URL)
+Send given URL to netscape for display.  This is primarily used to 
+display parts of the manual referenced in documentation strings."
+  (system
+   (string-append
+    manual-browser
+    " -remote \"openURL( "
+    url
+    " )\" ")))
+
+(define (lastline string)
+"(lastline STRING)
+Returns the part of the string which between the last newline and the 
+end of string."
+  (let ((ns (string-after string "\n")))
+    (if (string-equal ns "")
+	string
+	(lastline ns))))
+
+(define (manual-sym symbol)
+"(manual-sym SYMBOL)
+Display the section in the manual that SYMBOL's docstring has
+identified as the most relevant.  The section is named on the
+last line of a documentation string with no newlines within it
+prefixed by \"[see \" with a \"]\" just immediately before the end
+of the documentation string.  The manual section name is translated to
+the section in the HTML version of the manual and a URL is
+and sent to Netscape for display.  [see Getting some help]"
+(let ((section (string-before (string-after 
+			       (lastline (eval (list 'doc symbol)))
+			       "[see ")
+			      "]")))
+  (cond
+   ((string-equal section "")
+    (eval (list 'doc symbol)))  ;; nothing there
+   (t
+    (manual section)))))
+
+(define (manual section)
+"(manual SECTION)
+Display SECTION in the manual.  SECTION is a string identifying
+a manual section (it could be an initial substring.  If SECTION
+is nil or unspecifed then the Manual table of contents is displayed.
+This uses netscape to display the manual page so you must have that
+(use variable manual-browser to identify it) and the variable 
+manual-url pointing to a copy of the manual. [see Getting some help]"
+(let ((tmpfile (make_tmp_filename))
+      (manual-section))
+  (cond
+   ((string-matches section "\"")
+    (string-append "Invalid section reference containing quote: "
+		   section "\n"))
+   ((not section)
+    (send-url-to-netscape (string-append manual-url "festival_toc.html")))
+   (t                            ;; find section in manual
+    (get_url (string-append manual-url "festival_toc.html") tmpfile)
+    (system
+     (string-append
+      "grep -i \"^<LI><A NAME.*" section "\" \"" tmpfile 
+      "\" | sed 's/^.*HREF=.//' | sed 's/.>.*$//' > \""
+      tmpfile ".out\""))
+    (set! manual-section (load (string-append tmpfile ".out") t))
+    (cond
+     ((not manual-section)
+      (string-append "No section called: " section))
+     (t
+      (send-url-to-netscape (string-append manual-url (car manual-section)))
+      (delete-file tmpfile)
+      (delete-file (string-append tmpfile ".out"))
+      "Sent manual reference url to netscape."))))))
+
+(provide 'festdoc)
+
+
+
+

CosyVoice-ttsfrd/resource/festival/holmes_phones.scm

@@ -0,0 +1,118 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                                                                       ;;
+;;                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 definition of the Holmes phone set used by the Donovan LPC 
+;;  diphone synthesizer, the rest of the synthesis process will 
+;;  typically use mrpa phones and map to these.
+;;
+;;  Hmm not sure I've got the right mapping (as usual)
+
+(defPhoneSet
+  holmes
+  ;;;  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 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
+  (
+   ;; Note these features were set by awb so they are wrong !!!
+   (ee  +   l   1   1   -   0   0   0) ;; beet
+   (i   +   s   1   1   -   0   0   0) ;; bit
+   (ai  +   d   2   1   -   0   0   0) ;; gate
+   (e   +   s   2   1   -   0   0   0) ;; get
+   (aa  +   s   3   1   -   0   0   0) ;; fat
+   (ar  +   l   3   3   -   0   0   0) ;; father
+   (aw  +   l   3   3   +   0   0   0) ;; lawn
+   (oa  +   d   2   2   -   0   0   0) ;; lone
+   (oo  +   s   1   3   +   0   0   0) ;; full
+   (uu  +   l   1   3   +   0   0   0) ;; fool
+   (o   +   s   2   3   +   0   0   0)
+   (er  +   l   2   2   -   0   0   0) ;; murder
+   (a   +   a   2   2   -   0   0   0) ;; about
+   (u   +   s   2   3   -   0   0   0) ;; but
+   (ie  +   d   3   2   -   0   0   0) ;; hide
+   (ou  +   d   3   2   +   0   0   0) ;; how
+   (oi  +   d   3   3   +   0   0   0) ;; toy
+   (eer +   d   2   1   -   0   0   0)
+   (air +   d   1   1   -   0   0   0)
+   (oor +   d   3   1   +   0   0   0)
+;;   (yu  +   l   2   3   +   0   0   +) ;; you ???
+
+   (p   -   0   0   0   0   s   l   -)
+   (b   -   0   0   0   0   s   l   +)
+   (t   -   0   0   0   0   s   a   -)
+   (d   -   0   0   0   0   s   a   +)
+   (k   -   0   0   0   0   s   v   -)
+   (g   -   0   0   0   0   s   v   +)
+   (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   +)
+   (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   +)
+   (h  -   0   0   0   0   f   g   -)
+   (m   -   0   0   0   0   n   l   +)
+   (n   -   0   0   0   0   n   a   +)
+   (ng  -   0   0   0   0   n   v   +)
+   (ch  -   0   0   0   0   a   p   -)
+   (j   -   0   0   0   0   a   p   +)
+   (l   -   0   0   0   0   l   a   +)
+   (w   -   0   0   0   0   r   l   +)
+   (y   -   0   0   0   0   r   p   +)
+   (r   -   0   0   0   0   r   a   +)
+;;   (wh  -   0   -   -   +   l   l   -) ;; ??
+;;   (wh  -   0   -   -   +   l   l   +) ;; map to w
+   (# -   0   0   0   0   0   0   -)
+   )
+  )
+
+(PhoneSet.silences '(#))
+
+(provide 'holmes_phones)

CosyVoice-ttsfrd/resource/festival/klatt_durs.scm

@@ -0,0 +1,85 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;   Phone duration info for Klatt rules, for mrpa phone set
+
+(set! duration_klatt_params
+'(
+(a	230.0	80.0)
+(aa	240.0	100.0)
+(@	120.0	60.0)
+(@@	180.0	80.0)
+(ai	250.0	150.0)
+(au	240.0	100.0)
+(b	85.0	60.0)
+(ch	70.0	50.0)
+(d	75.0	50.0)
+(dh	50.0	30.0)
+(e	150.0	70.0)
+(e@	270.0	130.0)
+(ei	180.0	100.0)
+(f	100.0	80.0)
+(g	80.0	60.0)
+(h	80.0	20.0)
+(i	135.0	40.0)
+(i@	230.0	100.0)
+(ii	155.0	55)
+(jh	70.0	50.0)
+(k	80.0	60.0)
+(l	80.0	40.0)
+(m	70.0	60.0)
+(n	60.0	50.0)
+(ng	95.0	60.0)
+(o	240.0	130.0)
+(oi	280.0	150.0)
+(oo	240.0	130.0)
+(ou	220.0	80.0)
+(p	90.0	50.0)
+(r	80.0	30.0)
+(s	105.0	60.0)
+(sh	105.0	80.0)
+(t	75.0	50.0)
+(th	90.0	60.0)
+(u	210.0	70.0)
+(u@	230.0	110.0)
+(uh	160.0	60.0)
+(uu	230.0	150.0)
+(v	60.0	40.0)
+(w	80.0	60.0)
+(y	80.0	40.0)
+(z	75.0	40.0)
+(zh	70.0	40.0)
+(#	100.0	100.0)
+))
+
+(provide 'klatt_durs)

CosyVoice-ttsfrd/resource/festival/lexicons.scm

@@ -0,0 +1,274 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Definition of various lexicons
+;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;  If there exists a sudirectory of the lib-path called dicts then that 
+;;;  is used as the lexicon directory by default.  If it doesn't exist 
+;;;  we set lexdir to the directory in CSTR where our lexicons are.  
+;;;  In non-CSTR installations where lexicons are not in lib/dicts, 
+;;;  you should set lexdir in sitevars.scm
+
+(defvar lexdir 
+  (if (probe_file (path-append libdir "dicts"))
+      (path-append libdir "dicts/")
+      ;; else we'll guess we're in the CSTR filespace
+      (path-as-directory "/projects/festival/lib/dicts/"))
+  "lexdir
+  The directory where the lexicon(s) are, by default.")
+
+(require 'pos)        ;; for part of speech mapping 
+
+(define (setup_cstr_lex)
+"(setup_cstr_lexicon)
+Define and setup the CSTR lexicon.  The CSTR lexicon consists
+of about 25,000 entries in the mrpa phone set.  A large number of
+specific local entries are also added to the addenda."
+  (if (not (member_string "mrpa" (lex.list)))
+      (begin
+	(lex.create "mrpa")
+	(lex.set.compile.file (path-append lexdir "cstrlex.out"))
+	(lex.set.phoneset "mrpa")
+	(lex.set.lts.method 'lts_rules)
+	(lex.set.lts.ruleset 'nrl)
+	(lex.set.pos.map english_pos_map_wp39_to_wp20)
+	(mrpa_addenda)
+	(lex.add.entry
+	 '("previous" nil (((p r ii) 1) ((v ii) 0) ((@ s) 0))))
+	(lex.add.entry
+	 '("audio" () (((oo d) 1) ((ii) 0) ((ou) 0))))
+	(lex.add.entry
+	 '("modules" () (((m o d) 1) ((uu l s) 0))))
+	)))
+
+(define (setup_oald_lex)
+"(setup_oald_lexicon)
+Define and setup the CUVOALD lexicon.  This is derived from the
+Computer Users Version of the Oxford Advanced Learners' Dictionary
+of Current English.  This version includes a trained set of letter
+to sound rules which have also been used to reduce the actual lexicon
+size by over half, for those entries that the lts model gets exactly
+the same."
+  (if (not (member_string "oald" (lex.list)))
+      (load (path-append lexdir "oald/oaldlex.scm"))))
+
+(define (setup_cmu_lex)
+  "(setup_cmu_lex)
+Lexicon derived from the CMU lexicon (cmudict-0.4), around 100,000 entries,
+in the radio phoneset (sort of darpa-like).  Includes letter to sound
+rule model trained from this data, and uses the lexical stress predictor
+from OALD."
+  (if (not (member_string "cmu" (lex.list)))
+      (load (path-append lexdir "cmu/cmulex.scm"))))
+
+(define (setup_cmumt_lex)
+  "(setup_cmumt_lex)
+Lexicon derived from the CMU lexicon (cmudict-0.4), around 100,000 entries,
+in the radio phoneset (sort of darpa-like).  Includes letter to sound
+rule model trained from this data, and uses the lexical stress predictor
+from OALD."
+  (if (not (member_string "cmumt" (lex.list)))
+      (load (path-append lexdir "cmu_mt/cmumtlex.scm"))))
+
+(define (setup_cmu6_lex)
+  "(setup_cmu6_lex)
+Lexicon derived from the CMU lexicon (cmudict-0.6), around 100,000 entries,
+in the radio phoneset (sort of darpa-like).  Includes letter to sound
+rule model trained from this data, the format of this lexicon is suitable
+for the UniSyn metrical phonology modules.  That is the entries are
+not syllabified,"
+  (if (not (member_string "cmu6" (lex.list)))
+      (load (path-append lexdir "cmu6/cmu6lex.scm"))))
+
+(define (setup_moby_lex)
+"(setup_moby_lexicon)
+Define and setup the MOBY lexicon.  This is derived from the public
+domain version of the Moby (TM) Pronunciator II lexicon.  It can be
+converted automatically to British English mrpa phoneset which of
+course is sub-optimal.  It contains around 120,000 entries and has part
+of speech information for homographs."
+  (if (not (member_string "moby" (lex.list)))
+      (begin
+	(lex.create "moby")
+	;  (lex.set.compile.file (path-append lexdir "mobylex.out"))
+	(lex.set.compile.file "/home/awb/src/mobypron/mobylex.out")
+	(lex.set.phoneset "mrpa")
+	(lex.set.lts.method 'lts_rules)
+	(lex.set.lts.ruleset 'nrl)
+	(lex.set.pos.map english_pos_map_wp39_to_wp20)
+	(lex.add.entry 
+	 '("a" dt (((@) 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))))
+	(mrpa_addenda))))
+
+(define (setup_beep_lex)
+  "(setup_beep_lex)
+Lexicon derived from the British English Example Pronunciation dictionary
+(BEEP) from Tony Robinson  [email protected].  Around 160,000 entries."
+  (if (not (member_string "beep" (lex.list)))
+      (begin
+	(lex.create "beep")
+	(lex.set.compile.file (path-append lexdir "beep_lex.out"))
+	(lex.set.phoneset "mrpa")
+	(lex.set.lts.method 'lts_rules)
+	(lex.set.lts.ruleset 'nrl)
+	(lex.set.pos.map english_pos_map_wp39_to_wp20)
+	(lex.add.entry
+	 '("taylor" nil (((t ei) 1) ((l @) 0))))
+	(mrpa_addenda))))
+
+;;; The nrl letter to sound rules produce mrpa phone set so we need
+;;; to do some fancy things to make them work for American English
+(define (f2b_lts word features)
+"(f2b_lts WORD FEATURES)
+Letter to sound rule system for f2b (American English), uses the NRL
+LTS ruleset and maps the result to the radio phone set."
+ '("unknown" nil (((ah n) 0) ((n ow n) 1)))
+)
+
+;;; A CART tree for predicting lexical stress for strings of phones
+;;; generated by the LTS models.  This was actually trained from
+;;; OALD as that's the only lexicon with stress and part of speech information
+;;; It trained in a phoneset independent way and may be used be either
+;;; OALD or CMU models (and probably MOBY and OGI lex too).
+;;; On held out data it gets 
+;;;           07390  378 7768      [7390/7768]      95.134
+;;;           1 512 8207 8719      [8207/8719]      94.128
+;;;            7902 8585 
+;;; total 16487 correct 15597.000 94.602%
+;;;  
+(set! english_stress_tree
+'((sylpos < 1.7)
+ ((1))
+ ((ph_vlng is a)
+  ((0))
+  ((ph_vheight is 1)
+   ((num2end < 1.5)
+    ((ph_vfront is 1)
+     ((ph_vlng is s) ((0)) ((pos is v) ((1)) ((0))))
+     ((pos is n) ((0)) ((sylpos < 2.2) ((1)) ((0)))))
+    ((ph_vlng is l)
+     ((1))
+     ((ph_vfront is 1)
+      ((num2end < 2.4)
+       ((0))
+       ((pos is a)
+        ((num2end < 3.3) ((sylpos < 2.3) ((1)) ((0))) ((0)))
+        ((sylpos < 3.2)
+         ((num2end < 3.3) ((0)) ((pos is v) ((1)) ((0))))
+         ((0)))))
+      ((0)))))
+   ((num2end < 1.5)
+    ((pos is n)
+     ((0))
+     ((sylpos < 2.4)
+      ((pos is v)
+       ((1))
+       ((ph_vlng is d)
+        ((ph_vheight is 2) ((ph_vfront is 1) ((1)) ((0))) ((0)))
+        ((1))))
+      ((ph_vlng is d)
+       ((sylpos < 3.3)
+        ((pos is v)
+         ((ph_vheight is 2) ((ph_vfront is 1) ((0)) ((1))) ((0)))
+         ((0)))
+        ((0)))
+       ((ph_vheight is 2)
+        ((1))
+        ((ph_vrnd is +) ((1)) ((ph_vlng is l) ((0)) ((1))))))))
+    ((ph_vlng is d)
+     ((pos is v)
+      ((sylpos < 2.4) ((1)) ((0)))
+      ((ph_vfront is 2)
+       ((pos is n)
+        ((num2end < 2.4)
+         ((ph_vrnd is +)
+          ((0))
+          ((sylpos < 2.2) ((1)) ((ph_vheight is 2) ((1)) ((0)))))
+         ((sylpos < 2.4) ((ph_vheight is 2) ((0)) ((1))) ((0))))
+        ((1)))
+       ((ph_vheight is 2) ((1)) ((ph_vfront is 1) ((0)) ((1))))))
+     ((pos is n)
+      ((num2end < 2.4)
+       ((ph_vfront is 3)
+        ((sylpos < 2.3) ((1)) ((ph_vlng is l) ((1)) ((0))))
+        ((1)))
+       ((1)))
+      ((1)))))))))
+
+(define (lex_user_unknown_word word feats)
+  "(lex_user_unknown_word WORD FEATS)
+Function called by lexicon when 'function type letter to sound rules
+is defined.  It is the user's responsibility to defined this function
+themselves when they want to deal with unknown words themselves."
+  (error "lex_user_unknown_word: has not been defined by user"))
+
+(define (Word utt)
+"(Word utt)                                
+Construct (synthesis specific) syllable/segments from Word relation
+using current lexicon and specific module."
+  (let ((rval (apply_method 'Word_Method utt)))
+    (cond
+     (rval rval) ;; new style
+     (t
+      (Classic_Word utt)))))
+
+(define (find_oovs vocab oovs)
+  (let ((fd (fopen vocab "r"))
+        (ofd (fopen oovs "w"))
+        (e 0)
+        (oov 0)
+        (entry))
+
+    (while (not (equal? (set! entry (readfp fd)) (eof-val)))
+       (set! e (+ 1 e))
+       (if (not (lex.lookup_all entry))
+           (begin
+             (set! oov (+ 1 oov))
+             (format ofd "%l\n" (lex.lookup entry nil))))
+       )
+    (format t ";; %d words %d oov %2.2f oov_rate\n"
+            e oov (/ (* oov 100.0) e))
+    )
+)
+
+
+(provide 'lexicons)
+

CosyVoice-ttsfrd/resource/festival/mbrola.scm

@@ -0,0 +1,103 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Support for MBROLA as an external module.
+;;;
+
+;;; You might want to set this in your sitevars.scm
+(defvar mbrola_progname "/cstr/external/mbrola/mbrola"
+  "mbrola_progname
+  The program name for mbrola.")
+(defvar mbrola_database "fr1"
+  "mbrola_database
+ The name of the MBROLA database to usde during MBROLA Synthesis.")
+
+(define (MBROLA_Synth utt)
+  "(MBROLA_Synth UTT)
+  Synthesize using MBROLA as external module.  Basically dump the info
+  from this utterance. Call MBROLA and reload the waveform into utt.
+  [see MBROLA]"
+  (let ((filename (make_tmp_filename))
+	)
+    (save_segments_mbrola utt filename)
+    (system (string-append mbrola_progname " " 
+			   mbrola_database " "
+			   filename " "
+			   filename ".au"))
+    (utt.import.wave utt (string-append filename ".au"))
+    (apply_hooks after_synth_hooks utt)
+    (delete-file filename)
+    (delete-file (string-append filename ".au"))
+    utt))
+
+(define (save_segments_mbrola utt filename)
+  "(save_segments_mbrola UTT FILENAME)
+  Save segment information in MBROLA format in filename.  The format is
+  phone duration (ms) [% position F0 target]*. [see MBROLA]"
+  (let ((fd (fopen filename "w")))
+    (mapcar
+     (lambda (segment) 
+       (save_seg_mbrola_entry 
+	(item.feat segment 'name)
+	(item.feat segment 'segment_start)
+	(item.feat segment 'segment_duration)
+	(mapcar
+	 (lambda (targ_item)
+	   (list
+	    (item.feat targ_item "pos")
+	    (item.feat targ_item "f0")))
+	 (item.relation.daughters segment 'Target)) ;; list of targets
+	fd))
+     (utt.relation.items utt 'Segment))
+    (fclose fd)))
+
+(define (save_seg_mbrola_entry name start dur targs fd)
+  "(save_seg_mbrola_entry ENTRY NAME START DUR TARGS FD)
+  Entry contains, (name duration num_targs start 1st_targ_pos 1st_targ_val)."
+  (format fd "%s %d " name (nint (* dur 1000)))
+  (if targs     ;; if there are any targets
+      (mapcar
+       (lambda (targ) ;; targ_pos and targ_val
+	 (let ((targ_pos (car targ))
+	       (targ_val (car (cdr targ))))
+	                                  
+	   (format fd "%d %d " 
+		   (nint (* 100 (/ (- targ_pos start) dur))) ;; % pos of target
+		   (nint (parse-number targ_val)))           ;; target value
+	   ))
+       targs))
+  (terpri fd)
+  (terpri fd)
+)
+	
+(provide 'mbrola)

CosyVoice-ttsfrd/resource/festival/mettree.scm

@@ -0,0 +1,88 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Some (experimental) data for investigating metrical trees
+;;;
+
+;;; Set up generation of metrical tree, this includes getting
+;;; a syntactic parse
+;;;
+;;; Use as 
+;;;   (set! utt1 (metsynth (Utterance Text "For afternoon tea")))
+;;;   (utt.relation_tree utt1 'MetricalTree)
+
+(require 'scfg)
+(set! scfg_grammar (load (path-append libdir "scfg_wsj_wp20.gram") t))
+
+(define (mettext utt)
+  (Initialize utt)
+  (Text utt)
+  (Token_POS utt)
+  (Token utt)
+  (POS utt)
+  (print "here1")
+  (Phrasify utt)
+  (print "here2")
+  (ProbParse utt)
+  (print "here3")
+  (auto_metrical_tree utt)
+)
+
+(define (metsynth utt)
+  (mettext utt)
+  (Wave_Synth utt)
+)
+
+;;; Assumed everything is using Roger diphones
+
+;;(lex.create "cmu_mettree")
+;;;(lex.set.phoneset "radio_phones")
+;;(lex.set.phoneset "radio_phones")
+
+(define (setup_cmu_mettree_lex)
+  "(setup_cmu_mettreelex)
+Lexicon derived from the CMU lexicon (cmudict-0.1), around 100,000 entries,
+in the radio phoneset (sort of darpa-like)."
+  (if (not (member_string "cmu_mettree" (lex.list)))
+      (begin
+	(print "making cmu lexicon")
+	(lex.create "cmu_mettree")
+	(lex.set.compile.file (path-append lexdir "cmu_mettree_lex.out"))
+	(lex.set.phoneset "radio")
+	(require 'lts__us)    ;; US English letter to sound rules
+	(lex.set.lts.method 'lts_rules)
+	(lex.set.lts.ruleset 'nrl_us))))
+
+(provide 'mettree)
+
+

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/phoneset.scm

@@ -0,0 +1,134 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                Centre for Speech Technology Research                  ;;
+;;;                     University of Edinburgh, UK                       ;;
+;;;                         Copyright (c) 1999                            ;;
+;;;                        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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                         Author: Alan W Black
+;;;                         Date:   April 1999
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  
+;;;  Support code for phone set definitions
+;;;
+
+(defmac (defPhoneSet form)
+  (list 'defPhoneSet_real 
+	(list 'quote (cadr form))
+	(list 'quote (car (cddr form)))
+	(list 'quote (cadr (cddr form)))))
+
+(define (defPhoneSet_real name featdefs phones)
+  "(defPhoneSet NAME FEATTYPES PHONES)
+Define a phone set with given name, feature types and
+list of phones.  This also selects name as the current phoneset."
+  (let (info)
+    (if (not (eq? 'Features (car featdefs)))
+	(begin
+	  ;; Old format that has the same number of phone features for
+	  ;; all phones
+	  (set! info
+		(mapcar 
+		 (lambda (ph)
+		   (let ((fvs
+			  (mapcar
+			   list
+			   (mapcar car featdefs)
+			   (cdr ph))))
+		   (ps_check_fvals
+		    (cons (car ph) (cons (list 'type t) fvs))
+		    (cons t fvs))
+		   (list (car ph) fvs)))
+		 phones)))
+	;; else
+	;;   New format where types are specified so phones may have
+        ;;   different features
+	(set! info
+	 (mapcar 
+	  (lambda (ph)
+	    (let ((fvs 
+		   (cons 
+		    (list 'type (cadr ph))
+		    (mapcar 
+		     list 
+		     (mapcar car (cdr (assoc (cadr ph) (cdr featdefs))))
+		     (cddr ph)))))
+	      (ps_check_fvals 
+	       (cons (car ph) fvs)
+	       (assoc (cadr ph) (cdr featdefs)))
+	      (list (car ph) fvs)))
+	  (cdr phones))))
+    (Param.set 
+     (string-append "phonesets." name)
+     info)
+    (PhoneSet.select name)
+    (list name info)))
+
+(define (ps_check_fvals fvs featdefs)
+  "(ps_check_fvals fvs featdefs)
+Check that feature values in a phone definition are in the defined
+set of possibles."
+  (mapcar 
+   (lambda (fp)
+     (let ((def (cdr (assoc (car fp) (cdr featdefs)))))
+       (cond
+	((not def)
+	 (error "Phoneset definition: phone has no defined type" fvs))
+	((not (member_string (car (cdr fp)) def))
+	 (error 
+	  (format nil "Phoneset definition: phone feature %l is undefined" fp) fvs)))))
+   (cdr (cdr fvs))))
+
+(define (PhoneSet.select name)
+  "(PhoneSet.select name)
+Select named phonset as current."
+  (if (feats.present Param (string-append "phonesets." name))
+      (Param.set "phoneset" (Param.get (string-append "phonesets." name)))
+      (error "no phoneset defined: " name)))
+
+(define (PhoneSet.description name)
+  "(PhoneSet.description)
+Return (lisp) representation of current phoneset."
+  (feats.tolisp (Param.get "phoneset")))
+
+(define (PhoneSet.list)
+  "(PhoneSet.list)
+List of the names of the currently defined phonesets."
+  ;; This isn't a particularly efficient way to get the answer
+  (mapcar car (feats.tolisp (Param.get "phonesets"))))
+
+(define (PhoneSet.silences sils)
+  "(PhoneSet.silences SILLIST)
+Define the silence phones for the currently selected phoneset."
+  (Param.set "phoneset.silences" sils))
+
+(provide 'phoneset)
+
+
+
+

CosyVoice-ttsfrd/resource/festival/phrase.scm

@@ -0,0 +1,171 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;   Phrase boundary prediction.
+;;;   
+;;;   Two methods supported, if POS is enabled we use ngrams for that
+;;;   otherwise we use a CART tree
+;;;
+;;;   Models trained from the IBM/Lancaster Spoken English Corpus and 
+;;;   Boston University's FM Radio Corpus.
+
+;;;
+;;;  Here's a very simple CART tree for predicting phrase breaks
+;;;  based on punctuation only
+;;;
+(set! simple_phrase_cart_tree
+'
+((lisp_token_end_punc in ("?" "." ":"))
+  ((BB))
+  ((lisp_token_end_punc in ("'" "\"" "," ";"))
+   ((B))
+   ((n.name is 0)  ;; end of utterance
+    ((BB))
+    ((NB))))))
+
+(define (token_end_punc word)
+  "(token_end_punc UTT WORD)
+If punctuation at end of related Token and if WORD is last word
+in Token return punc, otherwise 0."
+  (if (item.relation.next word "Token")
+      "0"
+      (item.feat word "R:Token.parent.punc")))
+
+;;;  This is a simple CART tree used after boundaries are predicted
+;;;  by the probabilistic method to get two levels of break
+(set! english_phrase_type_tree
+'((pbreak is NB)
+  ((num_break is 1)
+   ((mB))
+   ((R:Token.parent.EMPH is 1)
+    ((NB))
+    ((n.R:Token.parent.EMPH is 1)
+     ((NB))
+     ((NB)))))
+  ((pbreak is BB)
+   ((BB))
+   ((pbreak is mB)
+    ((mB))
+    ((name in ("." "!" "?"));; only (potentially) change Bs to BBs
+     ((BB))
+     ((B)))))))
+
+(set! f2b_phrase_cart_tree
+'
+((gpos is punc)
+ (((1 0.00238095) (3 0) (4 0.997619) B))
+ (((4 0.00238095) (3 0) (1 0.997619) NB))))
+
+;;;  For more detailed prediction of phrase breaks we use POS and
+;;;  probability distribution of breaks
+;;;  These models were trained using data from the Lancaster/IBM
+;;;  Spoken English Corpus
+
+(require 'pos)   ;; for part of speech map
+
+(defvar pbreak_ngram_dir libdir
+  "pbreak_ngram_dir
+  The directory containing the ngram models for predicting phrase
+  breaks.  By default this is the standard library directory.")
+
+(defvar english_phr_break_params
+  (list
+   ;; The name and filename off the ngram with the a priori ngram model
+   ;; for predicting phrase breaks in the Phrasify module.  This model should 
+   ;; predict probability distributions for B and NB given some context of 
+   ;; part of  speech tags.
+   (list 'pos_ngram_name 'english_break_pos_ngram)
+   (list 'pos_ngram_filename
+	 (path-append pbreak_ngram_dir "sec.ts20.quad.ngrambin"))
+   ;; The name and filename of the ngram  containing the a posteriori ngram
+   ;; for predicting phrase breaks in the Phrasify module.  This module should
+   ;; predict probability distributions for B and NB given previous B and
+   ;; NBs.
+   (list 'break_ngram_name 'english_break_ngram)
+   (list 'break_ngram_filename
+	 (path-append pbreak_ngram_dir "sec.B.hept.ngrambin"))
+   ;; A weighting factor for breaks in the break/non-break ngram.
+   (list 'gram_scale_s 0.05)
+   ;; When Phrase_Method is prob_models, this tree, if set is used to 
+   ;; potentially predict phrase type.  At least some prob_models only
+   ;; predict B or NB, this tree may be used to change some Bs into
+   ;; BBs.  If it is nil, the pbreak value predicted by prob_models
+   ;; remains the same.
+   (list 'phrase_type_tree english_phrase_type_tree)
+   ;; A list of tags used in identifying breaks.  Typically B and NB (and
+   ;; BB).  This should be the alphabet of the ngram identified in
+   ;; break_ngram_name
+   (list 'break_tags '(B NB))
+   (list 'pos_map english_pos_map_wp39_to_wp20)
+   )
+  "english_phr_break_params
+Parameters for English phrase break statistical model.")
+
+(defvar phr_break_params nil
+  "phr_break_params
+Parameters for phrase break statistical model.  This is typcal set by
+a voice selection function to the parameters for a particular model.")
+
+;;;
+;;; Declaration of some features 
+;;; 
+
+(def_feature_docstring 
+  'Word.pbreak
+  "Word.pbreak
+  Result from statistical phrasing module, may be B or NB denoting
+  phrase break or non-phrase break after the word.")
+
+(def_feature_docstring 
+  'Word.pbreak_score
+  "Word.pbreak_score
+  Log likelihood score from statistical phrasing module, for pbreak
+  value.")
+
+(def_feature_docstring 
+  'Word.blevel
+  "Word.blevel
+  A crude translation of phrase break into ToBI like phrase level.
+  Values may be 0,1,2,3,4.")
+
+(define (Phrasify utt)
+"(Phrasify utt)                                
+Construct phrasify over Words module."
+  (let ((rval (apply_method 'Phrasify_Method utt)))
+    (cond
+     (rval rval) ;; new style
+     (t
+      (Classic_Phrasify utt)))))
+
+
+(provide 'phrase)

CosyVoice-ttsfrd/resource/festival/pos.scm

@@ -0,0 +1,229 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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 part of speech tagger
+;;;
+
+(set! english_guess_pos
+      '((in of for in on that with by at from as if that against about 
+	    before because if under after over into while without
+	    through new between among until per up down)
+	(to to)
+	(det the a an no some this that each another those every all any 
+	     these both neither no many)
+	(md will may would can could should must ought might)
+	(cc and but or plus yet nor)
+	(wp who what where how when)
+	(pps her his their its our their its mine)
+	(aux is am are was were has have had be)
+	(punc "." "," ":" ";" "\"" "'" "(" "?" ")" "!" "[" "]" "{" "}")
+	))
+
+(defvar guess_pos english_guess_pos
+  "guess_pos
+  An assoc-list of simple part of speech tag to list of words in that
+  class.  This basically only contains closed class words all other 
+  words may be assumed to be content words.  This was built from information
+  in the f2b database and is used by the ffeature gpos.")
+
+;;;  A more elaborate part of speech tagger using ngrams works but
+;;;  at present requires a large list of a priori probabilities
+;;;  to work.  If that file exists on your system we'll use it otherwise
+;;;  POS is guessed by the lexicon
+
+;;;  These models were build from the Penn TreeBank, WSJ corpus
+
+(defvar pos_model_dir lexdir
+  "pos_model_dir
+  The directory contains the various models for the POS module.  By
+  default this is the same directory as lexdir.  The directory should
+  contain two models: a part of speech lexicon with reverse log probabilities
+  and an ngram model for the same part of speech tag set.")
+
+(defvar pos_p_start_tag "punc"
+  "pos_p_start_tag
+  This variable's value is the tag most likely to appear before
+  the start of a sentence.  It is used when looking for pos context
+  before an utterance.  Typically it should be some type of punctuation
+  tag.")
+
+(defvar pos_pp_start_tag "n"
+  "pos_pp_start_tag
+  This variable's value is the tag most likely to appear before
+  pos_p_start_tag and any position preceding that.  It is typically
+  some type of noun tag.  This is used to provide pos context for
+  early words in an utterance.")
+
+(defvar pos_supported nil
+  "pos_supported
+  If set to non-nil use part of speech prediction, if nil just get
+  pos information from the lexicon.")
+
+(defvar pos_ngram_name nil
+  "pos_ngram_name
+  The name of a loaded ngram containing the a posteriori ngram model for 
+  predicting part of speech.  The a priori model is held as a 
+  lexicon call poslex.")
+
+(defvar pos_map nil
+  "pos_map
+  If set this should be a reverse assoc-list mapping on part of speech
+  tag set to another.  It is used after using the defined POS models to
+  map the pos feature on each word to a new tagset.")
+
+;;;
+;;;  All the names here don't really allow multiple versions
+;;;  they should be prefixed with english_
+;;;
+
+(if (probe_file (path-append pos_model_dir "wsj.wp39.poslexR"))
+    (begin
+      (lex.create "english_poslex")
+      (lex.set.compile.file 
+       (path-append pos_model_dir "wsj.wp39.poslexR"))
+      (lex.set.phoneset "mrpa")
+      (lex.set.lts.method nil)
+      (set! pos_lex_name "english_poslex")
+      (set! pos_p_start_tag "punc")
+      (set! pos_pp_start_tag "nn")
+      ;; wp39
+      (lex.add.entry '("_OOV_" ((nnp -2.9144) (jj -2.7357) (nn -3.5787)
+				(nns -3.4933) (vbn -3.2486) (vbg -2.9419)
+				(vb  -3.5471) (vbd -3.7896) (vbz -3.7820)
+				(rb  -4.1940) (vbp -3.2755) (nnps -2.1605))
+			       ()))
+      (lex.add.entry '("_number_" 
+		       ((cd -0.35202) (jj -4.1083) (nns -6.4488) (nnp -7.3595))
+		       () ))
+      (lex.add.entry '("," ((punc -0.88488)) () ))
+      (lex.add.entry '("." ((punc -1.1104)) () ))
+      (lex.add.entry '(":" ((punc -4.4236)) () ))
+      (lex.add.entry '("``" ((punc -2.7867)) () ))
+      (lex.add.entry '("`" ((punc -2.7867)) () ))
+      (lex.add.entry '("'" ((punc -2.7867)) () ))
+      (lex.add.entry '("\"" ((punc -2.7867)) () ))
+      (lex.add.entry '("[" ((punc -2.7867)) () ))
+      (lex.add.entry '("]" ((punc -2.7867)) () ))
+      (lex.add.entry '("{" ((punc -2.7867)) () ))
+      (lex.add.entry '("}" ((punc -2.7867)) () ))
+      ;; wp17
+;;      (lex.add.entry '("_OOV_" ((n -3.4109) (j -2.7892) (v -3.7426)) ()))
+;      (lex.add.entry '("_OOV_" ((n -1.968) (j -2.351) (v -2.287)) ()))
+;      (lex.add.entry '("_number_" ((j -0.35202)) ()))
+;      (lex.add.entry '("," ((punc -0.88359)) () ))
+;      (lex.add.entry '("." ((punc -1.1101)) () ))
+;      (lex.add.entry '(":" ((punc -4.4236)) () ))
+;      (lex.add.entry '("``" ((punc -2.7867)) () ))
+;      (lex.add.entry '("`" ((punc -2.7867)) () ))
+;      (lex.add.entry '("'" ((punc -2.7867)) () ))
+;      (lex.add.entry '("\"" ((punc -2.7867)) () ))
+      ;; wp22
+;      (lex.add.entry '("_OOV_" ((n -3.4109) (j -2.7892) (v -3.7426)) ()))
+;      (lex.add.entry '("_number_" ((cd -0.35202) (j -4.1908) (n -7.3890)) ()))
+;      (lex.add.entry '("," ((punc -0.88359)) () ))
+;      (lex.add.entry '("." ((punc -1.1101)) () ))
+;      (lex.add.entry '(":" ((punc -4.4236)) () ))
+;      (lex.add.entry '("``" ((punc -2.7867)) () ))
+      ;; wp18 
+;      (lex.add.entry '("_OOV_" ((n -3.4109) (j -2.7892) (v -3.7426)) ()))
+;      (lex.add.entry '("_number_" ((j -0.35202)) ()))
+;      (lex.add.entry '("`" ((punc -6.539) ) () ))
+;      (lex.add.entry '("``" ((punc -2.399) ) () ))
+;      (lex.add.entry '("," ((punc -0.480) ) () ))
+;      (lex.add.entry '("." ((fpunc -0.012) ) () ))
+;      (lex.add.entry '(":" ((punc -4.100) ) () ))
+
+     (ngram.load 'english_pos_ngram
+	    (path-append pos_model_dir  "wsj.wp39.tri.ngrambin"))
+;      (ngram.load 'english_pos_ngram
+;	    (path-append pos_model_dir  "wsj.wp45.tri.ngram"))
+      (set! pos_supported t)
+      )
+    (set! pos_supported nil))
+
+(setq english_pos_map_wp39_to_wp20
+      '(
+	(( vbd vb vbn vbz vbp vbg ) v)
+	(( nn nnp nns nnps fw sym ls ) n)
+	(( dt ) dt)
+	(( punc fpunc ) punc)
+	(( in ) in)
+	(( jj jjr jjs 1 2 ) j)
+	(( prp ) prp)
+	(( rb rp rbr rbs ) r)
+	(( cc ) cc)
+	(( of ) of)
+	(( to ) to)
+	(( cd ) cd)
+	(( md ) md)
+	(( pos ) pos)
+	(( wdt ) wdt)
+	(( wp ) wp)
+	(( wrb ) wrb)
+	(( ex ) ex)
+	(( uh ) uh)
+	(( pdt ) pdt)
+	))
+
+(defvar pos_map nil
+  "pos_map
+A reverse assoc list of predicted pos tags to some other tag set.  Note
+using this changes the pos tag loosing the actual predicted value.  Rather
+than map here you may find it more appropriate to map tags sets locally
+in the modules that use them (e.g. phrasing and lexicons).")
+
+;;(setq pos_map_remap
+;;      '(
+;;	(( fpunc ) punc)
+;;	(( of ) in)))
+
+(def_feature_docstring 'Word.pos
+  "Word.pos
+  Part of speech tag value returned by the POS tagger module.")
+
+(def_feature_docstring 'Word.pos_score
+  "Word.pos_score
+  Part of speech tag log likelihood from Viterbi search.")
+
+(define (POS utt)
+"(POS utt)                                
+Apply part of speech tagging (and possible parsing too) to Word
+relation."
+  (let ((rval (apply_method 'POS_Method utt)))
+    (cond
+     (rval rval) ;; new style
+     (t
+      (Classic_POS utt)))))
+
+
+(provide 'pos)

CosyVoice-ttsfrd/resource/festival/radio_phones.scm

@@ -0,0 +1,122 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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 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
+;;;
+
+(defPhoneSet
+  radio
+  ;;;  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
+  (
+   ;; 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)
+
+
+  
+

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/singing-mode.scm

@@ -0,0 +1,673 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Festival Singing Mode
+;;;
+;;; Written by Dominic Mazzoni
+;;; Carnegie Mellon University
+;;; 11-752 - "Speech: Phonetics, Prosody, Perception and Synthesis"
+;;; Spring 2001
+;;;
+;;; Extended by Milan Zamazal <[email protected]>, 2006:
+;;; - Slur support.
+;;; - Czech support.
+;;; - Some cleanup.
+;;; - Print debugging information only when singing-debug is true.
+;;;
+;;; This code is public domain; anyone may use it freely.
+;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require_module 'rxp)
+
+(xml_register_id "-//SINGING//DTD SINGING mark up//EN"
+		(path-append xml_dtd_dir "Singing.v0_1.dtd")
+		)
+
+(xml_register_id "-//SINGING//ENTITIES Added Latin 1 for SINGING//EN"
+		 (path-append xml_dtd_dir  "sable-latin.ent")
+		 )
+
+;; Set this to t to enable debugging messages:
+(defvar singing-debug nil)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; XML parsing functions
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;
+;; singing_xml_targets
+;;
+;; This variable defines the actions that are to be taken when
+;; parsing each of our XML tags: SINGING, PITCH, DURATION, and REST.
+;;
+;; When we get the pitch and duration of each token, we store them
+;; in features of the token.  Later our intonation and duration
+;; functions access these features.
+;;
+
+(defvar singing_xml_elements
+  '(
+    ("(SINGING" (ATTLIST UTT)
+     (set! singing_pitch_att_list nil)
+     (set! singing_dur_att_list nil)
+     (set! singing_global_time 0.0)
+     (set! singing_bpm (get-bpm ATTLIST))
+     (set! singing_bps (/ singing_bpm 50.0)) ;; change this back to 60
+     nil)
+
+    (")SINGING" (ATTLIST UTT)
+     (xxml_synth UTT)  ;;  Synthesize the remaining tokens
+     nil)
+
+    ("(PITCH" (ATTLIST UTT)
+     (set! singing_pitch_att_list ATTLIST)
+     UTT)
+
+    (")PITCH" (ATTLIST UTT)
+     (let ((freq (get-freqs singing_pitch_att_list)))
+       (if singing-debug
+           (begin
+             (print "freqs")
+             (print freq)))
+       (singing-append-feature! UTT 'freq freq))
+     UTT)
+    
+    ("(DURATION" (ATTLIST UTT)
+     (set! singing_dur_att_list ATTLIST)
+     UTT)
+
+    (")DURATION" (ATTLIST UTT)
+     (let ((dur (get-durs singing_dur_att_list)))
+       (if singing-debug
+           (begin
+             (print "durs")
+             (print dur)))
+       (singing-append-feature! UTT 'dur dur))
+     UTT)
+    
+    ("(REST" (ATTLIST UTT)
+     (let ((dur (get-durs ATTLIST)))
+       (if singing-debug
+           (begin
+             (print "rest durs")
+             (print dur)))
+       (singing-append-feature! UTT 'rest (caar dur)))
+     UTT)
+    ))
+
+;;
+;; get-bpm
+;;
+;; Given the attribute list of a SINGING tag, returns the beats
+;; per minute of the song from the BPM parameter.
+;;
+
+(define (get-bpm atts)
+  (parse-number (car (car (cdr (assoc 'BPM atts))))))
+
+;;
+;; get-durs
+;;
+;; Given the attribute list of a DURATION tag, returns a list of
+;; durations in seconds for the syllables of the word enclosed by
+;; this tag.
+;;
+;; It first looks for a BEATS parameter, and converts these to
+;; seconds using BPM, which was set in the SINGING tag.  If this
+;; is not present, it looks for the SECONDS parameter.
+;;
+
+(define (get-durs atts)
+  (let ((seconds (car (car (cdr (assoc 'SECONDS atts)))))
+        (beats (car (car (cdr (assoc 'BEATS atts))))))
+    (if (equal? beats 'X)
+        (mapcar (lambda (lst) (mapcar parse-number lst))
+                (string->list seconds))
+        (mapcar (lambda (lst)
+                  (mapcar (lambda (x) (/ (parse-number x) singing_bps)) lst))
+                (string->list beats)))))
+
+;;
+;; get-freqs
+;;
+;; Given the attribute list of a PITCH tag, returns a list of
+;; frequencies in Hertz for the syllables of the word enclosed by
+;; this tag.
+;;
+;; It first looks for a NOTE parameter, which can contain a MIDI
+;; note of the form "C4", "D#3", or "Ab6", and if this is not
+;; present it looks for the FREQ parameter.
+;;
+
+(define (get-freqs atts)
+  (let ((freqs (car (car (cdr (assoc 'FREQ atts)))))
+        (notes (car (car (cdr (assoc 'NOTE atts))))))
+    (if (equal? notes 'X)
+        (mapcar (lambda (lst) (mapcar parse-number lst))
+                (string->list freqs))
+        (mapcar (lambda (lst) (mapcar note->freq lst))
+                (string->list notes)))))
+
+;;
+;; note->freq
+;;
+;; Converts a string representing a MIDI note such as "C4" and
+;; turns it into a frequency.  We use the convention that
+;; A5=440 (some call this note A3).
+;;
+
+(define (note->freq note)
+  (if singing-debug
+      (format t "note is %l\n" note))
+  (set! note (format nil "%s" note))
+  (if singing-debug
+      (print_string note))
+  (let (l octave notename midinote thefreq)
+    (set! l (string-length note))
+    (set! octave (substring note (- l 1) 1))
+    (set! notename (substring note 0 (- l 1)))
+    (set! midinote (+ (* 12 (parse-number octave))
+                      (notename->midioffset notename)))
+    (set! thefreq (midinote->freq midinote))
+    (if singing-debug
+        (format t "note %s freq %f\n" note thefreq))
+    thefreq))
+
+;;
+;; midinote->freq
+;;
+;; Converts a MIDI note number (1 - 127) into a frequency.  We use
+;; the convention that 69 = "A5" =440 Hz.
+;;
+
+(define (midinote->freq midinote)
+  (* 440.0 (pow 2.0 (/ (- midinote 69) 12))))
+
+;;
+;; notename->midioffset
+;;
+;; Utility function that looks up the name of a note like "F#" and
+;; returns its offset from C.
+;;
+
+(define (notename->midioffset notename)
+  (parse-number (car (cdr (assoc_string notename note_names)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Pitch modification functions
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;
+;; singing_f0_targets
+;;
+;; This function replaces the normal intonation function used in
+;; festival.  For each syllable, it extracts the frequency that
+;; was calculated from the XML tags and stored in the token this
+;; syllable comes from, and sets this frequency as both the start
+;; and end f0 target.  Really straightforward!
+;;
+
+(defvar singing-last-f0 nil)
+(define (singing_f0_targets utt syl)
+  "(singing_f0_targets utt syl)"
+  (let ((start (item.feat syl 'syllable_start))
+        (end (item.feat syl 'syllable_end))
+        (freqs (mapcar parse-number (syl->freq syl)))
+        (durs (syl->durations syl)))
+    (let ((total-durs (apply + durs))
+          (total-time (- end start))
+          (time start)
+          (prev-segment (item.prev (item.relation (item.daughter1 (item.relation syl 'SylStructure)) 'Segment)))
+          (last-f0 singing-last-f0))
+      (if freqs
+          (begin
+            (set! singing-last-f0 (car (last freqs)))
+            (append (if (and last-f0
+                             prev-segment
+                             (item.prev prev-segment)
+                             (string-equal (item.feat prev-segment 'name)
+                                           (car (car (cdr (car (PhoneSet.description '(silences))))))))
+                        (let ((s (item.feat prev-segment "p.end"))
+                              (e (item.feat prev-segment "end")))
+                          (list (list (+ s (* (- e s) 0.8)) last-f0)
+                                (list (+ s (* (- e s) 0.9)) (car freqs)))))
+                    (apply append
+                           (mapcar (lambda (d f)
+                                     (let ((range (* (/ d total-durs) total-time))
+                                           (old-time time))
+                                       (set! time (+ time range))
+                                       (let ((range-fraction (* 0.1 range)))
+                                         (list (list (+ old-time range-fraction) f)
+                                               (list (- time range-fraction) f)))))
+                                   durs freqs))))))))
+
+;;
+;; syl->freq
+;;
+;; Given a syllable, looks up the frequency in its token.  The token
+;; stores a list of all of the frequencies associated with its
+;; syllables, so this syllable grabs the frequency out of the list
+;; corresponding to its index within the word.  (This assumes that
+;; a frequency was given for each syllable, and that a token
+;; corresponds directly to a word.  Singing-mode is not guaranteed
+;; to work at all if either of these things are not true.)
+;;
+
+(define (syl->freq syl)
+  (let ((index (item.feat syl "R:Syllable.pos_in_word"))
+        (freqs (singing-feat syl "R:SylStructure.parent.R:Token.parent.freq")))
+    (nth index freqs)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Duration modification functions
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;
+;; singing_duration_method 
+;;
+;; Calculates the duration of each phone in the utterance, in three
+;; passes.  Consult the three functions it calls, below, to see what
+;; each one does.
+;;
+
+(define (singing_duration_method utt)
+  (mapcar singing_adjcons_syllable (utt.relation.items utt 'Syllable))
+  (singing_do_initial utt (car (utt.relation.items utt 'Token)))
+  (mapcar singing_do_syllable (utt.relation.items utt 'Syllable))
+  (mapcar singing_fix_segment (utt.relation.items utt 'Segment))
+  utt)
+
+;;
+;; singing_adjcons_syllable
+;;
+;; First pass.  Looks at the first phone of each syllable and
+;; adjusts the starting time of this syllable such that the
+;; perceived start time of the first phone is at the beginning
+;; of the originally intended start time of the syllable.
+;;
+;; If this is not done, telling it to say the word "ta" at time
+;; 2.0 actually doesn't "sound" like it says the "t" sound until
+;; about 2.1 seconds.
+;;
+;; This function has a little bit of duplicated code from
+;; singing_do_syllable, below - it could be modularized a little
+;; better.
+;;
+
+(define (singing_adjcons_syllable syl)
+  (let ((totlen (apply + (mapcar (lambda (s)
+                                   (get_avg_duration (item.feat s "name")))
+                                 (item.leafs
+                                  (item.relation syl 'SylStructure)))))
+        (syldur (apply + (syl->durations syl)))
+        ;; figure out the offset of the first phone
+        (phone1 (item.daughter1 (item.relation syl 'SylStructure)))
+        (prevsyl (item.prev (item.relation syl 'Syllable))))
+    (let ((offset (get_duration_offset (item.feat phone1 "name"))))
+      (if singing-debug
+          (format t "offset: %f\n" offset) )
+      (if (< syldur totlen)
+          (set! offset (* offset (/ syldur totlen))))
+      (if singing-debug
+          (format t "Want to adjust syl by %f\n" offset))
+      (if prevsyl
+          (begin
+            (item.set_feat prevsyl 'subtractoffset offset)
+            (item.set_feat syl 'addoffset offset))))))
+
+;;
+;; singing_do_syllable
+;;
+;; Second pass.  For each syllable, adds up the amount of time
+;; that would normally be spent in consonants and vowels, based
+;; on the average durations of these phones.  Then, if the
+;; intended length of this syllable is longer than this total,
+;; stretch only the vowels; otherwise shrink all phones
+;; proportionally.  This function actually sets the "end" time
+;; of each phone using a global "singing_global_time" variable.
+;;
+;; We also handle rests at this point, which are tagged onto the
+;; end of the previous token.
+;;
+
+(defvar singing-max-short-vowel-length 0.11)
+
+(define (singing_do_initial utt token)
+  (if (equal? (item.name token) "")
+      (let ((restlen (car (item.feat token 'rest))))
+        (if singing-debug
+            (format t "restlen %l\n" restlen))
+        (if (> restlen 0)
+            (let ((silence (car (car (cdr (assoc 'silences (PhoneSet.description)))))))
+              (set! singing_global_time restlen)
+              (item.relation.insert (utt.relation.first utt 'Segment) 'Segment
+                                    (list silence (list (list "end" singing_global_time)))
+                                    'before))))))
+
+(define (singing_do_syllable syl)
+  (let ((conslen 0.0)
+        (vowlen 0.0)
+        (segments (item.leafs (item.relation syl 'SylStructure))))
+    ;; if there are no vowels, turn a middle consonant into a vowel;
+    ;; hopefully this works well for languages where syllables may be
+    ;; created by some consonants too
+    (let ((segments* segments)
+          (vowel-found nil))
+      (while (and segments* (not vowel-found))
+        (if (equal? "+" (item.feat (car segments*) "ph_vc"))
+            (set! vowel-found t)
+            (set! segments* (cdr segments*))))
+      (if (not vowel-found)
+          (item.set_feat (nth (nint (/ (- (length segments) 1) 2))
+                              segments)
+                         "singing-vc" "+")))
+    ;; sum up the length of all of the vowels and consonants in
+    ;; this syllable
+    (mapcar (lambda (s)
+              (let ((slen (get_avg_duration (item.feat s "name"))))
+                (if (or (equal? "+" (item.feat s "ph_vc"))
+                        (equal? "+" (item.feat s "singing-vc")))
+                    (set! vowlen (+ vowlen slen))
+                    (set! conslen (+ conslen slen)))))
+            segments)
+    (let ((totlen (+ conslen vowlen))
+          (syldur (apply + (syl->durations syl)))
+          (addoffset (item.feat syl 'addoffset))
+          (subtractoffset (item.feat syl 'subtractoffset))
+          offset)
+      (set! offset (- subtractoffset addoffset))
+      (if singing-debug
+          (format t "Vowlen: %f conslen: %f totlen: %f\n" vowlen conslen totlen))
+      (if (< offset (/ syldur 2.0))
+	  (begin
+            (set! syldur (- syldur offset))
+            (if singing-debug
+                (format t "Offset: %f\n" offset))))
+      (if singing-debug
+          (format t "Syldur: %f\n" syldur))
+      (if (> totlen syldur)
+	  ;; if the total length of the average durations in the syllable is
+	  ;; greater than the total desired duration of the syllable, stretch
+	  ;; the time proportionally for each phone
+	  (let ((stretch (/ syldur totlen)))
+            (mapcar (lambda (s)
+                      (let ((slen (* stretch (get_avg_duration (item.feat s "name")))))
+                        (set! singing_global_time (+ slen singing_global_time))
+                        (item.set_feat s 'end singing_global_time)))
+                    (item.leafs (item.relation syl 'SylStructure))))
+	  ;; otherwise, stretch the vowels and not the consonants
+	  (let ((voweltime (- syldur conslen)))
+            (let ((vowelstretch (/ voweltime vowlen))
+                  (phones (mapcar car (car (cdar (PhoneSet.description '(phones)))))))
+              (mapcar (lambda (s)
+                        (let ((slen (get_avg_duration (item.feat s "name"))))
+                          (if (or (equal? "+" (item.feat s "ph_vc"))
+                                  (equal? "+" (item.feat s "singing-vc")))
+                              (begin
+                                (set! slen (* vowelstretch slen))
+                                ;; If the sound is long enough, better results
+                                ;; may be achieved by using longer versions of
+                                ;; the vowels.
+                                (if (> slen singing-max-short-vowel-length)
+                                    (let ((sname (string-append (item.feat s "name") ":")))
+                                      (if (member_string sname phones)
+                                          (item.set_feat s "name" sname))))))
+                          (set! singing_global_time (+ slen singing_global_time))
+                          (item.set_feat s 'end singing_global_time)))
+                      segments))))))
+  (let ((restlen (car (syl->rest syl))))
+    (if singing-debug
+        (format t "restlen %l\n" restlen))
+    (if (> restlen 0)
+        (let ((lastseg (item.daughtern (item.relation syl 'SylStructure)))
+              (silence (car (car (cdr (assoc 'silences (PhoneSet.description))))))
+              (singing_global_time* singing_global_time))
+          (let ((seg (item.relation lastseg 'Segment))
+                (extra-pause-length 0.00001))
+            (set! singing_global_time (+ restlen singing_global_time))
+            (item.insert seg (list silence (list (list "end" singing_global_time))) 'after)
+            ;; insert a very short extra pause to avoid after-effects, especially
+            ;; after vowels
+            (if (and seg
+                     (equal? (item.feat seg "ph_vc") "+")
+                     (< extra-pause-length restlen))
+                (item.insert seg (list silence (list (list "end" (+ singing_global_time*
+                                                                extra-pause-length))))
+                             'after)))))))
+
+;;
+;; singing_fix_segment
+;;
+;; Third pass.  Finds any segments (phones) that we didn't catch earlier
+;; (say if they didn't belong to a syllable, like silence) and sets them
+;; to zero duration
+;;
+
+(define (singing_fix_segment seg)
+  (if (equal? 0.0 (item.feat seg 'end))
+      (if (equal? nil (item.prev seg))
+          (item.set_feat seg 'end 0.0)
+          (item.set_feat seg 'end (item.feat (item.prev seg) 'end)))
+      (if singing-debug
+          (format t "segment: %s end: %f\n" (item.name seg) (item.feat seg 'end)))))
+  
+;; returns the duration of a syllable (stored in its token)
+(define (syl->durations syl)
+  (let ((index (item.feat syl "R:Syllable.pos_in_word"))
+        (durs (singing-feat syl "R:SylStructure.parent.R:Token.parent.dur")))
+    (mapcar parse-number (nth index durs))))
+
+;; returns the duration of the rest following a syllable
+(define (syl->rest syl)
+  (let ((index (item.feat syl "R:Syllable.pos_in_word"))
+        (durs (singing-feat syl "R:SylStructure.parent.R:Token.parent.dur"))
+        (pauselen (singing-feat syl "R:SylStructure.parent.R:Token.parent.rest")))
+    (if (equal? index (- (length durs) 1))
+        (list (or pauselen 0.0))
+        (list 0.0))))
+
+;; get the average duration of a phone
+(define (get_avg_duration phone)
+  (let ((pd (assoc_string phone phoneme_durations)))
+    (if pd
+	(car (cdr pd))
+	0.08)))
+
+;; get the duration offset of a phone (see the description above)
+(define (get_duration_offset phone)
+  (parse-number (car (cdr (assoc_string phone phoneme_offsets*)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Other utility functions
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (char-quote string)
+  (if (member string '("*" "+" "?" "[" "]" "."))
+      (string-append "[" string "]")
+      string))
+
+(define (split-string string separator)
+  (if (string-matches string (string-append ".+" (char-quote separator) ".+"))
+      (cons (string-before string separator)
+            (split-string (string-after string separator) separator))
+      ;; We have to convert the weird XML attribute value type to string
+      (list (string-append string ""))))
+
+(define (string->list string)
+  (mapcar (lambda (s) (split-string s "+")) (split-string string ",")))
+
+(define (singing-append-feature! utt feature value)
+  (let ((tokens (utt.relation.items utt 'Token)))
+    (if tokens
+        ;; we have to wrap value into a list to work around a Festival bug
+        (item.set_feat (car (last tokens)) feature (list value))
+        (begin
+          (utt.relation.append utt 'Token '("" ((name "") (whitespace "")
+                                                (prepunctuation "") (punc ""))))
+          (item.set_feat (car (last (utt.relation.items utt 'Token))) feature (list value))))))
+
+(define (singing-feat item feature)
+  (let ((value (item.feat item feature)))
+    (if (equal? value 0)
+        nil
+        (car value))))
+
+(define (current-language)
+  (cadr (car (assoc 'language (voice.description current-voice)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Initializing and exiting singing mode
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;
+;; singing_init_func
+;;
+
+(defvar singing_previous_eou_tree nil)
+
+(define (singing_init_func)
+  "(singing_init_func) - Initialization for Singing mode"
+  (if (not (symbol-bound? 'phoneme_durations))
+      (set! phoneme_durations '()))
+  ;; use our intonation function
+  (Parameter.set 'Int_Method 'General)
+  (Parameter.set 'Int_Target_Method Int_Targets_General)
+  (set! int_general_params `((targ_func ,singing_f0_targets)))
+  (set! singing-last-f0 nil)
+  ;; use our duration function
+  (Parameter.set 'Duration_Method singing_duration_method)
+  ;; set phoneme corrections for the current language
+  (let ((language 'english
+;         (cadr (assoc 'language
+;                               (cadr (voice.description current-voice))))
+         ))
+    (set! phoneme_offsets* (cdr (assoc language phoneme_offsets))))
+  ;; avoid splitting to multiple utterances with insertion of unwanted pauses
+  (set! singing_previous_eou_tree eou_tree)
+  (set! eou_tree nil)
+  ;; use our xml parsing function
+  (set! singing_previous_elements xxml_elements)
+  (set! xxml_elements singing_xml_elements))
+
+;;
+;; singing_exit_func
+;;
+
+(define (singing_exit_func)
+  "(singing_exit_func) - Exit function for Singing mode"
+  (set! eou_tree singing_previous_eou_tree)
+  (set! xxml_elements singing_previous_elements))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Data tables
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defvar note_names
+  '((C 0)
+    (C# 1)
+    (Db 1)
+    (D 2)
+    (D# 3)
+    (Eb 3)
+    (E 4)
+    (E# 5)
+    (Fb 4)
+    (F 5)
+    (F# 6)
+    (Gb 6)
+    (G 7)
+    (G# 8)
+    (Ab 8)
+    (A 9)
+    (A# 10)
+    (Bb 10)
+    (B 11)
+    (B# 12)
+    (Cb 11)))
+
+;;
+;; The following list contains the offset into each phone that best
+;; represents the perceptual onset of the phone.  This is important
+;; to know to get durations right in singing.  For example, if the
+;; offset for "t" is .060, and you want to start a "t" sound at
+;; time 2.0 seconds, you should actually start the phone playing
+;; at time 1.940 seconds in order for it to sound like the onset of
+;; the "t" is really right at 2.0.
+;;
+;; These were derived empically by looking at and listening to the
+;; waveforms of each phone for mwm's voice.
+;;
+
+(defvar phoneme_offsets
+  `((english (t 0.050)
+             (T 0.050)
+             (d 0.090)
+             (D 0.090)
+             (p 0.080)
+             (b 0.080)
+             (k 0.090)
+             (g 0.100)
+             (9r 0.050) ;; r
+             (l 0.030)
+             (f 0.050)
+             (v 0.050)
+             (s 0.040)
+             (S 0.040)
+             (z 0.040)
+             (Z 0.040)
+             (n 0.040)
+             (N 0.040)
+             (m 0.040)
+             (j 0.090)
+             (E 0.0)
+             (> 0.0)
+             (>i 0.0)
+             (aI 0.0)
+             (& 0.0)
+             (3r 0.0)
+             (tS 0.0)
+             (oU 0.0)
+             (aU 0.0)
+             (A 0.0)
+             (ei 0.0)
+             (iU 0.0)
+             (U 0.0)
+             (@ 0.0)
+             (h 0.0)
+             (u 0.0)
+             (^ 0.0)
+             (I 0.0)
+             (dZ 0.0)
+             (i: 0.0)
+             (w 0.0)
+             (pau 0.0)
+             (brth 0.0)
+             (h# 0.0)
+             )))
+
+(defvar phoneme_offsets* nil)
+
+;;
+;; Declare the new mode to Festival
+;;
+
+(set! tts_text_modes
+      (cons `(singing   ;; mode name
+              ((init_func ,singing_init_func)
+               (exit_func ,singing_exit_func)
+               (analysis_type xml)))
+            tts_text_modes))
+
+(provide 'singing-mode)

CosyVoice-ttsfrd/resource/festival/siod.scm

@@ -0,0 +1,638 @@
+
+
+
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;; DO NOT EDIT THIS FILE ON PAIN OF MORE PAIN.
+ ;;; 
+ ;;; The master copy of this file is in ../../speech_tools/lib/siod/siod.scm
+ ;;; and is copied here at build time.
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+
+
+
+
+
+
+
+
+
+
+;; SIOD: Scheme In One Defun                                  -*-mode: view-*-
+;;
+;; *                        COPYRIGHT (c) 1989-1992 BY                       *
+;; *        PARADIGM ASSOCIATES INCORPORATED, CAMBRIDGE, MASSACHUSETTS.      *
+;; *        See the source file SLIB.C for more information.                 *
+;;
+;; A fair amount of modifications and tidy up was done by AWB, particularly
+;;   * adding documentation strings to all functions/variable
+;;   * removing some example functions not relevant to Festival (or siod)
+;;   * addition of new functions (require provide etc)
+
+;(puts  ";; Optional Runtime Library for Release 2.8
+;")
+
+(define list 
+  (lambda n 
+"(list A0 A1 ...)
+Return list containing A0 A1 ..."
+  n))
+
+(define (caar x) 
+"(caar X)
+Return the (car (car X))."
+  (car (car x)))
+(define (cadr x) 
+"(cadr X)
+Return the (car (cdr X))."
+  (car (cdr x)))
+(define (cdar x)
+"(cdar X)
+Return the (cdr (car X))."
+ (cdr (car x)))
+(define (cddr x) 
+"(cddr X)
+Return the (cdr (cdr X))."
+ (cdr (cdr x)))
+
+(define (caddr x) 
+"(caddr X)
+Return the (car (cdr (cdr X)))."
+  (car (cdr (cdr x))))
+(define (cdddr x) 
+"(cdddr X)
+Return the (cdr (cdr (cdr X)))."
+  (cdr (cdr (cdr x))))
+
+(define consp pair?)
+
+(define (replace before after)
+"(replace BEFORE AFTER)
+Destructively replace contents of cons cell BEFORE with those of
+AFTER."
+  (set-car! before (car after))
+  (set-cdr! before (cdr after))
+  after)
+
+(define (prognify forms)
+  (if (null? (cdr forms))
+      (car forms)
+    (cons 'begin forms)))
+
+(define (defmac-macro form)
+"(defmac-macro MACRONAME FORM)
+Define a macro.  Macro expand FORM in-line."
+  (let ((sname (car (cadr form)))
+	(argl (cdr (cadr form)))
+	(fname nil)
+	(body (prognify (cddr form))))
+    (set! fname (symbolconc sname '-macro))
+    (list 'begin
+	  (list 'define (cons fname argl)
+		(list 'replace (car argl) body))
+	  (list 'define sname (list 'quote fname)))))
+
+(define defmac 'defmac-macro)
+
+(defmac (push form)
+  (list 'set! (caddr form)
+	(list 'cons (cadr form) (caddr form))))
+
+(defmac (pop form)
+  (list 'let (list (list 'tmp (cadr form)))
+	(list 'set! (cadr form) '(cdr tmp))
+	'(car tmp)))
+
+;;;  Have to set var-docstrings to nil first as defvar requires it to be set
+(set! var-docstrings nil)
+(define (add-doc-var varname docstring)
+"(add-doc-var VARNAME DOCSTRING)
+  Add document string DOCSTRING to VARNAME.  If DOCSTRING is nil
+  this has no effect.  If VARNAME already has a document string replace
+  it with DOCSTRING."
+ (if (null? docstring)
+     t
+     (let ((lpair (assq varname var-docstrings)))
+       (if lpair
+	   (set-cdr! lpair docstring)
+	   (set! var-docstrings (cons (cons varname docstring) 
+				      var-docstrings))))))
+
+(set! boundp symbol-bound?)
+
+(defmac (defvar form)
+  (begin  ;; always add the documentation string
+    (add-doc-var (cadr form) (car (cdddr form)))
+    (list 'or
+	(list 'symbol-bound? (list 'quote (cadr form)))
+	(list 'define (cadr form) (caddr form)))))
+
+(defvar var-docstrings nil
+  "var-docstrings
+  An assoc-list of variable names and their documentation strings.")
+
+(defmac (defun form)
+  (cons 'define
+	(cons (cons (cadr form) (caddr form))
+	      (cdddr form))))
+
+(defmac (setq form)
+  (let ((l (cdr form))
+	(result nil))
+    (define (loop)
+      (if l
+	  (begin (push (list 'set! (car l) (cadr l)) result)
+		 (set! l (cddr l))
+		 (loop))))
+    (loop)
+    (prognify (reverse result))))
+  
+(define progn begin)
+
+(defun atom (x)
+"(atom X)
+True if X is not a cons cells, nil otherwise."
+  (not (consp x)))
+
+(define eq eq?)
+
+(defmac (cond form)
+  (cond-convert (cdr form)))
+
+(define null null?)
+
+(defun cond-convert (l)
+  (if (null l)
+      ()
+    (if (null (cdar l))
+	(if (null (cdr l))
+	    (caar l)
+	  (let ((rest (cond-convert (cdr l))))
+	    (if (and (consp rest) (eq (car rest) 'or))
+		(cons 'or (cons (caar l) (cdr rest)))
+	      (list 'or (caar l) rest))))
+      (if (or (eq (caar l) 't)
+	      (and (consp (caar l)) (eq (car (caar l)) 'quote)))
+	  (prognify (cdar l))
+	(list 'if
+	      (caar l)
+	      (prognify (cdar l))
+	      (cond-convert (cdr l)))))))
+
+(defmac (+internal-comma form)
+  (error 'comma-not-inside-backquote))
+
+(define +internal-comma-atsign +internal-comma)
+(define +internal-comma-dot +internal-comma)
+
+(defmac (+internal-backquote form)
+  (backquotify (cdr form)))
+
+(defun backquotify (x)
+"(backquote FORM)
+Backquote function for expanding forms in macros."
+  (let (a d aa ad dqp)
+    (cond ((atom x) (list 'quote x))
+	  ((eq (car x) '+internal-comma) (cdr x))
+	  ((or (atom (car x))
+	       (not (or (eq (caar x) '+internal-comma-atsign)
+			(eq (caar x) '+internal-comma-dot))))
+	   (setq a (backquotify (car x)) d (backquotify (cdr x))
+		 ad (atom d) aa (atom a)
+		 dqp (and (not ad) (eq (car d) 'quote)))
+	   (cond ((and dqp (not (atom a)) (eq (car a) 'quote))
+		  (list 'quote (cons (cadr a) (cadr d))))
+		 ((and dqp (null (cadr d)))
+		  (list 'list a))
+		 ((and (not ad) (eq (car d) 'list))
+		  (cons 'list (cons a (cdr d))))
+		 (t (list 'cons a d))))
+	  ((eq (caar x) '+internal-comma-atsign)
+	   (list 'append (cdar x) (backquotify (cdr x))))
+	  ((eq (caar x) '+internal-comma-dot)
+	   (list 'nconc (cdar x)(backquotify (cdr x)))))))
+
+
+(defun append n
+"(append L0 L1 ...)
+Append each list to the first list in turn."
+  (appendl n))
+
+(defun appendl (l)
+  (cond ((null l) nil)
+	((null (cdr l)) (car l))
+	((null (cddr l))
+	 (append2 (car l) (cadr l)))
+	('else
+	 (append2 (car l) (appendl (cdr l))))))
+
+(defun append2 (a b)
+  (if (null a)
+      b
+      (begin
+        (let ((x (reverse a))
+              (y b))
+          (while x
+            (set! y (cons (car x) y))
+            (set! x (cdr x)))
+          y))))
+
+(defun rplacd (a b)
+"(replacd A B)
+Destructively replace the cdr of A with B."
+  (set-cdr! a b)
+  a)
+
+(defun nconc (a b)
+"(nconc A B)
+Destructively append B to A, if A is nil return B."
+  (if (null a)
+      b
+    (rplacd (last a) b)))
+
+(defun last (a)
+"(last A)
+Last (cdr) element in list A."
+  (cond ((null a) (error'null-arg-to-last))
+	((null (cdr a)) a)
+	((last (cdr a)))))
+
+(define (remove i l)
+"(remove ITEM LIST)
+(Non-destructively) remove ITEM from LIST."
+  (cond    
+   ((null l) nil)
+   ((eq? i (car l))
+    (cdr l))
+   (t
+    (cons (car l) (remove i (cdr l))))))
+
+(define (remove-duplicates l)
+"(remove-duplicates LIST)
+Remove duplicate items in LIST."
+ (cond
+  ((null l) l)
+  ((member_string (car l) (cdr l))
+   (remove-duplicates (cdr l)))
+  (t
+   (cons (car l) (remove-duplicates (cdr l))))))
+
+(define (nth n l)
+  "(nth N LIST)
+Returns nth car of LIST, 0 is car."
+  (if (< n 1)
+      (car l)
+      (nth (- n 1) (cdr l))))
+
+(define (position thing l)
+  "(position thing l)
+What position is thing in l, -1 if it doesn't exist."
+  (let ((p 0) (m l))
+    (while (and m (not (equal? thing (car m))))
+      (set! p (+ 1 p))
+      (set! m (cdr m)))
+    (if m p nil)))
+
+(define (nth_cdr n l)
+  "(nth_cdr N LIST)
+Returns nth cdr of LIST, 0 is LIST."
+  (if (< n 1)
+      l
+      (nth_cdr (- n 1) (cdr l))))
+
+(define (<= a b)
+"(<= NUM1 NUM2)
+  Returns t if NUM1 is less than or equal to NUM2, nil otherwise.  An error is
+  given is either argument is not a number."
+  (or (< a b)
+      (equal? a b)))
+
+(define (>= a b)
+"(>= NUM1 NUM2)
+  Returns t if NUM1 is greater than or equal to NUM2, nil otherwise.  
+  An error is given is either argument is not a number."
+  (or (> a b)
+      (equal? a b)))
+
+(define (approx-equal? a b diff)
+  "(approx-equal? a b diff)
+True is the difference between a b is less than diff.  This allows equality
+between floats which may have been written out and read in and hence have
+slightly different precision."
+  (< (if (> a b) (- a b) (- b a)) diff))
+
+(define (assoc_string key alist)
+  "(assoc_string key alist)
+Look up key in alist using string-equal.  This allow indexing by
+string rather than just symbols."
+  (cond
+   ((null alist) nil)
+   ((string-equal key (car (car alist))) (car alist))
+   (t (assoc_string key (cdr alist))))
+)
+
+(defvar *fasdump-hash* t)
+
+(defun fasl-open (filename mode)
+"(fasl-open FILENAME MODE)
+Open fasl FILENAME as MODE. Returns a fasl-table."
+  (list (fopen filename mode)
+	(if (or (equal? mode "rb") *fasdump-hash*)
+	    (cons-array 100))
+	;; If this is set NIL, then already hashed symbols will be
+	;; optimized, and additional ones will not.
+	0))
+
+(defun fasl-close (table)
+"(fasl-close TABLE)
+Close fasl table."
+  (fclose (car table)))
+
+(defun fasload args
+"(fasload FILENAME ARGS)
+Fast load FILENAME."
+  (let ((filename (car args))
+	(head (and (cadr args) (cons nil nil))))
+    (let ((table (fasl-open filename "rb"))
+	  (exp)
+	  (tail head))
+      (while (not (eq table (setq exp (fast-read table))))
+	(cond (head
+	       (setq exp (cons exp nil))
+	       (set-cdr! tail exp)
+	       (setq tail exp))
+	      ('else
+	       (eval exp))))
+      (fasl-close table)
+      (and head (cdr head)))))
+
+(defun fasdump (filename forms)
+"(fasdump FILENAME FORMS)
+Fast dump FORMS into FILENAME."
+  (let ((table (fasl-open filename "wb"))
+	(l forms))
+    (while l
+      (fast-print (car l) table)
+      (set! l (cdr l)))
+    (fasl-close table)))
+
+(defun compile-file (filename)
+"(compile-file FILENAME)
+Compile lisp forms in FILENAME.scm to FILENAME.bin."
+  (let ((forms (load (string-append filename ".scm") t)))
+    (puts "Saving forms
+")
+    (fasdump (string-append filename ".bin")
+	     forms)))
+
+(defvar *properties* (cons-array 100)
+  "*properties*
+Array for holding symbol property lists.")
+
+(defun get (sym key)
+"(get SYM KEY)
+Get property named KEY for SYM."
+  (cdr (assq key (href *properties* sym))))
+
+(defun putprop (sym val key)
+"(putprop SYM VAL KEY)
+Put property VAL named KEY for SYM."
+  (let ((alist (href *properties* sym)))
+    (let ((cell (assq key alist)))
+      (cond (cell
+	     (set-cdr! cell val))
+	    ('else
+	     (hset *properties* sym (cons (cons key val) alist))
+	     val)))))
+
+;;(define (mapcar1 f l1)
+;;  (and l1 (cons (f (car l1)) (mapcar1 f (cdr l1)))))
+
+;; An iterative version of the above
+(define (mapcar1 f l1)
+  (let ((l2 l1) (r nil))
+    (while l2
+      (set! r (cons (f (car l2)) r))
+      (set! l2 (cdr l2)))
+    (reverse r)))
+
+;;(define (mapcar2 f l1 l2)
+;;  (and l1 l2 (cons (f (car l1) (car l2)) (mapcar2 f (cdr l1) (cdr l2)))))
+
+;; An iterative version
+(define (mapcar2 f l1 l2)
+  (let ((a1 l1) (a2 l2) (r nil))
+    (while a1
+      (set! r (cons (f (car a1) (car a2)) r))
+      (set! a1 (cdr a1))
+      (set! a2 (cdr a2)))
+    (reverse r)))
+
+(define (mapcar . args)
+"(mapcar FUNCTION ARGS [ARGS2])
+Apply FUNCTION to each member of ARGS (and [ARGS2]), returning list of
+return values."
+  (cond ((null args)
+	 (error "too few arguments"))
+	((null (cdr args))
+	 (error "too few arguments"))
+	((null (cdr (cdr args)))
+	 (mapcar1 (car args) (car (cdr args))))
+	((null (cdr (cdr (cdr args))))
+	 (mapcar2 (car args) (car (cdr args)) (car (cdr (cdr args)))))
+	('else
+	 (error "two many arguments"))))
+
+;; will be set automatically on start-up
+(defvar libdir '<automatically_set>
+  "libdir
+  The pathname of the run-time libary directory.  Note reseting is 
+  almost definitely not what you want to do.   This value is automatically
+  set at start up from the value specifed at compile-time or the value
+  specifed with --libdir on the command line.  A number of other variables
+  depend on this value.")
+
+(defvar load-path (list libdir)
+  "load-path
+  A list of directories containing .scm files.  Used for various functions
+  such as load_library and require.  Follows the same use as EMACS.  By
+  default it is set up to the compile-time library directory but may be 
+  changed by the user at run time, by adding a user's own library directory
+  or even replacing all of the standard library. [see Site initialization]")
+
+;; will be set automatically on start-up
+(defvar *ostype* 'unknown
+  "*ostype*
+  Contains the name of the operating system type that Festival is running
+  on, e.g. SunOS5, FreeBSD, linux etc.  The value is taken from the Makefile
+  variable OSTYPE at compile time.")
+
+(defvar etc-path (path-append libdir "etc/" *ostype*)
+  "etc-path
+  A list of directories where binaries specific to Festival may be located.
+  This variable is automatically set to LIBDIR/etc/OSTYPE/
+  and that path is added to the end of the UNIX PATH environment variable.")
+
+(define (library_expand_filename fname)
+"(library_expand_filename FILENAME)
+  Search for filename by appending FILENAME to each member of load-path.
+  Full expanded pathname is returned.  If not found in load-path FILENAME
+  is returned."
+  (let ((p load-path)
+	(found nil))
+    (while (and p (null? found))
+      (let ((pot-file (path-append (car p) fname)))
+	(if (probe_file pot-file)
+	    (setq found pot-file))
+	(setq p (cdr p))))
+    (if (null? found)
+	fname
+      found)))
+
+(define (load_library fname)
+"(load_library FILENAME)
+  Load file from library, appends FILENAME to each path in load-path
+  until a valid file is found. If none found loads name itself"
+  (load (library_expand_filename fname)))
+
+(define (fasload_library fname)
+"(fasload_library FILENAME)
+  Load binary file from library"
+  (fasload (library_expand_filename fname)))
+
+(define (member item list)
+"(member ITEM LIST)
+  Returns subset of LIST whose car is ITEM if it exists, nil otherwise."
+  (if (consp list)
+      (if (equal? item (car list))
+	  list
+	(member item (cdr list)))
+    nil))
+
+(define (member_string item list)
+"(member_string STRING LIST)
+  Returns subset of LIST whose car is STRING if it exists, nil otherwise."
+  (if (consp list)
+      (if (string-equal item (car list))
+	  list
+	(member_string item (cdr list)))
+    nil))
+
+(defvar provided nil
+  "provided
+  List of file names (omitting .scm) that have been provided.  This list
+  is checked by the require function to find out if a file needs to be 
+  loaded.  If that file is already in this list it is not loaded.  Typically
+  a file will have (provide 'MYNAME) at its end so that a call to 
+  (require 'MYNAME) will only load MYNAME.scm once.")
+
+(define (require fname)
+"(require FILENAME)
+  Checks if FNAME is already provided (member of variable provided) if not 
+  loads it, appending \".scm\" to FILENAME.  Uses load_library to find 
+  the file."
+ (let ((bname (intern (basename fname))))
+  (if (null? (member bname provided))
+      (progn 
+        ;;; Compiled files aren't faster, so we don't do this
+	; (fasload_library (string-append fname ".bin"))
+       (load_library (string-append fname ".scm"))
+	't)
+    nil)))
+
+(define (request fname)
+"(request FILENAME)
+  Checks if FNAME is already provided (member of variable provided) if not 
+  tries to loads it, appending \".scm\" to FILENAME.  Uses load_library 
+  to find the file. Unlike require, fname isn't found no error occurs"
+ (unwind-protect (require fname)))
+
+(define (provide fname)
+"(provide FILENAME)
+  Adds FNAME to the variable provided (if not already there).  This means
+  that future calls to (require FILENAME) will not cause FILENAME to
+  be re-loaded."
+  (if (null? (member fname provided))
+      (set! provided (cons fname provided))))
+
+(define (apply_hooks hooks obj)
+"(apply_hooks HOOK OBJ)
+  Apply HOOK(s) to OBJ.  HOOK is a function or list of functions that
+  take one argument."
+(cond
+ ((null? hooks) obj)
+ ((consp hooks) 
+  (apply_hooks (cdr hooks) ((car hooks) obj)))
+ (t (hooks obj))))
+
+(define (apply func args)
+"(apply FUNC ARGS)
+Call FUNC with ARGS as arguments."
+  (eval
+   (cons func
+	 (mapcar (lambda (a) (list 'quote a)) args))))
+
+(defmac (autoload form)
+"(autoload FUNCTION FILENAME DOCSTRING)
+Define FUNCTION that when called automatically loads FILENAME
+and calls FUNCTION (assumed to be defined in FILENAME)."
+  (list 'define
+	(cadr form)
+	(list 
+	 'lambda
+	 'n
+	 (list 'let (list (list 'me  (cadr form)))
+	       (list 'require (car (cdr (cdr form))))
+	       (list 'if (list 'eq 'me (cadr form))
+		     (list 'error
+			   (list 'string-append 
+				 "autoload: \""
+				 (car (cdr (cdr form)))
+				 ".scm\" does not define "
+				 (list 'quote (cadr form)))))
+	      
+	       (list 'apply (cadr form) 'n)))))
+
+(define (:backtrace frame)
+"(:backtrace [FRAME])
+This function called *immediately* after an error will display a backtrace
+of the functions evaluated before the error.  With no arguments it
+lists all stack frames, with the (possibly shortened) forms that were
+evaluated at that level.  With a numeric argument it displays
+the form at that level in full.  This function only works at
+top level in the read-eval-print loop (command interpreter).  Note
+that any valid command will leave the backtrace stack empty. Also
+note that backtrace itself does not reset the backtrace, unless you
+make an error in calling it."
+
+"The function is interpreted specially by the read-eval-interpreter
+and hence has no body, its actual body is defined in 
+src/arch/siod-3.0/slib.cc."
+)
+
+(defvar hush_startup nil
+  "hush_startup
+  If set to non-nil, the copyright banner is not displayed at start up.")
+
+(defvar editline_histsize 256
+  "editline_histsize
+  The number of lines to be saved in the users history file when a 
+  Festival session ends.  The histfile is \".festival_history\" in the
+  users home directory.  Note this value is only checked when the 
+  command interpreter is started, hence this should be set in a user's
+  \".festivalrc\" or system init file.  Reseting it at the command
+  interpreter will have no effect.")
+
+(defvar editline_no_echo (getenv "EMACS")
+  "editline_no_echo
+  When running under Emacs as an inferior process, we don't want to 
+  echo the content of the line, only the prompt.")
+
+(defvar ! nil
+  "!
+  In interactive mode, this variable's value is the return value of the
+  previously evaluated expression.")
+
+(provide 'siod)

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

@@ -0,0 +1,336 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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.                                                       ;;
+;;;                                                                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;;  Support for an SGML based mark-up language used in the SOLE
+;;;  project.  This is all still experimental.
+;;;
+;;;  This currently treats one file as one utterance (to make dealing with
+;;;  the SOLE museaum database easy
+
+(set! soleml_word_features_stack nil)
+(defvar sole_current_node nil)
+
+(define (soleml_token_to_words utt token name)
+  "(soleml_token_to_words utt token name)
+SOLEML mode token specific analysis."
+  (cond
+
+   (t
+    (soleml_previous_token_to_words utt token name))))
+
+(define (voice_soleml)
+"(soleml_voice)
+Speaker specific initialisation for SOLE museum data."
+  (voice_rab_diphone)
+  ;; Utterances only come at end of file
+  (set! eou_tree '((0)))
+)
+
+(defvar soleml_elements
+'(
+  ("(SOLEML" (ATTLIST UTT)
+    ;; required to identify type 
+    (voice_soleml)  ;; so we know what state we start in
+    (set! soleml_utt (Utterance Tokens nil))
+    (utt.stream.create soleml_utt 'Token)
+    (utt.relation.create soleml_utt 'SOLEML)
+    (set! sole_current_node 
+	  (utt.relation_append soleml_utt 'SOLEML (cons "sole-ml" ATTLIST)))
+    soleml_utt
+  )
+  (")SOLEML" (ATTLIST UTT)
+    ;; required to identify end token
+    ;; Don't really want to synthesize this
+    ;; (xxml_synth UTT)  ;;  Synthesis the remaining tokens
+    (set! soleml_utt UTT)	     
+    UTT
+  )
+  ;; Utterance break elements
+  ("(LANGUAGE" (ATTLIST UTT)
+   ;; Select a new language
+   (select_language (car (xxml_attval "NAME" ATTLIST)))
+   UTT)
+  ("(VOICE" (ATTLIST UTT)
+   ;;(xxml_synth UTT)
+   ;; Select a new voice
+   (cond
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male1)
+     (voice_soleml_diphone))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male2)
+     (voice_soleml_diphone))
+    ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male3)
+     (voice_soleml_diphone))
+    (t
+     (print "SOLEML: selecting unknown voice")
+     (voice_soleml_diphone)))
+   UTT)
+  ;; phrase-boundary  // mark on token (??)
+  ;; punct-elem     // mark on token
+  ;; sem-elem
+  ;; text-elem      // ignore
+  ;; rhet-elem  has nucleus and satellite
+  ;; anaphora-elem
+  ;; syn-elem
+  ;; info-struct-elem
+  ;; other-elem
+  ("(PUNCT-ELEM" (ATTLIST UTT) 
+   (soleml_push_word_features)
+   (set! xxml_word_features
+	  (cons (list "punct-elem" "1")
+		(soleml_conv_attlist ATTLIST)))
+   UTT)
+  (")PUNCT-ELEM" (ATTLIST UTT) 
+   (set! xxml_word_features (soleml_pop_word_features))
+   UTT)
+  ("(PHRASE-BOUNDARY" (ATTLIST UTT)
+   (if (string-equal "4" (car (xxml_attval "STRENGTH" ATTLIST)))
+       (begin
+;;	 (xxml_synth UTT)
+	 UTT)
+       (let ((last_token (car (last (utt.stream UTT 'Token)))))
+	 (if last_token
+	     (item.set_feat last_token "pbreak" "B"))
+	 UTT)))
+  ;; For each recursive element simply build a new node
+  ("(RHET-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'rhet-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")RHET-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(RHET-EMPH" (ATTLIST UTT)
+   (let ((sdesc (list 'rhet-emph (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")RHET-EMPH" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(ANAPHORA-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'anaphora-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")ANAPHORA-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(SYN-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'syn-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")SYN-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(CONNECTIVE" (ATTLIST UTT)
+   (let ((sdesc (list 'connective (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")CONNECTIVE" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(TEXT-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'text-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")TEXT-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(SEM-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'sem-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")SEM-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(INFO-STRUCT-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'info-struct-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")INFO-STRUCT-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(OTHER-ELEM" (ATTLIST UTT)
+   (let ((sdesc (list 'other-elem (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")OTHER-ELEM" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(NUCLEUS" (ATTLIST UTT)
+   (let ((sdesc (list 'nucleus (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")NUCLEUS" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ("(SATELLITE" (ATTLIST UTT)
+   (let ((sdesc (list 'satellite (soleml_conv_attlist ATTLIST))))
+     (set! sole_current_node
+	   (node.append_daughter sole_current_node sdesc))
+     UTT))
+  (")SATELLITE" (ATTLIST UTT)
+    (set! sole_current_node (node.parent sole_current_node))
+    UTT)
+  ;; Other control functions (probably not used in SOLE)  
+  ("(CALL" (ATTLIST UTT)
+;;   (xxml_synth UTT)
+   (if (string-matches (car (xxml_attval "ENGID" ATTLIST)) "festival.*")
+       (let ((comstr ""))
+	 (mapcar
+	  (lambda (c) (set! comstr (string-append comstr " " c)))
+	  (xxml_attval "COMMAND" ATTLIST))
+	 (eval (read-from-string comstr))))
+   UTT)
+  ("(DEFINE" (ATTLIST UTT)
+;;    (xxml_synth UTT)
+    (if (not (string-equal "NATIVE" (car (xxml_attval "SCHEME" ATTLIST))))
+	(format t "DEFINE: unsupported SCHEME %s, definition ignored\n"
+		(car (xxml_attval "SCHEME" ATTLIST)))
+	(lex.add.entry
+	 (list
+	  (car (xxml_attval "WORDS" ATTLIST))   ;; head form
+	  nil          ;; pos
+	  (lex.syllabify.phstress (xxml_attval "PRONS" ATTLIST)))))
+    UTT)
+  ("(SOUND" (ATTLIST UTT)
+;;   (xxml_synth UTT)
+   (if (not soleml_omitted_mode)
+       (apply_hooks tts_hooks
+		    (eval (list 'Utterance 'Wave 
+				(car (xxml_attval "SRC" ATTLIST))))))
+   UTT)
+  ("(EMPH" (ATTLIST UTT)
+   ;; 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
+   (soleml_push_word_features)
+   (set! xxml_word_features 
+	 (cons (list "EMPH" "1") xxml_word_features))
+   UTT)
+  (")EMPH" (ATTLIST UTT)
+   (set! xxml_word_features (soleml_pop_word_features))
+   UTT)
+  ("(WORD" (ATTLIST UTT)
+   ;; a word in-line
+   (let ((name   (xxml_attval "NAME" ATTLIST))
+	 (pos    (xxml_attval "POS" ATTLIST))
+	 (accent (xxml_attval "ACCENT" ATTLIST))
+	 (tone   (xxml_attval "TONE" ATTLIST))
+	 (phonemes (xxml_attval "PHONEMES" ATTLIST))
+	 token)
+     (utt.item.insert UTT 'Token)  ;; add new Token
+     (set! token (utt.stream.tail UTT 'Token))
+     (item.set_name token (car name))
+     (if pos (item.set_feat token "pos" (car pos)))
+     (if accent (item.set_feat token "accent" (car accent)))
+     (if tone (item.set_feat token "tone" (car tone)))
+     (if phonemes (item.set_feat token "phonemes" 
+				       (format nil "%l" phonemes)))
+     UTT))
+))
+
+(define (soleml_init_func)
+  "(soleml_init_func)
+Initialisation for SOLEML mode"
+  (voice_soleml)
+  (set! soleml_previous_elements xxml_elements)
+  (set! xxml_elements soleml_elements)
+  (set! xxml_token_hooks soleml_token_function)
+  (set! soleml_previous_token_to_words english_token_to_words)
+  (set! english_token_to_words soleml_token_to_words)
+  (set! token_to_words soleml_token_to_words))
+
+(define (soleml_exit_func)
+  "(soleml_exit_func)
+Exit function for SOLEML mode"
+  (set! xxml_elements soleml_previous_elements)
+  (set! token_to_words soleml_previous_token_to_words)
+  (set! english_token_to_words soleml_previous_token_to_words))
+
+(define (soleml_token_function si)
+"(soleml_token_function si)
+This is called for each token found."
+  (node.append_daughter sole_current_node si))
+
+(define (soleml_push_word_features)
+"(soleml_push_word_features)
+Save current word features on stack."
+  (set! soleml_word_features_stack 
+	(cons xxml_word_features soleml_word_features_stack)))
+
+(define (soleml_pop_word_features)
+"(soleml_pop_word_features)
+Pop word features from stack."
+  (let ((r (car soleml_word_features_stack)))
+    (set! soleml_word_features_stack (cdr soleml_word_features_stack))
+    r))
+
+(define (soleml_conv_attlist alist)
+"(soleml_conv_attlist alist)
+Flatten alist arguments."
+  (cond
+   ((null alist) nil)
+   ((null (car (cdr (car alist))))
+     (soleml_conv_attlist (cdr alist)))
+   ((equal? (length (car (cdr (car alist)))) 1)
+    (cons
+     (list (car (car alist)) (car (car (cdr (car alist)))))
+     (soleml_conv_attlist (cdr alist))))
+   (t
+    (cons
+     (list (car (car alist)) (format nil "%l" (car (cdr (car alist)))))
+     (soleml_conv_attlist (cdr alist))))))
+
+(set! tts_text_modes
+   (cons
+    (list
+      'soleml   ;; mode name
+      (list         ;; email mode params
+       (list 'init_func soleml_init_func)
+       (list 'exit_func soleml_exit_func)
+       '(analysis_type xxml)
+       (list 'filter 
+	     (format nil "%s -D %s " sgml_parse_progname libdir))))
+    tts_text_modes))
+
+(provide 'soleml-mode)

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,815 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;                                                                       ;;
+;;;                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 (downcase name) "al'ar")
+   (list "Allar"))
+  ((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 "IT")
+   (list (list '(name "I") (list 'pos token.letter_pos)) "T"))
+  ((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].*")
+                 (string-equal (item.feat token "p.punc") 0))
+			 ;; (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")
+                (string-equal (item.feat token "p.punc") 0))
+	   (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/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)

CosyVoice-ttsfrd/resource/jprsc/COPYING

@@ -0,0 +1,100 @@
+Copyright (c) 2009, Nara Institute of Science and Technology, Japan.
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+Redistributions of source code must retain the above copyright notice,
+this list of conditions and the following disclaimer.
+Redistributions in binary form must reproduce the above copyright
+notice, this list of conditions and the following disclaimer in the
+documentation and/or other materials provided with the distribution.
+Neither the name of the Nara Institute of Science and Technology
+(NAIST) nor the names of its contributors may be used to endorse or
+promote products derived from this software without specific prior
+written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Copyright (c) 2011-2017, The UniDic Consortium
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+ * Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+ * Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the
+   distribution.
+
+ * Neither the name of the UniDic Consortium nor the names of its
+   contributors may be used to endorse or promote products derived
+   from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+/* ----------------------------------------------------------------- */
+/*           The Japanese TTS System "Open JTalk"                    */
+/*           developed by HTS Working Group                          */
+/*           http://open-jtalk.sourceforge.net/                      */
+/* ----------------------------------------------------------------- */
+/*                                                                   */
+/*  Copyright (c) 2008-2016  Nagoya Institute of Technology          */
+/*                           Department of Computer Science          */
+/*                                                                   */
+/* All rights reserved.                                              */
+/*                                                                   */
+/* Redistribution and use in source and binary forms, with or        */
+/* without modification, are permitted provided that the following   */
+/* conditions are met:                                               */
+/*                                                                   */
+/* - Redistributions of source code must retain the above copyright  */
+/*   notice, this list of conditions and the following disclaimer.   */
+/* - Redistributions in binary form must reproduce the above         */
+/*   copyright notice, this list of conditions and the following     */
+/*   disclaimer in the documentation and/or other materials provided */
+/*   with the distribution.                                          */
+/* - Neither the name of the HTS working group nor the names of its  */
+/*   contributors may be used to endorse or promote products derived */
+/*   from this software without specific prior written permission.   */
+/*                                                                   */
+/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND            */
+/* CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,       */
+/* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF          */
+/* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE          */
+/* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS */
+/* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,          */
+/* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED   */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,     */
+/* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON */
+/* ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,   */
+/* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    */
+/* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE           */
+/* POSSIBILITY OF SUCH DAMAGE.                                       */
+/* ----------------------------------------------------------------- */

CosyVoice-ttsfrd/resource/jprsc/char.bin

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