Experimenting with the new parser:

Experimenting with the new parser:
p -cat=S -new -parser=CF-BU "John walks"

2 files changed, 14 insertions, 2 deletions

diff --git a/src/GF/UseGrammar/Parsing.hs b/src/GF/UseGrammar/Parsing.hs
index 4cd4f4bc8..6cafb8c69 100644
--- a/src/GF/UseGrammar/Parsing.hs
+++ b/src/GF/UseGrammar/Parsing.hs
@@ -19,6 +19,8 @@ import Option
 import Custom
 import ShellState
 
+import qualified ExportParser as N
+
 import Operations
 
 import List (nub)
@@ -35,7 +37,17 @@ parseStringMsg os sg cat s = do
   return (ts,unlines ss)
 
 parseStringC :: Options -> StateGrammar -> CFCat -> String -> Check [Tree]
-parseStringC opts0 sg cat s = do
+parseStringC opts0 sg cat s
+
+---- to test peb's new parser 6/10/2003
+ | oElem newParser opts0 = do  
+  let pm = maybe "" id $ getOptVal opts0 useParser -- -parser=pm
+      gr = grammar sg
+  ps <- checkErr $ N.newParser pm gr (cfCat2Cat cat) s
+  checkWarn $ unlines ps
+  return []
+
+ | otherwise = do
   let opts = unionOptions opts0 $ stateOptions sg
       cf  = stateCF sg
       gr  = stateGrammarST sg
diff --git a/src/Today.hs b/src/Today.hs
index 3e8e4ecae..208b000f9 100644
--- a/src/Today.hs
+++ b/src/Today.hs
@@ -1 +1 @@
-module Today where today = "Fri Oct  3 14:06:22 CEST 2003"
+module Today where today = "Mon Oct  6 10:50:56 CEST 2003"