# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1612948061 -7200
# Node ID 6f1d26814cc937b3b6bca47fc8bb8ac1df6b7c08
# Parent  a5c929a473acf7d200aaf151219c2a7597c7691d
utillib: Add helper function utl_arg_get for getting arguments from a given list.

diff -r a5c929a473ac -r 6f1d26814cc9 utillib.tcl
--- a/utillib.tcl	Tue Feb 09 12:53:04 2021 +0200
+++ b/utillib.tcl	Wed Feb 10 11:07:41 2021 +0200
@@ -139,6 +139,21 @@
 }
 
 
+proc utl_arg_get {uarglist uindex uarg uautoinc} {
+  upvar $uindex rindex
+  upvar $uarg rarg
+
+  if {[llength $uarglist] < $rindex + 1} {
+    return 0
+  }
+
+  set rarg [lindex $uarglist $rindex]
+  set rindex [expr $rindex + $uautoinc]
+
+  return 1
+}
+
+
 ###
 ### SQL database handling
 ###