diff --git a/src/project_layouts/custom/_project/punk.basic/src/make.tcl b/src/project_layouts/custom/_project/punk.basic/src/make.tcl index 1ed3e9b3..fb2a5353 100644 --- a/src/project_layouts/custom/_project/punk.basic/src/make.tcl +++ b/src/project_layouts/custom/_project/punk.basic/src/make.tcl @@ -1828,7 +1828,6 @@ if {$::punkboot::command eq "bootsupport"} { package vcompare $v1 $v2 } proc bootsupport_localupdate {projectroot} { - set bootsupport_modules [list] ;#variable populated by include_modules.config file - review set sourcefolder $projectroot/src set bootmodulefolders [glob -nocomplain -dir $sourcefolder/bootsupport -type d -tails modules modules_tcl*] @@ -1840,6 +1839,7 @@ if {$::punkboot::command eq "bootsupport"} { set which "" } set bootsupport_config $projectroot/src/bootsupport/modules$which/include_modules.config ;# + set bootsupport_modules [list] ;#variable populated by include_modules.config file - initialise empty for each bm folder if {[file exists $bootsupport_config]} { set targetroot $projectroot/src/bootsupport/modules$which source $bootsupport_config ;#populate $bootsupport_modules with project-specific list diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm index 4bc2c7ce..55408253 100644 --- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm +++ b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm @@ -7941,7 +7941,13 @@ namespace eval punk { set t [textblock::class::table new -show_hseps 0 -show_header 1 -ansiborder_header [a+ web-green]] foreach {v vinfo} $otherenv_config { if {[info exists ::env($v)]} { - set c2 [set ::env($v)] + set env_val [set ::env($v)] + if {[string match "*_TM_PATH" $v]} { + set entries [split $env_val $::tcl_platform(pathSeparator)] + set c2 [join $entries \n] + } else { + set c2 $::env($v) + } } else { set c2 "(NOT SET)" } @@ -7952,7 +7958,8 @@ namespace eval punk { set othertable [$t print] $t destroy - append text [textblock::join -- $punktable " " $othertable]\n + #append text [textblock::join -- $punktable " " $othertable]\n + append text $punktable\n$othertable\n } else { append text $linesep\n diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl b/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl index 1ed3e9b3..fb2a5353 100644 --- a/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl +++ b/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl @@ -1828,7 +1828,6 @@ if {$::punkboot::command eq "bootsupport"} { package vcompare $v1 $v2 } proc bootsupport_localupdate {projectroot} { - set bootsupport_modules [list] ;#variable populated by include_modules.config file - review set sourcefolder $projectroot/src set bootmodulefolders [glob -nocomplain -dir $sourcefolder/bootsupport -type d -tails modules modules_tcl*] @@ -1840,6 +1839,7 @@ if {$::punkboot::command eq "bootsupport"} { set which "" } set bootsupport_config $projectroot/src/bootsupport/modules$which/include_modules.config ;# + set bootsupport_modules [list] ;#variable populated by include_modules.config file - initialise empty for each bm folder if {[file exists $bootsupport_config]} { set targetroot $projectroot/src/bootsupport/modules$which source $bootsupport_config ;#populate $bootsupport_modules with project-specific list diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk-0.1.tm b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk-0.1.tm index 4bc2c7ce..55408253 100644 --- a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk-0.1.tm +++ b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk-0.1.tm @@ -7941,7 +7941,13 @@ namespace eval punk { set t [textblock::class::table new -show_hseps 0 -show_header 1 -ansiborder_header [a+ web-green]] foreach {v vinfo} $otherenv_config { if {[info exists ::env($v)]} { - set c2 [set ::env($v)] + set env_val [set ::env($v)] + if {[string match "*_TM_PATH" $v]} { + set entries [split $env_val $::tcl_platform(pathSeparator)] + set c2 [join $entries \n] + } else { + set c2 $::env($v) + } } else { set c2 "(NOT SET)" } @@ -7952,7 +7958,8 @@ namespace eval punk { set othertable [$t print] $t destroy - append text [textblock::join -- $punktable " " $othertable]\n + #append text [textblock::join -- $punktable " " $othertable]\n + append text $punktable\n$othertable\n } else { append text $linesep\n diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl b/src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl index 1ed3e9b3..fb2a5353 100644 --- a/src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl +++ b/src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl @@ -1828,7 +1828,6 @@ if {$::punkboot::command eq "bootsupport"} { package vcompare $v1 $v2 } proc bootsupport_localupdate {projectroot} { - set bootsupport_modules [list] ;#variable populated by include_modules.config file - review set sourcefolder $projectroot/src set bootmodulefolders [glob -nocomplain -dir $sourcefolder/bootsupport -type d -tails modules modules_tcl*] @@ -1840,6 +1839,7 @@ if {$::punkboot::command eq "bootsupport"} { set which "" } set bootsupport_config $projectroot/src/bootsupport/modules$which/include_modules.config ;# + set bootsupport_modules [list] ;#variable populated by include_modules.config file - initialise empty for each bm folder if {[file exists $bootsupport_config]} { set targetroot $projectroot/src/bootsupport/modules$which source $bootsupport_config ;#populate $bootsupport_modules with project-specific list