From 6c5763615fc3e2c5fb40b15daec39d301a0a9a18 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 2 Mar 2006 20:27:42 +0000 Subject: several treebanks in shell state --- src/GF/Shell.hs | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 39460b2f2..d502b74ce 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -308,13 +308,18 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com returnArg (AString $ unlines $ mkTreebank opts st comm ts) sa CLookupTreebank -> do - case treebanks st of - [] -> returnArg (AError "no treebank") sa - (_,tb):_ -> do - let s = prCommandArg a - let tes = map (string2treeErr gro . snd) $ lookupTreebank tb s - terms = [t | Ok t <- tes] - returnArg (ATrms terms) sa + let tbs = treebanks st + if null tbs + then returnArg (AError "no treebank") sa + else do + let tbi = maybe (fst $ head tbs) I.identC (getOptVal opts (aOpt "treebank")) + case lookup tbi tbs of + Nothing -> returnArg (AError ("no treebank" +++ prt tbi)) sa + Just tb -> do + let s = prCommandArg a + let tes = map (string2treeErr gro . snd) $ lookupTreebank tb s + terms = [t | Ok t <- tes] + returnArg (ATrms terms) sa CShowTreeGraph | oElem emitCode opts -> do -- -o returnArg (AString $ visualizeTrees opts $ strees $ s2t a) sa -- cgit v1.2.3