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