From 53e3a6a6d2d9673f8ba83797b0cdf1ec37f0fd7c Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 10 Nov 2003 02:30:55 +0000
Subject: le pb du <<.v vu comme module>> engendre maintenant une erreur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4851 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/extract_env.ml | 1 +
 contrib/extraction/table.ml       | 4 ++++
 contrib/extraction/table.mli      | 1 +
 3 files changed, 6 insertions(+)

diff --git a/contrib/extraction/extract_env.ml b/contrib/extraction/extract_env.ml
index 972c8931c1..dd95195ee0 100644
--- a/contrib/extraction/extract_env.ml
+++ b/contrib/extraction/extract_env.ml
@@ -183,6 +183,7 @@ let rec extract_msb env v mp all = function
       else ms
 
 and extract_meb env v mpo all = function 
+  | MEBident (MPfile d) -> error_MPfile_as_mod d (* temporary (I hope) *)
   | MEBident mp -> visit_mp v mp; MEident mp 
   | MEBapply (meb, meb',_) -> 
       MEapply (extract_meb env v None true meb, 
diff --git a/contrib/extraction/table.ml b/contrib/extraction/table.ml
index 96da2259d4..8f263015bc 100644
--- a/contrib/extraction/table.ml
+++ b/contrib/extraction/table.ml
@@ -192,6 +192,10 @@ let error_unqualified_name s1 s2 =
 	    "in ML from another name sharing the same basename.\n"  ^
 	    "Please do some renaming.\n"))
 
+let error_MPfile_as_mod d = 
+  err (str ("The whole file "^(string_of_dirpath d)^".v is used somewhere as a module.\n"^
+	    "Extraction cannot currently deal with this situation.\n"))
+
 (*S The Extraction auxiliary commands *)
 
 (*s Extraction AutoInline *)
diff --git a/contrib/extraction/table.mli b/contrib/extraction/table.mli
index 1e8371d1e7..6e413b626a 100644
--- a/contrib/extraction/table.mli
+++ b/contrib/extraction/table.mli
@@ -28,6 +28,7 @@ val error_toplevel : unit -> 'a
 val error_scheme : unit -> 'a
 val error_not_visible : global_reference -> 'a
 val error_unqualified_name : string -> string -> 'a 
+val error_MPfile_as_mod : dir_path -> 'a
 
 val check_inside_module : unit -> unit
 val check_inside_section : unit -> unit
-- 
cgit v1.2.3