1
0
forked from GitHub/gf-core

some new opers in ParadigmsFin, and 200 more words in DictEngFin: out of 3220 Penn trees now 2721 are completely translated (but mostly not so well...)

This commit is contained in:
aarne
2013-03-29 10:13:04 +00:00
parent 27a1811446
commit eb791244bd
5 changed files with 334 additions and 12 deletions

View File

@@ -2,16 +2,13 @@ import qualified Data.Set as S
-- comment out words that are predefined in another lexicon
-- runghc ElimPredef.hs <DictEngFin.gf
-- removeFile = "predef.txt"
-- removeMsg = "PREDEF"
removeFile = "KoeFin.gf"
removeMsg = "MANUAL"
-- also used for temporarily eliminating whatever from compilation
--removeFile = "commentOut"
--removeMsg = "POSTPONE"
removeFile = "t-nouns"
removeMsg = "PLURNOUN"
main = do
predefs <- readFile removeFile >>= return . S.fromList . map (head . words) . lines
interact (unlines . map (elimPredef predefs) . lines)