/[dejagnu]/dejagnu/lib/kermit.exp
ViewVC logotype

Diff of /dejagnu/lib/kermit.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by bje, Thu Aug 7 03:42:43 2003 UTC revision 1.6 by bje, Thu Aug 7 03:58:36 2003 UTC
# Line 116  proc kermit_command { dest args } { Line 116  proc kermit_command { dest args } {
116      # Sometimes we have to send multiple ^\c sequences. Don't know      # Sometimes we have to send multiple ^\c sequences. Don't know
117      # why.      # why.
118      set timeout 2      set timeout 2
119      for { set i 1; } {$i<=5} {incr i} {      for { set i 1 } { $i <= 5 } { incr i } {
120          send -i $shell_id "c"          send -i $shell_id "c"
121          expect {          expect {
122              -i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10;}              -i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10 }
123              -i $shell_id timeout {              -i $shell_id timeout {
124                  if { $i > 2 } {                  if { $i > 2 } {
125                      warning "Unable to get prompt from kermit."                      warning "Unable to get prompt from kermit."

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26