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

printing options for source GF terms defined in API and used in cc command

Browse Source
This commit is contained in:
aarne
2008-05-26 14:50:17 +00:00
parent 7d0da72db1
commit d4e0caa053
3 changed files with 38 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src-3.0/GFI.hs
View File

@@ -34,8 +34,9 @@ loop gfenv0 = do
-- special commands, requiring source grammar in env
"cc":ws -> do
let t = pTerm (unwords ws) >>= checkTerm sgr >>= computeTerm sgr
err putStrLn (putStrLn . prTerm) t ---- make pipable
let (opts,term) = getOptions "-" ws
let t = pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr
err putStrLn (putStrLn . showTerm opts) t ---- make pipable
loopNewCPU gfenv
"i":args -> do