Create fake DMC2280 controllers.
r1138 | ffr | 2006-10-13 09:06:05 +1000 (Fri, 13 Oct 2006) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
fdd815680f
commit
572b77fac2
21
site_ansto/instrument/TEST_SICS/fakeDMC/cont.tcl
Executable file
21
site_ansto/instrument/TEST_SICS/fakeDMC/cont.tcl
Executable file
@@ -0,0 +1,21 @@
|
||||
#!/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);
|
||||
}
|
||||
Reference in New Issue
Block a user