[TriLUG] semi OT: TCL buffer/flush help

[Douglas Kojetin]

hi all.

if there are any TCL gurus on the list, i need some assistance.  i'm 
using a TCL script that uses the 'flush' call to open and send commands 
to an external (non TCL) program.  here is a sample of my lines:

          set OUT [open "|the_program " w+]
          puts $OUT "command_1 "
          puts $OUT "command_2 "
          puts $OUT "command_3 "
          puts $OUT "command_4 "
          puts $OUT "command_5 "
          flush $OUT

it works OK, but i'm apparently experiencing a buffer overload, and the 
program stalls/freezes after some use.  it's somewhat described on this 
page:  http://wiki.tcl.tk/919

anyone know how i might be able to adjust my output (the above) so that 
i do not experience buffer overload (and, subsequently, a program 
stall)?

thanks,
doug