The Phones Module - Tcl Scripts

#
# This script will give you the pronounciation (monophone sequence) of a 
# named word for a given dictionary. The dictionary itself does not store
# monophone names but only their indices. 
# This script knows that the Phones object that is used by the
# dictionary can be accessed via $dc.phones. The name method of the
# Phones object will transform the monophone indices into ASCII names.
#

proc getPhones { dc word } {
     return "[ $dc.phones name [ lindex [ $dc:$word ] 1 ] ]" 
}