#!/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);
}