|
|
@ -9,6 +9,19 @@ puts stdout "::argv $::argv" |
|
|
|
|
|
|
|
|
|
|
|
set dirname [file normalize [file dirname [info script]]] |
|
|
|
set dirname [file normalize [file dirname [info script]]] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# ---------------------------------------- |
|
|
|
|
|
|
|
set src_module_dir $dirname/modules |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
set src_modules [glob -nocomplain -dir $src_module_dir -type f -tail *.tm] |
|
|
|
|
|
|
|
set target_module_dir [file dirname $dirname]/modules |
|
|
|
|
|
|
|
file mkdir $target_module_dir |
|
|
|
|
|
|
|
foreach m $src_modules { |
|
|
|
|
|
|
|
puts stdout "copying module $src_module_dir/$m to $target_module_dir" |
|
|
|
|
|
|
|
file copy -force $src_module_dir/$m $target_module_dir |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
# ---------------------------------------- |
|
|
|
|
|
|
|
# |
|
|
|
if {![file exists $dirname/punk86.vfs]} { |
|
|
|
if {![file exists $dirname/punk86.vfs]} { |
|
|
|
puts stderr "missing $dirname/punk86.vfs" |
|
|
|
puts stderr "missing $dirname/punk86.vfs" |
|
|
|
exit 1 |
|
|
|
exit 1 |
|
|
|