pmodules/Pmodules
1
0
Fork 0
mirror of https://github.com/Pmodules/Pmodules.git synced 2026-07-01 03:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

libmodules.tcl: refactor variable names in _find_overlay

Browse Source
This commit is contained in:
gsell
2021-12-16 18:30:39 +01:00
parent 6e1107852a
commit 816dfa9839
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Pmodules/libmodules.tcl
+11 -12
View File
@@ -319,19 +319,18 @@ proc ModulesHelp { } {
#
proc _find_overlay { modulefile_components } {
debug "_find_overlay()"
foreach overlay $::OverlayList {
debug "$overlay"
if { [string range $overlay end end] == "/" } {
set overlay [string range $overlay 0 end-1]
foreach ol_dir $::OverlayList {
debug "$ol_dir"
if { [string range $ol_dir end end] == "/" } {
set ol_dir [string range $ol_dir 0 end-1]
}
set overlay_components [file split $overlay]
set overlay_num_components [llength $overlay_components]
set modulefile_root [file join \
{*}[lrange \
$modulefile_components \
0 [expr $overlay_num_components - 1]]]
if { [string compare $overlay $modulefile_root] == 0 } {
return $overlay_components
set ol_dir_splitted [file split $ol_dir]
set modulefile_root [file join \
{*}[lrange \
$modulefile_components \
0 [expr [llength $ol_dir_splitted] - 1]]]
if { [string compare $ol_dir $modulefile_root] == 0 } {
return $ol_dir_splitted
}
}
debug "not found"