# SICS common configuration

# $Revision: 1.32 $
# $Date: 2007-11-05 02:09:06 $
# 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.32 $}]
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 plc_simulation Text internal
plc_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
  plc_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
    clientput "serverport [get_portnum $::serverport]"
}