#!/bin/sh
#
#  Converts cmulexicon to Festival format
#
#  usage:  cmu2ft cmudict.0.1 cmu_lex.scm

echo >$2
echo ";; CMUDICT Converted to Festival lexicon format" >>$2
cat $1 | tr "[A-Z]" "[a-z]" |
sed 's/er0/er0 r/' | sed 's/er1/er1 r/' | sed 's/er2/er2 r/' |
awk '{printf("(")
      printf("\"%s\" nil (%s",$1,$2)
      for (i=3; i <= NF; i++)
        printf " %s",$i
      printf "))\n"} ' >> $2
