/*
	To Unix
	http://www.scriptol.org
	Script to  convert a dos or any text file
	in Unix text file format,
	where EOL is decimal code 10 (hexa $a)
*/

include "path.sol"


int main(int argsize, array arg)

	if argsize < 2 ? die("usage: tounix filename")

	array a
	text name = arg[1]
	a.load(name)

	text node,ext
	node, ext = Path.splitExt(name)
	
	rename(name, node + ".bak")
	print name , "saved as" , node + ".bak" 

	file f = fopen(name, "wb")
	for text line in a
		f.write(line.rTrim() + chr(10))
	/for	
	f.close()
	
	print name, "converted to unix..."

return 0

main($argc, $argv)