msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

use hex in transliteration table

Browse Source
This commit is contained in:
aarne
2008-09-23 09:04:03 +00:00
parent 2269a5ba41
commit 961261c46e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Text/Transliterations.hs
View File

@@ -3,6 +3,7 @@ module GF.Text.Transliterations (transliterate,transliteration,characterTable) w
import GF.Text.UTF8 import GF.Text.UTF8
import Data.Char import Data.Char
import Numeric
import qualified Data.Map as Map import qualified Data.Map as Map
-- transliterations between ASCII and a Unicode character set -- transliterations between ASCII and a Unicode character set
@@ -34,7 +35,7 @@ transliteration s = case s of
characterTable :: Transliteration -> String characterTable :: Transliteration -> String
characterTable = unlines . map prOne . Map.assocs . trans_from_unicode where characterTable = unlines . map prOne . Map.assocs . trans_from_unicode where
prOne (i,s) = unwords ["|", show i, "|", [toEnum i], "|", s, "|"] prOne (i,s) = unwords ["|", showHex i "", "|", [toEnum i], "|", s, "|"]
data Transliteration = Trans { data Transliteration = Trans {
trans_to_unicode :: Map.Map String Int, trans_to_unicode :: Map.Map String Int,