From 2bd5bba87cfb4a32f1083570b9243062f542dc13 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 16 Apr 2015 06:52:59 +0000 Subject: [PATCH] Dutch mkA morpheme -en added to those not duplicating end consonant --- lib/src/dutch/ResDut.gf | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/src/dutch/ResDut.gf b/lib/src/dutch/ResDut.gf index df27e652f..f85706cb2 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/src/dutch/ResDut.gf @@ -83,8 +83,7 @@ resource ResDut = ParamX ** open Prelude, Predef in { regAdjective : Str -> Adjective = \s -> ---- let se : Str = case s of { - _ + "er" => s + "e" ; ---- - _ + "ig" => s + "e" ; + _ + ("er"|"en"|"ig") => s + "e" ; --- for unstressed adjective suffixes _ + ("i"|"u"|"ij") => 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" ;