Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix [fb2208172c]: tclIndex varies across builds from auto_mkindex |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
cb7edbc60b7438001d9bb4b34c14a28a |
User & Date: | jan.nijtmans 2017-07-17 08:01:11 |
Context
2017-08-08
| ||
16:45 | Cherrypick [527d354828] check-in: b300e0ceb0 user: andy tags: core-8-5-branch | |
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 | |
08:01 | Fix [fb2208172c]: tclIndex varies across builds from auto_m... check-in: cb7edbc60b user: jan.nijtmans tags: core-8-5-branch | |
2017-07-13
| ||
15:03 | Fix [293344d4f3]: Regression in SQLite test-suite. Long-standing bug in implementation of TclUtfToUn... check-in: 66a24e0413 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to library/auto.tcl.
︙ | ︙ | |||
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] == 0} { set args *.tcl } auto_mkindex_parser::init | | | 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 | 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] == 0} { set args *.tcl } auto_mkindex_parser::init foreach file [lsort [glob -- {*}$args]] { if {[catch {auto_mkindex_parser::mkindex $file} msg opts] == 0} { append index $msg } else { cd $oldDir return -options $opts $msg } } |
︙ | ︙ | |||
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] == 0} { set args *.tcl } | | | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 | 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] == 0} { 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)]" |
︙ | ︙ |