(cut_path_elements): New functon.

diff --git a/src/names.c b/src/names.c
index 8301a3e2b48e6209ab4545caf408354c820eb969..ee68749bb921be22ce3b13bcfeb3a4e8be8be205 100644 (file)
--- a/src/names.c
+++ b/src/names.c
@@ -1043,6 +1043,23 @@ safer_name_suffix (char const *file_name, bool link_target)
   return (char *) p;
 }
 \f
+char const *
+cut_path_elements (char const *file_name, size_t num)
+{
+  char const *p = file_name;
+  if (ISSLASH (*p))
+    p++;
+  for (; *p; p++)
+    {
+      if (ISSLASH (*p))
+       {
+         if (--num == 0)
+           return p + 1;
+       }
+    }
+  return NULL;
+}
+\f
 /* Return nonzero if NAME contains ".." as a path name component.  */
 bool
 contains_dot_dot (char const *name)