"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tcl/init.tcl.in" between
modules-5.1.1.tar.bz2 and modules-5.2.0.tar.bz2

About: The Environment Modules package provides for the dynamic modification of a user’s environment via modulefiles.

init.tcl.in  (modules-5.1.1.tar.bz2):init.tcl.in  (modules-5.2.0.tar.bz2)
skipping to change at line 25 skipping to change at line 25
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details. # GNU General Public License for more details.
# #
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. # along with this program. If not, see <http://www.gnu.org/licenses/>.
########################################################################## ##########################################################################
# Runtime state properties (default value, proc to call to initialize state # Runtime state properties (default value, proc to call to initialize state
# value?) # value?)
##nagelfar ignore +31 Found constant
array set g_state_defs [list\ array set g_state_defs [list\
autoinit {0}\ autoinit {0}\
clock_seconds {<undef> initStateClockSeconds}\ clock_seconds {<undef> initStateClockSeconds}\
domainname {<undef> {runCommand domainname}}\ domainname {<undef> {runCommand domainname}}\
error_count {0}\ error_count {0}\
extra_siteconfig_loaded {0}\ extra_siteconfig_loaded {0}\
false_rendered {0}\ false_rendered {0}\
force {0}\ force {0}\
hiding_threshold {0}\ hiding_threshold {0}\
inhibit_errreport {0}\ inhibit_errreport {0}\
skipping to change at line 51 skipping to change at line 52
machine [list $::tcl_platform(machine)]\ machine [list $::tcl_platform(machine)]\
nodename {<undef> {runCommand uname -n}}\ nodename {<undef> {runCommand uname -n}}\
os [list $::tcl_platform(os)]\ os [list $::tcl_platform(os)]\
osversion [list $::tcl_platform(osVersion)]\ osversion [list $::tcl_platform(osVersion)]\
paginate {<undef> initStatePaginate}\ paginate {<undef> initStatePaginate}\
path_separator {<undef> initStatePathSeparator}\ path_separator {<undef> initStatePathSeparator}\
report_format {regular}\ report_format {regular}\
reportfd {stderr initStateReportfd}\ reportfd {stderr initStateReportfd}\
return_false {0}\ return_false {0}\
siteconfig_loaded {0}\ siteconfig_loaded {0}\
shelltype {<undef> initStateShellType}\
sub1_separator {&}\ sub1_separator {&}\
sub2_separator {|}\ sub2_separator {|}\
tcl_ext_lib_loaded {0}\ tcl_ext_lib_loaded {0}\
tcl_version [list [info patchlevel]]\ tcl_version [list [info patchlevel]]\
term_columns {<undef> initStateTermColumns}\ term_columns {<undef> initStateTermColumns}\
timer {0}\
usergroups {<undef> initStateUsergroups}\ usergroups {<undef> initStateUsergroups}\
username {<undef> initStateUsername}\ username {<undef> initStateUsername}\
] ]
# Configuration option properties (superseding environment variable, default # Configuration option properties (superseding environment variable, default
# value, is configuration lockable to default value, valid value list?, # value, is configuration lockable to default value, valid value list?,
# internal value representation?, proc to call to initialize option value, # internal value representation?, proc to call to initialize option value,
# valid value list kind # valid value list kind
##nagelfar ignore #64 Too long line
array set g_config_defs [list\ array set g_config_defs [list\
contact {MODULECONTACT root@localhost 0}\ contact {MODULECONTACT root@localhost 0}\
auto_handling {MODULES_AUTO_HANDLING @autohandling@ 0 {0 1}}\ auto_handling {MODULES_AUTO_HANDLING @autohandling@ 0 {0 1}}\
avail_indepth {MODULES_AVAIL_INDEPTH @availindepth@ 0 {0 1}}\ avail_indepth {MODULES_AVAIL_INDEPTH @availindepth@ 0 {0 1}}\
avail_output {MODULES_AVAIL_OUTPUT {@availoutput@} 0 {modulepath alias\ avail_output {MODULES_AVAIL_OUTPUT {@availoutput@} 0 {modulepath alias\
dirwsym sym tag key} {} {} eltlist}\ dirwsym sym tag key} {} {} eltlist}\
avail_terse_output {MODULES_AVAIL_TERSE_OUTPUT {@availterseoutput@} 0\ avail_terse_output {MODULES_AVAIL_TERSE_OUTPUT {@availterseoutput@} 0\
{modulepath alias dirwsym sym tag key} {} {} eltlist}\ {modulepath alias dirwsym sym tag key} {} {} eltlist}\
collection_pin_version {MODULES_COLLECTION_PIN_VERSION 0 0 {0 1}}\ collection_pin_version {MODULES_COLLECTION_PIN_VERSION 0 0 {0 1}}\
collection_pin_tag {MODULES_COLLECTION_PIN_TAG 0 0 {0 1}}\ collection_pin_tag {MODULES_COLLECTION_PIN_TAG 0 0 {0 1}}\
collection_target {MODULES_COLLECTION_TARGET <undef> 0}\ collection_target {MODULES_COLLECTION_TARGET <undef> 0}\
color {MODULES_COLOR @color@ 0 {never auto always} {0 1 2} initConfColor}\ color {MODULES_COLOR @color@ 0 {never auto always} {0 1 2} initConfColor}\
colors {MODULES_COLORS {} 0 {} {} initConfColors}\ colors {MODULES_COLORS {} 0 {} {} initConfColors}\
csh_limit {{} 4000 0}\ csh_limit {{} 4000 0}\
extra_siteconfig {MODULES_SITECONFIG <undef> 1 {}}\ extra_siteconfig {MODULES_SITECONFIG <undef> 1 {}}\
editor {MODULES_EDITOR {@editor@} 0 {} {} initConfEditor}\ editor {MODULES_EDITOR {@editor@} 0 {} {} initConfEditor}\
home {MODULESHOME @moduleshome@ 0}\ home {MODULESHOME {@moduleshome@} 0}\
icase {MODULES_ICASE @icase@ 0 {never search always}}\ icase {MODULES_ICASE @icase@ 0 {never search always}}\
ignored_dirs {{} {CVS RCS SCCS .svn .git .SYNC .sos} 0}\ ignored_dirs {{} {CVS RCS SCCS .svn .git .SYNC .sos} 0}\
implicit_requirement {MODULES_IMPLICIT_REQUIREMENT @implicitrequirement@ 0\ implicit_requirement {MODULES_IMPLICIT_REQUIREMENT @implicitrequirement@ 0\
{0 1}}\ {0 1}}\
list_output {MODULES_LIST_OUTPUT {@listoutput@} 0 {header idx variant sym\ list_output {MODULES_LIST_OUTPUT {@listoutput@} 0 {header idx variant sym\
tag key} {} {} eltlist}\ tag key} {} {} eltlist}\
list_terse_output {MODULES_LIST_TERSE_OUTPUT {@listterseoutput@} 0 {header\ list_terse_output {MODULES_LIST_TERSE_OUTPUT {@listterseoutput@} 0 {header\
idx variant sym tag key} {} {} eltlist}\ idx variant sym tag key} {} {} eltlist}\
locked_configs {{} {@lockedconfigs@} 0}\ locked_configs {{} {@lockedconfigs@} 0}\
mcookie_check {MODULES_MCOOKIE_CHECK always 0 {eval always}}\ mcookie_check {MODULES_MCOOKIE_CHECK always 0 {eval always}}\
mcookie_version_check {MODULES_MCOOKIE_VERSION_CHECK\ mcookie_version_check {MODULES_MCOOKIE_VERSION_CHECK\
@mcookieversioncheck@ 0 {0 1}}\ @mcookieversioncheck@ 0 {0 1}}\
ml {MODULES_ML @ml@ 0 {0 1}}\ ml {MODULES_ML @ml@ 0 {0 1}}\
nearly_forbidden_days {MODULES_NEARLY_FORBIDDEN_DAYS @nearlyforbiddendays@\ nearly_forbidden_days {MODULES_NEARLY_FORBIDDEN_DAYS @nearlyforbiddendays@\
0 {0 365} {} {} intbe}\ 0 {0 365} {} {} intbe}\
pager {MODULES_PAGER {@pagercmd@} 0}\ pager {MODULES_PAGER {@pagercmd@} 0}\
protected_envvars {MODULES_PROTECTED_ENVVARS <undef> 0}\
rcfile {MODULERCFILE <undef> 0}\ rcfile {MODULERCFILE <undef> 0}\
redirect_output {MODULES_REDIRECT_OUTPUT 1 0 {0 1}}\ redirect_output {MODULES_REDIRECT_OUTPUT 1 0 {0 1}}\
reset_target_state {MODULES_RESET_TARGET_STATE __init__ 0}\
quarantine_support {MODULES_QUARANTINE_SUPPORT @quarantinesupport@ 0 {0\ quarantine_support {MODULES_QUARANTINE_SUPPORT @quarantinesupport@ 0 {0\
1}}\ 1}}\
run_quarantine {MODULES_RUN_QUARANTINE <undef> 0}\ run_quarantine {MODULES_RUN_QUARANTINE <undef> 0}\
shells_with_ksh_fpath {MODULES_SHELLS_WITH_KSH_FPATH {} 0 {sh bash csh\ shells_with_ksh_fpath {MODULES_SHELLS_WITH_KSH_FPATH {} 0 {sh bash csh\
tcsh fish} {} {} eltlist}\ tcsh fish} {} {} eltlist}\
silent_shell_debug {MODULES_SILENT_SHELL_DEBUG @silentshdbgsupport@ 0 {0\ silent_shell_debug {MODULES_SILENT_SHELL_DEBUG @silentshdbgsupport@ 0 {0\
1}}\ 1}}\
siteconfig {{} @etcdir@/siteconfig.tcl 0}\ siteconfig {{} {@etcdir@/siteconfig.tcl} 0}\
tag_abbrev {MODULES_TAG_ABBREV {@tagabbrev@} 0 {} {} initConfTagAbbrev}\ tag_abbrev {MODULES_TAG_ABBREV {@tagabbrev@} 0 {} {} initConfTagAbbrev}\
tag_color_name {MODULES_TAG_COLOR_NAME {@tagcolorname@} 0 {} {}\ tag_color_name {MODULES_TAG_COLOR_NAME {@tagcolorname@} 0 {} {}\
initConfTagColorName}\ initConfTagColorName}\
tcl_ext_lib {{} {} 0 {} {} initConfTclExtLib}\ tcl_ext_lib {{} {} 0 {} {} initConfTclExtLib}\
tcl_linter {MODULES_TCL_LINTER {@tcllintercmd@} 0}\
term_background {MODULES_TERM_BACKGROUND @termbg@ 0 {dark light}}\ term_background {MODULES_TERM_BACKGROUND @termbg@ 0 {dark light}}\
term_width {MODULES_TERM_WIDTH 0 0 {0 1000} {} {} intbe}\ term_width {MODULES_TERM_WIDTH 0 0 {0 1000} {} {} intbe}\
unload_match_order {MODULES_UNLOAD_MATCH_ORDER @unloadmatchorder@ 0\ unload_match_order {MODULES_UNLOAD_MATCH_ORDER @unloadmatchorder@ 0\
{returnlast returnfirst}}\ {returnlast returnfirst}}\
implicit_default {MODULES_IMPLICIT_DEFAULT @implicitdefault@ 1 {0 1}}\ implicit_default {MODULES_IMPLICIT_DEFAULT @implicitdefault@ 1 {0 1}}\
extended_default {MODULES_EXTENDED_DEFAULT @extendeddefault@ 0 {0 1}}\ extended_default {MODULES_EXTENDED_DEFAULT @extendeddefault@ 0 {0 1}}\
advanced_version_spec {MODULES_ADVANCED_VERSION_SPEC @advversspec@ 0 {0\ advanced_version_spec {MODULES_ADVANCED_VERSION_SPEC @advversspec@ 0 {0\
1}}\ 1}}\
search_match {MODULES_SEARCH_MATCH @searchmatch@ 0 {starts_with contains}}\ search_match {MODULES_SEARCH_MATCH @searchmatch@ 0 {starts_with contains}}\
set_shell_startup {MODULES_SET_SHELL_STARTUP @setshellstartup@ 0 {0 1}}\ set_shell_startup {MODULES_SET_SHELL_STARTUP @setshellstartup@ 0 {0 1}}\
skipping to change at line 151 skipping to change at line 158
# catch init procedure error and report it as warning, so default # catch init procedure error and report it as warning, so default
# value will get set for state # value will get set for state
if {$catchinitproc} { if {$catchinitproc} {
if {[catch {set value [{*}$initproclist]} errMsg]} { if {[catch {set value [{*}$initproclist]} errMsg]} {
reportWarning $errMsg reportWarning $errMsg
} }
} else { } else {
set value [{*}$initproclist] set value [{*}$initproclist]
} }
# overridden value coming the command-line # overridden value coming the command-line
##nagelfar ignore Suspicious variable
} elseif {[info exists ::asked_$state]} { } elseif {[info exists ::asked_$state]} {
set value [set ::asked_$state] set value [set ::asked_$state]
} }
# return passed value if undefined and no value record # return passed value if undefined and no value record
if {$value eq {<undef>}} { if {$value eq {<undef>}} {
set value $valifundef set value $valifundef
} else { } else {
setState $state $value setState $state $value
} }
return $value return $value
} else { } else {
return $::g_states($state) return $::g_states($state)
} }
} }
# Clear state # Clear state
proc unsetState {state} { proc unsetState {state} {
unset ::g_states($state) if {[isStateDefined $state]} {
reportDebug "$state unset" unset ::g_states($state)
reportDebug "$state unset"
}
} }
# Set state value # Set state value
proc setState {state value} { proc setState {state value} {
set ::g_states($state) $value set ::g_states($state) $value
reportDebug "$state set to '$value'" reportDebug "$state set to '$value'"
} }
# Append each passed value to the existing state value list # Append each passed value to the existing state value list
proc lappendState {state args} { proc lappendState {state args} {
if {$state eq {-nodup}} { if {$state eq {-nodup}} {
set state [lindex $args 0] set state [lindex $args 0]
# retrieve current val through getState to initialize it if still undef # retrieve current val through getState to initialize it if still undef
set value [getState $state] set value [getState $state]
##nagelfar ignore Found constant
appendNoDupToList value {*}[lrange $args 1 end] appendNoDupToList value {*}[lrange $args 1 end]
setState $state $value setState $state $value
} else { } else {
lappend ::g_states($state) {*}$args lappend ::g_states($state) {*}$args
reportDebug "$state appended with '$args'" reportDebug "$state appended with '$args'"
} }
} }
# Remove last element from state value list # Remove last element from state value list
proc lpopState {state} { proc lpopState {state} {
skipping to change at line 260 skipping to change at line 271
intbe { intbe {
# ignore non-valid values # ignore non-valid values
if {[string is integer -strict $::env($envvar)] &&\ if {[string is integer -strict $::env($envvar)] &&\
$::env($envvar) >= [lindex $validvallist 0] &&\ $::env($envvar) >= [lindex $validvallist 0] &&\
$::env($envvar) <= [lindex $validvallist 1]} { $::env($envvar) <= [lindex $validvallist 1]} {
set value $::env($envvar) set value $::env($envvar)
} }
} }
{} { {} {
# ignore non-valid values # ignore non-valid values
##nagelfar ignore +3 Non static subcommand
if {[switch -- [llength $validvallist] { if {[switch -- [llength $validvallist] {
0 {expr {1 == 1}} 0 {expr {1 == 1}}
1 {string is $validvallist -strict $::env($envvar)} 1 {string is $validvallist -strict $::env($envvar)}
default {expr {$::env($envvar) in $validvallist}} default {expr {$::env($envvar) in $validvallist}}
}]} { }]} {
set value $::env($envvar) set value $::env($envvar)
} }
} }
} }
} }
# overridden value coming the command-line (already validated) # overridden value coming the command-line (already validated)
##nagelfar ignore Suspicious variable
if {[info exists ::asked_$option]} { if {[info exists ::asked_$option]} {
set value [set ::asked_$option] set value [set ::asked_$option]
} }
# convert value to its internal representation # convert value to its internal representation
if {[llength $intvallist] > 0} { if {[llength $intvallist] > 0} {
set value [lindex $intvallist [lsearch -exact $validvallist\ set value [lindex $intvallist [lsearch -exact $validvallist\
$value]] $value]]
} }
} }
skipping to change at line 314 skipping to change at line 327
if {[info exists ::g_configs($option)]} { if {[info exists ::g_configs($option)]} {
unset ::g_configs($option) unset ::g_configs($option)
reportDebug "$option unset" reportDebug "$option unset"
} }
} }
# Append each passed value to the existing config option value list # Append each passed value to the existing config option value list
proc lappendConf {option args} { proc lappendConf {option args} {
# retrieve current value through getConf to initialize it if still undef # retrieve current value through getConf to initialize it if still undef
set value [getConf $option] set value [getConf $option]
##nagelfar ignore Found constant
appendNoDupToList value {*}$args appendNoDupToList value {*}$args
setConf $option $value setConf $option $value
} }
# Source site config which can be used to define global procedures or # Source site config which can be used to define global procedures or
# settings. We first look for the global siteconfig, then if an extra # settings. We first look for the global siteconfig, then if an extra
# siteconfig is defined and allowed, source that file if it exists # siteconfig is defined and allowed, source that file if it exists
proc sourceSiteConfig {} { proc sourceSiteConfig {} {
lappend siteconfiglist [getConf siteconfig] lappend siteconfiglist [getConf siteconfig]
for {set i 0} {$i < [llength $siteconfiglist]} {incr i} { for {set i 0} {$i < [llength $siteconfiglist]} {incr i} {
set siteconfig [lindex $siteconfiglist $i] set siteconfig [lindex $siteconfiglist $i]
if {[file readable $siteconfig]} { if {[file readable $siteconfig]} {
reportDebug "Source site configuration ($siteconfig)" reportDebug "Source site configuration ($siteconfig)"
if {[catch {uplevel 1 source $siteconfig} errMsg]} { if {[catch {uplevel 1 source "{$siteconfig}"} errMsg]} {
set errMsg "Site configuration source failed\n" set errMsg "Site configuration source failed\n"
# issue line number is lost due to uplevel use # issue line number is lost due to uplevel use
append errMsg [formatErrStackTrace $::errorInfo $siteconfig {}] append errMsg [formatErrStackTrace $::errorInfo $siteconfig {}]
reportErrorAndExit $errMsg reportErrorAndExit $errMsg
} }
##nagelfar ignore Found constant
if {$siteconfig eq [getConf siteconfig]} { if {$siteconfig eq [getConf siteconfig]} {
setState siteconfig_loaded 1 setState siteconfig_loaded 1
} else { } else {
setState extra_siteconfig_loaded 1 setState extra_siteconfig_loaded 1
} }
} }
# check on extra_siteconfig after initial siteconfig loaded in case # check on extra_siteconfig after initial siteconfig loaded in case
# it inhibits this extra load # it inhibits this extra load
##nagelfar ignore Found constant
if {$siteconfig eq [getConf siteconfig] && [getConf\ if {$siteconfig eq [getConf siteconfig] && [getConf\
extra_siteconfig] ne {}} { extra_siteconfig] ne {}} {
lappend siteconfiglist [getConf extra_siteconfig] lappend siteconfiglist [getConf extra_siteconfig]
} }
} }
} }
# Used to tell if a machine is running Windows or not # Used to tell if a machine is running Windows or not
proc initStateIsWin {} { proc initStateIsWin {} {
return [expr {$::tcl_platform(platform) eq {windows}}] return [expr {$::tcl_platform(platform) eq {windows}}]
skipping to change at line 435 skipping to change at line 451
default { default {
catch {set cols [lindex [exec stty size] 1]} errMsg catch {set cols [lindex [exec stty size] 1]} errMsg
} }
} }
# default size if tty cols cannot be found # default size if tty cols cannot be found
set cols [expr {![info exists cols] || $cols eq {0} ? 80 : $cols}] set cols [expr {![info exists cols] || $cols eq {0} ? 80 : $cols}]
} }
return $cols return $cols
} }
# Deduce shelltype value from shell state value
proc initStateShellType {} {
switch -- [getState shell] {
sh - bash - ksh - zsh {
set shelltype sh
}
csh - tcsh {
set shelltype csh
}
default {
set shelltype [getState shell]
}
}
return $shelltype
}
# Get all groups of user running modulecmd.tcl process # Get all groups of user running modulecmd.tcl process
proc __initStateUsergroups {} { proc __initStateUsergroups {} {
# ensure groups including space in their name (found on Cygwin/MSYS # ensure groups including space in their name (found on Cygwin/MSYS
# platforms) are correctly set as list element # platforms) are correctly set as list element
if {[catch { if {[catch {
return [split [string range [runCommand id -G -n -z] 0 end-1] \0] return [split [string range [runCommand id -G -n -z] 0 end-1] \0]
} errMsg]} { } errMsg]} {
# fallback if '-z' option is not supported # fallback if '-z' option is not supported
return [runCommand id -G -n] return [runCommand id -G -n]
} }
skipping to change at line 478 skipping to change at line 510
# useful output as this table will be initialized at first use # useful output as this table will be initialized at first use
reportDebug "Ignore invalid value set in $envvar ($colors_list)" reportDebug "Ignore invalid value set in $envvar ($colors_list)"
unset colors_list unset colors_list
} }
} }
# if no valid override set use default color theme for terminal # if no valid override set use default color theme for terminal
# background color kind (light or dark) # background color kind (light or dark)
if {![info exists colors_list]} { if {![info exists colors_list]} {
if {[getConf term_background] eq {light}} { if {[getConf term_background] eq {light}} {
##nagelfar ignore Too long line
set colors_list {@lightbgcolors@} set colors_list {@lightbgcolors@}
} else { } else {
##nagelfar ignore Too long line
set colors_list {@darkbgcolors@} set colors_list {@darkbgcolors@}
} }
if {[catch { if {[catch {
array set test_colors [split $colors_list {:=}] array set test_colors [split $colors_list {:=}]
} errMsg ]} { } errMsg ]} {
reportDebug "Ignore invalid default [getConf term_background]\ reportDebug "Ignore invalid default [getConf term_background]\
background colors ($colors_list)" background colors ($colors_list)"
# define an empty list if no valid value set # define an empty list if no valid value set
set colors_list {} set colors_list {}
} }
skipping to change at line 561 skipping to change at line 595
getConf colors getConf colors
return $value return $value
} }
# Initialize tcl_ext_lib configuration value # Initialize tcl_ext_lib configuration value
proc initConfTclExtLib {envvar value validvallist intvallist} { proc initConfTclExtLib {envvar value validvallist intvallist} {
set libfile libtclenvmodules@SHLIB_SUFFIX@ set libfile libtclenvmodules@SHLIB_SUFFIX@
# determine lib directory # determine lib directory
@notmultilibsupport@set libdir @libdir@ ##nagelfar ignore +13 Too long line
@notmultilibsupport@set libdir {@libdir@}
@multilibsupport@switch -- [getState machine] { @multilibsupport@switch -- [getState machine] {
@multilibsupport@ x86_64 - aarch64 - ppc64le - s390x { @multilibsupport@ x86_64 - aarch64 - ppc64le - s390x {
@multilibsupport@ set libdirmain @libdir64@ @multilibsupport@ set libdirmain {@libdir64@}
@multilibsupport@ set libdiralt @libdir32@ @multilibsupport@ set libdiralt {@libdir32@}
@multilibsupport@ } @multilibsupport@ }
@multilibsupport@ default { @multilibsupport@ default {
@multilibsupport@ set libdirmain @libdir32@ @multilibsupport@ set libdirmain {@libdir32@}
@multilibsupport@ set libdiralt @libdir64@ @multilibsupport@ set libdiralt {@libdir64@}
@multilibsupport@ } @multilibsupport@ }
@multilibsupport@} @multilibsupport@}
@multilibsupport@# use alternative arch lib if available and not main one @multilibsupport@# use alternative arch lib if available and not main one
@multilibsupport@if {![file exists [file join $libdirmain $libfile]] && [file exists [file\ @multilibsupport@if {![file exists [file join $libdirmain $libfile]] && [file exists [file\
@multilibsupport@ join $libdiralt $libfile]]} { @multilibsupport@ join $libdiralt $libfile]]} {
@multilibsupport@ set libdir $libdiralt @multilibsupport@ set libdir $libdiralt
@multilibsupport@} else { @multilibsupport@} else {
@multilibsupport@ set libdir $libdirmain @multilibsupport@ set libdir $libdirmain
@multilibsupport@} @multilibsupport@}
skipping to change at line 729 skipping to change at line 764
return [expr {[lsearch -exact [lindex $::g_config_defs(verbosity) 3]\ return [expr {[lsearch -exact [lindex $::g_config_defs(verbosity) 3]\
[getConf verbosity]] >= [lsearch -exact [lindex\ [getConf verbosity]] >= [lsearch -exact [lindex\
$::g_config_defs(verbosity) 3] $name]}] $::g_config_defs(verbosity) 3] $name]}]
} }
# Is match performed in a case sensitive or insensitive manner # Is match performed in a case sensitive or insensitive manner
proc isIcase {} { proc isIcase {} {
# depending on current sub-command, list values that equal to a case # depending on current sub-command, list values that equal to a case
# insensitive match enablement # insensitive match enablement
lappend enabledValList always lappend enabledValList always
if {[currentState commandname] in [list avail list whatis search paths]} { if {[currentState commandname] in [list avail list whatis search paths\
savelist]} {
lappend enabledValList search lappend enabledValList search
} }
return [expr {[getConf icase] in $enabledValList}] return [expr {[getConf icase] in $enabledValList}]
} }
# ;;; Local Variables: *** # ;;; Local Variables: ***
# ;;; mode:tcl *** # ;;; mode:tcl ***
# ;;; End: *** # ;;; End: ***
# vim:set tabstop=3 shiftwidth=3 expandtab autoindent: # vim:set tabstop=3 shiftwidth=3 expandtab autoindent:
 End of changes. 25 change blocks. 
11 lines changed or deleted 47 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)