home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / scripts / script.exp < prev    next >
Encoding:
Text File  |  1993-02-21  |  270 b   |  9 lines
  1. # emulate 'script' command with extras
  2.  
  3. log_file typescript
  4. spawn $env(SHELL)
  5. send_user "recording to file typescript\n"
  6. send_user "~s to stop recording, ~r to record\n"
  7. interact ~s "log_file" ~r "log_file typescript"
  8. send_user "recording to file typescript complete\n"
  9.