From b5c64c2a0372e67d9cd30282a657b4351a334b07 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 17 Jul 2014 09:44:18 +1000
Subject: [PATCH] Add convenience commands prun and pdrive for posit motors.

---
 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..e8e454fe 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
 #