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

changed suffix gfc to gfo in the gfc program to enable sharing directories with gf

Browse Source
This commit is contained in:
aarne
2007-11-04 20:36:58 +00:00
parent 450044b81e
commit 456086c441
2 changed files with 19 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -106,7 +106,7 @@ compileOne opts env@(_,srcgr) file = do
-- for compiled gf, read the file and update environment
-- also undo common subexp optimization, to enable normal computations
"gfc" -> do
"gfo" -> do
sm0 <- putp ("+ reading" +++ file) $ getSourceModule opts file
let sm1 = unsubexpModule sm0
sm <- {- putp "creating indirections" $ -} ioeErr $ extendModule mos sm1
@@ -118,7 +118,7 @@ compileOne opts env@(_,srcgr) file = do
let modu = unsuffixFile file
b1 <- ioeIO $ doesFileExist file
if not b1
then compileOne opts env $ gfcFile $ modu
then compileOne opts env $ gfoFile $ modu
else do
sm0 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $
@@ -175,7 +175,7 @@ generateModuleCode opts path minfo@(name,info) = do
let minfo1 = (if isConcr info then optModule else id) minfo
let minfo2 = minfo1
let (file,out) = (gfcFile pname, prGrammar (MGrammar [minfo2]))
let (file,out) = (gfoFile pname, prGrammar (MGrammar [minfo2]))
putp (" wrote file" +++ file) $ ioeIO $ writeFile file $ compactPrint out
return minfo2