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

Improvements in ló case, still problematic for kő though

Browse Source
This commit is contained in:
Julia Jansson
2020-03-31 20:07:56 +02:00
parent 91f7e2e0e8
commit 29e46f29cf
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/hungarian/NounMorphoHun.gf
View File

@@ -48,15 +48,20 @@ oper
in mkNoun sör ;
--Handles words like "ló, kő" which are "lovak, kövek" in plural
--TODO: not fixed, right now "lovok" and "kövök"
--TODO: "kövek" irregular? "kövekhöz" should be "kövekhez", but "kőhöz" is correct...
dLó : Str -> Noun = \ló ->
let lo = shorten ló ;
lov = lo + "v" ;
nLov = mkNoun lov ;
a : Str = case ló of {
_ + ("ö" | "ő") => "e" ;
_ + ("o" | "ó") => "a" } ;
lova = lov + a ;
nLova = mkNoun lova ;
nLó = mkNoun ló ;
in {s = \\n,c => case <n,c> of {
-- All plural forms and Sg Acc use the "lov" stem
<Pl,_>|<Sg,Acc> => nLov.s ! n ! c ;
<Pl,_>|<Sg,Acc> => nLova.s ! n ! c ;
-- The rest of the forms are formed with the regular constructor,
-- using "ló" as the stem.