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

Synopsis: include category explanation in each category section.

Browse Source
This commit is contained in:
bringert
2007-11-05 18:01:06 +00:00
parent 1802021fe1
commit f7fa5a3393
2 changed files with 95 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -30,7 +30,7 @@ main = do
link "Source:" syntaxAPI
space
rs <- getRules syntaxAPI
delimit $ mkSplitTables True isLatex rs
delimit $ mkSplitTables True isLatex cs rs
space
title "Structural Words"
space
@@ -114,9 +114,13 @@ 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 -> [(String,String,String)] -> [String]
mkSplitTables hasEx isLatex rs = concatMap t (sortRules rs)
where t xs = subtitle (resultCat (head xs)) : mkTable hasEx isLatex xs
mkSplitTables :: Bool -> Bool -> [(String,String,String)] -> [(String,String,String)] -> [String]
mkSplitTables hasEx isLatex cs rs = concatMap t (sortRules rs)
where t xs = [subtitle c] ++ expl ++ mkTable hasEx isLatex xs
where c = resultCat (head xs)
expl = case [e | (n,e,_) <- cs, n == c] of
[] -> []
e:_ -> ["", e, ""]
mkTable :: Bool -> Bool -> [(String,String,String)] -> [String]
mkTable hasEx isLatex = inChunks chsize (\rs -> header : map (unwords . row) rs)