r8709@thot: notin | 2006-03-25 01:48:46 +0100

 - Ajout de FSets dans la doc de stdlib
 - coqdoc copie la feuille de style dans le répertoire courant


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8663 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 10 insertions, 0 deletions

diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml
index 865f101f60..f81a3b78b0 100644
--- a/tools/coqdoc/main.ml
+++ b/tools/coqdoc/main.ml
@@ -419,6 +419,16 @@ let index_module = function
 
 let produce_document l =
   List.iter index_module l;
+  (if !target_language=HTML then
+    let src = (Filename.concat Coq_config.coqlib "/tools/coqdoc/coqdoc.css") in
+    let dst = if !output_dir <> "" then Filename.concat !output_dir "coqdoc.css" else "coqdoc.css" in
+      copy src dst);
+  (if !target_language=LaTeX then
+    let src = (Filename.concat Coq_config.coqlib "/tools/coqdoc/coqdoc.sty") in
+    let dst = if !output_dir <> "" then 
+      Filename.concat !output_dir "coqdoc.sty" 
+    else "coqdoc.sty" in
+      copy src dst);
   match !out_to with
     | StdOut -> 
 	Cdglobals.out_channel := stdout;