linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed caching of messages

Browse Source
This commit is contained in:
hauser_n
2006-01-30 02:17:06 +00:00
parent e7e5607cb1
commit 00b09053ca
1 changed files with 1 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
sycFormat.tcl
View File

@ -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" {
if [info exists cache($transID)] {
set output "[_prefix out] $tag=\{$cache($transID)\}"
append output "\n[_prefix finish]"
unset cache($transID)
} else {
set output "[_prefix finish]"
}
set output "[_prefix finish]"
}
default {
set output "[_prefix $msgFlag] $tag=\{$msgString\}"