package require emu::autobuild
proc AutoBuildInit {template} {
global wordpath
global lex
global phonemes
# make prules a global variable
global prules

set wordpath e:/d/timetable/orthography
InitialiseDict lex E:/d/timetable/dictgerman.txt
InitialiseDict phonemes E:/d/timetable/phonemesgerman.txt
# Read in the text file containing the rules
set prules [ReadLevelRules E:/d/timetable/prules.txt]

}
proc AutoBuild {template tree} {
global wordpath
global lex
global phonemes
# make prules a global variable
global prules
source "e:/d/labfromfile.tcl"
AddLabelsFromFile $template $tree $wordpath Text
LevelFromDict $tree Text Phoneme lex
source E:/d/timetable/clusters.txt
Syllabify $template $tree Phoneme Syllable cons
# comment out this next line!!!
# InsertWordBoundaries $template $tree phonemes Phoneme Phonetic
# link Phonetic and Broad levels
MapLevels $template $tree Broad Phonetic $prules
InsertWordBoundaries $template $tree phonemes Phoneme Broad
}









