msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

started grammar checking with new internal format

Browse Source
This commit is contained in:
aarne
2007-12-06 15:50:54 +00:00
parent 885b5bf681
commit 53078b23f0
4 changed files with 69 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -147,14 +147,18 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do
putpp = putPointEsil opts
mor <- ioeErr $ renameModule gr mo
intermOut opts (iOpt "show_rename") (prMod mor)
moe <- ioeErr $ extendModule gr mor
moe <- ioeErr $ extendModule gr mo
intermOut opts (iOpt "show_extend") (prMod moe)
mor <- ioeErr $ renameModule gr moe
intermOut opts (iOpt "show_rename") (prMod mor)
(moc,warnings) <- putpp " type checking" $ ioeErr $ showCheckModule gr mor
if null warnings then return () else putp warnings $ return ()
intermOut opts (iOpt "show_typecheck") (prMod moc)
return (k,moc) ----
return (k,moe) ----
{- ----
mo1 <- ioeErr $ rebuildModule mos mo