diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 12:57:33 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 12:57:33 +0000 |
| commit | a28b61be1c28ce82bf00a514b63f53b2652b8d0b (patch) | |
| tree | 83387d63a21b949473ba6b067722aa1cd89f10ee /src-3.0/GF/Compile | |
| parent | 2e49f7f5b15e106f46e6d714b6e91aaf1a303bcd (diff) | |
move GF.Devel.Compile and GF.Compile.API to GF.Compile
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/API.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src-3.0/GF/Compile/API.hs b/src-3.0/GF/Compile/API.hs deleted file mode 100644 index 7e852cf7a..000000000 --- a/src-3.0/GF/Compile/API.hs +++ /dev/null @@ -1,21 +0,0 @@ -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] -> IOE GFCC -compileToGFCC opts fs = - do gr <- batchCompile opts fs - let name = justModuleName (last fs) - gc1 <- putPointE opts "linking ... " $ - let (abs,gc0) = mkCanon2gfcc opts name gr - in ioeIO $ 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)) |