allow novem to use installed Tcl8 .tm packages, such as tcltest and msgcat

remove some dead code (already planned to be removed in Tcl9)

1 files changed, 23 insertions, 0 deletions

diff --git a/library/tm.tcl b/library/tm.tcl
index ce8a013..4288658 100644
--- a/library/tm.tcl
+++ b/library/tm.tcl
@@ -330,6 +330,19 @@ proc ::tcl::tm::Defaults {} {
 	    }
 	}
     }
+    if {$major == 8} return
+    for {set n 7} {$n >= 0} {incr n -1} {
+	foreach ev [::list \
+			TCL8.${n}_TM_PATH \
+			TCL8_${n}_TM_PATH \
+	    ] {
+	    if {![info exists env($ev)]} continue
+	    foreach p [split $env($ev) $sep] {
+		path add $p
+	    }
+	}
+    }
+    }
     return
 }
 
@@ -358,6 +371,16 @@ proc ::tcl::tm::roots {paths} {
 	set px [file join $p site-tcl]
 	if {![interp issafe]} {set px [file normalize $px]}
 	path add $px
+	if {$major == 8} continue
+	set p [file join $pa tcl8]
+	for {set n 7} {$n >= 0} {incr n -1} {
+	    set px [file join $p 8.${n}]
+	    if {![interp issafe]} {set px [file normalize $px]}
+	    path add $px
+	}
+	set px [file join $p site-tcl]
+	if {![interp issafe]} {set px [file normalize $px]}
+	path add $px
     }
     return
 }