31 lines
979 B
Tcl
31 lines
979 B
Tcl
source ParList.tcl
|
|
|
|
proc makeHdbCounter {root treename sicsname} {
|
|
global countParList;
|
|
append Name $root "/" $treename
|
|
eval hmake $Name spy none
|
|
foreach par $countParList {
|
|
set parName [format "%s/%s" $Name $par]
|
|
eval hmakescript $parName \"$sicsname $par\" \"$sicsname $par\" float
|
|
}
|
|
}
|
|
proc makeHdbMotor {root treename sicsname} {
|
|
global motParList;
|
|
append motName $root "/" $treename
|
|
eval hmake $motName spy none
|
|
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
foreach par $motParList {
|
|
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"
|
|
}
|