diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-11-25 17:40:51 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-11-25 17:40:51 +0000 |
| commit | fe1fdf3afd7755f6b5d8282d85f53924c662bf90 (patch) | |
| tree | 228842fe464f242a5a091b37b54287d6dfa7ed1a /src/GF/Shell.hs | |
| parent | dbe8e61acc616b8f5ac07e8df89eb98a7997c29d (diff) | |
questions and transfer in shell state
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index cdacb7989..d4ead22f7 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -301,6 +301,7 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa + CApplyTransfer f -> changeArg (opTT2CommandArg (return . applyTransfer opts gro transfs f)) sa CMorphoAnalyse -> changeArg (AString . morphoAnalyse opts gro . prCommandArg) sa CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa @@ -395,6 +396,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com src = srcModules st cgr = canModules st + transfs = transfers st + s2t a = case a of ASTrm ('$':c) -> maybe (AError "undefined term") (ATrms . return) $ lookupShTerm sh c ASTrm s -> err AError (ATrms . return) $ string2treeErr gro s |