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 { |
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 { } |