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"
}