diff options
author | stanton <stanton@noemail.net> | 1999-04-16 00:46:29 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-04-16 00:46:29 (GMT) |
commit | 98569293dc21e22480004e4e3f2ce85ec0bfd80f (patch) | |
tree | ce9959f2747257d98d52ec8d18bf3b0de99b9535 /tools/cvtEOL.tcl | |
parent | 6a4a1d8213f4de5bce0eaafa8f4d86117022bf1a (diff) | |
download | tcl-98569293dc21e22480004e4e3f2ce85ec0bfd80f.zip tcl-98569293dc21e22480004e4e3f2ce85ec0bfd80f.tar.gz tcl-98569293dc21e22480004e4e3f2ce85ec0bfd80f.tar.bz2 |
merged tcl 8.1 branch back into the main trunk
FossilOrigin-Name: f3b32fb71c9011ac220779bd9dbe5617c9dc87d9
Diffstat (limited to 'tools/cvtEOL.tcl')
-rw-r--r-- | tools/cvtEOL.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tools/cvtEOL.tcl b/tools/cvtEOL.tcl new file mode 100644 index 0000000..e2df341 --- /dev/null +++ b/tools/cvtEOL.tcl @@ -0,0 +1,35 @@ +# 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 + } +} + |