Skip to content

Commit 99d9483

Browse files
committed
Report module tags in header message block
Update Loading/Unloading/Refreshing header message block to render the tags applying on the currently analyzed module over or along this module name, as done when reporting loaded modules with list sub-command.
1 parent f5d13dc commit 99d9483

File tree

1 file changed

+12
-2
lines changed

1 file changed

+12
-2
lines changed

tcl/report.tcl.in

Lines changed: 12 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -745,18 +745,28 @@ proc getModuleDesignation {from {mod {}} {sgr 1}} {
745745
2 {
746746
set vrsgr va
747747
set himatchmap [list $moddesig [sgr hi $moddesig]]
748+
749+
set showtags 1
750+
# prepare list of tag abbreviations that can be substituted and list
751+
# of tags whose name should be colored
752+
getConf tag_abbrev
753+
getConf tag_color_name
754+
# abbreviate tags
755+
set taglist [abbrevTagList $taglist]
748756
}
749757
1 {
750758
set vrsgr {se va}
751759
set himatchmap {}
760+
set showtags 0
752761
}
753762
0 {
754763
set vrsgr {}
755764
set himatchmap {}
765+
set showtags 0
756766
}
757767
}
758-
lassign [formatListEltToDisplay $moddesig {} {} {} {} 0 0 {} 0 $vrlist\
759-
$vrsgr 1 $himatchmap] disp dispsgr displen
768+
lassign [formatListEltToDisplay $moddesig {} {} {} {} 0 0 $taglist\
769+
$showtags $vrlist $vrsgr 1 $himatchmap] disp dispsgr displen
760770
761771
return $dispsgr
762772
}

0 commit comments

Comments
 (0)