Introduce verbose2 verbosity level

verbose2 verbosity level is introduced as a higher level than verbose
and lower than trace level. This new verbosity level currently enables
to view the loading and unloading notification of *hidden-loaded*
modules.
This commit is contained in:
Xavier Delaruelle
2020-12-17 07:11:36 +01:00
parent f8de7f7cb7
commit 30bb518f77
2 changed files with 10 additions and 7 deletions

3
configure vendored
View File

@@ -272,7 +272,8 @@ Optional Packages:
settings to apply to default pager program [$pageropts]
--with-verbosity=VALUE specify default message verbosity. accepted values
are \`silent', \`concise', \`normal', \`verbose',
\`trace', \`debug' and \`debug2' [$verbosity]
\`verbose2', \`trace', \`debug' and \`debug2'
[$verbosity]
--with-dark-background-colors=SGRLIST
default color set to apply if terminal background
color is defined to \`dark'. Each element in SGRLIST

View File

@@ -103,7 +103,7 @@ array set g_config_defs [list\
search_match {MODULES_SEARCH_MATCH @searchmatch@ 0 {starts_with contains}}\
set_shell_startup {MODULES_SET_SHELL_STARTUP @setshellstartup@ 0 {0 1}}\
verbosity {MODULES_VERBOSITY @verbosity@ 0 {silent concise normal verbose\
trace debug debug2}}\
verbose2 trace debug debug2}}\
wa_277 {MODULES_WA_277 @wa277@ 0 {0 1}}\
]
@@ -878,7 +878,7 @@ proc reportModuleEval {} {
# exclude hidden modules from report unless an high level of
# verbosity is set
if {[info exists ::g_moduleHiddenEval($evalid:$context)] &&\
![isVerbosityLevel debug]} {
![isVerbosityLevel verbose2]} {
lassign [getDiffBetweenList $modlist\
$::g_moduleHiddenEval($evalid:$context)] modlist
}
@@ -959,10 +959,10 @@ proc reportMsgRecord {header {hidden 0}} {
# report header if no other specific msg to output in verbose mode or in
# normal verbosity mode if currently processing a cmd which triggers
# multiple module evaluations that cannot be guessed by the user
# if hidden flag is enabled report only if verbosity >= debug
# if hidden flag is enabled report only if verbosity >= verbose2
} elseif {(!$hidden && ([isVerbosityLevel verbose] || ([isVerbosityLevel\
normal] && ([ongoingCommandName restore] || [ongoingCommandName\
source])))) || ($hidden && [isVerbosityLevel debug])} {
source])))) || ($hidden && [isVerbosityLevel verbose2])} {
report $header
}
}
@@ -12840,8 +12840,10 @@ if {[catch {
-s - --silent {
set asked_verbosity silent
}
-v - --verbose {
set asked_verbosity verbose
-v - -vv - --verbose {
set asked_verbosity [expr {$arg eq {-vv} || ([info exists\
asked_verbosity] && [isInList {verbose verbose2}\
$asked_verbosity]) ? {verbose2} : {verbose}}]
}
--help - -h {
set show_help 1