diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-27 18:00:59 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-27 18:00:59 +0000 |
commit | 2b1e771f49be6794bbe7e7d2f54b7571ccdf35b3 (patch) | |
tree | 3a8f963f7046bc5846a07aee3994d91db9847d28 /tools/coqdoc/output.ml | |
parent | 05f7d5c2564bb10fa09853b088aac1b063496c6e (diff) |
Added option --external to coqdoc to bind an url to an external library.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12426 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/output.ml')
-rw-r--r-- | tools/coqdoc/output.ml | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/tools/coqdoc/output.ml b/tools/coqdoc/output.ml index 0c5e9ff29..1d68b010e 100644 --- a/tools/coqdoc/output.ml +++ b/tools/coqdoc/output.ml @@ -256,10 +256,9 @@ module Latex = struct match find_module m with | Local -> printf "<a href=\"%s.html\">" m; raw_ident s; printf "</a>" - | Coqlib when !externals -> - let m = Filename.concat !coqlib m in + | External m when !externals -> printf "<a href=\"%s.html\">" m; raw_ident s; printf "</a>" - | Coqlib | Unknown -> + | External _ | Unknown -> raw_ident s i*) @@ -268,10 +267,9 @@ module Latex = struct match find_module m with | Local -> printf "\\coq%sref{" (type_name typ); label_ident id; printf "}{"; raw_ident s; printf "}" - | Coqlib when !externals -> - let _m = Filename.concat !coqlib m in - printf "\\coq%sref{" (type_name typ); label_ident id; printf "}{"; raw_ident s; printf "}" - | Coqlib | Unknown -> + | External _ when !externals -> + printf "\\coq%sref{" (type_name typ); label_ident id; printf "}{"; raw_ident s; printf "}" + | External _ | Unknown -> printf "\\coq%sref{" (type_name typ); label_ident id; printf "}{"; raw_ident s; printf "}" let defref m id ty s = @@ -481,10 +479,9 @@ module Html = struct match find_module m with | Local -> printf "<a class=\"modref\" href=\"%s.html\">" m; raw_ident s; printf "</a>" - | Coqlib when !externals -> - let m = Filename.concat !coqlib m in + | External m when !externals -> printf "<a class=\"modref\" href=\"%s.html\">" m; raw_ident s; printf "</a>" - | Coqlib | Unknown -> + | External _ | Unknown -> raw_ident s let ident_ref m fid typ s = @@ -494,12 +491,11 @@ module Html = struct printf "<span class=\"id\" type=\"%s\">" typ; raw_ident s; printf "</span></a>" - | Coqlib when !externals -> - let m = Filename.concat !coqlib m in + | External m when !externals -> printf "<a class=\"idref\" href=\"%s.html#%s\">" m fid; printf "<span class=\"id\" type=\"%s\">" typ; raw_ident s; printf "</span></a>" - | Coqlib | Unknown -> + | External _ | Unknown -> printf "<span class=\"id\" type=\"%s\">" typ; raw_ident s; printf "</span>" let reference s r = |