#!/bin/sh
#####################################################-*-mode:shell-script-*-
##                                                                       ##
##                   Carnegie Mellon University and                      ##
##                   Alan W Black and Kevin A. Lenzo                     ##
##                      Copyright (c) 2000-2001                          ##
##                        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.                                                      ##
##                                                                       ##
##  CARNEGIE MELLON UNIVERSITY 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 CARNEGIE MELLON UNIVERSITY 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.                                                       ##
##                                                                       ##
###########################################################################
##                                                                       ##
##  This build a three level multi-resolution synthesizer, it assumes    ##
##  you have an appropriate festvox/build_clunits.scm with the syllabic  ##
##  function defined                                                     ##
##                                                                       ##
##  This is still pretty experimental at the moment, dont expect too     ##
##  much of this                                                         ##
##                                                                       ##
##                                                                       ##
##  Replace INST LANG VOX and PROMPT with values appropriate for you db  ##
##                                                                       ##
###########################################################################

LANG=C; export LANG

  festival -b festvox/build_clunits.scm "(set! INST_LANG_VOX::build_stage 'phone)" '(build_clunits "etc/txt.done.data.train")'
  cp -p festival/trees/INST_LANG_VOX.tree festival/trees/INST_LANG_VOX.phone.tree 
  cp -p festival/clunits/INST_LANG_VOX.catalogue festival/clunits/INST_LANG_VOX.phone.catalogue

  festival -b festvox/build_clunits.scm "(set! INST_LANG_VOX::build_stage 'diphone)" '(build_clunits "etc/txt.done.data.train")'
  cp -p festival/trees/INST_LANG_VOX.tree festival/trees/INST_LANG_VOX.diphone.tree 
  cp -p festival/clunits/INST_LANG_VOX.catalogue festival/clunits/INST_LANG_VOX.diphone.catalogue

  festival -b festvox/build_clunits.scm "(set! INST_LANG_VOX::build_stage 'syllable)" '(build_clunits "etc/txt.done.data.train")'
  cp -p festival/trees/INST_LANG_VOX.tree festival/trees/INST_LANG_VOX.syl.tree 
  cp -p festival/clunits/INST_LANG_VOX.catalogue festival/clunits/INST_LANG_VOX.syl.catalogue

for i in festival/clunits/INST_LANG_VOX.*.catalogue 
do
   sed '1,/EST_Header_End/d' $i
done >festival/clunits/INST_LANG_VOX.log
head -5 festival/clunits/INST_LANG_VOX.syl.catalogue | sed 's/^NumEntries .*$/NumEntries '`cat festival/clunits/INST_LANG_VOX.log | wc -l | awk '{printf("%s",$1)}'`'/' >festival/clunits/INST_LANG_VOX.head
cat festival/clunits/INST_LANG_VOX.head festival/clunits/INST_LANG_VOX.log >festival/clunits/INST_LANG_VOX.catalogue

echo "(set! clunits_selection_trees '(" >festival/trees/INST_LANG_VOX.tree
for i in festival/trees/INST_LANG_VOX.*.tree
do
   sed '1,/clunits_selection_trees/d' $i
done | grep -v "^))" >>festival/trees/INST_LANG_VOX.tree
echo "))" >>festival/trees/INST_LANG_VOX.tree




