Version 0 of An example wherein Expect controls a pager

Updated 2006-07-18 18:14:36

[Explain context.]

  package require Expect

  spawn more /etc/passwd
  set more_prompt "--More-- or (q)uit"
  set more_prompt %)
  set shell_prompt {$ }

  set debug 1
  log_user 0

  expect $more_prompt {send " "
                     puts "The current display is in exp_out(buffer)."
                       exp_continue
                      } eof {
                     puts "That's the end."
                      } timeout {
                     puts "This is strange."
                      }