linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Migrated down the config tree

Browse Source 
r1702 | dcl | 2007-03-23 13:44:35 +1100 (Fri, 23 Mar 2007) | 2 lines
This commit is contained in:
Douglas Clowes
2007-03-23 13:44:35 +11:00
parent 5ec8440355
commit c647dd6951
5 changed files with 0 additions and 1291 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
site_ansto/instrument/reflectometer/chopper.tcl
View File

@@ -1,29 +0,0 @@
#START SERVER CONFIGURATION SECTION
set sicsroot /usr/local/sics
source dmc2280_util.tcl
source server_config.tcl
#END SERVER CONFIGURATION SECTION
########################################
# INSTRUMENT SPECIFIC CONFIGURATION
VarMake Instrument Text Internal
Instrument Platypus
Instrument lock
# Chopper NCS013 communications
set chopper_controller(host) 137.157.202.130
set chopper_controller(port) 10000
set chopper_controller(user) NCS
set chopper_controller(password) NCS013
# CHOPPER
MakeChopper chopperController tcpdocho [params \
host $chopper_controller(host) \
port $chopper_controller(port) \
nchopper 4 \
timeout 30 \
user $chopper_controller(user) \
password $chopper_controller(password) \
]
ChopperAdapter chspeed chopperController speed 0 10

57
site_ansto/instrument/reflectometer/hipadaba_configuration.tcl
View File

@@ -1,57 +0,0 @@
# $Revision: 1.2 $
# $Date: 2006-11-13 21:29:39 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: dcl $
# Defines hashes which map motor names to arrays
source hpaths.tcl
#TODO What we really want are duplicates of the SICS Motor and
# MakeConfigurableMotor commands which
foreach hp $hpaths { hmake $hp spy none }
makeHdbMotor $motor_hpath(s1up) s1up s1up
makeHdbMotor $motor_hpath(s1lo) s1lo s1lo
makeHdbMotor $motor_hpath(s1le) s1le s1le
makeHdbMotor $motor_hpath(s1ri) s1ri s1ri
makeHdbVirtMotor $motor_hpath(s1vg) s1vg s1vg
makeHdbVirtMotor $motor_hpath(s1vo) s1vo s1vo
makeHdbVirtMotor $motor_hpath(s1hg) s1hg s1hg
makeHdbVirtMotor $motor_hpath(s1ho) s1ho s1ho
makeHdbMotor $motor_hpath(s2up) s2up s2up
makeHdbMotor $motor_hpath(s2lo) s2lo s2lo
makeHdbMotor $motor_hpath(s2le) s2le s2le
makeHdbMotor $motor_hpath(s2ri) s2ri s2ri
makeHdbVirtMotor $motor_hpath(s2vg) s2vg s2vg
makeHdbVirtMotor $motor_hpath(s2vo) s2vo s2vo
makeHdbVirtMotor $motor_hpath(s2hg) s2hg s2hg
makeHdbVirtMotor $motor_hpath(s2ho) s2ho s2ho
makeHdbMotor $motor_hpath(s3up) s3up s3up
makeHdbMotor $motor_hpath(s3lo) s3lo s3lo
makeHdbMotor $motor_hpath(s3le) s3le s3le
makeHdbMotor $motor_hpath(s3ri) s3ri s3ri
makeHdbVirtMotor $motor_hpath(s3vg) s3vg s3vg
makeHdbVirtMotor $motor_hpath(s3vo) s3vo s3vo
makeHdbVirtMotor $motor_hpath(s3hg) s3hg s3hg
makeHdbVirtMotor $motor_hpath(s3ho) s3ho s3ho
makeHdbMotor $motor_hpath(st3vt) st3vt st3vt
makeHdbMotor $motor_hpath(s4up) s4up s4up
makeHdbMotor $motor_hpath(s4lo) s4lo s4lo
makeHdbMotor $motor_hpath(s4le) s4le s4le
makeHdbMotor $motor_hpath(s4ri) s4ri s4ri
makeHdbVirtMotor $motor_hpath(s4vg) s4vg s4vg
makeHdbVirtMotor $motor_hpath(s4vo) s4vo s4vo
makeHdbVirtMotor $motor_hpath(s4hg) s4hg s4hg
makeHdbVirtMotor $motor_hpath(s4ho) s4ho s4ho
makeHdbMotor $motor_hpath(st4vt) st4vt st4vt
makeHdbMotor $motor_hpath(saz) saz saz
makeHdbMotor $motor_hpath(sax) sax sax
makeHdbMotor $motor_hpath(sath) sath sath
makeHdbMotor $motor_hpath(saphi) saphi saphi
makeHdbMotor $motor_hpath(dszvt) dszvt dszvt
makeHdbMotor $motor_hpath(dezvt) dezvt dezvt

46
site_ansto/instrument/reflectometer/hpaths.tcl
View File

@@ -1,46 +0,0 @@
set hpaths [list \
/sample /detector /slits \
/slits/1 /slits/2 /slits/3 /slits/4 ]
# Maps devices (eg motors) to hipadaba paths.
array set motor_hpath [list \
ss1u /slits/1 \
ss1d /slits/1 \
ss1l /slits/1 \
ss1r /slits/1 \
ss1vg /slits/1 \
ss1vo /slits/1 \
ss1hg /slits/1 \
ss1ho /slits/1 \
ss2u /slits/2 \
ss2d /slits/2 \
ss2l /slits/2 \
ss2r /slits/2 \
ss2vg /slits/2 \
ss2vo /slits/2 \
ss2hg /slits/2 \
ss2ho /slits/2 \
ss3u /slits/3 \
ss3d /slits/3 \
ss3l /slits/3 \
ss3r /slits/3 \
ss3vg /slits/3 \
ss3vo /slits/3 \
ss3hg /slits/3 \
ss3ho /slits/3 \
st3vt /slits/3 \
ss4u /slits/4 \
ss4d /slits/4 \
ss4l /slits/4 \
ss4r /slits/4 \
ss4vg /slits/4 \
ss4vo /slits/4 \
ss4hg /slits/4 \
ss4ho /slits/4 \
st4vt /slits/4 \
sz /sample \
sx /sample \
sth /sample \
sphi /sample \
dszvt /detector \
dezvt /detector ]

1137
site_ansto/instrument/reflectometer/motor_configuration.tcl
View File

File diff suppressed because it is too large Load Diff

22
site_ansto/instrument/reflectometer/troubleshoot_setup.tcl
View File

@@ -1,22 +0,0 @@
# Platypus troubleshooter setup
# $Revision: 1.1 $
# $Date: 2006-11-12 21:45:02 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
set configFileName "motor_configuration.tcl"
# These subroutines should be installed on the controllers
set contSubs(dmc2280_controller1) "#AUTO #LIMSWI #SOLCTRL #TCPERR"
set contSubs(dmc2280_controller2) "#AUTO #LIMSWI #SOLCTRL #TCPERR"
set contSubs(dmc2280_controller3) "#AUTO #HOME #LOOPER #RES #TCPERR"
set contSubs(dmc2280_controller4) "#AUTO #HOME #LIMSWI #LOOPER #TCPERR"
# These threads should be running on the controllers.
set contThreads(dmc2280_controller1) "0"
set contThreads(dmc2280_controller2) "0"
set contThreads(dmc2280_controller3) "0"
set contThreads(dmc2280_controller4) "0"