From 711bfa4a11e9e8302e171ba6d95477d41be29d41 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 18 Nov 2009 16:45:30 +0000 Subject: [PATCH] more accuracy in Dutch smart paradigms --- lib/src/dutch/ResDut.gf | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lib/src/dutch/ResDut.gf b/lib/src/dutch/ResDut.gf index 1b14bbe42..578e69ed7 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/src/dutch/ResDut.gf @@ -32,11 +32,13 @@ resource ResDut = ParamX ** open Prelude in { regNoun : Str -> Noun = \s -> case s of { _ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ; _ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ; - ? + ? + ? + _ + ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard") => -- unstressed - mkNoun s (s + "s") Utr ; - _ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ; - b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ; - b + v@("a" |"e" |"o" |"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ; + ? + ? + ? + _ + + ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard" | "ie") => -- unstressed + mkNoun s (s + "s") Utr ; + _ + ("i"|"u") => mkNoun s (endCons s + "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 } ; @@ -54,6 +56,8 @@ resource ResDut = ParamX ** open Prelude in { _ => s } ; + dupCons : pattern Str = #("b"|"d"|"f"|"g"|"k"|"l"|"m"|"n"|"p"|"r"|"s"|"t") ; + param AForm = APred | AAttr | AGen ;