From 09ab082e025c7f7db04df1100aa817615f091cc4 Mon Sep 17 00:00:00 2001
From: notin
Date: Wed, 26 Apr 2006 14:32:35 +0000
Subject: Correction d'un bug dans coqdoc sur l'utilisation de l'option -o et
 la création du fichier de style

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8734 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdoc/main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml
index c9860c1882..3a08a578ec 100644
--- a/tools/coqdoc/main.ml
+++ b/tools/coqdoc/main.ml
@@ -239,7 +239,7 @@ let parse () =
     | ("-stdout" | "--stdout") :: rem ->
 	out_to := StdOut; parse_rec rem
     | ("-o" | "--output") :: f :: rem ->
-	out_to := File f; parse_rec rem
+	out_to := File (Filename.basename f); output_dir := Filename.dirname f; parse_rec rem
     | ("-o" | "--output") :: [] -> 
 	usage ()
     | ("-d" | "--directory") :: dir :: rem ->
-- 
cgit v1.2.3