1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # I N T E R A C T 2 |
3 # I N T E R A C T 2 |
4 # doc: Mon Mar 8 02:57:35 2004 |
4 # doc: Mon Mar 8 02:57:35 2004 |
5 # dlm: Wed Nov 19 15:15:46 2008 |
5 # dlm: Thu Aug 26 00:27:02 2010 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 22 14 NIL 0 0 72 0 2 8 NIL ofnI |
7 # uE-Info: 20 39 NIL 0 0 72 0 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Mar 8, 2004: - incepted |
11 # Mar 8, 2004: - incepted |
12 # Jun 15, 2004: - BUG: 2nd instrument was not put to sleep correctly |
12 # Jun 15, 2004: - BUG: 2nd instrument was not put to sleep correctly |
13 # (forgot to wait after toggle) |
13 # (forgot to wait after toggle) |
14 # Nov 19, 2008: - added version |
14 # Nov 19, 2008: - added version |
|
15 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
|
16 # - libBB.expect -> libRDI.expect |
15 |
17 |
16 log_user 0; |
18 log_user 0; |
17 |
19 |
18 regsub {dir1} [exec which dir1] {libBB.expect} path; |
20 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
19 source $path; |
21 source $path; |
20 source DEFAULTS.expect; |
22 source CRUISE_SETUP.expect; |
21 |
23 |
22 print_version; |
24 print_version; |
23 |
25 |
24 set_color; |
26 set_color; |
25 send_user "Connecting to instruments..." |
27 send_user "Connecting to instruments..." |