diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-10-28 16:34:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-10-28 16:34:22 (GMT) |
| commit | ea432f9ed64a081a64f0865fb76793bfbb7d427a (patch) | |
| tree | 18c63ca5b6e3c52a05cde2655e7dfd0de8df5410 /library/init.tcl | |
| parent | df42d509ff170d087fbcc7605762712f02adca17 (diff) | |
| download | tcl-ea432f9ed64a081a64f0865fb76793bfbb7d427a.zip tcl-ea432f9ed64a081a64f0865fb76793bfbb7d427a.tar.gz tcl-ea432f9ed64a081a64f0865fb76793bfbb7d427a.tar.bz2 | |
* library/auto.tcl: Converted the Mac-specific [package unknown]
* library/init.tcl: behavior to use a chaining mechanism to extend
* library/package.tcl: the default [tclPkgUnknown]. [Bug 627660]
* library/tclIndex: [Patch 624509] (steffen)
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index d875f2e..10d0f3c 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -3,7 +3,7 @@ # Default system startup file for Tcl-based applications. Defines # "unknown" procedure and auto-load facilities. # -# RCS: @(#) $Id: init.tcl,v 1.53 2002/10/03 13:34:32 dkf Exp $ +# RCS: @(#) $Id: init.tcl,v 1.54 2002/10/28 16:34:25 dgp Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -113,6 +113,17 @@ if {(![interp issafe]) && [string equal $tcl_platform(platform) "windows"]} { package unknown tclPkgUnknown +if {![interp issafe]} { + # setup platform specific unknown package handlers + if {[string equal $::tcl_platform(platform) "unix"] && \ + [string equal $::tcl_platform(os) "Darwin"]} { + package unknown [list tcl::MacOSXPkgUnknown [package unknown]] + } + if {[string equal $::tcl_platform(platform) "macintosh"]} { + package unknown [list tcl::MacPkgUnknown [package unknown]] + } +} + # Conditionalize for presence of exec. if {[llength [info commands exec]] == 0} { |