# $Revision: 1.2 $
# $Date: 2006-10-31 04:01:14 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $

source hipadaba_support.tcl
#-------------------------------------------------------------------------
#  Install the SICS Hipadaba
#-------------------------------------------------------------------------
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