equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # E D I T P D 0 |
3 # E D I T P D 0 |
4 # doc: Mon Nov 25 20:24:31 2013 |
4 # doc: Mon Nov 25 20:24:31 2013 |
5 # dlm: Wed Dec 6 09:38:33 2017 |
5 # dlm: Sat Dec 23 16:10:02 2017 |
6 # (c) 2013 A.M. Thurnherr |
6 # (c) 2013 A.M. Thurnherr |
7 # uE-Info: 89 37 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 83 28 NIL 0 0 72 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # edit RDI PD0 file, e.g. to replace pitch/roll/heading with external values |
10 # edit RDI PD0 file, e.g. to replace pitch/roll/heading with external values |
11 |
11 |
12 # NOTES: |
12 # NOTES: |
78 # Dec 6, 2017: - cosmetics |
78 # Dec 6, 2017: - cosmetics |
79 |
79 |
80 use Getopt::Std; |
80 use Getopt::Std; |
81 |
81 |
82 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
82 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
83 $ADCP_tools_minVersion = 1.4; |
83 $ADCP_tools_minVersion = 2.1; |
84 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
84 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
85 |
85 |
86 $USAGE = "$0 @ARGV"; |
86 $USAGE = "$0 @ARGV"; |
87 die("Usage: $0 " . |
87 die("Usage: $0 " . |
88 '-e) <edit-file> | -x) <expr> ' . |
88 '-e) <edit-file> | -x) <expr> ' . |