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
534 B
16 lines
534 B
1 year ago
|
#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-"
|
||
|
|
|