From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 1/9] Tcl: Provide lunappend Date: Fri, 25 Sep 2015 12:37:00 +0100 Message-ID: <1443181028-22705-2-git-send-email-ian.jackson@eu.citrix.com> References: <1443181028-22705-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta14.messagelabs.com ([193.109.254.103]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1ZfRJa-0007lj-NM for xen-devel@lists.xenproject.org; Fri, 25 Sep 2015 11:37:22 +0000 In-Reply-To: <1443181028-22705-1-git-send-email-ian.jackson@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xenproject.org Cc: Robert Ho , Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org Signed-off-by: Ian Jackson Tested-by: Robert Ho --- 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