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

more accurate adjective paradigm in Dutch

Browse Source
This commit is contained in:
aarne
2009-11-18 17:23:31 +00:00
parent 711bfa4a11
commit 597ab8c0b5
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/src/dutch/ResDut.gf
View File

@@ -74,9 +74,10 @@ resource ResDut = ParamX ** open Prelude in {
regAdjective : Str -> Adjective = \s -> ---- regAdjective : Str -> Adjective = \s -> ----
let let
se : Str = case s of { se : Str = case s of {
_ + ("i"|"u") => s + "e" ; _ + ("i"|"u") => endCons s + "e" ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ; b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ;
b + v@("a" |"e" |"o" |"u" ) + c@? => b + v + c + c + "en" ; b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => endCons s + "e" ;
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => b + v + c + c + "e" ;
_ => endCons s + "e" _ => endCons s + "e"
} ; } ;
ser : Str = case s of { ser : Str = case s of {