#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-"