---
scripts/haltcl.in | 11 +++++++++++
1 files changed, 11 insertions(+), 0 deletions(-)
diff --git a/scripts/haltcl.in b/scripts/haltcl.in
index ca92ccf..7629b47 100644
--- a/scripts/haltcl.in
+++ b/scripts/haltcl.in
@@ -21,6 +21,17 @@ if {[lindex $argv 0] == "-ini"} {
set argv [lrange $argv 2 end]
}
+proc setp {p v} {
+ set v [uplevel [list expr $v]]
+ hal setp $p $v
+}
+
+proc sets {p v} {
+ set v [uplevel [list expr $v]]
+ puts "hal sets $p $v"
+ hal sets $p $v
+}
+
foreach c [hal --commands] {
if {[info commands $c] == {}} {
proc $c args "eval hal $c \$args"
--
1.6.2.1.469.gdffc
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Emc-developers mailing list
Emc-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-developers
