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

cleaned up obsolete GFCC references

Browse Source
This commit is contained in:
aarne
2007-10-06 07:37:44 +00:00
parent db606bd2d1
commit 8d0aaf0b24
3 changed files with 6 additions and 494 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/GF/Compile/Compile.hs
View File

@@ -39,7 +39,7 @@ import GF.Compile.CheckGrammar
import GF.Compile.Optimize
import GF.Compile.Evaluate
import GF.Compile.GrammarToCanon
import GF.Compile.GrammarToGFCC -----
--import GF.Devel.GrammarToGFCC -----
import GF.Canon.Share
import GF.Canon.Subexpressions (elimSubtermsMod,unSubelimModule)
import GF.UseGrammar.Linear (unoptimizeCanonMod) ----
@@ -300,9 +300,10 @@ compileSourceModule opts env@(k,gr,can,eenv) mo@(i,mi) = do
generateModuleCode :: Options -> InitPath -> SourceModule -> IOE GFC.CanonModule
generateModuleCode opts path minfo@(name,info) = do
if oElem (iOpt "gfcc") opts
then ioeIO $ putStrLn $ prGrammar2gfcc minfo
else return ()
--- DEPREC
--- if oElem (iOpt "gfcc") opts
--- then ioeIO $ putStrLn $ prGrammar2gfcc minfo
--- else return ()
let pname = prefixPathName path (prt name)
minfo0 <- ioeErr $ redModInfo minfo