From ea85f46dc0cc34db149c24bb2da8f3130e191fc1 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 11 Sep 2009 17:53:30 +0000
Subject: Generalized the possibility to refer to a global name by a notation
 string in most commands expecting a global name (e.g. 'Print "+"' for an
 infix notation or 'Print "{ _ } + { _ }"' for a misfix notation, possibly
 surrounded by a scope delimiter). Support for such smart globals in VERNAC
 EXTEND to do.

Added a file smartlocate.ml for high-level globalization functions.

Mini-nettoyage metasyntax.ml.



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12323 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/genarg.mli | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'interp/genarg.mli')

diff --git a/interp/genarg.mli b/interp/genarg.mli
index 9072456c3e..e6747db171 100644
--- a/interp/genarg.mli
+++ b/interp/genarg.mli
@@ -21,7 +21,9 @@ type 'a and_short_name = 'a * identifier located option
 
 type 'a or_by_notation =
   | AN of 'a
-  | ByNotation of loc * string * Notation.delimiters option
+  | ByNotation of (loc * string * Notation.delimiters option)
+
+val loc_of_or_by_notation : ('a -> loc) -> 'a or_by_notation -> loc
 
 (* In globalize tactics, we need to keep the initial [constr_expr] to recompute*)
 (* in the environment by the effective calls to Intro, Inversion, etc *)
-- 
cgit v1.2.3