Lines Matching defs:wstring
554 Tcl_UniChar ch, *wsrc, *wfirstChar, *wstring, *wsubspec, *wend;
654 wstring = Tcl_GetUnicodeFromObj(objv[1], &wlen);
656 wend = wstring + wlen - (slen ? slen - 1 : 0);
664 if (wstring < wend) {
665 resultPtr = Tcl_NewUnicodeObj(wstring, 0);
667 for (; wstring < wend; wstring++) {
669 Tcl_AppendUnicodeToObj(resultPtr, wstring, 1);
676 for (p = wfirstChar = wstring; wstring < wend; wstring++) {
677 if (((*wstring == *wsrc) ||
678 (nocase && (Tcl_UniCharToLower(*wstring) ==
680 ((slen == 1) || (strCmpFn(wstring, wsrc,
683 resultPtr = Tcl_NewUnicodeObj(wstring, 0);
686 if (p != wstring) {
687 Tcl_AppendUnicodeToObj(resultPtr, p, wstring - p);
688 p = wstring + slen;
692 wstring = p - 1;
700 wstring = p;
724 wstring = Tcl_GetUnicodeFromObj(objPtr, &wlen);
754 (wstring[offset-1] != (Tcl_UniChar)'\n'))
765 resultPtr = Tcl_NewUnicodeObj(wstring, 0);
772 Tcl_AppendUnicodeToObj(resultPtr, wstring, offset);
785 Tcl_AppendUnicodeToObj(resultPtr, wstring + offset, start);
826 wstring + offset + subStart, subEnd - subStart);
844 Tcl_AppendUnicodeToObj(resultPtr, wstring + offset, 1);
856 Tcl_AppendUnicodeToObj(resultPtr, wstring + offset, 1);
879 Tcl_AppendUnicodeToObj(resultPtr, wstring + offset, wlen - offset);