|
1 #!/usr/bin/expect -f |
|
2 #====================================================================== |
|
3 # P R E P A R E _ I N S T R U M E N T |
|
4 # doc: Wed Nov 15 00:54:23 2006 |
|
5 # dlm: Wed Nov 19 15:16:44 2008 |
|
6 # (c) 2006 ladder@ |
|
7 # uE-Info: 27 14 NIL 0 0 72 2 2 8 NIL ofnI |
|
8 #====================================================================== |
|
9 |
|
10 # HISTORY: |
|
11 # Nov 15, 2006: - adapted from [ladcp_send_command] |
|
12 # Nov 17, 2006: - finished implementation |
|
13 # Oct 22, 2007: - added sleep 3 after BREAK for HP heads |
|
14 # Oct 23, 2007: - cosmetics |
|
15 # Nov 19, 2008: - added version |
|
16 |
|
17 |
|
18 #---------------------------------------------------------------------- |
|
19 # Setup |
|
20 #---------------------------------------------------------------------- |
|
21 |
|
22 log_user 0; |
|
23 source DEFAULTS.expect; |
|
24 regsub {dir1} [exec which dir1] {libBB.expect} path; |
|
25 source $path; |
|
26 |
|
27 print_version; |
|
28 |
|
29 if {$argc != 1} { |
|
30 error "Usage: $argv0 <tty port>" |
|
31 } |
|
32 |
|
33 #---------------------------------------------------------------------- |
|
34 # Set Speed to 9600bps |
|
35 #---------------------------------------------------------------------- |
|
36 |
|
37 set_color; |
|
38 send_user "Resetting instrument speed"; |
|
39 spawn bbabble -ms [lindex $argv 0]; |
|
40 wait_for_startup; |
|
41 |
|
42 send $BREAK; |
|
43 sleep 3; |
|
44 |
|
45 next_speed; send_error "."; # 19200 |
|
46 next_speed; send_error "."; # 38400 |
|
47 next_speed; send_error "."; # 57600 |
|
48 next_speed; send_error "."; # 115200 |
|
49 next_speed; send_error "."; # 300 |
|
50 next_speed; send_error "."; # 1200 |
|
51 next_speed; send_error "."; # 2400 |
|
52 next_speed; send_error "."; # 4800 |
|
53 next_speed; send_error "."; # 9600 |
|
54 |
|
55 save_parameters; |
|
56 |
|
57 send_user "\nInstrument Serial Number = "; |
|
58 send_user [get_serial_number]; |
|
59 |
|
60 put_to_sleep; |
|
61 send_user "\nDone\n"; |