From 80369830a90821ca5dc80f1c8d263ae3f1fa0f44 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 8 May 2009 07:52:50 +0000 Subject: [PATCH] Turkish: harmony2 and harmony4 should be more liberal --- next-lib/src/turkish/ResTur.gf | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/next-lib/src/turkish/ResTur.gf b/next-lib/src/turkish/ResTur.gf index 4d82db531..ed9dc7dcf 100644 --- a/next-lib/src/turkish/ResTur.gf +++ b/next-lib/src/turkish/ResTur.gf @@ -90,13 +90,13 @@ resource ResTur = ParamX ** open Prelude, Predef in { s1@("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h") + ("ı"|"i"|"u"|"ü") +s2 => s1+h+s2 ; - _ => error "harmony4" + s => s } ; _ => case suffixC of { s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*) + ("ı"|"i"|"u"|"ü") +s2 => s1+h+s2 ; - s => error "harmony4" + s => s } } in base + suffix ; @@ -124,20 +124,20 @@ resource ResTur = ParamX ** open Prelude, Predef in { s1@("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h") + ("a"|"e") +s2 => s1+h+s2 ; - _ => error "harmony2" + s => s } ; ("p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h") => case suffixC of { s1@(("b"|"v"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*) + ("a"|"e") +s2 => s1+h+s2 ; ("da"|"de")+s => "t"+h+s ; - _ => error "harmony2" + s => s } ; _ => case suffixC of { s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*) + ("a"|"e") +s2 => s1+h+s2 ; - _ => error "harmony2" + s => s } } in base + suffix ;