From 597ab8c0b5ea2d8766bcf9bb72af5fc69e088a79 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 18 Nov 2009 17:23:31 +0000 Subject: [PATCH] more accurate adjective paradigm in Dutch --- lib/src/dutch/ResDut.gf | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/src/dutch/ResDut.gf b/lib/src/dutch/ResDut.gf index 578e69ed7..de7ecbdc6 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/src/dutch/ResDut.gf @@ -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 {