diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-05-10 16:52:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-05-10 16:52:35 (GMT) |
| commit | d8668e5c5d98e9b11f6c85e8bd3c7c6ac6834838 (patch) | |
| tree | f83cbc6f986fb625947631c42b0f9c3930475634 /generic/tclIndexObj.c | |
| parent | a4456778c8605e05c3598b6848b2660ae7b10d27 (diff) | |
| parent | f9dece7738d140a66ebb5d47ee85c4d57249258a (diff) | |
| download | tcl-d8668e5c5d98e9b11f6c85e8bd3c7c6ac6834838.zip tcl-d8668e5c5d98e9b11f6c85e8bd3c7c6ac6834838.tar.gz tcl-d8668e5c5d98e9b11f6c85e8bd3c7c6ac6834838.tar.bz2 | |
New internal routines TclScanElement() and TclConvertElement().
Rewritten guts of machinery to produce string rep of lists. [Bug 3173086]
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 595132c..3e37f0f 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -537,12 +537,13 @@ Tcl_WrongNumArgs( } else { elementStr = TclGetStringFromObj(origObjv[i], &elemLen); } - len = Tcl_ScanCountedElement(elementStr, elemLen, &flags); + flags = 0; + len = TclScanElement(elementStr, elemLen, &flags); if (MAY_QUOTE_WORD && len != elemLen) { char *quotedElementStr = TclStackAlloc(interp, (unsigned)len); - len = Tcl_ConvertCountedElement(elementStr, elemLen, + len = TclConvertElement(elementStr, elemLen, quotedElementStr, flags); Tcl_AppendToObj(objPtr, quotedElementStr, len); TclStackFree(interp, quotedElementStr); @@ -591,12 +592,13 @@ Tcl_WrongNumArgs( */ elementStr = TclGetStringFromObj(objv[i], &elemLen); - len = Tcl_ScanCountedElement(elementStr, elemLen, &flags); + flags = 0; + len = TclScanElement(elementStr, elemLen, &flags); if (MAY_QUOTE_WORD && len != elemLen) { char *quotedElementStr = TclStackAlloc(interp,(unsigned) len); - len = Tcl_ConvertCountedElement(elementStr, elemLen, + len = TclConvertElement(elementStr, elemLen, quotedElementStr, flags); Tcl_AppendToObj(objPtr, quotedElementStr, len); TclStackFree(interp, quotedElementStr); |