Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove unicode toXXXX commands as no longer needed for confirming equivalence with string toXXXX |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | tip-726-plus |
| Files: | files | file ages | folders |
| SHA3-256: |
30a02828fce3100d0ed5cf6991b7b700 |
| User & Date: | apnadkarni 2025-07-25 17:55:29.201 |
Context
|
2025-07-26
| ||
| 05:00 | Fix gcc warnings, mingw build and extraneous prototype defs used in debug check-in: ff495c9305 user: apnadkarni tags: tip-726-plus | |
|
2025-07-25
| ||
| 17:55 | Remove unicode toXXXX commands as no longer needed for confirming equivalence with string toXXXX check-in: 30a02828fc user: apnadkarni tags: tip-726-plus | |
| 17:46 | Eliminate use of tclUniData.c check-in: 1dcc7678c8 user: apnadkarni tags: tip-726-plus | |
Changes
Changes to generic/tclCmdMZ.c.
| ︙ | ︙ | |||
5930 5931 5932 5933 5934 5935 5936 |
&ds) == NULL) {
return TCL_ERROR;
}
Tcl_DStringResult(interp, &ds);
return TCL_OK;
}
| < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951 5952 5953 5954 5955 5956 5957 5958 5959 5960 5961 5962 5963 5964 5965 5966 5967 5968 5969 5970 5971 5972 5973 |
&ds) == NULL) {
return TCL_ERROR;
}
Tcl_DStringResult(interp, &ds);
return TCL_OK;
}
/*
* TclInitUnicodeCmd --
*
* This procedure creates the "unicode" Tcl ensemble command. See user
* documentation for details on implemented commands.
*
* Results:
* A standard Tcl result.
*
* Side effects:
* Stores the result in the interpreter result.
*/
Tcl_Command
TclInitUnicodeCmd(
Tcl_Interp *interp)
{
static const EnsembleImplMap unicodeImplMap[] = {
{"is", TclUnicodeIsCmd, NULL, NULL, NULL, 0},
{"category", TclUnicodeCategoryCmd, NULL, NULL, NULL, 0},
{"tonfc", TclUnicodeNormalizeCmd, NULL, NULL, (void *)TCL_NFC, 0},
{"tonfd", TclUnicodeNormalizeCmd, NULL, NULL, (void *)TCL_NFD, 0},
{"tonfkc", TclUnicodeNormalizeCmd, NULL, NULL, (void *)TCL_NFKC, 0},
{"tonfkd", TclUnicodeNormalizeCmd, NULL, NULL, (void *)TCL_NFKD, 0},
{NULL, NULL, NULL, NULL, NULL, 0}
};
return TclMakeEnsemble(interp, "unicode", unicodeImplMap);
}
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
|
Changes to tests/unicodeProperties.test.
| ︙ | ︙ | |||
115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
foreach class {alpha alnum control digit graph lower print space upper wordchar} {
test string-vs-unicode-is-$class "string is $class vs unicode" -body {
testStringUnicodeCompatibility $class
} -result "is $class mismatches:"
}
proc testStringUnicodeCaseConvertCompatibility {tocase} {
set mismatches "$tocase mismatches:"
foreach codePoint [lseq 0 $::tcltests::ucd::maxCodepoint] {
set ch [format %c $codePoint]
if {[string $tocase $ch] != [unicode $tocase $ch]} {
append mismatches " " U+[format %x $codePoint]
break
}
}
return $mismatches
}
foreach tocase {tolower toupper totitle} {
test string-vs-unicode-$tocase "string $tocase vs unicode" -body {
testStringUnicodeCaseConvertCompatibility $tocase
| > | | 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
foreach class {alpha alnum control digit graph lower print space upper wordchar} {
test string-vs-unicode-is-$class "string is $class vs unicode" -body {
testStringUnicodeCompatibility $class
} -result "is $class mismatches:"
}
tcltest::testConstraint haveUnicodeToCmds [expr {![catch {unicode tolower A}]}]
proc testStringUnicodeCaseConvertCompatibility {tocase} {
set mismatches "$tocase mismatches:"
foreach codePoint [lseq 0 $::tcltests::ucd::maxCodepoint] {
set ch [format %c $codePoint]
if {[string $tocase $ch] != [unicode $tocase $ch]} {
append mismatches " " U+[format %x $codePoint]
break
}
}
return $mismatches
}
foreach tocase {tolower toupper totitle} {
test string-vs-unicode-$tocase "string $tocase vs unicode" -body {
testStringUnicodeCaseConvertCompatibility $tocase
} -constraints haveUnicodeToCmds -result "$tocase mismatches:"
}
}
::tcltest::cleanupTests
namespace delete unicode::test
return
|