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

Nui's additions to LexiconTha

Browse Source
This commit is contained in:
aarne
2011-12-04 18:08:18 +00:00
parent d899b85ef1
commit 269ca955e1
3 changed files with 197 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/thai/ThaiScript.hs
View File

@@ -93,6 +93,7 @@ dat2pron is = case is of
[CoL] : cc : [CaP] : d : cs -> prons cc ++ tone cc d cs "o" ++ endWith cs -- o-a -> o
[] :[CO]: v : d : cs -> tone[CO]d cs (prons v) ++ endWith cs -- Ov -> v
[] : cc : [Ca,Cw] : d : cs -> prons cc ++ tone cc d cs "ua" ++ endWith cs -- Caw -> Cua
[] : cc : v :[CK]:cs -> endWith cs -- swas(di:K)
[] : bb : [] : cc : []: d : cs -> prons bb ++ "a" ++ prons cc ++ tone cc [] cs "o" ++ endWith (d:cs) -- CaCoC
[] : bb : [] : cc : [] -> prons bb ++ tone bb [] [cc] "o" ++ endWith [cc] -- CoC
[] : bb : [] : cc : v : d : cs -> prons bb ++ "a" ++ prons cc ++ tone cc [] cs (prons v) ++ endWith cs -- CaCvC
@@ -124,10 +125,12 @@ getSyllable s = case s of
Ch:c:cs | isConsonant c && isLow c -> let (cc:ccs) = getCons v (c:cs) in (Ch:cc):ccs -- hC
CO:cs -> [CO] :getVow v cs -- O
Cs:Cr:cs -> [Cs] :getVow v cs -- O
_:CK:[] -> []
b:Cr:Cr:[] | isConsonant b -> [b] :[Ca]:[]:[Cr]:[] -- Crr -> Can
b:Cr:Cr:[c] | all isConsonant [b,c] -> [b] :[Ca]:[]:[c]:[] -- CrrC -> CaC
b:c:cs | isCluster b c -> [b,c] :getVow v cs -- C(l|r|w) cluster
b:cs | isPreVowel v -> [b] :getVow v cs
b:c:Cw:Cy:[]| isConsonant b && isDiacritic c -> [b]:[Cu,Ca]:[c]:[Cy]:[] -- CTuay
b:Cw:Cy:[] | isConsonant b -> [b] :[Cu,Ca]:[]:[Cy]:[] -- Cuay
b:c:d:[] | all isConsonant [b,c,d] -> [b] :[]:[c]:[]:[d]:[] -- CaCoC
b:c:[] | all isConsonant [b,c] -> [b] :[]:[c]:[] -- CoC