From 4a4f464485729fb2559d6109b4fbb3e85ee41f76 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 11 Sep 2014 14:27:39 +1000
Subject: [PATCH] Copied prun and pdrive from RELEASE-3_2 branch.

---
 site_ansto/instrument/util/motor_utility.tcl | 22 ++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/site_ansto/instrument/util/motor_utility.tcl b/site_ansto/instrument/util/motor_utility.tcl
index 4c289525..0a4b10ea 100644
--- a/site_ansto/instrument/util/motor_utility.tcl
+++ b/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
 #