some more conversion patterns for Susanne

2015-11-18 10:16:55 +00:00
parent ee1d19555a
commit 43011ebdb1
3 changed files with 126 additions and 29 deletions
--- a/treebanks/susanne/Parser.hs
+++ b/treebanks/susanne/Parser.hs
@@ -19,6 +19,8 @@ instance MonadPlus P where
  mzero = P (\pgf cnc ts -> Nothing)
  mplus f g = P (\pgf cnc ts -> mplus (runP f pgf cnc ts) (runP g pgf cnc ts))

+getConcr = P (\pgf cnc ts -> Just (ts,cnc))
+
 match convert tag_spec = P (\pgf cnc ts ->
  case ts of
    (t@(Phrase tag1 mods1 fn1 _ _):ts)