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

system command (!) in gf3 shell

Browse Source
This commit is contained in:
aarne
2008-06-11 12:20:42 +00:00
parent 3241b03d8a
commit 4681aaa11c
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src-3.0/GFI.hs
View File

@@ -19,6 +19,7 @@ import Data.Char
import Data.List(isPrefixOf) import Data.List(isPrefixOf)
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Text.ParserCombinators.ReadP as RP import qualified Text.ParserCombinators.ReadP as RP
import System
import System.CPUTime import System.CPUTime
import Control.Exception import Control.Exception
@@ -45,6 +46,9 @@ loop opts gfenv0 = do
loop opts $ gfenv' {cputime = cpu'} loop opts $ gfenv' {cputime = cpu'}
case words s of case words s of
-- special commands, requiring source grammar in env -- special commands, requiring source grammar in env
"!":ws -> do
system $ unwords ws
loopNewCPU gfenv
"cc":ws -> do "cc":ws -> do
-- FIXME: add options parsing for cc arguments -- FIXME: add options parsing for cc arguments
let (style,term) = (TermPrintDefault, ws) let (style,term) = (TermPrintDefault, ws)
@@ -60,7 +64,9 @@ loop opts gfenv0 = do
loopNewCPU gfenv' loopNewCPU gfenv'
-- other special commands, working on GFEnv -- other special commands, working on GFEnv
"e":_ -> loopNewCPU $ gfenv {commandenv=env{multigrammar=emptyPGF}} "e":_ -> loopNewCPU $ gfenv {
commandenv=env{multigrammar=emptyPGF}, sourcegrammar = emptyGrammar
}
"ph":_ -> mapM_ putStrLn (reverse (history gfenv0)) >> loopNewCPU gfenv "ph":_ -> mapM_ putStrLn (reverse (history gfenv0)) >> loopNewCPU gfenv
"q":_ -> putStrLn "See you." >> return gfenv "q":_ -> putStrLn "See you." >> return gfenv