1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/tools/cvtEOL.tcl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,35 @@
     1.4 +# cvtEOL.tcl --
     1.5 +#
     1.6 +# This file contains a script to parse a Tcl/Tk distribution and
     1.7 +# convert the EOL from \n to \r on all text files.
     1.8 +#
     1.9 +# Copyright (c) 1996-1997 by Sun Microsystems, Inc.
    1.10 +#
    1.11 +# SCCS: @(#) cvtEOL.tcl 1.1 97/01/30 11:33:33
    1.12 +#
    1.13 +
    1.14 +#
    1.15 +# Convert files in the distribution to Mac style
    1.16 +#
    1.17 +
    1.18 +set distDir [lindex $argv 0]
    1.19 +
    1.20 +set dirs {unix mac generic win library compat tests unix/dltest \
    1.21 +	  library/demos library/demos/images bitmaps xlib xlib/X11 .}
    1.22 +set files {*.c *.y *.h *.r *.tcl *.test *.rc *.bc *.vc *.bmp *.html \
    1.23 +	   *.in *.notes *.terms all defs \
    1.24 +	   README ToDo changes tclIndex configure install-sh mkLinks \
    1.25 +	   square widget rmt ixset hello browse rolodex tcolor timer}
    1.26 +
    1.27 +foreach x $dirs {
    1.28 +  if [catch {cd $distDir/$x}] continue
    1.29 +  puts "Working on $x..."
    1.30 +  foreach y [eval glob $files] {
    1.31 +    exec chmod 666 $y
    1.32 +    exec cp $y $y.tmp
    1.33 +    exec tr \012 \015 < $y.tmp > $y
    1.34 +    exec chmod 444 $y
    1.35 +    exec rm $y.tmp
    1.36 +  }
    1.37 +}
    1.38 +