summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-17 13:29:39 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-17 13:29:39 (GMT)
commit9abf419e0a98d9899afc590df3592a4238c3ac13 (patch)
tree2d9c0d338e15190cadb20e3a8482b17da9625459
parentc7ef9a050d3333fb061d900cf866eea46abecf78 (diff)
parent70024494041b53923a32939fa834efcfd2f1f888 (diff)
downloadtcl-9abf419e0a98d9899afc590df3592a4238c3ac13.zip
tcl-9abf419e0a98d9899afc590df3592a4238c3ac13.tar.gz
tcl-9abf419e0a98d9899afc590df3592a4238c3ac13.tar.bz2
Use more portable TclIsSpaceProc() in stead of isspace().
-rw-r--r--generic/tclCmdAH.c7
-rw-r--r--generic/tclDate.c2
-rw-r--r--generic/tclUtf.c2
3 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index eb2a303..f90819a 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -194,8 +194,7 @@ Tcl_CaseObjCmd(
for (i = 0; i < caseObjc; i += 2) {
int patObjc, j;
const char **patObjv;
- const char *pat;
- unsigned char *p;
+ const char *pat, *p;
if (i == caseObjc-1) {
Tcl_ResetResult(interp);
@@ -210,8 +209,8 @@ Tcl_CaseObjCmd(
*/
pat = TclGetString(caseObjv[i]);
- for (p = (unsigned char *) pat; *p != '\0'; p++) {
- if (isspace(*p) || (*p == '\\')) { /* INTL: ISO space, UCHAR */
+ for (p = pat; *p != '\0'; p++) {
+ if (TclIsSpaceProc(*p) || (*p == '\\')) {
break;
}
}
diff --git a/generic/tclDate.c b/generic/tclDate.c
index 14bac51..6222a8a 100644
--- a/generic/tclDate.c
+++ b/generic/tclDate.c
@@ -2686,7 +2686,7 @@ TclDatelex(
location->first_column = yyInput - info->dateStart;
for ( ; ; ) {
- while (isspace(UCHAR(*yyInput))) {
+ while (TclIsSpaceProc(*yyInput)) {
yyInput++;
}
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index 4ad6f01..0af2c25 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -1555,7 +1555,7 @@ Tcl_UniCharIsSpace(
*/
if (((Tcl_UniChar) ch) < ((Tcl_UniChar) 0x80)) {
- return isspace(UCHAR(ch)); /* INTL: ISO space */
+ return TclIsSpaceProc(ch);
} else if ((Tcl_UniChar) ch == 0x0085 || (Tcl_UniChar) ch == 0x180e
|| (Tcl_UniChar) ch == 0x200b || (Tcl_UniChar) ch == 0x2060
|| (Tcl_UniChar) ch == 0xfeff) {