GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

make also filterLongest and filterBest available from the shell

Browse Source
This commit is contained in:
Krasimir Angelov
2022-07-07 14:11:31 +02:00
parent a66693770c
commit 6c9f0cfe9c
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/compiler/GF/Command/Commands.hs
View File

@@ -285,7 +285,15 @@ pgfCommands = Map.fromList [
case opts of case opts of
_ | isOpt "all" opts -> _ | isOpt "all" opts ->
return . fromString . unlines . return . fromString . unlines .
map prMorphoAnalysis . concatMap (morphoAll concr) $ map prMorphoAnalysis . concatMap (morphoCohorts id concr) $
toStrings ts
_ | isOpt "longest" opts ->
return . fromString . unlines .
map prMorphoAnalysis . concatMap (morphoCohorts filterLongest concr) $
toStrings ts
_ | isOpt "best" opts ->
return . fromString . unlines .
map prMorphoAnalysis . concatMap (morphoCohorts filterBest concr) $
toStrings ts toStrings ts
_ | isOpt "known" opts -> _ | isOpt "known" opts ->
return . fromString . unwords . return . fromString . unwords .
@@ -303,8 +311,10 @@ pgfCommands = Map.fromList [
], ],
options = [ options = [
("all", "scan the text for all words, not just a single one"), ("all", "scan the text for all words, not just a single one"),
("known", "scan the text only for known words, in order of appearance"), ("longest","scan the text for all words, and apply longest match filtering"),
("missing","scan the text for all unknown words, in order of appearance") ("best", "scan the text for all words, and apply global best match filtering"),
("known", "list all known words, in order of appearance"),
("missing","list all missing words, in order of appearance")
] ]
}), }),
@@ -844,8 +854,8 @@ pgfCommands = Map.fromList [
morphos pgf opts s = morphos pgf opts s =
[(s,lookupMorpho concr s) | concr <- optLangs pgf opts] [(s,lookupMorpho concr s) | concr <- optLangs pgf opts]
morphoAll concr s = morphoCohorts f concr s =
[(w,ans) | (_,w,ans,_) <- lookupCohorts concr s] [(w,ans) | (_,w,ans,_) <- f (lookupCohorts concr s)]
morphoKnown = morphoClassify True morphoKnown = morphoClassify True