Mercurial > hg > egg-tcls

comparison utillib.tcl @ 611:6f1d26814cc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Add helper function utl_arg_get for getting arguments from a given list.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 10 Feb 2021 11:07:41 +0200
parents a5c929a473ac
children c340683d6c13
comparison
equal deleted inserted replaced
610:a5c929a473ac 611:6f1d26814cc9
137 return 0 137 return 0
138 } 138 }
139 } 139 }
140 140
141 141
142 proc utl_arg_get {uarglist uindex uarg uautoinc} {
143 upvar $uindex rindex
144 upvar $uarg rarg
145
146 if {[llength $uarglist] < $rindex + 1} {
147 return 0
148 }
149
150 set rarg [lindex $uarglist $rindex]
151 set rindex [expr $rindex + $uautoinc]
152
153 return 1
154 }
155
156
142 ### 157 ###
143 ### SQL database handling 158 ### SQL database handling
144 ### 159 ###
145 proc utl_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} { 160 proc utl_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} {
146 upvar $ndb_handle udb_handle 161 upvar $ndb_handle udb_handle