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

more treebank options; updated history

Browse Source
This commit is contained in:
aarne
2006-03-06 21:27:49 +00:00
parent a2d2e268d3
commit 5e70830f3c
7 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -319,6 +319,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
returnArg (AString $ unlines $ lookupTreebank tb s) sa
_ | oElem (iOpt "assocs") opts -> do
returnArg (AString $ unlines $ map printAssoc $ assocsTreebank tb) sa
_ | oElem (iOpt "trees") opts -> do
returnArg (ATrms $ str2trees $ concatMap snd $ assocsTreebank tb) sa
_ -> do
let tes = map (string2treeErr gro) $ lookupTreebank tb s
terms = [t | Ok t <- tes]
@@ -442,6 +444,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
AString s -> err AError (ATrms . return) $ string2treeErr gro s
_ -> a
str2trees ts = [t | Ok t <- map (string2treeErr gro) ts]
strees a = case a of
ATrms ts -> ts
_ -> []