diff options
Diffstat (limited to 'tools/cvtEOL.tcl')
-rw-r--r-- | tools/cvtEOL.tcl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/tools/cvtEOL.tcl b/tools/cvtEOL.tcl deleted file mode 100644 index e2df341..0000000 --- a/tools/cvtEOL.tcl +++ /dev/null @@ -1,35 +0,0 @@ -# cvtEOL.tcl -- -# -# This file contains a script to parse a Tcl/Tk distribution and -# convert the EOL from \n to \r on all text files. -# -# Copyright (c) 1996-1997 by Sun Microsystems, Inc. -# -# SCCS: @(#) cvtEOL.tcl 1.1 97/01/30 11:33:33 -# - -# -# Convert files in the distribution to Mac style -# - -set distDir [lindex $argv 0] - -set dirs {unix mac generic win library compat tests unix/dltest \ - library/demos library/demos/images bitmaps xlib xlib/X11 .} -set files {*.c *.y *.h *.r *.tcl *.test *.rc *.bc *.vc *.bmp *.html \ - *.in *.notes *.terms all defs \ - README ToDo changes tclIndex configure install-sh mkLinks \ - square widget rmt ixset hello browse rolodex tcolor timer} - -foreach x $dirs { - if [catch {cd $distDir/$x}] continue - puts "Working on $x..." - foreach y [eval glob $files] { - exec chmod 666 $y - exec cp $y $y.tmp - exec tr \012 \015 < $y.tmp > $y - exec chmod 444 $y - exec rm $y.tmp - } -} - |