GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-18 17:29:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

added some generation facilities

Browse Source
This commit is contained in:
aarne
2006-03-31 16:30:44 +00:00
parent cb046fea18
commit 82fbc184b6
8 changed files with 224 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -249,6 +249,10 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
let p = optParseArgErrMsg opts gro x
case p of
Ok (ts,msg)
| oElem (iOpt "fail") opts && null ts -> do
putStrLnFlush ("#FAIL:" +++ x) >> changeArg (const $ ATrms ts) sa
| oElem (iOpt "ambiguous") opts && length ts > 1 -> do
putStrLnFlush ("#AMBIGUOUS:" +++ x) >> changeArg (const $ ATrms ts) sa
| oElem (iOpt "prob") opts -> do
let probs = stateProbs gro
let tps = rankByScore [(t,computeProbTree probs t) | t <- ts]