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

2 files changed, 5 insertions, 0 deletions

diff --git a/lib/util.ml b/lib/util.ml
index 549c40e30c..b161b966e1 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -99,6 +99,10 @@ let strip s =
   let a = lstrip_rec 0 and b = rstrip_rec (n-1) in
   String.sub s a (b-a+1)
 
+let drop_simple_quotes s =
+  let n = String.length s in
+  if n > 2 & s.[0] = '\'' & s.[n-1] = '\'' then String.sub s 1 (n-2) else s
+
 (* substring searching... *)
 
 (* gdzie = where, co = what *)
diff --git a/lib/util.mli b/lib/util.mli
index 84762badeb..5e32a1b0ea 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -83,6 +83,7 @@ val is_blank : char -> bool
 val explode : string -> string list
 val implode : string list -> string
 val strip : string -> string
+val drop_simple_quotes : string -> string
 val string_index_from : string -> int -> string -> int
 val string_string_contains : where:string -> what:string -> bool
 val plural : int -> string -> string