summaryrefslogtreecommitdiffstats
path: root/unix/mkLinks.tcl
diff options
context:
space:
mode:
authordas <das>2001-12-20 18:13:30 (GMT)
committerdas <das>2001-12-20 18:13:30 (GMT)
commiteb05d9a6f9560e60224cdef0fc0d46afc16d7b08 (patch)
treed7bf7bdf18ebd6b7f09ed1a80616bee0fffb1673 /unix/mkLinks.tcl
parentedaac9b8b6a5563d2c7d4423ba71ba41b7f65500 (diff)
downloadtcl-eb05d9a6f9560e60224cdef0fc0d46afc16d7b08.zip
tcl-eb05d9a6f9560e60224cdef0fc0d46afc16d7b08.tar.gz
tcl-eb05d9a6f9560e60224cdef0fc0d46afc16d7b08.tar.bz2
* unix/tcl.m4: fixed incorrect SHLIB_LD_LIBS
setting for MacOSX / Darwin. * unix/configure: Regen. * unix/mkLinks.tcl: improved case-insensitive filesystem support. * unix/mkLinks: Regen.
Diffstat (limited to 'unix/mkLinks.tcl')
-rw-r--r--unix/mkLinks.tcl21
1 files changed, 12 insertions, 9 deletions
diff --git a/unix/mkLinks.tcl b/unix/mkLinks.tcl
index ba99145..3a61387 100644
--- a/unix/mkLinks.tcl
+++ b/unix/mkLinks.tcl
@@ -41,6 +41,9 @@ if test "$y" != "xyzzyTestingaverylongfilename.foo"; then
fi
}
+set case_insensitive_test { if test "${CASEINSENSITIVEFS:-}" != "1"; then;}
+set case_insensitive_test_fi {; fi}
+
foreach file $argv {
set in [open $file]
set tail [file tail $file]
@@ -61,24 +64,24 @@ foreach file $argv {
foreach name [split $line ,] {
regsub -all {(\\)? } $name "" name
if {![string match $name*$ext $tail]} {
+ if {[string match -nocase $name*$ext $tail]} {
+ set tst $case_insensitive_test
+ set tstfi $case_insensitive_test_fi
+ } else {
+ set tst ""
+ set tstfi ""
+ }
lappend namelist $name$ext
- append rmOutput " rm -f $name$ext\n"
- append lnOutput " ln $tail $name$ext\n"
+ append rmOutput " $tst rm -f $name$ext$tstfi\n"
+ append lnOutput " $tst ln $tail $name$ext$tstfi\n"
}
}
- if { [llength $namelist] == 1 && [string compare -nocase $tail [lindex $namelist 0]] ==0} {
- puts {if test "${CASEINSENSITIVEFS:-}" != "1"; then}
- set state fi
- }
if { [llength $namelist] } {
puts "if test -r $tail; then"
puts -nonewline $rmOutput
puts -nonewline $lnOutput
puts "fi"
}
- if { $state == "fi" } {
- puts "fi"
- }
set state end
}
end {