[piLL]
public text v1 · immutableset in_fid [open $in_file]
set out_fid [open $out_file {CREAT RDWR}]
while {[gets $in_fid in_text] >= 0} {
puts $out_fid "$in_text"
}
close $in_fid; close $out_fid
file copy $out_file $in_fileset in_fid [open $in_file]
set out_fid [open $out_file {CREAT RDWR}]
while {[gets $in_fid in_text] >= 0} {
puts $out_fid "$in_text"
}
close $in_fid; close $out_fid
file copy $out_file $in_file