diff options
| author | aarne <aarne@chalmers.se> | 2012-06-10 10:43:57 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-06-10 10:43:57 +0000 |
| commit | 191ecc71b8b4645caf992822e18d4b506f0e55a4 (patch) | |
| tree | 2d06222dee355943b216f204d771d578d0c87e4a /src/compiler | |
| parent | 12b2a0d665245bf26c3cf165d9c209f29d3e357c (diff) | |
command option ma -known to drop unknown words
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 3b6e278d0..18194f340 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -521,6 +521,10 @@ allCommands env@(pgf, mos) = Map.fromList [ return . fromString . unwords . morphoMissing (optMorpho opts) . concatMap words . toStrings + _ | isOpt "known" opts -> + return . fromString . unwords . + morphoKnown (optMorpho opts) . + concatMap words . toStrings _ -> return . fromString . unlines . map prMorphoAnalysis . concatMap (morphos opts) . concatMap words . toStrings , @@ -528,7 +532,8 @@ allCommands env@(pgf, mos) = Map.fromList [ ("lang","the languages of analysis (comma-separated, no spaces)") ], options = [ - ("missing","show the list of unknown words in the input") + ("known", "return only the known words, in order of appearance"), + ("missing","show the list of unknown words, in order of appearance") ] }), |