diff options
author | dgp <dgp@noemail.net> | 2011-05-10 17:22:11 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-10 17:22:11 (GMT) |
commit | 4e26488136dba988638da0b051f4f3261a11b5c0 (patch) | |
tree | e602fe4a2dd5a57b2cb47e427fc0d604d4b82a86 /generic/tclIndexObj.c | |
parent | 48a3f2ba866eed93945f76da2ef8b1ac2f2cd5a8 (diff) | |
parent | 6fce47f15daf595b21fb82bcf7106164cc902ce8 (diff) | |
download | tcl-4e26488136dba988638da0b051f4f3261a11b5c0.zip tcl-4e26488136dba988638da0b051f4f3261a11b5c0.tar.gz tcl-4e26488136dba988638da0b051f4f3261a11b5c0.tar.bz2 |
New internal routines TclScanElement() and TclConvertElement().
Rewritten guts of machinery to produce string rep of lists. [Bug 3173086]
FossilOrigin-Name: 7720fbb825ec366737ab7e8c577ea25315c0a00e
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 69608cc..5b367d6 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -950,12 +950,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); @@ -1004,12 +1005,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); |