Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
tcl/osstestlib.tcl | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/tcl/osstestlib.tcl b/tcl/osstestlib.tcl
index 61a6a09..b5a52d3 100644
--- a/tcl/osstestlib.tcl
+++ b/tcl/osstestlib.tcl
@@ -75,6 +75,13 @@ proc lshift {listvar} {
return $head
}
+proc lunappend {listvar} {
+ upvar 1 $listvar list
+ set tail [lindex $list end]
+ set list [lrange $list 0 end-1]
+ return $tail
+}
+
proc var-or-default {varname {default {}}} {
upvar 1 $varname var
if {[info exists var]} { return $var }
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
