|
|
|
@ -1231,7 +1231,7 @@ proc ::punkboot::punkboot_gethelp {args} { |
|
|
|
array set haspkg [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ... |
|
|
|
array set haspkg [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ... |
|
|
|
|
|
|
|
|
|
|
|
set scriptname [file tail [info script]] |
|
|
|
set scriptname [file tail [info script]] |
|
|
|
append h "Usage:" \n |
|
|
|
append h "Usage:" \n |
|
|
|
append h "" \n |
|
|
|
append h "" \n |
|
|
|
append h " $scriptname -help or $scriptname --help or $scriptname /? or just $scriptname" \n |
|
|
|
append h " $scriptname -help or $scriptname --help or $scriptname /? or just $scriptname" \n |
|
|
|
append h " - This help." \n \n |
|
|
|
append h " - This help." \n \n |
|
|
|
@ -2004,6 +2004,8 @@ if {$::punkboot::command eq "bootsupport"} { |
|
|
|
if {[file exists [file join $project_layout_base $layoutname/src/bootsupport]]} { |
|
|
|
if {[file exists [file join $project_layout_base $layoutname/src/bootsupport]]} { |
|
|
|
set antipaths [list {*}{ |
|
|
|
set antipaths [list {*}{ |
|
|
|
README.md |
|
|
|
README.md |
|
|
|
|
|
|
|
AGENTS.md |
|
|
|
|
|
|
|
**/AGENTS.md |
|
|
|
}] |
|
|
|
}] |
|
|
|
#set boot_module_folders [list modules {*}[glob -nocomplain -dir $projectroot/src/bootsupport/modules_tcl*]] |
|
|
|
#set boot_module_folders [list modules {*}[glob -nocomplain -dir $projectroot/src/bootsupport/modules_tcl*]] |
|
|
|
set bootsupport_module_folders "modules" |
|
|
|
set bootsupport_module_folders "modules" |
|
|
|
@ -2094,7 +2096,7 @@ if {$::punkboot::command in {project packages modules}} { |
|
|
|
set resultdict [punkcheck::install $sourcefolder/$vf $target_module_folder\ |
|
|
|
set resultdict [punkcheck::install $sourcefolder/$vf $target_module_folder\ |
|
|
|
-installer make.tcl\ |
|
|
|
-installer make.tcl\ |
|
|
|
-overwrite installedsourcechanged-targets\ |
|
|
|
-overwrite installedsourcechanged-targets\ |
|
|
|
-antiglob_paths {README.md include_modules.config}\ |
|
|
|
-antiglob_paths {README.md AGENTS.md **/AGENTS.md include_modules.config}\ |
|
|
|
-progresschannel stdout\ |
|
|
|
-progresschannel stdout\ |
|
|
|
] |
|
|
|
] |
|
|
|
puts stdout [punkcheck::summarize_install_resultdict $resultdict] |
|
|
|
puts stdout [punkcheck::summarize_install_resultdict $resultdict] |
|
|
|
@ -2112,6 +2114,8 @@ if {$::punkboot::command in {project packages libs}} { |
|
|
|
# **/test.txt will match at any level below the root (but not in the root) |
|
|
|
# **/test.txt will match at any level below the root (but not in the root) |
|
|
|
set antipaths [list {*}{ |
|
|
|
set antipaths [list {*}{ |
|
|
|
README.md |
|
|
|
README.md |
|
|
|
|
|
|
|
AGENTS.md |
|
|
|
|
|
|
|
**/AGENTS.md |
|
|
|
}] |
|
|
|
}] |
|
|
|
#step1 - vendorlib - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral |
|
|
|
#step1 - vendorlib - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral |
|
|
|
set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib] |
|
|
|
set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib] |
|
|
|
@ -2173,7 +2177,7 @@ if {$::punkboot::command in {project packages libs}} { |
|
|
|
|
|
|
|
|
|
|
|
if {$::punkboot::command in {project packages libs}} { |
|
|
|
if {$::punkboot::command in {project packages libs}} { |
|
|
|
######################################################## |
|
|
|
######################################################## |
|
|
|
lappend projectlibfolders lib |
|
|
|
lappend projectlibfolders lib |
|
|
|
#exclude README.md from source folder - but only the root one |
|
|
|
#exclude README.md from source folder - but only the root one |
|
|
|
#-antiglob_paths takes relative patterns e.g |
|
|
|
#-antiglob_paths takes relative patterns e.g |
|
|
|
# */test.txt will only match test.txt exactly one level deep. |
|
|
|
# */test.txt will only match test.txt exactly one level deep. |
|
|
|
@ -2181,6 +2185,8 @@ if {$::punkboot::command in {project packages libs}} { |
|
|
|
# **/test.txt will match at any level below the root (but not in the root) |
|
|
|
# **/test.txt will match at any level below the root (but not in the root) |
|
|
|
set antipaths [list {*}{ |
|
|
|
set antipaths [list {*}{ |
|
|
|
README.md |
|
|
|
README.md |
|
|
|
|
|
|
|
AGENTS.md |
|
|
|
|
|
|
|
**/AGENTS.md |
|
|
|
}] |
|
|
|
}] |
|
|
|
#step1 - src/lib - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral |
|
|
|
#step1 - src/lib - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral |
|
|
|
set projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib] |
|
|
|
set projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib] |
|
|
|
@ -2348,7 +2354,7 @@ if {$::punkboot::command in {project packages modules}} { |
|
|
|
set resultdict [punkcheck::install_non_tm_files $src_module_dir $target_modules_base\ |
|
|
|
set resultdict [punkcheck::install_non_tm_files $src_module_dir $target_modules_base\ |
|
|
|
-installer make.tcl\ |
|
|
|
-installer make.tcl\ |
|
|
|
-overwrite $overwrite\ |
|
|
|
-overwrite $overwrite\ |
|
|
|
-antiglob_paths {README.md}\ |
|
|
|
-antiglob_paths {README.md **/AGENTS.md AGENTS.md}\ |
|
|
|
-progresschannel stdout\ |
|
|
|
-progresschannel stdout\ |
|
|
|
] |
|
|
|
] |
|
|
|
puts stdout [punkcheck::summarize_install_resultdict $resultdict] |
|
|
|
puts stdout [punkcheck::summarize_install_resultdict $resultdict] |
|
|
|
|
