[Xen-devel] [OSSTEST PATCH 04/10] tcl/osstestlib.tcl: Provide lshift

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

No callers yet.

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 tcl/osstestlib.tcl |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tcl/osstestlib.tcl b/tcl/osstestlib.tcl
index 1531c87..a0413c4 100644
--- a/tcl/osstestlib.tcl
+++ b/tcl/osstestlib.tcl
@@ -67,3 +67,10 @@ proc lremove {listvar item} {
     if {$ix<0} return
     set list [lreplace $list $ix $ix]
 }
+
+proc lshift {listvar} {
+    upvar 1 $listvar list
+    set head [lindex $list 0]
+    set list [lrange $list 1 end]
+    return $head
+}
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel