From 716a209f65a2dc10cdaec7e5b12af09267694b3a Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Mar 2010 19:03:06 +0000 Subject: PGF.groupResults and the option l -groups, to show ambiguities grouped by laguage --- src/runtime/haskell/PGF.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/runtime/haskell') diff --git a/src/runtime/haskell/PGF.hs b/src/runtime/haskell/PGF.hs index 9cb23bf50..d27abd76c 100644 --- a/src/runtime/haskell/PGF.hs +++ b/src/runtime/haskell/PGF.hs @@ -51,6 +51,7 @@ module PGF( -- * Operations -- ** Linearization linearize, linearizeAllLang, linearizeAll, + groupResults, -- lins of trees by language, removing duplicates showPrintName, -- ** Parsing @@ -239,6 +240,13 @@ linearizeAll mgr = map snd . linearizeAllLang mgr linearizeAllLang mgr t = [(lang,PGF.linearize mgr lang t) | lang <- languages mgr] +groupResults :: [[(Language,String)]] -> [(Language,[String])] +groupResults = Map.toList . foldr more Map.empty . start . concat + where + start ls = [(l,[s]) | (l,s) <- ls] + more (l,s) = + Map.insertWith (\ [x] xs -> if elem x xs then xs else (x : xs)) l s + parseAll mgr typ = map snd . parseAllLang mgr typ parseAllLang mgr typ s = -- cgit v1.2.3