Added optics subsystem path.

Also added chopper_simulation flag for platypus.

r2191 | ffr | 2007-10-23 12:42:52 +1000 (Tue, 23 Oct 2007) | 3 lines

site_ansto/instrument/sans/quokka_configuration.tcl

@@ -1,11 +1,10 @@
-# $Revision: 1.5 $
-# $Date: 2007-10-03 22:33:28 $
+# $Revision: 1.6 $
+# $Date: 2007-10-23 02:42:52 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by: $Author: ffr $
 
 # Required by server_config.tcl 
 VarMake Instrument Text Internal
-sicslist setatt Instrument privilege internal
 Instrument quokka 
 Instrument lock
 
@@ -27,6 +26,7 @@ fileeval $cfPath(motors)/motor_configuration.tcl
 restore
 
 fileeval $cfPath(plc)/plc.tcl
+fileeval $cfPath(optics)/optics.tcl
 fileeval $cfPath(counter)/counter.tcl
 fileeval $cfPath(hmm)/hmm_configuration.tcl
 fileeval $cfPath(nexus)/nxscripts.tcl
@@ -36,24 +36,7 @@ source gumxml.tcl
 
 ::histogram_memory::initialize
 
-MakeStateMon hmscan 
-if 0 {
-proc instrument_set_sobj_attributes {} {
-
-    motor_set_sobj_attributes 
-    ::utility::set_motor_attributes
-    ::utility::set_histomem_attributes
-    ::utility::set_sobj_attributes
-    ::plc::set_sobj_attributes 
-    ::counter::set_sobj_attributes 
-    ::nexus::set_sobj_attributes 
-    ::histogram_memory::set_sobj_attributes 
-## TODO move the following to the new ansto gumxml.tcl
-    sicslist setatt getgumtreexml privilege internal
-}
-
-instrument_set_sobj_attributes 
-}
+MakeStateMon hmscan
 fileeval extraconfig.tcl
 server_set_sobj_attributes
 buildHDB instrument_dictionary