- Adding first working version of the McStas SICS connection to cvs
SKIPPED: psi/polterwrite.c
This commit is contained in:
8
mcstas/dmc/batch.tcl
Normal file
8
mcstas/dmc/batch.tcl
Normal file
@ -0,0 +1,8 @@
|
||||
proc SplitReply { text } {
|
||||
set l [split $text =]
|
||||
return [lindex $l 1]
|
||||
}
|
||||
|
||||
proc batchrun file {
|
||||
fileeval [string trim [SplitReply [BatchRoot]]/$file]
|
||||
}
|
Reference in New Issue
Block a user