Removed caching of messages
This commit is contained in:
@ -63,24 +63,8 @@ if { [info exists sycinit] == 0 } {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
"out" {
|
|
||||||
# Concatenate multiple messages into a comma separated list
|
|
||||||
if [info exists cache($transID)] {
|
|
||||||
append msg ", " $msgString
|
|
||||||
eval "lappend cache($transID) $msg"
|
|
||||||
} else {
|
|
||||||
eval "lappend cache($transID) $msgString"
|
|
||||||
}
|
|
||||||
set output ""
|
|
||||||
}
|
|
||||||
"finish" {
|
"finish" {
|
||||||
if [info exists cache($transID)] {
|
set output "[_prefix finish]"
|
||||||
set output "[_prefix out] $tag=\{$cache($transID)\}"
|
|
||||||
append output "\n[_prefix finish]"
|
|
||||||
unset cache($transID)
|
|
||||||
} else {
|
|
||||||
set output "[_prefix finish]"
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
default {
|
default {
|
||||||
set output "[_prefix $msgFlag] $tag=\{$msgString\}"
|
set output "[_prefix $msgFlag] $tag=\{$msgString\}"
|
||||||
|
Reference in New Issue
Block a user