Provided by:
manpages-zh_1.5.2-1_all 
NAME
fcopy -
SYNOPSIS
fcopy inchan outchan ?-size size? ?-command callback?
_________________________________________________________________
DESCRIPTION
fcopy I/O inchan I/O outchan fcopy Tcl I/O (leverage)
fcopy inchan size -size inchan outchan -command outchan fcopy
-command fcopy callback callback outchan inchan outchan fcopy
vwait Tk
inchan outchan I/O inchan outchan inchan outchan (queue)
inchan fileevent(interfere) fileevent I/O "channel busy"
Fcopy inchan outchan -translationfconfigure -translation inchan
outchan. outchan fcopy fcopy
EXAMPLE
vwait proc Cleanup {in out bytes {error {}}} {
global total
set total $bytes
close $in
close $out
if {[string length $error] != 0} { # error occurred during the
copy
} } set in [open $file1] set out [socket $server $port] fcopy $in
$out -command [list Cleanup $in $out] vwait total
(chunk) proc CopyMore {in out chunk bytes {error {}}} {
global total done
incr total $bytes
if {([string length $error] != 0) || [eof $in] { set done
$total close $in close $out
} else { fcopy $in $out -command [list CopyMore $in $out
$chunk] \ -size $chunk
} } set in [open $file1] set out [socket $server $port] set chunk
1024 set total 0 fcopy $in $out -command [list CopyMore $in $out
$chunk] -size $chunk vwait done
SEE ALSO
eof(n), fblocked(n), fconfigure(n)
KEYWORDS
blocking, channel, end of line, end of file, nonblocking, read,
translation
[]
[]
2001/08/02
Linux man :
http://cmpp.linuxforum.net