diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-17 13:29:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-17 13:29:39 (GMT) |
| commit | 9abf419e0a98d9899afc590df3592a4238c3ac13 (patch) | |
| tree | 2d9c0d338e15190cadb20e3a8482b17da9625459 /generic | |
| parent | c7ef9a050d3333fb061d900cf866eea46abecf78 (diff) | |
| parent | 70024494041b53923a32939fa834efcfd2f1f888 (diff) | |
| download | tcl-9abf419e0a98d9899afc590df3592a4238c3ac13.zip tcl-9abf419e0a98d9899afc590df3592a4238c3ac13.tar.gz tcl-9abf419e0a98d9899afc590df3592a4238c3ac13.tar.bz2 | |
Use more portable TclIsSpaceProc() in stead of isspace().
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdAH.c | 7 | ||||
| -rw-r--r-- | generic/tclDate.c | 2 | ||||
| -rw-r--r-- | generic/tclUtf.c | 2 |
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) { |