diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-30 14:36:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-30 14:36:40 +0000 |
| commit | 719e75105158932558aaa071d2ede50e41a9454b (patch) | |
| tree | 46f44cb070b3f9c1ec1d30ce019561a7bfdd9e6e | |
| parent | 5dc1edf50f5c6ae4d0a9ac1c7ff45d95da1a61e2 (diff) | |
BronzeageDan
| -rw-r--r-- | examples/bronzeage/BronzeageDan.gf | 5 | ||||
| -rw-r--r-- | examples/bronzeage/BronzeageI.gf | 2 | ||||
| -rw-r--r-- | examples/bronzeage/SwadeshDan.gf | 5 | ||||
| -rw-r--r-- | src/GF/Compile/Compile.hs | 6 |
4 files changed, 13 insertions, 5 deletions
diff --git a/examples/bronzeage/BronzeageDan.gf b/examples/bronzeage/BronzeageDan.gf new file mode 100644 index 000000000..a921ad03c --- /dev/null +++ b/examples/bronzeage/BronzeageDan.gf @@ -0,0 +1,5 @@ +--# -path=.:present:prelude + +concrete BronzeageDan of Bronzeage = CatDan, SwadeshDan ** BronzeageI with + (Lang = LangDan) ; + diff --git a/examples/bronzeage/BronzeageI.gf b/examples/bronzeage/BronzeageI.gf index dbaac3ce9..f0a484c41 100644 --- a/examples/bronzeage/BronzeageI.gf +++ b/examples/bronzeage/BronzeageI.gf @@ -1,7 +1,7 @@ incomplete concrete BronzeageI of Bronzeage = open Lang in { flags - startcat = Phr ; optimize = all_subs ; + startcat = Phr ; optimize = share_subs ; unlexer = text ; lexer = text ; lincat diff --git a/examples/bronzeage/SwadeshDan.gf b/examples/bronzeage/SwadeshDan.gf new file mode 100644 index 000000000..e667609f3 --- /dev/null +++ b/examples/bronzeage/SwadeshDan.gf @@ -0,0 +1,5 @@ +--# -path=.:present:prelude + +concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with + (Lang = LangDan) ; + diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 0dba7a9ec..c79dd2b4d 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -272,10 +272,8 @@ compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3 mo4 <- ----- case snd mo1b of ----- ModMod n | isModCnc n -> - putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r ----- _ -> return [mo3r] + ---- if oElem "check_only" opts + putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r return (k',mo4) where ---- prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug |