home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / expect-4.7 / example / timed-run < prev    next >
Encoding:
Text File  |  1993-04-12  |  163 b   |  8 lines
  1. #!../expect -f
  2. # run a program for a given amount of time
  3. # i.e. time 20 long_running_program
  4.  
  5. set timeout [lindex $argv 1]
  6. eval spawn [lrange $argv 2 end]
  7. expect
  8.