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:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user