Julian Noble
1 month ago
1 changed files with 8 additions and 7 deletions
@ -1,15 +1,16 @@ |
|||||||
#puts stdout "launching punk87" |
#puts stdout "launching punk" |
||||||
|
|
||||||
set dirname [file dirname [file normalize [info script]]] |
set dirname [file dirname [file normalize [info script]]] |
||||||
if {[file tail $dirname] eq "bin"} { |
if {[file tail $dirname] eq "bin"} { |
||||||
if {[file exists [file join $dirname ../src/punk86.vfs/main.tcl]]} { |
lassign [split [info tclversion] .] tclmajorv tclminorv |
||||||
#tclsh [file join $dirname ../src/punk86.vfs/main.tcl] {*}$::argv |
set launchpath "../src/vfs/punk${tclmajorv}win.vfs/main.tcl" |
||||||
source [file join $dirname ../src/punk86.vfs/main.tcl] |
if {[file exists [file join $dirname $launchpath]]} { |
||||||
|
#tclsh [file join $dirname $launchpath] {*}$::argv |
||||||
|
source [file join $dirname $launchpath] |
||||||
} else { |
} 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 { |
} 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-" |
#puts stdout "-done-" |
||||||
|
|
||||||
|
Loading…
Reference in new issue