Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | rc0 | core-8-6-7-rc |
| Files: | files | file ages | folders |
| SHA1: |
1345e78da1abc3fe3d44603f59cb63aa |
| User & Date: | dgp 2017-07-18 12:58:27 |
Context
|
2017-08-01
| ||
| 16:05 | update changes check-in: 23702a8e3a user: dgp tags: core-8-6-7-rc | |
|
2017-07-18
| ||
| 12:58 | merge 8.6 check-in: 1345e78da1 user: dgp tags: rc0, core-8-6-7-rc | |
|
2017-07-17
| ||
| 08:04 | Fix [fb2208172c]: tclIndex varies across builds from auto_m... check-in: d86807b814 user: jan.nijtmans tags: core-8-6-branch | |
|
2017-07-06
| ||
| 16:47 | merge 8.6 check-in: 92f352fb7a user: dgp tags: core-8-6-7-rc | |
Changes
Changes to generic/tclInt.h.
| ︙ | ︙ | |||
4355 4356 4357 4358 4359 4360 4361 | * * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); *---------------------------------------------------------------- */ #define TclUtfToUniChar(str, chPtr) \ ((((unsigned char) *(str)) < 0xC0) ? \ | | | 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4365 4366 4367 4368 4369 | * * MODULE_SCOPE int TclUtfToUniChar(const char *string, Tcl_UniChar *ch); *---------------------------------------------------------------- */ #define TclUtfToUniChar(str, chPtr) \ ((((unsigned char) *(str)) < 0xC0) ? \ ((*(chPtr) = (unsigned char) *(str)), 1) \ : Tcl_UtfToUniChar(str, chPtr)) /* *---------------------------------------------------------------- * Macro counterpart of the Tcl_NumUtfChars() function. To be used in speed- * -sensitive points where it pays to avoid a function call in the common case * of counting along a string of all one-byte characters. The ANSI C |
| ︙ | ︙ |
Changes to library/auto.tcl.
| ︙ | ︙ | |||
199 200 201 202 203 204 205 |
append index "# element name is the name of a command and the value is\n"
append index "# a script that loads the command.\n\n"
if {![llength $args]} {
set args *.tcl
}
auto_mkindex_parser::init
| | | 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 |
append index "# element name is the name of a command and the value is\n"
append index "# a script that loads the command.\n\n"
if {![llength $args]} {
set args *.tcl
}
auto_mkindex_parser::init
foreach file [lsort [glob -- {*}$args]] {
try {
append index [auto_mkindex_parser::mkindex $file]
} on error {msg opts} {
cd $oldDir
return -options $opts $msg
}
}
|
| ︙ | ︙ | |||
232 233 234 235 236 237 238 |
append index "# more commands. Typically each line is a command that\n"
append index "# sets an element in the auto_index array, where the\n"
append index "# element name is the name of a command and the value is\n"
append index "# a script that loads the command.\n\n"
if {![llength $args]} {
set args *.tcl
}
| | | 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 |
append index "# more commands. Typically each line is a command that\n"
append index "# sets an element in the auto_index array, where the\n"
append index "# element name is the name of a command and the value is\n"
append index "# a script that loads the command.\n\n"
if {![llength $args]} {
set args *.tcl
}
foreach file [lsort [glob -- {*}$args]] {
set f ""
set error [catch {
set f [open $file]
while {[gets $f line] >= 0} {
if {[regexp {^proc[ ]+([^ ]*)} $line match procName]} {
set procName [lindex [auto_qualify $procName "::"] 0]
append index "set [list auto_index($procName)]"
|
| ︙ | ︙ |