Lines Matching refs:Pop
408 # Pop the nth element off a list. Used in options processing.
410 proc ::md4::Pop {varname {nth 0}} {
441 -file* { set opts(-filename) [Pop args 1] }
442 -channel { set opts(-channel) [Pop args 1] }
443 -chunksize { set opts(-chunksize) [Pop args 1] }
446 if {[string compare $option "--"] == 0 } { Pop args; break }
452 Pop args
499 -key { set opts(-key) [Pop args 1] }
501 -file* { set opts(-filename) [Pop args 1] }
502 -channel { set opts(-channel) [Pop args 1] }
503 -chunksize { set opts(-chunksize) [Pop args 1] }
506 if {[string compare $option "--"] == 0 } { Pop args; break }
512 Pop args