GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 19:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

building extensions in new source format

Browse Source
This commit is contained in:
aarne
2007-12-04 17:10:28 +00:00
parent 8c247e05fc
commit e2c8dc270f
4 changed files with 134 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/Devel/Compile/Compile.hs
View File

@@ -2,8 +2,7 @@ module GF.Devel.Compile.Compile (batchCompile) where
-- the main compiler passes
import GF.Devel.Compile.GetGrammar
----import GF.Compile.Update
----import GF.Compile.Extend
import GF.Devel.Compile.Extend
----import GF.Compile.Rebuild
----import GF.Compile.Rename
----import GF.Grammar.Refresh
@@ -144,18 +143,19 @@ compileSourceModule :: Options -> CompileEnv ->
compileSourceModule opts env@(k,gr) mo@(i,mi) = do
intermOut opts (iOpt "show_gf") (prMod mo)
return (k,mo) ----
{- ----
let putp = putPointE opts
putpp = putPointEsil opts
mos = modules gr
mo1 <- ioeErr $ extendModule gr mo
intermOut opts (iOpt "show_extend") (prMod mo1)
return (k,mo1) ----
{- ----
mo1 <- ioeErr $ rebuildModule mos mo
intermOut opts (iOpt "show_rebuild") (prMod mo1)
mo1b <- ioeErr $ extendModule mos mo1
intermOut opts (iOpt "show_extend") (prMod mo1b)
case mo1b of
(_,ModMod n) | not (isCompleteModule n) -> do