example_based returns the list of all unknown words

2010-01-28 16:27:28 +00:00
parent 8f0df0442a
commit 53a081bf0b
6 changed files with 39 additions and 22 deletions
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -255,7 +255,8 @@ allCommands cod env@(pgf, mos) = Map.fromList [
       let file = optFile opts
       mprobs <- optProbs opts pgf
       let conf = configureExBased pgf (optMorpho opts) mprobs (optLang opts)
-       file' <- parseExamplesInGrammar conf file
+       (file',ws) <- parseExamplesInGrammar conf file
+       if null ws then return () else putStrLn ("unknown words: " ++ unwords ws)
       return (fromString ("wrote " ++ file')),
     needsTypeCheck = False
     }),