summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorapnadkarni <apnmbx-wits@yahoo.com>2024-06-19 02:22:41 (GMT)
committerapnadkarni <apnmbx-wits@yahoo.com>2024-06-19 02:22:41 (GMT)
commit3499738a0709e2c86c473e90892bf79728eea7e5 (patch)
treecb32709760a3ad2a8fb3f26a16a6aceba1bb51a1 /generic/tclBasic.c
parentd064b77a41441825f6578546de36e0122cd344d0 (diff)
downloadtcl-3499738a0709e2c86c473e90892bf79728eea7e5.zip
tcl-3499738a0709e2c86c473e90892bf79728eea7e5.tar.gz
tcl-3499738a0709e2c86c473e90892bf79728eea7e5.tar.bz2
Unsupported ICU interface
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index dfed030..7944e24 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -1201,6 +1201,10 @@ Tcl_CreateInterp(void)
Tcl_CreateObjCommand(interp, "::tcl::unsupported::corotype",
CoroTypeObjCmd, NULL, NULL);
+ /* Load and intialize ICU */
+ Tcl_CreateObjCommand(interp, "::tcl::unsupported::loadIcu",
+ TclLoadIcuObjCmd, NULL, NULL);
+
/* Export unsupported commands */
nsPtr = Tcl_FindNamespace(interp, "::tcl::unsupported", NULL, 0);
if (nsPtr) {