question about appending to files in tcl 1

[smugindividual]

Using 8.3.

Is there a file append command hidden in the depths of tcl? It is such a pain to add one line of text to an already existing file. If you know of such a function or of a clever way of doing this, I'd be greatful. (other than reading file to a variable and writting to a new file with new line appended on end)


Thanks in advance

 

[marsd]

Have you looked at the documentation for the open command?
a or a+ is the mode that you want.

proc appendLine {fname line {mode "a"}} {

if {![catch {set fd [open $fname $mode]} err_open]} {
puts $fd $line
close $fd
return [file size $fname]
} else {
puts "ERROR: $err_open"
return -1
}
}

 

[smugindividual]

ahh thanks, this was exactly what i was looking for.