preparing resource api for multilingual documentation

2010-12-10 08:48:26 +00:00
parent 847561d2f6
commit 7b9e55650b
7 changed files with 562 additions and 114 deletions
--- a/lib/doc/MkSynopsis.hs
+++ b/lib/doc/MkSynopsis.hs
@@ -46,7 +46,9 @@ main = do
 ---  putStrLn $ unlines ["p -cat=" ++ last (words t) ++ 
 ---               " \"" ++ e ++ "\"" | (_,t,e) <- rs, not (null e)] ----
  rs2 <- getRules structuralAPI
-  delimit $ mkSplitTables True isLatex cs $ rs ++ rs2
+  let rss = rs ++ rs2
+  mapM_ putStrLn [f ++ " " ++ e | (f,_,e) <- rss]
+  delimit $ mkSplitTables True isLatex cs rss 
  space
 --  title "Structural Words"
 --  space