msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

show match positions for ma -all|-longest|-best

Browse Source
This commit is contained in:
Krasimir Angelov
2022-07-07 19:37:06 +02:00
parent acc6f85041
commit b509d22482
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -288,15 +288,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 (morphoCohorts id concr) $ map prCohortAnalysis . concatMap (morphoCohorts id concr) $
toStrings ts toStrings ts
_ | isOpt "longest" opts -> _ | isOpt "longest" opts ->
return . fromString . unlines . return . fromString . unlines .
map prMorphoAnalysis . concatMap (morphoCohorts filterLongest concr) $ map prCohortAnalysis . concatMap (morphoCohorts filterLongest concr) $
toStrings ts toStrings ts
_ | isOpt "best" opts -> _ | isOpt "best" opts ->
return . fromString . unlines . return . fromString . unlines .
map prMorphoAnalysis . concatMap (morphoCohorts filterBest concr) $ map prCohortAnalysis . concatMap (morphoCohorts filterBest concr) $
toStrings ts toStrings ts
_ | isOpt "known" opts -> _ | isOpt "known" opts ->
return . fromString . unwords . return . fromString . unwords .
@@ -857,8 +857,7 @@ 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]
morphoCohorts f concr s = morphoCohorts f concr s = f (lookupCohorts concr s)
[(w,ans) | (_,w,ans,_) <- f (lookupCohorts concr s)]
morphoKnown = morphoClassify True morphoKnown = morphoClassify True
@@ -923,6 +922,9 @@ prAllWords concr =
prMorphoAnalysis (w,lps) = prMorphoAnalysis (w,lps) =
unlines (w:[l ++ " : " ++ p ++ " " ++ show prob | (l,p,prob) <- lps]) unlines (w:[l ++ " : " ++ p ++ " " ++ show prob | (l,p,prob) <- lps])
prCohortAnalysis (i,w,lps,j) =
unlines ((show i++"-"++show j++" "++w):[l ++ " : " ++ p ++ " " ++ show prob | (l,p,prob) <- lps])
viewGraphviz :: String -> String -> String -> [String] -> SIO CommandOutput viewGraphviz :: String -> String -> String -> [String] -> SIO CommandOutput
viewGraphviz view format name grphs = do viewGraphviz view format name grphs = do
let file i s = name ++ i ++ "." ++ s let file i s = name ++ i ++ "." ++ s