diff options
author | das <das> | 2001-11-23 01:39:42 (GMT) |
---|---|---|
committer | das <das> | 2001-11-23 01:39:42 (GMT) |
commit | 54c5936b6021be7a0d149ce218e7bba30faf984e (patch) | |
tree | 979fa41979efaf22cb7e936f182fc2a2d165e934 /unix/mkLinks.tcl | |
parent | 5bf5a16c3a6e83b4297123ae905297ac723f7f81 (diff) | |
download | tcl-54c5936b6021be7a0d149ce218e7bba30faf984e.zip tcl-54c5936b6021be7a0d149ce218e7bba30faf984e.tar.gz tcl-54c5936b6021be7a0d149ce218e7bba30faf984e.tar.bz2 |
*unix/Makefile.in:
*unix/configure.in:
*unix/install-sh:
*unix/mkLinks:
*unix/mkLinks.tcl:
*unix/tclLoadDyld.c:
*unix/tclMtherr.c: Mac OSX support: build system, dynamic code loading
and support for case-insensitive filesystems in mkLinks (patch #435258)
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 { |