Project Sewer: odometer.tcl

Tuesday, May 18, 2004

odometer.tcl

Here is the first file: odometer.tcl


proc read_more {} {

    set new [read stdin 4096]

    if [string length $new] {

	incr ::bytecount [string length $new]

	puts -nonewline stdout $new

	#.t insert end $new

	#.t see end

    }

    if [eof stdin] { exit }

    after 1 read_more

}



pack [label .odometer -textvar bytecount]

set bytecount 0

read_more