GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

breaking points 1..6 in new Compile

Browse Source
This commit is contained in:
aarne
2007-12-08 16:51:39 +00:00
parent 7cfbba9294
commit cc98b779fd
2 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -133,6 +133,7 @@ compileOne opts env@(_,srcgr) file = do
_ -> False _ -> False
compileSourceModule :: Options -> CompileEnv -> compileSourceModule :: Options -> CompileEnv ->
SourceModule -> IOE (Int,SourceModule) SourceModule -> IOE (Int,SourceModule)
compileSourceModule opts env@(k,gr) mo@(i,mi) = do compileSourceModule opts env@(k,gr) mo@(i,mi) = do
@@ -141,28 +142,32 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do
let putp = putPointE opts let putp = putPointE opts
putpp = putPointEsil opts putpp = putPointEsil opts
stopIf n comp m =
if any (\k -> oElem (iOpt (show k)) opts) [1..n] then return m else comp m
stopIfV v n comp m =
if any (\k -> oElem (iOpt (show k)) opts) [1..n] then return (m,v) else comp m
moe <- stopIf 1 (putpp " extending" . ioeErr . extendModule gr) mo
moe <- putpp " extending" $ ioeErr $ extendModule gr mo
intermOut opts (iOpt "show_extend") (prMod moe) intermOut opts (iOpt "show_extend") (prMod moe)
mor <- putpp " renaming" $ ioeErr $ renameModule gr moe mor <- stopIf 2 (putpp " renaming" . ioeErr . renameModule gr) moe
intermOut opts (iOpt "show_rename") (prMod mor) intermOut opts (iOpt "show_rename") (prMod mor)
(moc,warnings) <- putpp " type checking" $ ioeErr $ showCheckModule gr mor (moc,warnings) <-
stopIfV [] 3 (putpp " type checking" . ioeErr . showCheckModule gr) mor
if null warnings then return () else putp warnings $ return () if null warnings then return () else putp warnings $ return ()
intermOut opts (iOpt "show_typecheck") (prMod moc) intermOut opts (iOpt "show_typecheck") (prMod moc)
(k',mox) <- putpp " refreshing " $ ioeErr $ refreshModule k moc (mox,k') <- stopIfV k 4 (putpp " refreshing " . ioeErr . refreshModule k) moc
intermOut opts (iOpt "show_refresh") (prMod mox) intermOut opts (iOpt "show_refresh") (prMod mox)
moo <- putpp " optimizing " $ ioeErr $ optimizeModule opts gr mox moo <- stopIf 5 (putpp " optimizing " . ioeErr . optimizeModule opts gr) mox
intermOut opts (iOpt "show_optimize") (prMod moo) intermOut opts (iOpt "show_optimize") (prMod moo)
---- mof <- putpp " factorizing " $ ioeErr $ optimizeModule opts gr moo mof <- stopIf 6 (putpp " factorizing " . ioeErr . optimizeModule opts gr) moo
---- intermOut opts (iOpt "show_factorize") (prMod mof) intermOut opts (iOpt "show_factorize") (prMod mof)
return (k,moo) ---- return (k',moo) ----
generateModuleCode :: Options -> InitPath -> SourceModule -> IOE SourceModule generateModuleCode :: Options -> InitPath -> SourceModule -> IOE SourceModule

4
src/GF/Devel/Compile/Refresh.hs
View File

@@ -30,10 +30,10 @@ import Control.Monad
-- for concrete and resource in grammar, before optimizing -- for concrete and resource in grammar, before optimizing
refreshModule :: Int -> SourceModule -> Err (Int,SourceModule) refreshModule :: Int -> SourceModule -> Err (SourceModule,Int)
refreshModule k (m,mo) = do refreshModule k (m,mo) = do
(mo',(_,k')) <- appSTM (termOpModule refresh mo) (initIdStateN k) (mo',(_,k')) <- appSTM (termOpModule refresh mo) (initIdStateN k)
return (k',(m,mo')) return ((m,mo'),k')
refreshTerm :: Term -> Err Term refreshTerm :: Term -> Err Term