GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 17:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Synopsis: no duplicate sections for syntactic categories.

Browse Source
This commit is contained in:
bringert
2007-11-06 09:47:38 +00:00
parent 1d3b691a75
commit 97944abdd9
2 changed files with 28 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/doc/MkSynopsis.hs
View File

@@ -198,8 +198,9 @@ sortRules = groupBy sameCat . sortBy compareRules
addLexicalCats :: Cats -> [Rules] -> [(String,Rules)]
addLexicalCats cs rss =
sortBy (\x y -> compare (fst x) (fst y)) $
map head $ groupBy fstEq $ sortBy (\x y -> compare (fst x) (fst y)) $
[ (resultCat r, rs) | rs@(r:_) <- rss] ++ [(n,[]) | (n,_,_) <- cs]
where fstEq p1 p2 = fst p1 == fst p2
resultCat :: (String,String,String) -> String
resultCat (_,t,_) = last (words t)