Making cf2gf to work...

4 files changed, 7 insertions, 10 deletions

diff --git a/src/GF/API/IOGrammar.hs b/src/GF/API/IOGrammar.hs
index 53b056c46..9b6fe0c5a 100644
--- a/src/GF/API/IOGrammar.hs
+++ b/src/GF/API/IOGrammar.hs
@@ -6,7 +6,6 @@ import PGrammar
 import TypeCheck
 import Compile
 import ShellState
-import GetGrammar
 
 import Modules
 import Option
@@ -38,11 +37,6 @@ string2annotTree gr m = annotate gr . string2absTerm (prt m) ---- prt
 
 shellStateFromFiles :: Options -> ShellState -> FilePath -> IOE ShellState
 shellStateFromFiles opts st file = case fileSuffix file of
-  "cf" -> do
-     let opts' = addOptions (options [beVerbose]) opts
-     sgr <- getCFGrammar opts' file
-     ioeIO $ print sgr -----
-     return st
   "gfcm" -> do
      (_,_,cgr) <- compileOne opts (compileEnvShSt st []) file
      ioeErr $ updateShellState opts st (cgr,(emptyMGrammar,[]))  
diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs
index 91ab240ea..6712c45f3 100644
--- a/src/GF/CF/PPrCF.hs
+++ b/src/GF/CF/PPrCF.hs
@@ -55,7 +55,7 @@ getCFRule mo s = getcf (wrds s) where
     fun : cat : _ : its = words s
     mkIt ('"':w@(_:_)) = atomCFTerm (string2CFTok (init w))
     mkIt w = CFNonterm (string2CFCat mo w)
-  getcf _ = Bad "invalid rule"
+  getcf _ = Bad (" invalid rule:" +++ s)
   wrds = takeWhile (/= ";") . words -- to permit semicolon in the end
 
 pCF :: String -> String -> Err CF
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index 9d80f6a05..e6936809c 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -55,10 +55,13 @@ batchCompileOld f = compileOld defOpts f
 
 compileModule :: Options -> ShellState -> FilePath -> 
                  IOE (GFC.CanonGrammar, (SourceGrammar,[(FilePath,ModTime)]))
-compileModule opts st0 file | oElem showOld opts = do
+
+compileModule opts st0 file | oElem showOld opts || fileSuffix file == "cf" = do
   let putp = putPointE opts
   let path = [] ----
-  grammar1 <- putp ("- parsing old gf" +++ file) $ getOldGrammar opts file
+  grammar1 <- if fileSuffix file == "cf"
+                then putp ("- parsing cf" +++ file) $ getCFGrammar opts file
+                else putp ("- parsing old gf" +++ file) $ getOldGrammar opts file
   let mods = modules grammar1
   let env = compileEnvShSt st0 []
   (_,sgr,cgr) <- foldM (comp putp path) env mods
diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs
index f5698bb9c..58ce8d62b 100644
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -88,7 +88,7 @@ getCFGrammar :: Options -> FilePath -> IOE SourceGrammar
 getCFGrammar opts file = do
   let mo = takeWhile (/='-') file
   s    <- ioeIO $ readFileIf file
-  cf   <- ioeErr $ pCF mo file
+  cf   <- ioeErr $ pCF mo s
   defs <- return $ cf2grammar cf
   let g = A.OldGr A.NoIncl defs
   ioeErr $ transOldGrammar opts file g