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

refresh compilation phase in the new format

Browse Source
This commit is contained in:
aarne
2007-12-07 10:23:18 +00:00
parent f7b3c218cf
commit 091f9f0c1b
7 changed files with 81 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,7 +5,7 @@ import GF.Devel.Compile.GetGrammar
import GF.Devel.Compile.Extend
import GF.Devel.Compile.Rename
import GF.Devel.Compile.CheckGrammar
----import GF.Grammar.Refresh
import GF.Devel.Compile.Refresh
----import GF.Devel.Optimize
----import GF.Devel.OptimizeGF
@@ -156,7 +156,12 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do
if null warnings then return () else putp warnings $ return ()
intermOut opts (iOpt "show_typecheck") (prMod moc)
return (k,mor) ----
(k',mox) <- putpp " refreshing " $ ioeErr $ refreshModule k moc
intermOut opts (iOpt "show_refresh") (prMod mox)
return (k,mox) ----
{- ----
@@ -173,10 +178,6 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do
if null warnings then return () else putp warnings $ return ()
intermOut opts (iOpt "show_typecheck") (prMod mo3)
(k',mo3r:_) <- putpp " refreshing " $ ioeErr $ refreshModule (k,mos) mo3
intermOut opts (iOpt "show_refresh") (prMod mo3r)
let eenv = () --- emptyEEnv
(mo4,eenv') <-
---- if oElem "check_only" opts