From ebba5a805249e9ed5deccab80628ef246c11ff01 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Thu, 10 May 2007 13:21:51 +1000 Subject: [PATCH] Added motor_simulation flag. If true then the motor_configuration.tcl files should create ANSTO simulated motor drivers. r1951 | ffr | 2007-05-10 13:21:51 +1000 (Thu, 10 May 2007) | 2 lines --- site_ansto/instrument/server_config.tcl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/site_ansto/instrument/server_config.tcl b/site_ansto/instrument/server_config.tcl index 0e5417bc..58b858ac 100644 --- a/site_ansto/instrument/server_config.tcl +++ b/site_ansto/instrument/server_config.tcl @@ -1,7 +1,7 @@ # SICS common configuration -# $Revision: 1.24 $ -# $Date: 2007-04-20 01:53:31 $ +# $Revision: 1.25 $ +# $Date: 2007-05-10 03:21:51 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by $Author: ffr $ @@ -52,7 +52,7 @@ sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]] sics_release lock VarMake sics_revision_num Text Internal -set tmpstr [string map {"$" ""} {$Revision: 1.24 $}] +set tmpstr [string map {"$" ""} {$Revision: 1.25 $}] sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]] sics_revision_num lock @@ -86,10 +86,14 @@ hmm_simulation false VarMake counter_simulation Text Internal counter_simulation false +VarMake motor_simulation Text Internal +motor_simulation false + VarMake sics_simulation Text Internal sics_simulation false if {[SplitReply [sics_simulation]] == "true"} { hmm_simulation true counter_simulation true + motor_simulation true }