168 lines
8.4 KiB
Tcl
168 lines
8.4 KiB
Tcl
# $Revision: 1.1 $
|
|
# $Date: 2006-10-15 23:50:25 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
source motParList.tcl
|
|
#-------------------------------------------------------------------------
|
|
# Install the SICS Hipadaba
|
|
#-------------------------------------------------------------------------
|
|
proc makeHdbMotor {root treename sicsname} {
|
|
global parList;
|
|
append motName $root "/" $treename
|
|
eval hmake $motName spy none
|
|
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
foreach par $parList {
|
|
set parName [format "%s/%s" $motName $par]
|
|
eval hmakescript $parName \"$sicsname $par\" \"$sicsname $par\" float
|
|
}
|
|
}
|
|
proc makeHdbVirtMotor {root treename sicsname} {
|
|
append motName $root "/" $treename
|
|
eval hmake $motName spy none
|
|
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
}
|
|
#------------------------------------------------------------------------
|
|
proc hdbReadOnly {} {
|
|
error "Parameter is READ ONLY"
|
|
}
|
|
#-------------------------------------------------------------------------
|
|
InstallHdb
|
|
hmake /slits spy none
|
|
hmake /slits/1 spy none
|
|
|
|
makeHdbMotor /slits/1 ss1u ss1u
|
|
makeHdbMotor /slits/1 ss1d ss1d
|
|
makeHdbMotor /slits/1 ss1l ss1l
|
|
makeHdbMotor /slits/1 ss1r ss1r
|
|
makeHdbVirtMotor /slits/1 ss1vg ss1vg
|
|
makeHdbVirtMotor /slits/1 ss1vo ss1vo
|
|
makeHdbVirtMotor /slits/1 ss1hg ss1hg
|
|
makeHdbVirtMotor /slits/1 ss1ho ss1ho
|
|
|
|
proc xhlist {opt args} {
|
|
clientput {
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<sdo:datagraph xmlns:hipadaba="http://www.psi.ch/sics/hipadaba" xmlns:sdo="commonj.sdo">
|
|
<changeSummary xmlns=""/>
|
|
<hipadaba:Instrument id="koala"
|
|
label="Koala">
|
|
<part id="slits" label="Slits System">
|
|
<part id="1" label="Primary Slit System">
|
|
<device id="ss1u">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
<property dataType="Float" id="accesscode" privilege="USER"/>
|
|
<property dataType="Float" id="failafter" privilege="USER"/>
|
|
<property dataType="Float" id="fixed" privilege="USER"/>
|
|
<property dataType="Float" id="hardlowerlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="hardupperlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="ignorefault" privilege="USER"/>
|
|
<property dataType="Float" id="interruptmode" privilege="USER"/>
|
|
<property dataType="Float" id="maxretry" privilege="USER"/>
|
|
<property dataType="Float" id="movecount" privilege="USER"/>
|
|
<property dataType="Float" id="precision" privilege="USER"/>
|
|
<property dataType="Float" id="sign" privilege="USER"/>
|
|
<property dataType="Float" id="softlowerlim" privilege="USER"/>
|
|
<property dataType="Float" id="softupperlim" privilege="USER"/>
|
|
<property dataType="Float" id="softzero" privilege="USER"/>
|
|
<property dataType="Float" id="accel" privilege="USER"/>
|
|
<property dataType="Float" id="decel" privilege="USER"/>
|
|
<property dataType="Float" id="home" privilege="MANAGER"/>
|
|
<property dataType="Float" id="maxaccel"/>
|
|
<property dataType="Float" id="maxdecel"/>
|
|
<property dataType="Float" id="maxspeed"/>
|
|
<property dataType="Float" id="speed" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1d">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
<property dataType="Float" id="accesscode" privilege="USER"/>
|
|
<property dataType="Float" id="failafter" privilege="USER"/>
|
|
<property dataType="Float" id="fixed" privilege="USER"/>
|
|
<property dataType="Float" id="hardlowerlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="hardupperlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="ignorefault" privilege="USER"/>
|
|
<property dataType="Float" id="interruptmode" privilege="USER"/>
|
|
<property dataType="Float" id="maxretry" privilege="USER"/>
|
|
<property dataType="Float" id="movecount" privilege="USER"/>
|
|
<property dataType="Float" id="precision" privilege="USER"/>
|
|
<property dataType="Float" id="sign" privilege="USER"/>
|
|
<property dataType="Float" id="softlowerlim" privilege="USER"/>
|
|
<property dataType="Float" id="softupperlim" privilege="USER"/>
|
|
<property dataType="Float" id="softzero" privilege="USER"/>
|
|
<property dataType="Float" id="accel" privilege="USER"/>
|
|
<property dataType="Float" id="decel" privilege="USER"/>
|
|
<property dataType="Float" id="home" privilege="MANAGER"/>
|
|
<property dataType="Float" id="maxaccel"/>
|
|
<property dataType="Float" id="maxdecel"/>
|
|
<property dataType="Float" id="maxspeed"/>
|
|
<property dataType="Float" id="speed" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1l">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
<property dataType="Float" id="accesscode" privilege="USER"/>
|
|
<property dataType="Float" id="failafter" privilege="USER"/>
|
|
<property dataType="Float" id="fixed" privilege="USER"/>
|
|
<property dataType="Float" id="hardlowerlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="hardupperlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="ignorefault" privilege="USER"/>
|
|
<property dataType="Float" id="interruptmode" privilege="USER"/>
|
|
<property dataType="Float" id="maxretry" privilege="USER"/>
|
|
<property dataType="Float" id="movecount" privilege="USER"/>
|
|
<property dataType="Float" id="precision" privilege="USER"/>
|
|
<property dataType="Float" id="sign" privilege="USER"/>
|
|
<property dataType="Float" id="softlowerlim" privilege="USER"/>
|
|
<property dataType="Float" id="softupperlim" privilege="USER"/>
|
|
<property dataType="Float" id="softzero" privilege="USER"/>
|
|
<property dataType="Float" id="accel" privilege="USER"/>
|
|
<property dataType="Float" id="decel" privilege="USER"/>
|
|
<property dataType="Float" id="home" privilege="MANAGER"/>
|
|
<property dataType="Float" id="maxaccel"/>
|
|
<property dataType="Float" id="maxdecel"/>
|
|
<property dataType="Float" id="maxspeed"/>
|
|
<property dataType="Float" id="speed" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1r">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
<property dataType="Float" id="accesscode" privilege="USER"/>
|
|
<property dataType="Float" id="failafter" privilege="USER"/>
|
|
<property dataType="Float" id="fixed" privilege="USER"/>
|
|
<property dataType="Float" id="hardlowerlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="hardupperlim" privilege="READ_ONLY"/>
|
|
<property dataType="Float" id="ignorefault" privilege="USER"/>
|
|
<property dataType="Float" id="interruptmode" privilege="USER"/>
|
|
<property dataType="Float" id="maxretry" privilege="USER"/>
|
|
<property dataType="Float" id="movecount" privilege="USER"/>
|
|
<property dataType="Float" id="precision" privilege="USER"/>
|
|
<property dataType="Float" id="sign" privilege="USER"/>
|
|
<property dataType="Float" id="softlowerlim" privilege="USER"/>
|
|
<property dataType="Float" id="softupperlim" privilege="USER"/>
|
|
<property dataType="Float" id="softzero" privilege="USER"/>
|
|
<property dataType="Float" id="accel" privilege="USER"/>
|
|
<property dataType="Float" id="decel" privilege="USER"/>
|
|
<property dataType="Float" id="home" privilege="MANAGER"/>
|
|
<property dataType="Float" id="maxaccel"/>
|
|
<property dataType="Float" id="maxdecel"/>
|
|
<property dataType="Float" id="maxspeed"/>
|
|
<property dataType="Float" id="speed" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1vg">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1vo" label="">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1hg">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
</device>
|
|
<device id="ss1ho" label="">
|
|
<property dataType="Float" id="position" privilege="USER"/>
|
|
</device>
|
|
</part>
|
|
</part>
|
|
</hipadaba:Instrument>
|
|
</sdo:datagraph>
|
|
} "value"
|
|
}
|
|
publish xhlist spy
|
|
|