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

added command "rt" in the C shell

Browse Source
This commit is contained in:
Krasimir Angelov
2017-09-01 10:40:12 +02:00
parent 5c38482e56
commit e214a00ed3
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/compiler/GF/Command/Commands2.hs
View File

@@ -13,7 +13,7 @@ import GF.Infra.SIO(MonadSIO,liftSIO,putStrLn,restricted,restrictedSystem)
import GF.Command.Abstract import GF.Command.Abstract
import GF.Command.CommandInfo import GF.Command.CommandInfo
import GF.Data.Operations import GF.Data.Operations
import Data.List(intersperse,intersect,nub) import Data.List(intersperse,intersect,nub,sortBy)
import Data.Maybe import Data.Maybe
import qualified Data.Map as Map import qualified Data.Map as Map
import GF.Text.Pretty import GF.Text.Pretty
@@ -372,7 +372,6 @@ pgfCommands = Map.fromList [
_ -> return (fromString s), _ -> return (fromString s),
flags = [("file","the input file name")] flags = [("file","the input file name")]
}), }),
{-
("rt", emptyCommandInfo { ("rt", emptyCommandInfo {
longname = "rank_trees", longname = "rank_trees",
synopsis = "show trees in an order of decreasing probability", synopsis = "show trees in an order of decreasing probability",
@@ -382,14 +381,14 @@ pgfCommands = Map.fromList [
"by the file given by flag -probs=FILE, where each line has the form", "by the file given by flag -probs=FILE, where each line has the form",
"'function probability', e.g. 'youPol_Pron 0.01'." "'function probability', e.g. 'youPol_Pron 0.01'."
], ],
exec = \env@(pgf, mos) opts ts -> do exec = needPGF $ \opts es env@(pgf, _) -> do
pgf <- optProbs opts pgf let tds = sortBy (\(_,p) (_,q) -> compare p q)
let tds = H.rankTreesByProbs pgf ts [(t, treeProbability pgf t) | t <- map cExpr (toExprs es)]
if isOpt "v" opts if isOpt "v" opts
then putStrLn $ then putStrLn $
unlines [H.showExpr [] t ++ "\t--" ++ show d | (t,d) <- tds] unlines [PGF2.showExpr [] t ++ "\t--" ++ show d | (t,d) <- tds]
else return () else return ()
returnFromExprs $ map fst tds, returnFromExprs $ map (hsExpr . fst) tds,
flags = [ flags = [
("probs","probabilities from this file (format 'f 0.6' per line)") ("probs","probabilities from this file (format 'f 0.6' per line)")
], ],
@@ -400,7 +399,7 @@ pgfCommands = Map.fromList [
mkEx "p \"you are here\" | rt -probs=probs | pt -number=1 -- most probable result" mkEx "p \"you are here\" | rt -probs=probs | pt -number=1 -- most probable result"
] ]
}), }),
{-
("tq", emptyCommandInfo { ("tq", emptyCommandInfo {
longname = "translation_quiz", longname = "translation_quiz",
syntax = "tq -from=LANG -to=LANG (-cat=CAT)? (-probs=FILE)? TREE?", syntax = "tq -from=LANG -to=LANG (-cat=CAT)? (-probs=FILE)? TREE?",