diff options
author | das <das> | 2001-12-20 18:13:30 (GMT) |
---|---|---|
committer | das <das> | 2001-12-20 18:13:30 (GMT) |
commit | eb05d9a6f9560e60224cdef0fc0d46afc16d7b08 (patch) | |
tree | d7bf7bdf18ebd6b7f09ed1a80616bee0fffb1673 /unix/mkLinks.tcl | |
parent | edaac9b8b6a5563d2c7d4423ba71ba41b7f65500 (diff) | |
download | tcl-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.tcl | 21 |
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 { |