/*
    To Unix
    http://www.scriptol.net
    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)