diff options
author | das <das@noemail.net> | 2001-11-23 01:39:41 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2001-11-23 01:39:41 (GMT) |
commit | bfef7bec8d316c981709cf8b2bf20192721b941f (patch) | |
tree | 979fa41979efaf22cb7e936f182fc2a2d165e934 /unix/mkLinks.tcl | |
parent | bd07598bf71c495ee07750ab0aaa6c944481a3d6 (diff) | |
download | tcl-bfef7bec8d316c981709cf8b2bf20192721b941f.zip tcl-bfef7bec8d316c981709cf8b2bf20192721b941f.tar.gz tcl-bfef7bec8d316c981709cf8b2bf20192721b941f.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)
FossilOrigin-Name: f37029ffeabd770e0fc03299bdc6b5527c742165
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 { |