GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Turkish: harmony2 and harmony4 should be more liberal

Browse Source
This commit is contained in:
krasimir
2009-05-08 07:52:50 +00:00
parent 944267a142
commit 80369830a9
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
next-lib/src/turkish/ResTur.gf
View File

@@ -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") s1@("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")
+ ("ı"|"i"|"u"|"ü") + ("ı"|"i"|"u"|"ü")
+s2 => s1+h+s2 ; +s2 => s1+h+s2 ;
_ => error "harmony4" s => s
} ; } ;
_ => case suffixC of { _ => case suffixC of {
s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*) s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*)
+ ("ı"|"i"|"u"|"ü") + ("ı"|"i"|"u"|"ü")
+s2 => s1+h+s2 ; +s2 => s1+h+s2 ;
s => error "harmony4" s => s
} }
} }
in base + suffix ; 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") s1@("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")
+ ("a"|"e") + ("a"|"e")
+s2 => s1+h+s2 ; +s2 => s1+h+s2 ;
_ => error "harmony2" s => s
} ; } ;
("p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h") => case suffixC of { ("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")*) s1@(("b"|"v"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*)
+ ("a"|"e") + ("a"|"e")
+s2 => s1+h+s2 ; +s2 => s1+h+s2 ;
("da"|"de")+s => "t"+h+s ; ("da"|"de")+s => "t"+h+s ;
_ => error "harmony2" s => s
} ; } ;
_ => case suffixC of { _ => case suffixC of {
s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*) s1@(("b"|"v"|"d"|"z"|"j"|"c"|"g"|"ğ"|"l"|"r"|"m"|"n"|"y"|"p"|"f"|"t"|"s"|"ş"|"ç"|"k"|"h")*)
+ ("a"|"e") + ("a"|"e")
+s2 => s1+h+s2 ; +s2 => s1+h+s2 ;
_ => error "harmony2" s => s
} }
} }
in base + suffix ; in base + suffix ;