|
|
|
|
@ -4017,55 +4017,9 @@ namespace eval repl {
|
|
|
|
|
set ::argv0 %argv0% |
|
|
|
|
set ::argv %argv% |
|
|
|
|
set ::argc %argc% |
|
|
|
|
set ::auto_path %autopath% |
|
|
|
|
tcl::tm::remove {*}[tcl::tm::list] |
|
|
|
|
tcl::tm::add {*}[lreverse %tmlist%] |
|
|
|
|
#puts "code interp chan names-->[chan names]" |
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------------- |
|
|
|
|
if {[package provide punk::libunknown] eq ""} { |
|
|
|
|
namespace eval ::punk::libunknown {} |
|
|
|
|
set ::punk::libunknown::epoch %lib_epoch% |
|
|
|
|
|
|
|
|
|
apply {{} { |
|
|
|
|
set libunks [list] |
|
|
|
|
foreach tm_path [tcl::tm::list] { |
|
|
|
|
set punkdir [file join $tm_path punk] |
|
|
|
|
if {![file exists $punkdir]} {continue} |
|
|
|
|
lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm] |
|
|
|
|
} |
|
|
|
|
set libunknown "" |
|
|
|
|
set libunknown_version_sofar "" |
|
|
|
|
foreach lib $libunks { |
|
|
|
|
#expecting to be of form libunknown-<tclversion>.tm |
|
|
|
|
set vtail [lindex [split [file tail $lib] -] 1] |
|
|
|
|
set thisver [file rootname $vtail] ;#file rootname x.y.z.tm |
|
|
|
|
if {$libunknown_version_sofar eq ""} { |
|
|
|
|
set libunknown_version_sofar $thisver |
|
|
|
|
set libunknown $lib |
|
|
|
|
} else { |
|
|
|
|
if {[package vcompare $thisver $libunknown_version_sofar] == 1} { |
|
|
|
|
set libunknown_version_sofar $thisver |
|
|
|
|
set libunknown $lib |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
if {$libunknown ne ""} { |
|
|
|
|
uplevel 1 [list ::source $libunknown] |
|
|
|
|
if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} { |
|
|
|
|
puts stderr "error initialising punk::libunknown\n from: '$libunknown'" |
|
|
|
|
puts stderr "tcl::tm::list: [tcl::tm::list]" |
|
|
|
|
puts stderr "error: $errM" |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
}} |
|
|
|
|
|
|
|
|
|
} else { |
|
|
|
|
puts stderr "punk::libunknown [package provide punk::libunknown] already loaded" |
|
|
|
|
} |
|
|
|
|
#----------------------------------------------------------------------------- |
|
|
|
|
#package require punk::packagepreference |
|
|
|
|
#punk::packagepreference::install |
|
|
|
|
#tm list, auto_path, package prefer, and libunknown were already |
|
|
|
|
#propagated by punk::lib::interp_sync_package_paths code -libunknown 1 |
|
|
|
|
#at interp creation time above. |
|
|
|
|
|
|
|
|
|
# -- --- |
|
|
|
|
#review |
|
|
|
|
|
