GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

more general Pinyin file generation in Chi

Browse Source
This commit is contained in:
aarne
2013-10-19 16:00:07 +00:00
parent 7a7b7309ef
commit 3e978f2db1
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/src/chinese/pinyin/MkPinyin.hs
View File

@@ -1,11 +1,12 @@
import qualified Data.Map as Map import qualified Data.Map as Map
import Numeric import Numeric
import System.Environment
main = do main = do
xx <- getArgs
s <- readFile pinyinFile s <- readFile pinyinFile
let m = c2pMap (mkList (words s)) let m = c2pMap (mkList (words s))
mapM_ (mkPinyin m) resModules mapM_ (mkPinyin m) xx
-- mapM_ (mkPinyin m) ["HSKGrammar"]
return () return ()
pinyinFile = "pinyin.txt" pinyinFile = "pinyin.txt"
@@ -15,8 +16,8 @@ resModules = [mo | mo <-
] ]
mkPinyin ma mo = do mkPinyin ma mo = do
s <- readFile ("../" ++ mo ++ "Chi.gf") s <- readFile mo
writeFile (mo ++ "Chi.gf") (useMapGF ma s) writeFile (mo ++ "-cmn") (useMapGF ma s)
--import Pinyin (c2pMap, useMapGF, mkList) --import Pinyin (c2pMap, useMapGF, mkList)

2
lib/src/chinese/pinyin/ResChi.gf
View File

@@ -252,7 +252,7 @@ oper
} ; } ;
getAdvType : Str -> AdvType = \s -> case s of { getAdvType : Str -> AdvType = \s -> case s of {
"在" + _ => ATPlace True ; -- certain that True "zai4" + _ => ATPlace True ; -- certain that True
_ => ATPlace False -- uncertain whether ATPlace _ => ATPlace False -- uncertain whether ATPlace
} ; } ;