summaryrefslogtreecommitdiffstats
path: root/generic/tclInitScript.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInitScript.h')
-rw-r--r--generic/tclInitScript.h19
1 files changed, 17 insertions, 2 deletions
diff --git a/generic/tclInitScript.h b/generic/tclInitScript.h
index 1fefec2..4c76bf5 100644
--- a/generic/tclInitScript.h
+++ b/generic/tclInitScript.h
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: %Z% $Id: tclInitScript.h,v 1.4 1998/07/24 15:36:40 stanton Exp $
+ * SCCS: %Z% $Id: tclInitScript.h,v 1.5 1998/08/06 15:22:54 welch Exp $
*/
/*
@@ -34,15 +34,27 @@
*
* <executable directory>/../lib/tcl$tcl_version
* - look for a lib/tcl<ver> in a sibling of
- * the bin directory (e.g. /usr/local)
+ * the bin directory (e.g. install hierarchy)
+ *
+ * <executable directory>/../../lib/tcl$tcl_version
+ * - look for a lib/tcl<ver> in a sibling of
+ * the bin/arch directory
*
* <executable directory>/../library
* - look in build directory
*
+ * <executable directory>/../../library
+ * - look in build directory from unix/arch
+ *
* <executable directory>/../../tcl$tcl_patchLevel/library
* - look for tcl build directory relative
* to a parallel build directory (e.g. Tk)
*
+ * <executable directory>/../../../tcl$tcl_patchLevel/library
+ * - look for tcl build directory relative
+ * to a parallel build directory from
+ * down inside unix/arch directory
+ *
* The first directory on this path that contains a valid init.tcl script
* will be appended to tcl_pkgPath and set as the value of tcl_library.
*
@@ -67,13 +79,16 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
unset tclDefaultLibrary\n\
set parentDir [file dirname [file dirname [info nameofexecutable]]]\n\
lappend dirs [file join $parentDir lib/tcl$tcl_version]\n\
+ lappend dirs [file join [file dirname $parentDir] lib/tcl$tcl_version]\n\
lappend dirs [file join $parentDir library]\n\
+ lappend dirs [file join [file dirname $parentDir] library]\n\
if {[string match {*[ab]*} $tcl_patchLevel]} {\n\
set ver $tcl_patchLevel\n\
} else {\n\
set ver $tcl_version\n\
}\n\
lappend dirs [file join [file dirname $parentDir] tcl$ver/library]\n\
+ lappend dirs [file join [file dirname [file dirname $parentDir]] tcl$ver/library]\n\
}\n\
foreach i $dirs {\n\
set tcl_library $i\n\