hipadaba prototype support files.

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

site_ansto/instrument/hipadaba/hipadaba_support.tcl

@@ -0,0 +1,34 @@
+# 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"
+}