diff options
author | dgp <dgp@noemail.net> | 2011-04-28 14:39:42 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-28 14:39:42 (GMT) |
commit | ca63cde889bfbb8f70a3a8972374c20ba53112a1 (patch) | |
tree | 0d25400a3f10a579b1905153391d01db6cb2a9d4 /generic/tclStrToD.c | |
parent | 19bab0c06fc241664690b6b5106502ca5c994c3d (diff) | |
download | tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.zip tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.tar.gz tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.tar.bz2 |
New utility routines: TclIsSpaceProc() and TclCountSpaceRuns()
Use to replace calls to isspace() and their /* INTL */ risk.
FossilOrigin-Name: b1063a174c441631e4ee06c6495579afc7358479
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 139b8f2..e8b7538 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -536,7 +536,7 @@ TclParseNumber( * I, N, and whitespace. */ - if (isspace(UCHAR(c))) { + if (TclIsSpaceProc(c)) { if (flags & TCL_PARSE_NO_WHITESPACE) { goto endgame; } @@ -1050,7 +1050,7 @@ TclParseNumber( } /* FALLTHROUGH */ case sNANPAREN: - if (isspace(UCHAR(c))) { + if (TclIsSpaceProc(c)) { break; } if (numSigDigs < 13) { @@ -1101,7 +1101,7 @@ TclParseNumber( * Accept trailing whitespace. */ - while (len != 0 && isspace(UCHAR(*p))) { + while (len != 0 && TclIsSpaceProc(*p)) { p++; len--; } |