GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 14:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Synopsis: add sections for lexical categories. They are still empty, but at least most links work now. The links to param types still don't work.

Browse Source
This commit is contained in:
bringert
2007-11-05 22:18:01 +00:00
parent b241cc1309
commit 4e59da0c16
2 changed files with 202 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -119,10 +119,9 @@ inChunks i f = concat . intersperse ["\n\n"] . map f . chunks i where
-- Makes one table per result category.
-- Adds a subsection header for each table.
mkSplitTables :: Bool -> Bool -> Cats -> Rules -> [String]
mkSplitTables hasEx isLatex cs rs = concatMap t (sortRules rs)
where t xs = [subtitle c expl] ++ mkTable hasEx isLatex cs xs
where c = resultCat (head xs)
expl = case [e | (n,e,_) <- cs, n == c] of
mkSplitTables hasEx isLatex cs = concatMap t . addLexicalCats cs . sortRules
where t (c, xs) = [subtitle c expl] ++ mkTable hasEx isLatex cs xs
where expl = case [e | (n,e,_) <- cs, n == c] of
[] -> ""
e:_ -> e
@@ -191,6 +190,11 @@ sortRules = groupBy sameCat . sortBy compareRules
compareRules r1@(n1,_,_) r2@(n2,_,_)
= compare (resultCat r1,n1) (resultCat r2,n2)
addLexicalCats :: Cats -> [Rules] -> [(String,Rules)]
addLexicalCats cs rss =
sortBy (\x y -> compare (fst x) (fst y)) $
[ (resultCat r, rs) | rs@(r:_) <- rss] ++ [(n,[]) | (n,_,_) <- cs]
resultCat :: (String,String,String) -> String
resultCat (_,t,_) = last (words t)