On Mon, 01 Feb 1999, you wrote:
>How can I setup CR->CRLF conversation
>
I made this simple tcl script 2 days ago (so that I didn't test it too
much) which converts unix eol (\r) to dos eol (\n\r). It creates a filename.txt
from filename.[ext].
You can use it if you like (of course there is a dos2unix tcl script, too).
***************************************************
#! /usr/bin/tclsh
# Converts unix file [eol \n] to dos file [eol \r\n]
proc doconv {string} {
set FileName [file join [pwd] $string]
set FileNameDos "[file root $FileName].txt"
set FIdWrite [open $FileNameDos w]
set FIdRead [open $FileName r]
fconfigure $FIdWrite -translation crlf
puts -nonewline $FIdWrite [read $FIdRead]
close $FIdRead
close $FIdWrite
if {[file size $FileNameDos] <= 0} {
puts stdout "Error!"
}
}
if {[regexp {[^-a-zA-Z0-9._]+| [hH]*} $argv] || [string compare $argv ""] == 0}
{
puts stdout {Usage: unix2dos filename}
} else {
doconv $argv
}
-
To get out of this list, please send email to [EMAIL PROTECTED] with
this text in its body: unsubscribe suse-linux-e
Check out the SuSE-FAQ at http://www.suse.com/Support/Doku/FAQ/ and the
archiv at http://www.suse.com/Mailinglists/suse-linux-e/index.html
