Tcl Source Code

Check-in [990eed5c11]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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

Overview
Comment:[311e61d12a] Generate error code in *all* places where commands are looked up.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:990eed5c11736053b0db23ed241bc4a295e30714
User & Date: dkf 2014-06-16 09:24:39
Context
2014-06-16
12:19
merge socket test from 8.5 check-in: 4c113631af user: dgp tags: trunk
09:24
[311e61d12a] Generate error code in *all* places where commands are looked up. check-in: 990eed5c11 user: dkf tags: trunk
2014-06-15
16:50
[cb042d294e] Improve consistency of [dict] wrong-args error messages. check-in: 968e9ac311 user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/init.tcl.

394
395
396
397
398
399
400

401
402
403
404
405
406
407
408
	    dict incr ::tcl::UnknownOptions -level
	    return -options $::tcl::UnknownOptions $::tcl::UnknownResult
	}
	if {[llength $cmds]} {
	    return -code error "ambiguous command name \"$name\": [lsort $cmds]"
	}
    }

    return -code error "invalid command name \"$name\""
}

# auto_load --
# Checks a collection of library directories to see if a procedure
# is defined in one of them.  If so, it sources the appropriate
# library file to create the procedure.  Returns 1 if it successfully
# loaded the procedure, 0 otherwise.







>
|







394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
	    dict incr ::tcl::UnknownOptions -level
	    return -options $::tcl::UnknownOptions $::tcl::UnknownResult
	}
	if {[llength $cmds]} {
	    return -code error "ambiguous command name \"$name\": [lsort $cmds]"
	}
    }
    return -code error -errorcode [list TCL LOOKUP COMMAND $name] \
	"invalid command name \"$name\""
}

# auto_load --
# Checks a collection of library directories to see if a procedure
# is defined in one of them.  If so, it sources the appropriate
# library file to create the procedure.  Returns 1 if it successfully
# loaded the procedure, 0 otherwise.