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

fixes in clefts and V3 in Chi; new pinyin versions

Browse Source
This commit is contained in:
aarne
2012-10-16 09:36:05 +00:00
parent 2a95881cbd
commit 262bb8fec8
18 changed files with 211 additions and 204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/chinese/pinyin/Pinyin.hs
View File

@@ -1,4 +1,4 @@
module Pinyin where
module Main where
import Numeric
import qualified Data.Map as Map
@@ -45,8 +45,8 @@ useMapWith :: (String -> [String]) -> ([String] -> String) -> (String -> String)
useMapWith ws uws deft m = uws . map (\w -> maybe (deft w) id (Map.lookup w m)) . ws
useMapGF m s = case s of
'C':'h':'i':'n':cs -> "Chin" ++ useMapGF m cs -- don't change Chinese, China
'C':'h':'i' :cs -> "Cmn" ++ useMapGF m cs -- to change language code Chi to Cmn
--- 'C':'h':'i':'n':cs -> "Chin" ++ useMapGF m cs -- don't change Chinese, China
--- 'C':'h':'i' :cs -> "Cmn" ++ useMapGF m cs -- to change language code Chi to Cmn
'"':cs -> '"':convert cs
c :cs -> c :useMapGF m cs
_ -> s