Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Support TCL_ENCODING_CHAR_LIMIT in the UnicodeToUtfProc driver. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dgp-encoding-flags |
| Files: | files | file ages | folders |
| SHA1: |
18bd29454d5a5727f94b9fdd40504dd7 |
| User & Date: | dgp 2014-12-23 17:46:05 |
Context
|
2014-12-23
| ||
| 17:48 | Support TCL_ENCODING_CHAR_LIMIT in the Iso88591ToUtfProc driver. check-in: 0a271e0a77 user: dgp tags: dgp-encoding-flags | |
| 17:46 | Support TCL_ENCODING_CHAR_LIMIT in the UnicodeToUtfProc driver. check-in: 18bd29454d user: dgp tags: dgp-encoding-flags | |
| 17:26 | Support TCL_ENCODING_CHAR_LIMIT in the UtfToUtfProc driver. check-in: 0ff413f9e5 user: dgp tags: dgp-encoding-flags | |
Changes
Changes to generic/tclEncoding.c.
| ︙ | ︙ | |||
2404 2405 2406 2407 2408 2409 2410 |
* the conversion. */
int *dstCharsPtr) /* Filled with the number of characters that
* correspond to the bytes stored in the
* output buffer. */
{
const char *srcStart, *srcEnd;
const char *dstEnd, *dstStart;
| | > > > | | 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 |
* the conversion. */
int *dstCharsPtr) /* Filled with the number of characters that
* correspond to the bytes stored in the
* output buffer. */
{
const char *srcStart, *srcEnd;
const char *dstEnd, *dstStart;
int result, numChars, charLimit = INT_MAX;
Tcl_UniChar ch;
if (flags & TCL_ENCODING_CHAR_LIMIT) {
charLimit = *dstCharsPtr;
}
result = TCL_OK;
if ((srcLen % sizeof(Tcl_UniChar)) != 0) {
result = TCL_CONVERT_MULTIBYTE;
srcLen /= sizeof(Tcl_UniChar);
srcLen *= sizeof(Tcl_UniChar);
}
srcStart = src;
srcEnd = src + srcLen;
dstStart = dst;
dstEnd = dst + dstLen - TCL_UTF_MAX;
for (numChars = 0; src < srcEnd && numChars <= charLimit; numChars++) {
if (dst > dstEnd) {
result = TCL_CONVERT_NOSPACE;
break;
}
/*
* Special case for 1-byte utf chars for speed. Make sure we work with
|
| ︙ | ︙ |