diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-04-28 14:44:47 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-04-28 14:44:47 (GMT) |
| commit | a1ea0a89f05c892beefeb7dd7641b397105b6ed3 (patch) | |
| tree | c826199d351b0c6f0746a66124227d102686a420 /generic/tclStrToD.c | |
| parent | beb8a4001280e9dfd1ada1b0d0e0eca862e42e9d (diff) | |
| parent | 827e4c28d6b5f2f65999cface44008ad54250228 (diff) | |
| download | tcl-a1ea0a89f05c892beefeb7dd7641b397105b6ed3.zip tcl-a1ea0a89f05c892beefeb7dd7641b397105b6ed3.tar.gz tcl-a1ea0a89f05c892beefeb7dd7641b397105b6ed3.tar.bz2 | |
New utility routines: TclIsSpaceProc() and TclCountSpaceRuns()
Use to replace calls to isspace() and their /* INTL */ risk.
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 205b865..59192e9 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -571,7 +571,7 @@ TclParseNumber( * I, N, and whitespace. */ - if (isspace(UCHAR(c))) { + if (TclIsSpaceProc(c)) { if (flags & TCL_PARSE_NO_WHITESPACE) { goto endgame; } @@ -1091,7 +1091,7 @@ TclParseNumber( } /* FALLTHROUGH */ case sNANPAREN: - if (isspace(UCHAR(c))) { + if (TclIsSpaceProc(c)) { break; } if (numSigDigs < 13) { @@ -1142,7 +1142,7 @@ TclParseNumber( * Accept trailing whitespace. */ - while (len != 0 && isspace(UCHAR(*p))) { + while (len != 0 && TclIsSpaceProc(*p)) { p++; len--; } |