+/** find chars of a set.
+
+@return
+
+the index of the leftmost occurance of an element of #set#. -1 if
+nothing is found.
+*/
+int
+String::index_any (String set) const
+{
+ int n = length ();
+ if (!n)
+ return -1;
+
+ void const *me = (void const *) strh_.to_str0 ();
+ for (int i = 0; i < set.length (); i++)
+ {
+ char *found = (char *) memchr (me, set[i], n);
+ if (found)
+ {
+ return found - (char const *)me;
+ }
+ }
+ return -1;
+}
+\f