lshift inputlist
inputlist | List to be shifted. |
Sets inputlist to 2nd to last elements of original inputlist |
Returns first element in inputlist |
while {[llength $argv] > 0} { set arg [lshift argv] switch -- $arg { -lib {set lib [lshift argv]} -show {set show 1} default {lappend tests $arg} } }