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

produce a readable word list

Browse Source
This commit is contained in:
aarne
2007-01-25 17:49:39 +00:00
parent feef66421e
commit 2a25794c8f
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/GF/Text/Thai.hs
View File

@@ -11,7 +11,7 @@
-- AR 27/12/2006. Execute test2 to see the transliteration table. -- AR 27/12/2006. Execute test2 to see the transliteration table.
module GF.Text.Thai (mkThai,thaiFile,thaiPronFile) where module GF.Text.Thai (mkThai,mkThaiWord,mkThaiPron,thaiFile,thaiPronFile) where
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Char import Data.Char
@@ -93,7 +93,9 @@ allThaiCodes = [0x0e00 .. 0x0e7f]
-- this works for one syllable -- this works for one syllable
mkPronSyllable s = pronSyllable $ getSyllable $ map mkThaiChar $ unchar s mkPronSyllable s = case fst $ pronAndOrth s of
Just p -> p
_ -> pronSyllable $ getSyllable $ map mkThaiChar $ unchar s
data Syllable = Syll { data Syllable = Syll {
initv :: [Int], initv :: [Int],
@@ -118,11 +120,13 @@ pronSyllable s =
initCons ++ tonem ++ vowel ++ finalCons initCons ++ tonem ++ vowel ++ finalCons
where where
vowel = case (initv s, midv s, finalv s, shorten s, tone s) of vowel = case (initv s, midv s, finalv s, finalc s, shorten s, tone s) of
([0x0e40],[0x0e30,0x0e2d],_,_,_) -> "ö" -- eOa ([0x0e40],[0x0e35],[0x0e2d],[0x0e22],_,_) -> "ia" -- ei:-ya.
([0x0e40],[0x0e30,0x0e32],_,_,_) -> "o" -- ea:a ([0x0e40],[0x0e35],_,[0x0e22],_,_) -> "ia" -- ei:-y
([],[],[],_,_) -> "o" ([0x0e40],[0x0e30,0x0e2d],_,_,_,_) -> "ö" -- eOa.
(i,m,f,_,_) -> concatMap pronThaiChar (reverse $ f ++ m ++ i) ---- ([0x0e40],[0x0e30,0x0e32],_,_,_,_) -> "o" -- ea:a.
([],[],[],_,_,_) -> "o"
(i,m,f,_,_,_) -> concatMap pronThaiChar (reverse $ f ++ m ++ i) ----
initCons = concatMap pronThaiChar $ case (reverse $ initc s) of initCons = concatMap pronThaiChar $ case (reverse $ initc s) of
0x0e2b:cs@(_:_) -> cs -- high h 0x0e2b:cs@(_:_) -> cs -- high h