22 lines
608 B
Tcl
Executable File
22 lines
608 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
|
|
# $Revision: 1.1 $
|
|
# $Date: 2006-10-12 23:06:05 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
# Creates a fake motion controller based on an
|
|
# instrument configuration file.
|
|
# Usage ./cont.tcl -cont <cnum> -port <portname>
|
|
# where cnum is the controller number (1,2,3,4) and
|
|
# and the portname is something like pmc2-wombat
|
|
|
|
if {$tcl_interactive==0} { array set arga $argv}
|
|
source dmcParse.tcl
|
|
source simAxis.tcl
|
|
source dmc2280Server.tcl
|
|
if {$tcl_interactive==0} {
|
|
source dmc2280_controller$arga(-cont)_sim.tcl
|
|
startserver -port $arga(-port);
|
|
}
|