/[dejagnu]/dejagnu/config/m68k-emc.exp
ViewVC logotype

Diff of /dejagnu/config/m68k-emc.exp

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

revision 1.2 by rsavoye, Mon Mar 17 02:25:05 2003 UTC revision 1.3 by bje, Thu Aug 7 03:42:43 2003 UTC
# Line 18  Line 18 
18  # bug-dejagnu@gnu.org  # bug-dejagnu@gnu.org
19    
20  proc ${board}_init { dest } {  proc ${board}_init { dest } {
21      global doing_emc_init;      global doing_emc_init
22    
23      if [info exists doing_emc_init] {      if [info exists doing_emc_init] {
24          return;          return
25      }      }
26      set doing_emc_init 1;      set doing_emc_init 1
27      remote_close $dest;      remote_close $dest
28      set dos_host [board_info $dest dos_host];      set dos_host [board_info $dest dos_host]
29      remote_reboot $dos_host;      remote_reboot $dos_host
30      unset doing_emc_init;      unset doing_emc_init
31  }  }
32    
33  proc m68k_emc_board_connect { dest } {  proc m68k_emc_board_connect { dest } {
34      global board_info;      global board_info
35      set tname [board_info $dest name];      set tname [board_info $dest name]
36    
37      set board_info($tname,m68k_connected) 1;      set board_info($tname,m68k_connected) 1
38      set dos_host [board_info $dest dos_host];      set dos_host [board_info $dest dos_host]
39    
40      for { set x 0; } { $x < 3 } { incr x; } {      for { set x 0; } { $x < 3 } { incr x; } {
41          set shell_id [remote_open $dos_host];          set shell_id [remote_open $dos_host]
42          if { $shell_id == "" || $shell_id < 0 } {          if { $shell_id == "" || $shell_id < 0 } {
43              remote_reboot $dos_host;              remote_reboot $dos_host
44          } else {          } else {
45              break;              break
46          }          }
47      }      }
48      remote_send $dos_host "c:\\symetrix.bat\n";      remote_send $dos_host "c:\\symetrix.bat\n"
49      remote_expect $dos_host 300 {      remote_expect $dos_host 300 {
50          -re "SymmComm.*Installed.*\033.2J.*\033.2J" { }          -re "SymmComm.*Installed.*\033.2J.*\033.2J" { }
51          default {          default {
# Line 57  proc m68k_emc_board_connect { dest } { Line 57  proc m68k_emc_board_connect { dest } {
57          -re ".+" { exp_continue; }          -re ".+" { exp_continue; }
58      }      }
59      # Get past first menu.      # Get past first menu.
60      remote_send $dos_host "\n";      remote_send $dos_host "\n"
61      remote_expect $dos_host 10 {      remote_expect $dos_host 10 {
62          -re "\033.07;02H" { }          -re "\033.07;02H" { }
63          default { }          default { }
64      }      }
65      # We don't want a log file.      # We don't want a log file.
66      remote_send $dos_host "\n";      remote_send $dos_host "\n"
67      remote_expect $dos_host 10 {      remote_expect $dos_host 10 {
68          -re "\033.02;24H" { }          -re "\033.02;24H" { }
69          default { }          default { }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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