## Super aggressive EOL-fixer!
##
## Will even understand screwed up ones like CRCRLF.
## (found in bad CVS repositories, caused by spacey developers
## abusing CVS)
##
## davygrvy@pobox.com 3:41 PM 10/12/2001
##
package provide EOL-fix 1.1
namespace eval ::EOL {
variable outMode crlf
}
proc EOL::fix {filename {newfilename ""}} {
variable outMode
if {![file exists $filename]} { return }
puts "EOL Fixing: $filename"
file rename ${filename} ${filename}.o
set fhnd [open ${filename}.o r]
if {$newfilename != ""} {
set newfhnd [open ${newfilename} w]
} else {
set newfhnd [open ${filename} w]
}
fconfigure $newfhnd -translation [list auto $outMode]
seek $fhnd 0 end
set theEnd [tell $fhnd]
seek $fhnd 0 start
fconfigure $fhnd -translation binary -buffersize $theEnd
set rawFile [read $fhnd $theEnd]
close $fhnd
regsub -all {(\r)|(\r){1,2}(\n)} $rawFile "\n" rawFile
set lineList [split $rawFile \n]
foreach line $lineList {
puts $newfhnd $line
}
close $newfhnd
file delete ${filename}.o
}
proc EOL::fixall {args} {
if {[llength $args] == 0} {
puts stderr "no files to fix"
exit 1
} else {
set cmd [lreplace $args -1 -1 glob -nocomplain]
}
foreach f [eval $cmd] {
if {[file isfile $f]} {fix $f}
}
}
if {$tcl_interactive == 0 && $argc > 0} {
if {[string index [lindex $argv 0] 0] == "-"} {
switch -- [lindex $argv 0] {
-cr { set ::EOL::outMode cr }
-crlf { set ::EOL::outMode crlf }
-lf { set ::EOL::outMode lf }
default { puts stderr "improper mode switch" ; exit 1 }
}
set argv [lrange $argv 1 end]
}
eval EOL::fixall $argv
} else {
return
}
|