From 98b8497049cfeef401ed6514580249aac3383d4e Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 28 Apr 2011 16:00:16 +0000
Subject: More isspace() callers.

---
 ChangeLog          | 21 ++-------------------
 generic/tclUtf.c   |  2 +-
 generic/tclUtil.c  | 10 +++++-----
 unix/tclUnixFile.c |  2 +-
 4 files changed, 9 insertions(+), 26 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 85fdf61..e567f87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,26 +7,9 @@
 	* generic/tclCmdMZ.c:	Use new routines to replace calls to
 	* generic/tclListObj.c:	isspace() and their /* INTL */ risk.
 	* generic/tclStrToD.c:
+	* generic/tclUtf.c:
+	* unix/tclUnixFile.c:
 	
-2011-03-16  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* unix/tcl.m4:    Make SHLIB_LD_LIBS='${LIBS}' the default and
-	* unix/configure: set to "" on per-platform necessary basis.
-	Backported from TEA, but kept all original platform code which was
-	removed from TEA.
-
-2011-03-14  Kevin B. Kenny  <kennykb@acm.org>
-
-	* tools/tclZIC.tcl (onDayOfMonth): Allow for leading zeroes
-	in month and day so that tzdata2011d parses correctly.
-	* library/tzdata/America/Havana:
-	* library/tzdata/America/Juneau:
-	* library/tzdata/America/Santiago:
-	* library/tzdata/Europe/Istanbul:
-	* library/tzdata/Pacific/Apia:
-	* library/tzdata/Pacific/Easter:
-	* library/tzdata/Pacific/Honolulu:  tzdata2011d
-
 2011-04-27  Don Porter  <dgp@users.sourceforge.net>
 
 	* generic/tclListObj.c:	FreeListInternalRep() cleanup.
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index c545e66..00b652e 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -1526,7 +1526,7 @@ Tcl_UniCharIsSpace(
      */
 
     if (ch < 0x80) {
-	return isspace(UCHAR(ch)); /* INTL: ISO space */
+	return TclIsSpaceProc((char)ch);
     } else {
 	category = (GetUniCharInfo(ch) & UNICODE_CATEGORY_MASK);
 	return ((SPACE_BITS >> category) & 1);
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 4a7f79f..d542b52 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -2723,7 +2723,7 @@ TclGetIntForIndex(
      * Leading whitespace is acceptable in an index.
      */
 
-    while (length && isspace(UCHAR(*bytes))) {		/* INTL: ISO space. */
+    while (length && TclIsSpaceProc(*bytes)) {
 	bytes++;
 	length--;
     }
@@ -2736,7 +2736,7 @@ TclGetIntForIndex(
 	if ((savedOp != '+') && (savedOp != '-')) {
 	    goto parseError;
 	}
-	if (isspace(UCHAR(opPtr[1]))) {
+	if (TclIsSpaceProc(opPtr[1])) {
 	    goto parseError;
 	}
 	*opPtr = '\0';
@@ -2882,7 +2882,7 @@ SetEndOffsetFromAny(
 	 * after "end-" to Tcl_GetInt, then reverse for offset.
 	 */
 
-	if (isspace(UCHAR(bytes[4]))) {
+	if (TclIsSpaceProc(bytes[4])) {
 	    return TCL_ERROR;
 	}
 	if (Tcl_GetInt(interp, bytes+4, &offset) != TCL_OK) {
@@ -2947,7 +2947,7 @@ TclCheckBadOctal(
      * zero. Try to generate a meaningful error message.
      */
 
-    while (isspace(UCHAR(*p))) {	/* INTL: ISO space. */
+    while (TclIsSpaceProc(*p)) {
 	p++;
     }
     if (*p == '+' || *p == '-') {
@@ -2960,7 +2960,7 @@ TclCheckBadOctal(
 	while (isdigit(UCHAR(*p))) {	/* INTL: digit. */
 	    p++;
 	}
-	while (isspace(UCHAR(*p))) {	/* INTL: ISO space. */
+	while (TclIsSpaceProc(*p)) {
 	    p++;
 	}
 	if (*p == '\0') {
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index 625b864..2639d59 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -82,7 +82,7 @@ TclpFindExecutable(
      */
 
     while (1) {
-	while (isspace(UCHAR(*p))) {			/* INTL: BUG */
+	while (TclIsSpaceProc(*p)) {
 	    p++;
 	}
 	name = p;
-- 
cgit v0.12