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

(Dut) Change order of cases in smart paradigm for nouns

Browse Source
This commit is contained in:
Inari Listenmaa
2018-06-08 15:01:41 +02:00
parent 5e4d2e654d
commit 2bc8b35e57
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/dutch/ResDut.gf
View File

@@ -47,9 +47,10 @@ resource ResDut = ParamX ** open Prelude, Predef in {
_ + ("ie"|"ee") => mkNoun s (s + "ën") Utr ; -- zee→zeeën, knie→knieën. _ + ("ie"|"ee") => mkNoun s (s + "ën") Utr ; -- zee→zeeën, knie→knieën.
-- olie→oliën, industrie→industrieën with 2-arg constructor. -- olie→oliën, industrie→industrieën with 2-arg constructor.
_ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ; _ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ;
b + #diphthong + ? => mkNoun s (endCons s + "en") Utr ; -- boek→boeken
b + v@#dupVow + c@? => mkNoun s (b + shortVoc v c + "en") Utr ;
b + v@#vowel + c@#dupCons => mkNoun s (b + v + c + c + "en") Utr ; b + v@#vowel + c@#dupCons => mkNoun s (b + v + c + c + "en") Utr ;
b + v@#dupVow + c@? => mkNoun s (b + shortVoc v c + "en") Utr ;
b + #diphthong + ? => mkNoun s (endCons s + "en") Utr ;
_ + "e" => mkNoun s (s + "s") Utr ; -- vrede→vredes. Might not be a good generalisation though. /IL2018 _ + "e" => mkNoun s (s + "s") Utr ; -- vrede→vredes. Might not be a good generalisation though. /IL2018
_ => mkNoun s (endCons s + "en") Utr _ => mkNoun s (endCons s + "en") Utr
} ; } ;