Differences From Artifact [aa6e8b1e91]:

• File generic/tclUtf.c — part of check-in [2d72b799ff] at 2024-01-12 11:53:42 on branch core-8-branch — Leave out Tcl_UtfNcmp/Tcl_UtfNcasecmp from -DTCL_NO_DEPRECATED builds, because it's part of the UTF16 compatibility layer (user: jan.nijtmans size: 77833) [more...]

To Artifact [37b7a3481d]:

• File generic/tclUtf.c — part of check-in [9ebdb88b20] at 2024-01-21 16:31:24 on branch core-8-branch — Merge 8.6 (user: jan.nijtmans size: 77734) [more...]

2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285

int
Tcl_UniCharIsControl(
    int ch)			/* Unicode character to test. */
{
    if (UNICODE_OUT_OF_RANGE(ch)) {
	/* Clear away extension bits, if any */
	ch &= 0x1FFFFF;
	if ((ch == 0xE0001) || ((ch >= 0xE0020) && (ch <= 0xE007F))) {
	    return 1;
	}
	if ((ch >= 0xF0000) && ((ch & 0xFFFF) <= 0xFFFD)) {
	    return 1;
	}
	return 0;
    }
    return ((CONTROL_BITS >> GetCategory(ch)) & 1);
}

/*
 *----------------------------------------------------------------------
 *

|
<
<
<
<
<
<

2265
2266
2267
2268
2269
2270
2271
2272






2273
2274
2275
2276
2277
2278
2279

int
Tcl_UniCharIsControl(
    int ch)			/* Unicode character to test. */
{
    if (UNICODE_OUT_OF_RANGE(ch)) {
	/* Clear away extension bits, if any */
	ch &= 0x1FFFFF;
	return ((ch == 0xE0001) || ((unsigned)(ch - 0xE0020) <= 0x5F));






    }
    return ((CONTROL_BITS >> GetCategory(ch)) & 1);
}

/*
 *----------------------------------------------------------------------
 *