the parser can read .gfm files (but they are not yet compiled all the way)

1 files changed, 10 insertions, 1 deletions

diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs
index a848c9bcf..4eebc2845 100644
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -12,7 +12,9 @@
 -- this module builds the internal GF grammar that is sent to the type checker
 -----------------------------------------------------------------------------
 
-module GF.Compile.GetGrammar (getSourceModule, getOldGrammar, getCFGrammar, getEBNFGrammar,
+module GF.Compile.GetGrammar (
+  getSourceModule, getSourceGrammar,
+  getOldGrammar, getCFGrammar, getEBNFGrammar,
 		   err2err
 		  ) where
 
@@ -50,6 +52,13 @@ getSourceModule file = do
   mo1  <- ioeErr $ {- err2err $ -} pModDef tokens
   ioeErr $ transModDef mo1
 
+getSourceGrammar :: FilePath -> IOE SourceGrammar
+getSourceGrammar file = do
+  string    <- readFileIOE file
+  let tokens = myLexer string
+  gr1  <- ioeErr $ {- err2err $ -} pGrammar tokens
+  ioeErr $ transGrammar gr1
+
 
 -- for old GF format with includes