From d17996227b8c839fc363887ae3aed491e175beaa Mon Sep 17 00:00:00 2001 From: letouzey Date: Wed, 7 Jul 2010 08:34:33 +0000 Subject: Extraction: some more work on the (re)naming framework - MPbound can be part of visible_mps (when printing the type of a module parameter, or when printing body of a With), hence the locality test base_mp mp = base_mp (top_visible_mp ()) isn't accurate. - new organisation, pp_ocaml_gen is splitted in many sub-functions, attempt to be clearer - the shortcut (if List.length ls = 1 then ...) isn't safe, we might detect name conflict even in this case. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13248 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/extraction/table.mli | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'plugins/extraction/table.mli') diff --git a/plugins/extraction/table.mli b/plugins/extraction/table.mli index e64f1de15..f3da84933 100644 --- a/plugins/extraction/table.mli +++ b/plugins/extraction/table.mli @@ -53,7 +53,8 @@ val visible_con : constant -> bool val mp_length : module_path -> int val prefixes_mp : module_path -> MPset.t val modfile_of_mp : module_path -> module_path -val common_prefix_from_list : module_path -> module_path list -> module_path +val common_prefix_from_list : + module_path -> module_path list -> module_path option val add_labels_mp : module_path -> label list -> module_path val get_nth_label_mp : int -> module_path -> label val labels_of_ref : global_reference -> module_path * label list -- cgit v1.2.3