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

essential LP phrases, pron table

Browse Source
This commit is contained in:
aarne
2007-02-17 21:44:42 +00:00
parent 6c3870c96b
commit 10bd5b02ea
5 changed files with 148 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -216,9 +216,11 @@ getSyllable = foldl get (Syll [] [] [] [] [] [] False False) where
test1 = testThai "k2wa:mrak"
test2 = putStrLn $ thaiTable
test3 = do
writeFile "thai.html" "<html><body><pre>"
appendFile "thai.html" thaiTable
appendFile "thai.html" "</pre></body></html>"
writeFile "thai.txt" "Thai Character Coding in GF\nAR 2007\n"
appendFile "thai.txt" thaiTable
test4 = do
writeFile "alphthai.txt" "Thai Characters by Pronunciation\nAR 2007\n"
appendFile "alphthai.txt" thaiTableAlph
testThai :: String -> IO ()
@@ -256,18 +258,33 @@ readClass s = case s of
thaiTable :: String
thaiTable = unlines [
"\t" ++
hex c ++ "\t" ++
encodeUTF8 (showThai s) ++ "\t" ++
s ++ "\t" ++
pronThai s ++ "\t" ++
[f] ++ "\t" ++
[q] ++ "\t"
thaiTable = unlines $ ("\n|| hex | thai | trans | pron | fin | class |" ) : [
"| " ++
hex c ++ " | " ++
encodeUTF8 (showThai s) ++ " | " ++
s ++ " | " ++
pronThai s ++ " | " ++
[f] ++ " | " ++
[q] ++ " | "
|
(c,q,f,s) <- zip4 allThaiCodes heights finals allThaiTrans
]
thaiTableAlph :: String
thaiTableAlph = unlines $ ("\n|| pron | thai | trans |" ) : [
"| " ++ a ++
" | " ++ unwords (map (encodeUTF8 . showThai) ss) ++
" | " ++ unwords ss ++
" |"
|
(a,ss) <- allProns
]
where
prons = sort $ nub
[p | s <- allThaiTrans, let p = pronThai s, not (null p),isAlpha (head p)]
allProns =
[(a,[s | s <- allThaiTrans, pronThai s == a]) | a <- prons]
showThai s = case s of
"-" -> "-"
--- v:_ | elem v "ivu" -> map (toEnum . mkThaiChar) ["O",s]