From a68b2850e76a36c1f4ca032ea69c1ffa81b69885 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 4 Jan 2008 14:51:20 +0000
Subject: Added -noparse flag to gfc. In the process, I refactored GF.Devel.GFC
 and GF.Command.Importing to use a common source to gfcc compilation function
 in the new module GF.Compile.API.

---
 src/GF/Compile/API.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/GF/Compile/API.hs

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/API.hs b/src/GF/Compile/API.hs
new file mode 100644
index 000000000..b9726bc23
--- /dev/null
+++ b/src/GF/Compile/API.hs
@@ -0,0 +1,20 @@
+module GF.Compile.API (batchCompile, compileToGFCC) where
+
+import GF.Devel.Compile
+import GF.Devel.GrammarToGFCC
+import GF.GFCC.OptimizeGFCC
+import GF.GFCC.CheckGFCC
+import GF.GFCC.DataGFCC
+import GF.Infra.Option
+import GF.Devel.UseIO
+
+-- | Compiles a number of source files and builds a 'GFCC' structure for them.
+compileToGFCC :: Options -> [FilePath] -> IO GFCC
+compileToGFCC opts fs = 
+    do gr <- batchCompile opts fs
+       let name = justModuleName (last fs)
+       let (abs,gc0) = mkCanon2gfcc opts name gr
+       gc1 <- checkGFCCio gc0
+       let opt = if oElem (iOpt "noopt") opts then id else optGFCC
+           par = if oElem (iOpt "noparse") opts then id else addParsers
+       return (par (opt gc1))
-- 
cgit v1.2.3