More isspace() callers.

4 files changed, 9 insertions, 26 deletions

diff --git a/ChangeLog b/ChangeLog
index 4733e39..856780e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,28 +7,11 @@
 	* 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:
 	
 	* generic/tclStringObj.c:	Improved reaction to out of memory.
 
-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/tclCmdMZ.c:	TclFreeIntRep() correction & cleanup.
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index efaccb7..ab26779 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -1527,7 +1527,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 e8eee7a..fdfb190 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -2730,7 +2730,7 @@ TclGetIntForIndex(
      * Leading whitespace is acceptable in an index.
      */
 
-    while (length && isspace(UCHAR(*bytes))) {		/* INTL: ISO space. */
+    while (length && TclIsSpaceProc(*bytes)) {
 	bytes++;
 	length--;
     }
@@ -2743,7 +2743,7 @@ TclGetIntForIndex(
 	if ((savedOp != '+') && (savedOp != '-')) {
 	    goto parseError;
 	}
-	if (isspace(UCHAR(opPtr[1]))) {
+	if (TclIsSpaceProc(opPtr[1])) {
 	    goto parseError;
 	}
 	*opPtr = '\0';
@@ -2890,7 +2890,7 @@ SetEndOffsetFromAny(
 	 * after "end-" to Tcl_GetInt, then reverse for offset.
 	 */
 
-	if (isspace(UCHAR(bytes[4]))) {
+	if (TclIsSpaceProc(bytes[4])) {
 	    goto badIndexFormat;
 	}
 	if (Tcl_GetInt(interp, bytes+4, &offset) != TCL_OK) {
@@ -2957,7 +2957,7 @@ TclCheckBadOctal(
      * zero. Try to generate a meaningful error message.
      */
 
-    while (isspace(UCHAR(*p))) {	/* INTL: ISO space. */
+    while (TclIsSpaceProc(*p)) {
 	p++;
     }
     if (*p == '+' || *p == '-') {
@@ -2970,7 +2970,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 2be68c4..c8afeb2 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;