HP/util/HP/lib/blt2.4/demos/scripts/bgtest.tcl

   1
   2 set fid [open "../README" "r"]
   3 set data [read $fid]
   4 close $fid
   5
   6 regsub -all "\n|\t" $data " " data
   7 set data [split $data " "]
   8
   9 set count 0
  10 set maxWords 500
  11 foreach word $data {
  12     if { $count & 0x1 } {
  13         puts stderr "($word)"
  14         flush stderr
  15     } else {
  16         puts stdout "($word)"
  17         flush stdout
  18     }
  19     incr count
  20     if { $count > $maxWords } {
  21         break
  22     }
  23     after 500
  24 }
  25 exit 0
  26