diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/lib/testSessionUtils.itcl')
-rw-r--r-- | contrib/bluegnu2.0.3/lib/testSessionUtils.itcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl b/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl new file mode 100644 index 0000000..4c960c4 --- /dev/null +++ b/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl @@ -0,0 +1,26 @@ +# +# Procedures and other definitions for application: +# +# testSession +# + + + +proc popQueue {args} { + global szDefaultQueue + + if {[llength $args] == 1} { + set Queue [lindex $args 0] + if {[string compare [infoWhich $Queue] ""] == 0} { + error "NOT a queue >$args<" + } else { + eval [concat [infoWhich $Queue] pop] + } + } else { + if {[info exist szDefaultQueue]} { + eval [concat $szDefaultQueue pop] + } else { + error "NO default queue" + } + } +} |