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.
16 lines
633 B
16 lines
633 B
#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-" |
|
|
|
|