Tcl Library Source Code

Artifact 42a8b74b81db53d5300944ae71db11c7f4e33dd2:

• File modules/try/pkgIndex.tcl — part of check-in [f432b5fa8a] at 2011-05-31 16:12:37 on branch trunk — * New module and package: lambda. Easy anonymous procedures for Tcl 8.5+. * New module and package: try. Tcl 8.5+ forward compatibility implementation of try/catch/finally (TIP 329). (user: andreas_kupries size: 362)

#checker -scope global exclude warnUndefinedVar
# var in question is 'dir'.
if {![package vsatisfies [package provide Tcl] 8.5]} {
    # PRAGMA: returnok
    return
}
# The package below is a backward compatible implementation of
# try/catch/finally, for use by Tcl 8.5 only. On 8.6 it does nothing.
package ifneeded try 1 [list source [file join $dir try.tcl]]