You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
#puts stdout "launching punk"
|
|
|
|
|
set dirname [file dirname [file normalize [info script]]]
|
|
|
|
|
if {[file tail $dirname] eq "bin"} {
|
|
|
|
|
lassign [split [info tclversion] .] tclmajorv tclminorv
|
|
|
|
|
set launchpath "../src/vfs/punk${tclmajorv}win.vfs/main.tcl"
|
|
|
|
|
if {[file exists [file join $dirname $launchpath]]} {
|
|
|
|
|
#tclsh [file join $dirname $launchpath] {*}$::argv
|
|
|
|
|
source [file join $dirname $launchpath]
|
|
|
|
|
} else {
|
|
|
|
|
puts stderr "Unable to locate punk${tclmajorv} entry-point main.tcl tried:$launchpath"
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
puts stderr "punk launch script must be located in the punk bin folder"
|
|
|
|
|
}
|
|
|
|
|
#puts stdout "-done-"
|
|
|
|
|
|
