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
---
 lib/util.ml  | 4 ++++
 lib/util.mli | 1 +
 2 files changed, 5 insertions(+)

(limited to 'lib')

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
-- 
cgit v1.2.3