msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-22 07:38:41 +02:00
parent 49fbbffacc
commit 7ba3842ced
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/hungarian/NounMorphoHun.gf
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.