1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # E N D L A D C P 2 |
3 # E N D L A D C P 2 |
4 # doc: Wed Mar 10 22:23:52 2004 |
4 # doc: Wed Mar 10 22:23:52 2004 |
5 # dlm: Wed Nov 19 15:13:20 2008 |
5 # dlm: Thu Aug 26 19:48:24 2010 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 32 14 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 102 40 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Mar 10, 2004: - begun |
11 # Mar 10, 2004: - begun |
12 # Mar 18, 2004: - released |
12 # Mar 18, 2004: - released |
16 # Feb 14, 2006: - BUG: log files were written to bin dir |
16 # Feb 14, 2006: - BUG: log files were written to bin dir |
17 # Oct 4, 2006: - adapted to older expect version |
17 # Oct 4, 2006: - adapted to older expect version |
18 # Oct 28, 2006: - allowed for lrb downcasing filenames |
18 # Oct 28, 2006: - allowed for lrb downcasing filenames |
19 # Nov 6, 2006: - BUG: error when master download finished much before slave |
19 # Nov 6, 2006: - BUG: error when master download finished much before slave |
20 # Nov 19, 2008: - added version |
20 # Nov 19, 2008: - added version |
21 |
21 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
|
22 # - libBB.expect -> libRDI.expect |
|
23 # Aug 26, 2010: - added support for ymodem_download_cmd |
22 |
24 |
23 #---------------------------------------------------------------------- |
25 #---------------------------------------------------------------------- |
24 # Setup |
26 # Setup |
25 #---------------------------------------------------------------------- |
27 #---------------------------------------------------------------------- |
26 |
28 |
27 log_user 0; |
29 log_user 0; |
28 source DEFAULTS.expect; |
30 source CRUISE_SETUP.expect; |
29 regsub {dir1} [exec which dir1] {libBB.expect} path; |
31 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
30 source $path; |
32 source $path; |
31 |
33 |
32 print_version; |
34 print_version; |
33 |
35 |
34 if ![file isdirectory $raw_dir] { |
36 if ![file isdirectory $raw_dir] { |
95 #---------------------------------------------------------------------- |
97 #---------------------------------------------------------------------- |
96 |
98 |
97 regsub {.*/} $argv0 {} basename; |
99 regsub {.*/} $argv0 {} basename; |
98 start_logging [format %s_%03d.log $basename $master_stn]; |
100 start_logging [format %s_%03d.log $basename $master_stn]; |
99 |
101 |
100 spawn $bbabble -ms $tty0 $tty1; |
102 spawn $bbabble -msy $ymodem_download_cmd $tty0 $tty1; |
101 wait_for_startup; |
103 wait_for_startup; |
102 |
104 |
103 send_user "\nSaving hardware configurations..."; |
105 send_user "\nSaving hardware configurations..."; |
104 select_master; save_hardware_config [format %s000.LOG $master_deployment_name]; |
106 select_master; save_hardware_config [format %s000.LOG $master_deployment_name]; |
105 resume_logging [format %s_%03d.log $basename $master_stn]; |
107 resume_logging [format %s_%03d.log $basename $master_stn]; |