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

post-cleaning of tailing pre expressions in synopsis generation

Browse Source
This commit is contained in:
aarne
2011-10-24 12:53:24 +00:00
parent ffd9a93a80
commit a835cf263b
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/doc/MkExxTable.hs
View File

@@ -70,10 +70,13 @@ prApiEx apexx = case M.toList apexx of
(a,e):lexx -> (a ++ ": ``" ++ unwords (words e) ++ "``"): (a,e):lexx -> (a ++ ": ``" ++ unwords (words e) ++ "``"):
[l ++ ": //" ++ mkEx e ++ "//" | (l,e) <- lexx] [l ++ ": //" ++ mkEx e ++ "//" | (l,e) <- lexx]
mkEx e = case words e of mkEx = unwords . bind . mkE . words where
"atomic":"term":_ -> "*" mkE e = case e of
"[]":_ -> "''" "atomic":"term":_ -> ["*"]
es -> unwords (bind es) "[]":_ -> ["''"]
"pre":p@('{':_):es -> init (init (drop 2 p)) : mkE es
e0:es -> e0:mkE es
_ -> e
bind ws = case ws of bind ws = case ws of
w : "&+" : u : ws2 -> bind ((w ++ u) : ws2) w : "&+" : u : ws2 -> bind ((w ++ u) : ws2)