9 lines
163 B
Tcl
9 lines
163 B
Tcl
proc SplitReply { text } {
|
|
set l [split $text =]
|
|
return [lindex $l 1]
|
|
}
|
|
|
|
proc batchrun file {
|
|
fileeval [string trim [SplitReply [BatchRoot]]/$file]
|
|
}
|