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.
15 lines
534 B
15 lines
534 B
#puts stdout "launching punk87" |
|
|
|
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] |
|
} else { |
|
puts stderr "Unable to locate punk87 entry-point main.tcl" |
|
} |
|
} else { |
|
puts stderr "punk87 launch script must be run from the punk bin folder" |
|
} |
|
#puts stdout "-done-" |
|
|
|
|