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

instructions for generating lexicon spreadsheets

Browse Source
This commit is contained in:
aarne
2014-03-31 07:13:02 +00:00
parent 154a65cc3e
commit c77b137c14
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/src/translator/bnc-dict-log.txt
View File

@@ -1,6 +1,6 @@
1. Create a check list for Swe 1. Create a check list for Swe
do do
bnc <- readFile "bnc-to-check.txt" >>= return . words -- list of BNC funs bnc <- readFile "bnc-to-check.txt" >>= return . words -- list of BNC funs
dict <- readFile "DictionarySwe.gf" >>= return . map words . lines -- current Swe lexicon dict <- readFile "DictionarySwe.gf" >>= return . map words . lines -- current Swe lexicon
let dictmap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- dict] let dictmap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- dict]
@@ -35,7 +35,7 @@ Verify the result by compiling DictionaryEng.gf
4. Extend the Swe lexicon 4. Extend the Swe lexicon
do do
old <- readFile "DictionarySwe.gf" >>= return . map words . lines -- read old lexicon old <- readFile "DictionarySwe.gf" >>= return . map words . lines -- read old lexicon
new <- readFile "correctswe.txt" >>= return . map words . lines -- read corrected and new words new <- readFile "correctswe.txt" >>= return . map words . lines -- read corrected and new words
let oldmap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- old] let oldmap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- old]
@@ -56,5 +56,18 @@ Or take note of the last word that was checked already.
6. Generate a spreadsheet view
Here for Swe and Bul:
do
bnc <- readFile "bnc-to-check.txt" >>= return . words
swe <- readFile "DictionarySwe.gf" >>= return . map words . lines
let swemap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- swe]
bul <- readFile "DictionaryBul.gf" >>= return . map words . lines
let bulmap = Data.Map.fromList [(f,unwords ws) | "lin":f:"=":ws <- bul]
let look f m = maybe "-" id $ Data.Map.lookup f m
let line f = f ++ "\t" ++ look f swemap ++ "\t" ++ look f bulmap
writeFile "bnc-swe-bul.tsv" $ unlines $ map line bnc