blob: 4c960c4ae38f6d793a999026330876ed494e55dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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"
}
}
}
|