From: Jim Meyering <jim@meyering.net>
Date: Sat, 22 Jan 2000 21:29:02 +0000 (+0000)
Subject: (dir_name): Support for DOS-style file names with drive letters.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=373d8ea1b7074011bd6dc3605e1ef855cfb4af03;p=pspp

(dir_name): Support for DOS-style file names with drive letters.
---

diff --git a/lib/dirname.c b/lib/dirname.c
index 483c338672..cf62de7a04 100644
--- a/lib/dirname.c
+++ b/lib/dirname.c
@@ -57,8 +57,17 @@ dir_name (const char *path)
   else
     {
       /* Remove any trailing slashes from the result.  */
+#ifdef MSDOS
+      char *lim = (path[0] >= 'A' && path[0] <= 'z' && path[1] == ':')
+		  ? path + 2 : path;
+
+      /* If canonicalized "d:/path", leave alone the root case "d:/".  */
+      while (slash > lim && *slash == '/')
+	--slash;
+#else
       while (slash > path && *slash == '/')
 	--slash;
+#endif
 
       length = slash - path + 1;
     }