67745b7f99
They generate hipadaba paths for devices along with the xml description. r1236 | ffr | 2006-11-07 08:34:20 +1100 (Tue, 07 Nov 2006) | 3 lines
35 lines
1.1 KiB
Tcl
35 lines
1.1 KiB
Tcl
# Makes hipadaba scripts for sics devices.
|
|
source ParList.tcl
|
|
|
|
proc makeHdbCounter {hpath treename sicsname} {
|
|
global countParList;
|
|
append Name $hpath "/" $treename
|
|
eval hmake $Name spy none
|
|
foreach {name priv type} $countParList {
|
|
set parName [format "%s/%s" $Name $name]
|
|
eval hmakescript $parName \"$sicsname $name\" \"$sicsname $name\" float
|
|
}
|
|
}
|
|
proc makeHdbMotor {hpath treename sicsname} {
|
|
global motParList;
|
|
append motName $hpath "/" $treename
|
|
eval hmake $motName spy none
|
|
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
foreach {name priv type} $motParList {
|
|
set parName [format "%s/%s" $motName $name]
|
|
eval hmakescript $parName \"$sicsname $name\" \"$sicsname $name\" float
|
|
}
|
|
}
|
|
proc makeHdbVirtMotor {hpath treename sicsname} {
|
|
append motName $hpath "/" $treename
|
|
eval hmake $motName spy none
|
|
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
}
|
|
#FIXME implement makeHdbHM
|
|
proc makeHdbHM {hpath treename sicsname} {
|
|
}
|
|
#------------------------------------------------------------------------
|
|
proc hdbReadOnly {} {
|
|
error "Parameter is READ ONLY"
|
|
}
|