equal
deleted
inserted
replaced
1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # D I R 2 |
3 # D I R 2 |
4 # doc: Mon Mar 8 02:57:35 2004 |
4 # doc: Mon Mar 8 02:57:35 2004 |
5 # dlm: Wed Dec 1 01:28:07 2010 |
5 # dlm: Fri Jul 3 10:14:53 2020 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 16 10 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 36 34 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Mar 8, 2004: - created |
11 # Mar 8, 2004: - created |
12 # Nov 19, 2008: - added version |
12 # Nov 19, 2008: - added version |
13 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
13 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
14 # - libBB.expect -> libRDI.expect |
14 # - libBB.expect -> libRDI.expect |
|
15 # Jul 3, 2020: - expunged master/UL terminology |
15 |
16 |
16 log_user 0; |
17 log_user 0; |
17 |
18 |
18 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
19 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
19 source $path; |
20 source $path; |
26 spawn bbabble -ms $tty0 $tty1; |
27 spawn bbabble -ms $tty0 $tty1; |
27 |
28 |
28 wait_for_startup; |
29 wait_for_startup; |
29 reset_two_instruments; |
30 reset_two_instruments; |
30 |
31 |
31 select_master 0; send_user "\n"; list_dir; |
32 select_DL 0; send_user "\n"; list_dir; |
32 select_slave; send_user "\n"; list_dir; |
33 select_UL; send_user "\n"; list_dir; |
33 |
34 |
34 send_user "\nPutting instruments to sleep..." |
35 send_user "\nPutting instruments to sleep..." |
35 select_master; put_to_sleep; select_slave; put_to_sleep; |
36 select_DL; put_to_sleep; select_UL; put_to_sleep; |
36 |
37 |
37 send_user "\nDone\n" |
38 send_user "\nDone\n" |