1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # A B O R T 1 |
3 # A B O R T 1 |
4 # doc: Wed Mar 10 22:23:52 2004 |
4 # doc: Wed Mar 10 22:23:52 2004 |
5 # dlm: Wed Nov 19 15:10:44 2008 |
5 # dlm: Thu Aug 26 00:20:26 2010 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 13 32 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 15 48 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Jun 19, 2004: - adapted from [endladcp1] |
11 # Jun 19, 2004: - adapted from [endladcp1] |
12 # Nov 6, 2006: - adapted to old regsub |
12 # Nov 6, 2006: - adapted to old regsub |
13 # Nov 19, 2008: - added version |
13 # Nov 19, 2008: - added version |
|
14 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
|
15 # - libBB.expect -> libRDI.expect |
14 |
16 |
15 #---------------------------------------------------------------------- |
17 #---------------------------------------------------------------------- |
16 # Setup |
18 # Setup |
17 #---------------------------------------------------------------------- |
19 #---------------------------------------------------------------------- |
18 |
20 |
19 log_user 0; |
21 log_user 0; |
20 source DEFAULTS.expect; |
22 source CRUISE_SETUP.expect; |
21 regsub {dir1} [exec which dir1] {libBB.expect} path; |
23 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
22 source $path; |
24 source $path; |
23 |
25 |
24 print_version; |
26 print_version; |
25 |
27 |
26 if ![file isdirectory $raw_dir] { |
28 if ![file isdirectory $raw_dir] { |