7b0162177e
Also added chopper_simulation flag for platypus. r2191 | ffr | 2007-10-23 12:42:52 +1000 (Tue, 23 Oct 2007) | 3 lines
118 lines
3.5 KiB
Tcl
118 lines
3.5 KiB
Tcl
# SICS common configuration
|
|
|
|
# $Revision: 1.30 $
|
|
# $Date: 2007-10-23 02:42:52 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by $Author: ffr $
|
|
|
|
#set sicsroot /usr/local/sics
|
|
set sicsroot ../
|
|
set cfParent config
|
|
array set cfPath [list\
|
|
motors $cfParent/motors\
|
|
optics $cfParent/optics\
|
|
counter $cfParent/counter\
|
|
chopper $cfParent/chopper\
|
|
hmm $cfParent/hmm\
|
|
scan $cfParent/scan\
|
|
velsel $cfParent/velsel\
|
|
nexus $cfParent/nexus\
|
|
hipadaba $cfParent/hipadaba\
|
|
plc $cfParent/plc]
|
|
|
|
ServerOption LogFileBaseName $sicsroot/log/serverlog
|
|
|
|
installprotocolhandler
|
|
|
|
source util/utility.tcl
|
|
|
|
ServerOption statusfile $sicsroot/log/status.tcl
|
|
ServerOption RedirectFile $sicsroot/log/stdout
|
|
ServerOption LogFileDir $sicsroot/log
|
|
ServerOption QuieckPort [get_portnum $quieckport ]
|
|
ServerOption ServerPort [get_portnum $serverport ]
|
|
ServerOption InterruptPort [get_portnum $interruptport ]
|
|
ServerOption TelWord sicslogin
|
|
ServerOption TelnetPort [get_portnum $telnetport ]
|
|
ServerOption ReadUserPasswdTimeout 600000
|
|
ServerOption AcceptTimeOut 10
|
|
ServerOption ReadTimeOut 10
|
|
SicsUser manager ansto 1
|
|
SicsUser user sydney 2
|
|
SicsUser spy 007 3
|
|
|
|
MakeDataNumber SicsDataNumber $sicsroot/data/DataNumber
|
|
|
|
#Instrument specific configs must set the Instrument variable
|
|
::utility::mkVar SicsDataPrefix Text internal
|
|
SicsDataPrefix [SplitReply [Instrument]]
|
|
|
|
::utility::mkVar SicsDataPostFix Text manager
|
|
SicsDataPostFix nx.hdf
|
|
|
|
|
|
::utility::mkVar sics_release Text internal
|
|
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
|
|
sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
|
sics_release lock
|
|
|
|
::utility::mkVar sics_revision_num Text internal
|
|
set tmpstr [string map {"$" ""} {$Revision: 1.30 $}]
|
|
sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
|
sics_revision_num lock
|
|
|
|
::utility::mkVar SicsDataPath Text internal
|
|
SicsDataPath $sicsroot/data/
|
|
SicsDataPath lock
|
|
::utility::mkVar Title Text user title true experiment true true
|
|
::utility::mkVar Sample Text user description true sample true true
|
|
::utility::mkVar User Text user name true user true true
|
|
::utility::mkVar Email Text user email true user true true
|
|
::utility::mkVar Phone Text user phone true user true true
|
|
::utility::mkVar starttime Text user start true experiment true true
|
|
MakeDrive
|
|
|
|
exe batchpath ../batch
|
|
exe syspath ../batch
|
|
|
|
::utility::mkVar detector_type Text internal
|
|
::utility::mkVar detector_description Text internal
|
|
|
|
::utility::mkVar dataFileName Text user file_name true experiment true true
|
|
|
|
::utility::mkVar hmm_simulation Text internal
|
|
hmm_simulation false
|
|
|
|
::utility::mkVar counter_simulation Text internal
|
|
counter_simulation false
|
|
|
|
::utility::mkVar motor_simulation Text internal
|
|
motor_simulation false
|
|
|
|
::utility::mkVar chopper_simulation Text internal
|
|
chopper_simulation false
|
|
|
|
::utility::mkVar sics_fullsimulation Text internal
|
|
sics_fullsimulation false
|
|
|
|
if {[SplitReply [sics_fullsimulation]] == "true"} {
|
|
hmm_simulation true
|
|
counter_simulation true
|
|
motor_simulation true
|
|
chopper_simulation true
|
|
}
|
|
|
|
proc server_set_sobj_attributes {} {
|
|
motor_set_sobj_attributes
|
|
::utility::set_motor_attributes
|
|
::utility::set_histomem_attributes
|
|
::utility::set_sobj_attributes
|
|
::utility::set_envcontrol_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
|
|
}
|