diff options
author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2018-10-08 12:00:00 (GMT) |
---|---|---|
committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2018-10-08 12:00:00 (GMT) |
commit | 656c05f8c8041208477226ea20ecb2b5403683c6 (patch) | |
tree | 6066817f0a8c7459adef98c2f44f56713b6bdb74 | |
parent | 9b8c9769c0b7ad4e232550609f8e99d3d5b24f3c (diff) | |
download | blt-656c05f8c8041208477226ea20ecb2b5403683c6.zip blt-656c05f8c8041208477226ea20ecb2b5403683c6.tar.gz blt-656c05f8c8041208477226ea20ecb2b5403683c6.tar.bz2 |
Support NaN as not-a-number representation
-rw-r--r-- | generic/tkbltVecCmd.C | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkbltVecCmd.C b/generic/tkbltVecCmd.C index 8603d54..7bcfd4f 100644 --- a/generic/tkbltVecCmd.C +++ b/generic/tkbltVecCmd.C @@ -162,11 +162,11 @@ static int Blt_ExprDoubleFromObj(Tcl_Interp* interp, Tcl_Obj *objPtr, if (Tcl_GetDoubleFromObj((Tcl_Interp *)NULL, objPtr, valuePtr) == TCL_OK) return TCL_OK; - // Interpret the empty string as NaN + // Interpret the empty string "" and "NaN" as NaN. int length; char *string; string = Tcl_GetStringFromObj(objPtr, &length); - if (length == 0) { + if (length == 0 || (length == 3 && strcmp(string, "NaN") == 0)) { *valuePtr = NAN; return TCL_OK; } |