827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
|
set firstPattern [llength $cmd]
foreach opt [lrange $args $at end] {
if {![regexp $dirPartRE $opt -> thedir thefile]} {
set thedir .
} elseif {[string match ~* $thedir]} {
set thedir ./$thedir
}
if {$thedir eq "*" &&
($thefile eq "pkgIndex.tcl" || $thefile eq "*.tm")} {
|
<
|
|
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
|
set firstPattern [llength $cmd]
foreach opt [lrange $args $at end] {
if {![regexp $dirPartRE $opt -> thedir thefile]} {
set thedir .
} elseif {[string match ~* $thedir]} {
set thedir ./$thedir
}
if {($thedir eq "*") && ($thefile eq "pkgIndex.tcl")} {
set mapped 0
foreach d [glob -directory [TranslatePath $slave $virtualdir] \
-types d -tails *] {
catch {
DirInAccessPath $slave \
[TranslatePath $slave [file join $virtualdir $d]]
lappend cmd [file join $d $thefile]
|