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}
}
}