equal
deleted
inserted
replaced
1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # E N D L A D C P 1 |
3 # / U S E R S / L A D C P / B I N / L A D C P _ A C Q U I R E / E N D L A D C P 1 |
4 # doc: Wed Mar 10 22:23:52 2004 |
4 # doc: Wed Mar 10 22:23:52 2004 |
5 # dlm: Wed Dec 1 03:15:11 2010 |
5 # dlm: Sun Nov 10 04:15:47 2013 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 22 0 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 58 0 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Apr 4, 2004: - adapted from [endladcp2] |
11 # Apr 4, 2004: - adapted from [endladcp2] |
12 # Jun 18, 2004: - BUG: could not handle station 008 (illegal octal digit) |
12 # Jun 18, 2004: - BUG: could not handle station 008 (illegal octal digit) |
17 # Nov 19, 2008: - added version |
17 # Nov 19, 2008: - added version |
18 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
18 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
19 # - libBB.expect -> libRDI.expect |
19 # - libBB.expect -> libRDI.expect |
20 # Aug 26, 2010: - added support for ymodem_download_cmd |
20 # Aug 26, 2010: - added support for ymodem_download_cmd |
21 # Dec 1, 2010: - BUG: ymodem_receive_cmd instead of ymodem_download_cmd |
21 # Dec 1, 2010: - BUG: ymodem_receive_cmd instead of ymodem_download_cmd |
|
22 # Nov 10, 2013: - added dir listing before downlaod |
22 |
23 |
23 #---------------------------------------------------------------------- |
24 #---------------------------------------------------------------------- |
24 # Setup |
25 # Setup |
25 #---------------------------------------------------------------------- |
26 #---------------------------------------------------------------------- |
26 |
27 |
40 exit; |
41 exit; |
41 } |
42 } |
42 } |
43 } |
43 |
44 |
44 #---------------------------------------------------------------------- |
45 #---------------------------------------------------------------------- |
45 # Get Station Number |
46 # List Directory Contents |
46 #---------------------------------------------------------------------- |
47 #---------------------------------------------------------------------- |
47 |
48 |
48 spawn bbabble -ms $tty0; |
49 spawn bbabble -ms $tty0; |
49 |
50 |
50 set_color; |
51 set_color; |
51 send_user "Connecting to instrument..."; |
52 send_user "Connecting to instrument..."; |
52 wait_for_startup; |
53 wait_for_startup; |
53 reset_instrument; |
54 reset_instrument; |
|
55 |
|
56 send_user "\n"; list_dir; |
|
57 |
|
58 #---------------------------------------------------------------------- |
|
59 # Get Station Number & Carry Out Sanity Checks |
|
60 #---------------------------------------------------------------------- |
54 |
61 |
55 send_user "\nGetting station number..."; |
62 send_user "\nGetting station number..."; |
56 set deployment_name [get_deployment_name]; |
63 set deployment_name [get_deployment_name]; |
57 if {[scan $deployment_name $master_deployment_name_fmt stn] != 1} { |
64 if {[scan $deployment_name $master_deployment_name_fmt stn] != 1} { |
58 send_error "$deployment_name $master_deployment_name_fmt"; |
65 send_error "$deployment_name $master_deployment_name_fmt"; |