|
|
|
|
@ -1253,7 +1253,7 @@ apply { args {
|
|
|
|
|
tcl::tm::add {*}[lreverse $new_tm_list] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#If it looks like we are running the vfs/_build/exename.vfs/main.tcl from an external tclsh - try to use vfs folders to simulate kit state |
|
|
|
|
#If it looks like we are running the vfs/_bake/exename.vfs/main.tcl from an external tclsh - try to use vfs folders to simulate kit state |
|
|
|
|
#set script_relative_lib [file normalize [file join [file dirname [info script]] lib]] |
|
|
|
|
#set scriptdir [file dirname [info script]] |
|
|
|
|
set scriptdir [file dirname $normscript] |
|
|
|
|
@ -1269,9 +1269,9 @@ apply { args {
|
|
|
|
|
#presumably running the vfs/xxx.vfs/main.tcl script using a non-kit tclsh that doesn't have starkit lib or mounted zipfs/cookfs available.. lets see if we can move forward anyway |
|
|
|
|
set vfscontainer [file normalize [file dirname $scriptdir]] |
|
|
|
|
#set vfscommon [file join $vfscontainer _vfscommon] |
|
|
|
|
#we shouldn't be targetting the src/vfs folders - use src/_build/exename.vfs instead |
|
|
|
|
#we shouldn't be targetting the src/vfs folders - use src/_bake/exename.vfs instead |
|
|
|
|
set vfsdir [file normalize $scriptdir] |
|
|
|
|
set projectroot [file dirname [file dirname $vfscontainer]] ;#back below src/_build/exename.vfs/main.tcl |
|
|
|
|
set projectroot [file dirname [file dirname $vfscontainer]] ;#back below src/_bake/exename.vfs/main.tcl |
|
|
|
|
puts stdout "no starkit. projectroot?: $projectroot executable:[info nameofexecutable]" |
|
|
|
|
puts stdout "info lib: [info library]" |
|
|
|
|
|
|
|
|
|
@ -1384,8 +1384,8 @@ apply { args {
|
|
|
|
|
#recursive glob for #modpod-* directories (Tcl 8.6+ supports ** in glob) |
|
|
|
|
set modpod_dirs [list] |
|
|
|
|
foreach found [glob -nocomplain -type d -directory $src_modules_dir ** #modpod-*] { |
|
|
|
|
#skip _build subdirectories |
|
|
|
|
if {[string match "*_build*" $found]} { continue } |
|
|
|
|
#skip staging subdirectories (_mint; legacy _build; _bake defensively) |
|
|
|
|
if {[string match "*_build*" $found] || [string match "*_mint*" $found] || [string match "*_bake*" $found]} { continue } |
|
|
|
|
lappend modpod_dirs $found |
|
|
|
|
} |
|
|
|
|
foreach modpod_dir $modpod_dirs { |
|
|
|
|
|