diff options
Diffstat (limited to 'blt/demos/scripts/bgtest.tcl')
| -rw-r--r-- | blt/demos/scripts/bgtest.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/blt/demos/scripts/bgtest.tcl b/blt/demos/scripts/bgtest.tcl new file mode 100644 index 00000000000..332d801316a --- /dev/null +++ b/blt/demos/scripts/bgtest.tcl @@ -0,0 +1,35 @@ + +set fid [open "../README" "r"] +set data [read $fid] +close $fid + +regsub -all "\r|\n|\t" $data " " data +set data [split $data " "] + +set count 0 +set maxWords 500 +foreach word $data { + if { $word == "" } { + continue + } + if { $count & 0x1 } { + puts -nonewline stderr "($word)" + flush stderr + } else { + puts -nonewline stdout "($word)" + flush stdout + } + incr count + if { ($count % 10) == 0 } { + puts stdout "" + puts stderr "" + flush stdout + flush stderr + } + if { $count > $maxWords } { + break + } + after 500 +} +exit 0 + |