diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-09-22 18:13:25 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-09-22 18:13:25 (GMT) |
| commit | 4d806ec7125d35e4f837f3a2274aedc0f7593954 (patch) | |
| tree | f67d58798c4d5ba6ee60a07d1f99fe77001dee13 /library/package.tcl | |
| parent | 881fdb141e92e3ea0b7b72197ad32d992f78195c (diff) | |
| download | tcl-4d806ec7125d35e4f837f3a2274aedc0f7593954.zip tcl-4d806ec7125d35e4f837f3a2274aedc0f7593954.tar.gz tcl-4d806ec7125d35e4f837f3a2274aedc0f7593954.tar.bz2 | |
TIP#268 IMPLEMENTATION
* generic/tclDecls.h: Regenerated from tcl.decls.
* generic/tclStubInit.c:
* doc/PkgRequire.3: Documentation of extended API,
* doc/package.n: extended testsuite.
* tests/pkg.test:
* generic/tcl.decls: Implementation.
* generic/tclBasic.c:
* generic/tclConfig.c:
* generic/tclInt.h:
* generic/tclPkg.c:
* generic/tclTest.c:
* generic/tclTomMathInterface.c:
* library/init.tcl:
* library/package.tcl:
* library/tm.tcl:
Diffstat (limited to 'library/package.tcl')
| -rw-r--r-- | library/package.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/package.tcl b/library/package.tcl index 9d9e0a9..bd3ecf6 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -3,7 +3,7 @@ # utility procs formerly in init.tcl which can be loaded on demand # for package management. # -# RCS: @(#) $Id: package.tcl,v 1.33 2005/07/23 04:12:49 dgp Exp $ +# RCS: @(#) $Id: package.tcl,v 1.34 2006/09/22 18:13:29 andreas_kupries Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. @@ -459,7 +459,7 @@ proc tclPkgSetup {dir pkg version files} { # version - Version of desired package. Not used. # exact - Either "-exact" or omitted. Not used. -proc tclPkgUnknown {name version {exact {}}} { +proc tclPkgUnknown {name args} { global auto_path env if {![info exists auto_path]} { @@ -555,10 +555,10 @@ proc tclPkgUnknown {name version {exact {}}} { # version - Version of desired package. Not used. # exact - Either "-exact" or omitted. Not used. -proc tcl::MacOSXPkgUnknown {original name version {exact {}}} { +proc tcl::MacOSXPkgUnknown {original name args} { # First do the cross-platform default search - uplevel 1 $original [list $name $version $exact] + uplevel 1 $original [linsert $args 0 $name] # Now do MacOSX specific searching global auto_path |