Attachment "io.test.diff-u" to
ticket [678400ffff]
added by
andreas_kupries
2003-02-25 07:04:04.
--- io.test.orig Mon Feb 24 15:20:00 2003
+++ io.test Mon Feb 24 15:47:03 2003
@@ -53,7 +53,7 @@
set path(cat) [makeFile {
set f stdin
if {$argv != ""} {
- set f [open $argv]
+ set f [open [lindex $argv 0]]
}
fconfigure $f -encoding binary -translation lf -blocking 0 -eofchar \x1a
fconfigure stdout -encoding binary -translation lf -buffering none
@@ -2628,15 +2628,15 @@
catch {removeFile pipe}
catch {removeFile output}
set f [open $path(pipe) w]
- puts $f [format {set f [open "%s" w]} $path(output)]
+ puts $f [format {set f [open {%s} w]} $path(output)]
puts $f {fconfigure $f -translation lf}
set x [list while {![eof stdin]}]
- set x "$x {"
+ set x "$x \{"
puts $f $x
puts $f { after 20}
puts $f { puts -nonewline $f [read stdin 1024]}
puts $f { flush $f}
- puts $f "}"
+ puts $f "\}"
puts $f {close $f}
close $f
set x 01234567890123456789012345678901
@@ -5748,7 +5748,7 @@
}
close $f
set f [open "|[list [interpreter]]" r+]
- fileevent $f readable [namespace code [list consume $f]]
+ fileevent $f readable [namespace code [list consume $f]]
fconfigure $f -buffering line
fconfigure $f -blocking off
proc consume {f} {
@@ -5765,8 +5765,8 @@
}
set l ""
variable x not_done
- puts $f [format {source %s} $path(my_script)]
- puts $f [format {set f [open %s r]} $path(bar)]
+ puts $f [format {source {%s}} $path(my_script)]
+ puts $f [format {set f [open {%s} r]} $path(bar)]
puts $f {copy_slowly $f}
puts $f {exit}
vwait [namespace which -variable x]