msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

cc -table

Browse Source
This commit is contained in:
aarne
2007-02-23 16:28:06 +00:00
parent 1d803dff10
commit 5264780e67
5 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Shell.hs
View File

@@ -375,11 +375,12 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa
CComputeConcrete t -> do
let prin = if (oElem (iOpt "table") opts) then printParadigm else prt
m <- return $
maybe (I.identC "?") id $ -- meaningful if no opers in t
maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res
getOptVal opts useResource -- flag -res=m
justOutput opts (putStrLn (err id (prt . stripTerm) (
justOutput opts (putStrLn (err id (prin . stripTerm) (
string2srcTerm src m t >>=
Ch.justCheckLTerm src >>=
Co.computeConcrete src))) sa