diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-11-15 11:24:31 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-11-24 09:40:45 +1000 |
commit | 96466972c70a61becc8c332d0b991038ab7028f1 (patch) | |
tree | 9dcead1ec018bb47361ac9a1781af499ab9c804f /tclcompat.tcl | |
parent | 373b721510fd2d0754a41cc70a3b7cfd02e929bd (diff) | |
download | jimtcl-96466972c70a61becc8c332d0b991038ab7028f1.zip jimtcl-96466972c70a61becc8c332d0b991038ab7028f1.tar.gz jimtcl-96466972c70a61becc8c332d0b991038ab7028f1.tar.bz2 |
Remove the bio extension and add 'copyto' to aio.
The bio extension is a hangover from TinyTcl. Since Jim
supports binary strings, there isn't much need for it except for
'bio copy'. So move this to aio as 'copyto' and implement 'file copy'
in terms of it.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 4589f56..0f9bec9 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -115,7 +115,7 @@ proc {file copy} {{force {}} source target} { error "error copying \"$source\" to \"$target\": file already exists" } set out [open $target w] - bio copy $in $out + $in copyto $out $out close } on error {msg opts} { incr opts(-level) |