From 1056d12d5d7546c76677aeda3affb83316306329 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 25 Sep 2008 14:30:09 +0000
Subject: Implement TIP #315.

---
 ChangeLog          |  6 ++++++
 doc/tclvars.n      | 12 +++++++++++-
 unix/tclUnixInit.c |  8 +++++++-
 win/tclWinInit.c   |  8 +++++++-
 4 files changed, 31 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bdcb0d7..7ae0b15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2008-09-25  Donal K. Fellows  <dkf@users.sf.net>
 
+	TIP #315 IMPLEMENTATION
+
+	* unix/tclUnixInit.c, win/tclWinInit.c (TclpSetVariables):
+	* doc/tclvars.n (tcl_platform): Define what character is used for
+	separating PATH-like lists. Forms part of the tcl_platform array.
+
 	* generic/tclOOCall.c (InitCallChain, IsStillValid):
 	* tests/oo.test (oo-25.2): Revise call chain cache management so that
 	it takes into account class-wide caching correctly. [Bug 2120903]
diff --git a/doc/tclvars.n b/doc/tclvars.n
index fffa786..6235011 100644
--- a/doc/tclvars.n
+++ b/doc/tclvars.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: tclvars.n,v 1.37 2008/08/27 12:47:27 dkf Exp $
+'\" RCS: @(#) $Id: tclvars.n,v 1.38 2008/09/25 14:30:23 dkf Exp $
 '\" 
 .so man.macros
 .TH tclvars n 8.0 Tcl "Tcl Built-In Commands"
@@ -305,6 +305,13 @@ On UNIX machines, this is the value returned by \fBuname -r\fR.  On
 Windows 95, the version will be 4.0; on Windows 98, the version will
 be 4.10.
 .TP
+\fBpathSeparator
+.VS 8.6
+'\" Defined by TIP #315
+The character that should be used to \fBsplit\fR PATH-like environment
+variables into their corresponding list of directory names.
+.VE 8.6
+.TP
 \fBplatform\fR
 .
 Either \fBwindows\fR, or \fBunix\fR.  This identifies the
@@ -489,3 +496,6 @@ the main Tk window.
 eval(n), library(n), tclsh(1), wish(1)
 .SH KEYWORDS
 arithmetic, bytecode, compiler, error, environment, POSIX, precision, subprocess, variables
+'\" Local Variables:
+'\" mode: nroff
+'\" End:
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index 0b3cdc9..03c0cd6 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -7,7 +7,7 @@
  * Copyright (c) 1999 by Scriptics Corporation.
  * All rights reserved.
  *
- * RCS: @(#) $Id: tclUnixInit.c,v 1.84 2008/07/13 09:03:41 msofer Exp $
+ * RCS: @(#) $Id: tclUnixInit.c,v 1.85 2008/09/25 14:30:21 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -888,6 +888,12 @@ TclpSetVariables(
 	Tcl_SetVar2(interp, "tcl_platform", "user", user, TCL_GLOBAL_ONLY);
 	Tcl_DStringFree(&ds);
     }
+
+    /*
+     * Define what the platform PATH separator is. [TIP #315]
+     */
+
+    Tcl_SetVar2(interp, "tcl_platform","pathSeparator", ":", TCL_GLOBAL_ONLY);
 }
 
 /*
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 4d25ec8..97bd9cf 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.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: tclWinInit.c,v 1.76 2008/04/27 22:21:36 dkf Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.77 2008/09/25 14:30:23 dkf Exp $
  */
 
 #include "tclWinInt.h"
@@ -584,6 +584,12 @@ TclpSetVariables(
     Tcl_SetVar2(interp, "tcl_platform", "user", Tcl_DStringValue(&ds),
 	    TCL_GLOBAL_ONLY);
     Tcl_DStringFree(&ds);
+
+    /*
+     * Define what the platform PATH separator is. [TIP #315]
+     */
+
+    Tcl_SetVar2(interp, "tcl_platform","pathSeparator", ";", TCL_GLOBAL_ONLY);
 }
 
 /*
-- 
cgit v0.12