diff options
| author | msozeau | 2009-09-03 17:54:19 +0000 |
|---|---|---|
| committer | msozeau | 2009-09-03 17:54:19 +0000 |
| commit | fc2fcbb114e85165c4a0b0b28aba129cf5d48604 (patch) | |
| tree | 3f25c25dbe951e2de5eac2371153447aeca9301e /tools/coqdoc/output.ml | |
| parent | 2c91b948c37c333d45ff374f4d2845524c4600c1 (diff) | |
Add --plain-comments patch by F. Garillot, which also adds
interpretation of [[ etc... inside (* *) comments when --parse-comments
is used. Add some additional fixes from B. Pierce on formatting
verbatim and the HTML Toc.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12307 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/output.ml')
| -rw-r--r-- | tools/coqdoc/output.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tools/coqdoc/output.ml b/tools/coqdoc/output.ml index 9fda0d0cad..b69e8b3695 100644 --- a/tools/coqdoc/output.ml +++ b/tools/coqdoc/output.ml @@ -668,14 +668,17 @@ module Html = struct printf "<hr/>"; print_table () end - let make_toc () = + + let make_toc () = let make_toc_entry = function | Toc_library m -> stop_item (); printf "<a href=\"%s.html\"><h2>Library %s</h2></a>\n" m m | Toc_section (n, f, r) -> - item n; - printf "<a href=\"%s\">" r; f (); printf "</a>\n" + if n <= 3 then begin + item n; + printf "<a href=\"%s\">" r; f (); printf "</a>\n" + end in Queue.iter make_toc_entry toc_q; stop_item (); |