Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix bugs in msgcat that prevent clean test suite run. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
47d13b9fc2ff75f7a2c2aa403be90c32 |
| User & Date: | dgp 2018-03-13 16:28:43.201 |
Context
|
2018-03-13
| ||
| 16:29 | close fork check-in: 35a6b8673b user: dgp tags: core-8-branch | |
| 16:28 | Fix bugs in msgcat that prevent clean test suite run. check-in: 47d13b9fc2 user: dgp tags: core-8-branch | |
| 14:53 | tip490 oo for msgcat: added documentation check-in: 349f4681cb user: oehhar tags: core-8-branch | |
Changes
Changes to library/msgcat/msgcat.tcl.
| ︙ | ︙ | |||
1256 1257 1258 1259 1260 1261 1262 |
}
}
}
#
# On Darwin, fallback to current CFLocale identifier if available.
#
if {[info exists ::tcl::mac::locale] && $::tcl::mac::locale ne ""} {
| | | 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 |
}
}
}
#
# On Darwin, fallback to current CFLocale identifier if available.
#
if {[info exists ::tcl::mac::locale] && $::tcl::mac::locale ne ""} {
if {![catch { ConvertLocale $::tcl::mac::locale } locale]} {
return $locale
}
}
#
# The rest of this routine is special processing for Windows or
# Cygwin. All other platforms, get out now.
#
|
| ︙ | ︙ |
Changes to tests/msgcat.test.
| ︙ | ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
variable body
variable result
variable setVars
foreach setVars [PowerSet $envVars] {
set result [string tolower [lindex $setVars 0]]
if {[string length $result] == 0} {
if {[info exists ::tcl::mac::locale]} {
set result [string tolower \
[msgcat::ConvertLocale $::tcl::mac::locale]]
} else {
if {([info sharedlibextension] eq ".dll")
&& ![catch {package require registry}]} {
# Windows and Cygwin have other ways to determine the
# locale when the environment variables are missing
# and the registry package is present
continue
| > > > > > | 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 |
variable body
variable result
variable setVars
foreach setVars [PowerSet $envVars] {
set result [string tolower [lindex $setVars 0]]
if {[string length $result] == 0} {
if {[info exists ::tcl::mac::locale]} {
if {[package vsatisfies [package provide msgcat] 1.7]} {
set result [string tolower \
[msgcat::mcutil::ConvertLocale $::tcl::mac::locale]]
} else {
set result [string tolower \
[msgcat::ConvertLocale $::tcl::mac::locale]]
}
} else {
if {([info sharedlibextension] eq ".dll")
&& ![catch {package require registry}]} {
# Windows and Cygwin have other ways to determine the
# locale when the environment variables are missing
# and the registry package is present
continue
|
| ︙ | ︙ |