From 0db611a9abfb31c76933a455da946cf2194ded7b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 24 May 2008 09:16:59 +0000
Subject: support for source gr and i -retain in GFI env

---
 src-3.0/GF/Command/Importing.hs | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'src-3.0/GF/Command')

diff --git a/src-3.0/GF/Command/Importing.hs b/src-3.0/GF/Command/Importing.hs
index 868ca02b6..f200ba7c4 100644
--- a/src-3.0/GF/Command/Importing.hs
+++ b/src-3.0/GF/Command/Importing.hs
@@ -1,9 +1,11 @@
-module GF.Command.Importing (importGrammar) where
+module GF.Command.Importing (importGrammar, importSource) where
 
 import GF.Compile
 import GF.GFCC.DataGFCC
 import GF.GFCC.API
 
+import GF.Grammar.Grammar (SourceGrammar) -- for cc command
+
 import GF.Infra.UseIO
 import GF.Infra.Option
 import GF.Data.ErrM
@@ -25,4 +27,13 @@ importGrammar mgr0 opts files =
     ".gfcc" -> do
       gfcc2 <- mapM file2gfcc files >>= return . foldl1 unionGFCC
       let gfcc3 = unionGFCC (gfcc mgr0) gfcc2
-      return $ MultiGrammar gfcc3
\ No newline at end of file
+      return $ MultiGrammar gfcc3
+
+importSource :: SourceGrammar -> Options -> [FilePath] -> IO SourceGrammar
+importSource src0 opts files = do
+  src <- appIOE $ batchCompile opts files
+  case src of
+    Ok gr -> return gr
+    Bad msg -> do 
+      putStrLn msg
+      return src0
-- 
cgit v1.2.3