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

more accuracy in Dutch smart paradigms

Browse Source
This commit is contained in:
aarne
2009-11-18 16:45:30 +00:00
parent a31c74e056
commit 711bfa4a11
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,11 +32,13 @@ resource ResDut = ParamX ** open Prelude in {
regNoun : Str -> Noun = \s -> case s of { regNoun : Str -> Noun = \s -> case s of {
_ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ; _ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ;
_ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; _ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ;
? + ? + ? + _ + ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard") => -- unstressed ? + ? + ? + _ +
mkNoun s (s + "s") Utr ; ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard" | "ie") => -- unstressed
_ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ; mkNoun s (s + "s") Utr ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ; _ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ;
b + v@("a" |"e" |"o" |"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ; b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ;
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => mkNoun s (endCons s + "en") Utr ;
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ;
_ => mkNoun s (endCons s + "en") Utr _ => mkNoun s (endCons s + "en") Utr
} ; } ;
@@ -54,6 +56,8 @@ resource ResDut = ParamX ** open Prelude in {
_ => s _ => s
} ; } ;
dupCons : pattern Str = #("b"|"d"|"f"|"g"|"k"|"l"|"m"|"n"|"p"|"r"|"s"|"t") ;
param param
AForm = APred | AAttr | AGen ; AForm = APred | AAttr | AGen ;