From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 1/4] Tcl: Provide lunappend Date: Tue, 30 Jun 2015 17:36:18 +0100 Message-ID: <1435682181-11151-2-git-send-email-ian.jackson@eu.citrix.com> References: <21892.2155.313678.103280@mariner.uk.xensource.com> <1435682181-11151-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.bemta3.messagelabs.com ([195.245.230.39]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1Z9yWU-00062f-Us for xen-devel@lists.xenproject.org; Tue, 30 Jun 2015 16:36:39 +0000 In-Reply-To: <1435682181-11151-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 Hu , LongtaoX Pang , Ian Jackson , "Ian Campbell@citrix.com" List-Id: xen-devel@lists.xenproject.org Signed-off-by: Ian Jackson --- 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