From fe1fdf3afd7755f6b5d8282d85f53924c662bf90 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 25 Nov 2005 17:40:51 +0000 Subject: questions and transfer in shell state --- src/GF/API/IOGrammar.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/GF/API') diff --git a/src/GF/API/IOGrammar.hs b/src/GF/API/IOGrammar.hs index ce522a9e5..cb84d9bf7 100644 --- a/src/GF/API/IOGrammar.hs +++ b/src/GF/API/IOGrammar.hs @@ -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 -- cgit v1.2.3