# $Revision: 1.1 $ # $Date: 2006-10-13 06:39:42 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: ffr $ #------------------------------------------------------------------------- # Install the SICS Hipadaba #------------------------------------------------------------------------- proc makeHdbMotor {root treename sicsname} { set parList [list hardlowerlim hardupperlim softlowerlim softupperlim \ softzero fixed interruptmode precision accesscode sign failafter \ maxretry ignorefault movecount] 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 /sample spy none hmake /monochromator spy none hmake /slits spy none hmake /slits/1 spy none hmake /slits/2 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 makeHdbMotor /slits/2 ss2u ss2u makeHdbMotor /slits/2 ss2d ss2d makeHdbMotor /slits/2 ss2l ss2l makeHdbMotor /slits/2 ss2r ss2r makeHdbVirtMotor /slits/2 ss2vg ss2vg makeHdbVirtMotor /slits/2 ss2vo ss2vo makeHdbVirtMotor /slits/2 ss2hg ss2hg makeHdbVirtMotor /slits/2 ss2ho ss2ho makeHdbMotor /sample som som makeHdbMotor /sample schi schi makeHdbMotor /sample sphi sphi makeHdbMotor /sample sx sx makeHdbMotor /sample sz sz makeHdbMotor /sample stth stth makeHdbMotor /monochromator mom mom makeHdbMotor /monochromator mchi mchi makeHdbMotor /monochromator mphi mphi makeHdbMotor /monochromator mx mx makeHdbMotor /monochromator mz mz makeHdbMotor /monochromator mtth mtth proc xhlist {opt args} { clientput { } "value" } publish xhlist spy