From 0ac49ec12ffdc8f02e1071eb333f5d2c659ca5b1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 6 Oct 2003 08:16:05 +0000
Subject: Experimenting with the new parser:

Experimenting with the new parser:
p -cat=S -new -parser=CF-BU "John walks"
---
 src/GF/UseGrammar/Parsing.hs | 14 +++++++++++++-
 src/Today.hs                 |  2 +-
 2 files changed, 14 insertions(+), 2 deletions(-)

(limited to 'src')

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"
-- 
cgit v1.2.3