diff options
Diffstat (limited to 'unix/mkLinks.tcl')
| -rw-r--r-- | unix/mkLinks.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/unix/mkLinks.tcl b/unix/mkLinks.tcl index 45a6131..ba99145 100644 --- a/unix/mkLinks.tcl +++ b/unix/mkLinks.tcl @@ -30,10 +30,15 @@ fi cd $1 echo foo > xyzzyTestingAVeryLongFileName.foo x=`echo xyzzyTe*` +echo foo > xyzzyTestingaverylongfilename.foo +y=`echo xyzzyTestingav*` rm xyzzyTe* if test "$x" != "xyzzyTestingAVeryLongFileName.foo"; then exit fi +if test "$y" != "xyzzyTestingaverylongfilename.foo"; then + CASEINSENSITIVEFS=1 +fi } foreach file $argv { @@ -61,12 +66,19 @@ foreach file $argv { append lnOutput " ln $tail $name$ext\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 { |