8 lines
186 B
Tcl
8 lines
186 B
Tcl
proc writefile {filename data} {
|
|
set fd [open $filename w] ;# truncate if exists, else create
|
|
try {
|
|
puts -nonewline $fd $data
|
|
} finally {
|
|
close $fd
|
|
}
|
|
}
|