From 6e1041ad146ab3cf90cfdfad237ee1f6816a3db6 Mon Sep 17 00:00:00 2001
From: notin
Date: Fri, 24 Apr 2009 18:28:56 +0000
Subject: Report de la révision #12104 (Maj lien site web de Coq)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12105 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdoc/cdglobals.ml | 2 +-
 tools/coqdoc/main.ml      | 2 +-
 tools/coqdoc/output.ml    | 4 +---
 3 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'tools')

diff --git a/tools/coqdoc/cdglobals.ml b/tools/coqdoc/cdglobals.ml
index c81dcec179..b3f0739d19 100644
--- a/tools/coqdoc/cdglobals.ml
+++ b/tools/coqdoc/cdglobals.ml
@@ -54,7 +54,7 @@ let toc = ref false
 let page_title = ref ""
 let title = ref ""
 let externals = ref true
-let coqlib = ref "http://coq.inria.fr/library/"
+let coqlib = ref Coq_config.wwwstdlib
 let coqlib_path = ref Coq_config.coqlib
 let raw_comments = ref false
 let parse_comments = ref false
diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml
index bbfd93fd44..da65466ddf 100644
--- a/tools/coqdoc/main.ml
+++ b/tools/coqdoc/main.ml
@@ -56,7 +56,7 @@ let usage () =
   prerr_endline "  --verbose            verbose mode";  
   prerr_endline "  --no-externals       no links to Coq standard library";
   prerr_endline "  --coqlib <url>       set URL for Coq standard library";
-  prerr_endline "                       (default is http://coq.inria.fr/library/)";
+  prerr_endline ("                       (default is " ^ Coq_config.wwwstdlib ^ ")");
   prerr_endline "  --boot               run in boot mode";
   prerr_endline "  --coqlib_path <dir>  set the path where Coq files are installed";
   prerr_endline "  -R <dir> <coqdir>    map physical dir to Coq dir";
diff --git a/tools/coqdoc/output.ml b/tools/coqdoc/output.ml
index 86f3bda7e5..9fda0d0cad 100644
--- a/tools/coqdoc/output.ml
+++ b/tools/coqdoc/output.ml
@@ -395,8 +395,6 @@ module Html = struct
 	  printf "<div id=\"main\">\n\n"
 	end
 
-  let self = "http://coq.inria.fr"
-
   let trailer () =
     if !index && !current_module <> "Index" then 
       printf "</div>\n\n<div id=\"footer\">\n<hr/><a href=\"index.html\">Index</a>";
@@ -412,7 +410,7 @@ module Html = struct
       else
 	begin
 	  printf "<hr/>This page has been generated by ";
-	  printf "<a href=\"%s\">coqdoc</a>\n" self;
+	  printf "<a href=\"%s\">coqdoc</a>\n" Coq_config.wwwcoq;
 	  printf "</div>\n\n</div>\n\n</body>\n</html>"
 	end
 
-- 
cgit v1.2.3