From 7fc1c21b734a459ee9fef1f945a1a9c420aaa00c Mon Sep 17 00:00:00 2001
From: notin
Date: Sat, 25 Mar 2006 13:22:41 +0000
Subject:  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
---
 tools/coqdoc/main.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tools')

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;
-- 
cgit v1.2.3