# Lingusitics/CSE 472
# Autumn 2004
# Assignment 5

# FSTs for the name roots and the suffixes

define Roots [{K'ay}|{B'ender}|{Part'ee}|{H'aegeman}|{McC'awley}|{Charbonn'eau}];
define Suffixes [{+ton}|{+ski}|0];
define underlying [Roots Suffixes];

# Expressions for vowels and consonants

define V [a|e|i|o|u|y];
define C \V;

# a rule that removes the original stress when -ski is the suffix

define RemoveOldStress [ ' -> 0 || _ ?* {+ski} ];

# a rule that places stress on the syllable before -ski

define NewSkiStress [[..] -> ' || [C+|.#.] _ V+ C* {+ski}];

# a rule to remove morpheme boundaries

define RemoveBoundaries [%+ -> 0];

# compose them all together

define Final [underlying .o. RemoveOldStress .o. NewSkiStress .o. RemoveBoundaries];

read regex Final;