scriptwrapper update punk.tcl

src/scriptapps/punk.tcl

@@ -1,15 +1,16 @@
-#puts stdout "launching punk87"
-
+#puts stdout "launching punk"
 set dirname [file dirname [file normalize [info script]]]
 if {[file tail $dirname] eq "bin"} {
-    if {[file exists [file join $dirname ../src/punk86.vfs/main.tcl]]} {
-        #tclsh [file join $dirname ../src/punk86.vfs/main.tcl] {*}$::argv
-        source [file join $dirname ../src/punk86.vfs/main.tcl]
+	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 punk87 entry-point main.tcl"
+        puts stderr "Unable to locate punk${tclmajorv} entry-point main.tcl tried:$launchpath"
     }
 } else {
-    puts stderr "punk87 launch script must be run from the punk bin folder"
+    puts stderr "punk launch script must be located in the punk bin folder"
 }
 #puts stdout "-done-"