From 2f612369c69e77ae2f1d16ef199b17ba841c02d8 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 6 Mar 2001 07:31:29 +0000
Subject: modifs pour extraction; bug coqmktop

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1428 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 Makefile                   | 7 +++++++
 bin/.cvsignore             | 1 +
 dev/ocamldebug-v7.template | 1 +
 scripts/coqmktop.ml        | 2 +-
 4 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index a85f1fc0ab..ed8faaec45 100644
--- a/Makefile
+++ b/Makefile
@@ -207,6 +207,13 @@ parsing: $(PARSING)
 pretyping: $(PRETYPING)
 toplevel: $(TOPLEVEL)
 
+# special binaries for debugging
+
+EXTRACTIONCMO=contrib/extraction/ocaml.cmo contrib/extraction/extraction.cmo 
+
+bin/coq-extraction: $(COQMKTOP) $(CMO) $(USERTACCMO)
+	$(COQMKTOP) -top $(INCLUDES) $(CAMLDEBUG) -o $@ $(EXTRACTIONCMO)
+
 ###########################################################################
 # tests
 ###########################################################################
diff --git a/bin/.cvsignore b/bin/.cvsignore
index 4ec23cbfe2..267d455438 100644
--- a/bin/.cvsignore
+++ b/bin/.cvsignore
@@ -7,3 +7,4 @@ coqdep
 coq_makefile
 gallina
 coq-tex
+coq-extraction
diff --git a/dev/ocamldebug-v7.template b/dev/ocamldebug-v7.template
index b2510be44b..a29c6cb0ab 100644
--- a/dev/ocamldebug-v7.template
+++ b/dev/ocamldebug-v7.template
@@ -30,6 +30,7 @@ case $coqdebug in
         -I $COQTOP/proofs -I $COQTOP/tactics \
 	-I $COQTOP/toplevel -I $COQTOP/dev -I $COQTOP/config \
         -I $COQTOP/contrib/omega -I $COQTOP/contrib/ring \
+	-I $COQTOP/contrib/extraction \
 	$* $args;;
     *) exec $OCAMLDEBUG $*;;
 esac
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml
index d8f323d2f2..a58826c417 100644
--- a/scripts/coqmktop.ml
+++ b/scripts/coqmktop.ml
@@ -219,7 +219,7 @@ let tmp_dynlink()=
   let _ = Sys.command ("echo \"Dynlink.init();;\" > "^tmp) in
   let _ = Sys.command (Coq_config.camllib^"/extract_crc"^(crc_cmd
       Coq_config.camllib)^(crc_cmd Coq_config.camlp4lib)^(rec_crc_cmd
-      (Coq_config.coqtop^"/src"))^" >> "^tmp) in
+      Coq_config.coqtop)^" >> "^tmp) in
   let _ = Sys.command ("echo \";;\" >> "^tmp) in
   let _ = 
     Sys.command ("echo \"Dynlink.add_available_units crc_unit_list;;\" >> "^
-- 
cgit v1.2.3