merged tcl 8.1 branch back into the main trunk

FossilOrigin-Name: f3b32fb71c9011ac220779bd9dbe5617c9dc87d9

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
+  }
+}
+