Copied prun and pdrive from RELEASE-3_2 branch.

site_ansto/instrument/util/motor_utility.tcl

@@ -49,6 +49,28 @@ proc reldrive {args} {
 }
 publish reldrive user
 
+# \brief Posit run command for positional motors
+# \parameter List of motor names and position names
+proc prun {args} {
+  foreach {mot pname} $args {
+  lappend drlist $mot [SplitReply [$mot posit2unit $pname]]
+  }
+  clientput run {*}$drlist
+  run {*}$drlist
+}
+publish prun user
+
+# \brief Posit drive command for positional motors
+# \parameter List of motor names and position names
+proc pdrive {args} {
+  foreach {mot pname} $args {
+    lappend drlist $mot [SplitReply [$mot posit2unit $pname]]
+  }
+  clientput drive {*}$drlist
+  drive {*}$drlist
+}
+publish pdrive user
+
 ##
 # @brief  A convenience command for fetching motor parameter values
 #