msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
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 5dcc60bffd
commit 37947ea289
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/dutch/ResDut.gf
View File

@@ -74,9 +74,10 @@ resource ResDut = ParamX ** open Prelude in {
regAdjective : Str -> Adjective = \s -> ----
let
se : Str = case s of {
_ + ("i"|"u") => s + "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" ;
_ + ("i"|"u") => endCons s + "e" ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ;
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"
} ;
ser : Str = case s of {