(Hun) For multiwords, get harmony of the last word.

This commit is contained in:
Inari Listenmaa
2020-06-22 07:38:41 +02:00
parent 49fbbffacc
commit 7ba3842ced

View File

@@ -471,10 +471,14 @@ oper
} ; } ;
-- Function to get a harmony from a string -- Function to get a harmony from a string
getHarm : Str -> Harm = \s -> case s of { getHarm : Str -> Harm = \s ->
_ + #back + _ => H_a ; let lastWord : Str = case s of {
_ + #front_rounded + (#c|"") + (#c|"") => H_o ; x + " " + y => y ;
_ => H_e _ => s } ;
in case lastWord of {
_ + #back + _ => H_a ;
_ + #front_rounded + (#c|"") + (#c|"") => H_o ;
_ => H_e
} ; } ;
-- Used as a table of allomorphs for a give case. -- Used as a table of allomorphs for a give case.