1
0
forked from GitHub/gf-core

questions and transfer in shell state

This commit is contained in:
aarne
2005-11-25 17:40:51 +00:00
parent dbe8e61acc
commit fe1fdf3afd
6 changed files with 59 additions and 23 deletions

View File

@@ -31,6 +31,8 @@ import GF.Data.Operations
import GF.Infra.UseIO
import GF.System.Arch
import qualified Transfer.InterpreterAPI as T
import Control.Monad (liftM)
-- | a heuristic way of renaming constants is used
@@ -56,6 +58,9 @@ shellStateFromFiles opts st file = do
ign <- ioeIO $ getNoparseFromFile opts file
let top = identC $ justModuleName file
sh <- case fileSuffix file of
"trc" -> do
env <- ioeIO $ T.loadFile file
return $ addTransfer (top,env) st
"gfcm" -> do
cenv <- compileOne opts (compileEnvShSt st []) file
ioeErr $ updateShellState opts ign Nothing st cenv