From 0c6a6f1849328a298f5145a93e0ffa4ecc43c8f4 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 19 Apr 2000 23:24:52 +0000
Subject: 	* generic/tclFileName.c (SplitUnixPath): added support for QNX
 	node ids.

---
 ChangeLog             |  5 +++++
 generic/tclFileName.c | 15 ++++++++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index eb86e76..0f6fcf2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-19  Jeff Hobbs  <hobbs@scriptics.com>
+
+	* generic/tclFileName.c (SplitUnixPath): added support for QNX
+	node ids.
+
 2000-04-18  Jeff Hobbs  <hobbs@scriptics.com>
 
 	* README:
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 289e534..b09d1a2 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclFileName.c,v 1.12 2000/03/03 02:57:48 hobbs Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.13 2000/04/19 23:24:52 hobbs Exp $
  */
 
 #include "tclInt.h"
@@ -446,6 +446,19 @@ SplitUnixPath(path, bufPtr)
      * Deal with the root directory as a special case.
      */
 
+#ifdef __QNX__
+    /*
+     * Check for QNX //<node id> prefix
+     */
+    if ((path[0] == '/') && (path[1] == '/')
+	    && isdigit(UCHAR(path[2]))) { /* INTL: digit */
+	path += 3;
+	while (isdigit(UCHAR(*path))) { /* INTL: digit */
+	    ++path;
+	}
+    }
+#endif
+
     if (path[0] == '/') {
 	Tcl_DStringAppend(bufPtr, "/", 2);
 	p = path+1;
-- 
cgit v0.12