#!/bin/csh -f
#......... clean ^M from each file in [dir] or ./  (using sed)
#.. usage: clnMdir [dir]

set dir = "1"
if( "$1" == "" ) then
	set dir = "./"
endif

cd $dir
ls ./ > flist

foreach fn (`cat ./flist`)
	/usr/bin/mv  -f $fn tmp
	/usr/bin/sed "s/
//g" tmp > $fn
	/usr/bin/rm  -f ./tmp
end

/bin/rm -f ./flist
exit