124 lines
3.9 KiB
Tcl
124 lines
3.9 KiB
Tcl
# SICS common configuration
|
|
|
|
# $Revision: 1.27 $
|
|
# $Date: 2007-07-22 05:23:40 $
|
|
# 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\
|
|
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 [portnum $quieckport ]
|
|
ServerOption ServerPort [portnum $serverport ]
|
|
ServerOption InterruptPort [portnum $interruptport ]
|
|
ServerOption TelWord sicslogin
|
|
ServerOption TelnetPort [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]]
|
|
SicsDataPrefix lock
|
|
|
|
::utility::mkVar SicsDataSuffix Text manager
|
|
SicsDataSuffix 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.27 $}]
|
|
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 user 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 datafile 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 sics_simulation Text internal
|
|
sics_simulation false
|
|
|
|
if {[SplitReply [sics_simulation]] == "true"} {
|
|
hmm_simulation true
|
|
counter_simulation true
|
|
motor_simulation true
|
|
}
|
|
|
|
proc server_set_sobj_attributes {} {
|
|
# set_sicsobj_atts sobj klass group name control data
|
|
#set_sicsobj_atts Title experiment @none title true true;
|
|
#set_sicsobj_atts Sample experiment user sample true true;
|
|
#set_sicsobj_atts User experiment user name true true;
|
|
#set_sicsobj_atts Email experiment user email true true;
|
|
#set_sicsobj_atts Phone experiment user phone true true;
|
|
#set_sicsobj_atts starttime experiment user start true true;
|
|
#set_sicsobj_atts dataFileName experiment @none datafile true true;
|
|
|
|
#sicslist setatt SicsDataPrefix privilege internal
|
|
#sicslist setatt sics_release privilege internal
|
|
#sicslist setatt sics_revision_num privilege internal
|
|
#sicslist setatt SicsDataPath privilege internal
|
|
#sicslist setatt detector_type privilege internal
|
|
#sicslist setatt detector_description privilege internal
|
|
#sicslist setatt hmm_simulation privilege internal
|
|
#sicslist setatt counter_simulation privilege internal
|
|
#sicslist setatt motor_simulation privilege internal
|
|
#sicslist setatt sics_simulation privilege internal
|
|
}
|
|
|
|
server_set_sobj_attributes
|