proc show-report-decode {code} {
global vc_code2full
+ smash-prepare
+
manyset [split $code _] inport sizecode subclass lockown xabbrev
manyset [split $lockown ""] lock notown
report-set inport [lindex {{At Sea} {In port}} $inport]
- report-set size $vc_code2full($sizecode)
+
+ upvar #0 vc_code2full($sizecode) sizefull
+ upvar #0 smash_sizeinexact($sizecode) sizeinexact
+ set size_report $sizefull
+ if {[info exists sizeinexact]} { set size_report "($sizefull+)" }
+ report-set size $size_report
global smash_subclass
if {$smash_subclass >= 2} {
}
proc smash-prepare {} {
- global vc_codes smash_sizemap smash_size
+ global vc_codes smash_sizemap smash_size smash_sizeinexact
set mapto {}
+ catch { unset smash_sizeplus }
foreach size $vc_codes {
- if {!$smash_size($size)} { set mapto $size }
+ if {!$smash_size($size)} {
+ set mapto $size
+ } else {
+ set smash_sizeinexact($mapto) 1
+ }
set smash_sizemap($size) $mapto
}
}