From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 30 Jun 2015 15:57:39 +0000 (+0100)
Subject: Tcl: Provide lunappend
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=6d44814cb38fd231b16b6b7aa46f5a94c3027509;p=osstest.git

Tcl: Provide lunappend

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Tested-by: Robert Ho <robert.hu@intel.com>
---

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 }