Tcl Source Code

Check-in [4009d98d80]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge core-8-6-branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4009d98d8001c65d6d375e55ed469a2a92a66cac
User & Date: jan.nijtmans 2017-07-17 08:04:57
Context
2017-08-04
13:18
merge 8.6 check-in: 310ded6da8 user: dgp tags: trunk
2017-07-18
13:39
merge trunk check-in: e9ce600364 user: dgp tags: tip-445
13:34
merge trunk check-in: 5a7371016e user: dgp tags: novem
2017-07-17
08:04
merge core-8-6-branch check-in: 4009d98d80 user: jan.nijtmans tags: trunk
08:04
Fix [fb2208172c]: tclIndex varies across builds from auto_m... check-in: d86807b814 user: jan.nijtmans tags: core-8-6-branch
2017-07-13
15:07
merge core-8-6-branch check-in: a3919af766 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/auto.tcl.

199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
...
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
    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 [glob -- {*}$args] {
	try {
	    append index [auto_mkindex_parser::mkindex $file]
	} on error {msg opts} {
	    cd $oldDir
	    return -options $opts $msg
	}
    }
................................................................................
    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 [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)]"






|







 







|







199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
...
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
    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
	}
    }
................................................................................
    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)]"