diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/UseGrammar/Parsing.hs | 14 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
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" |