Annotation of embedaddon/ntp/scripts/stats/tdata.awk, revision 1.1.1.1
1.1 misho 1: # program to produce loran tdata statistics from clockstats files
2: #
3: # usage: awk -f tdata.awk clockstats
4: #
5: # format of input record (missing replaced by -40.0)
6: # 49228 36.852 127.127.10.1 93:241:00:00:20.812 LORAN TDATA
7: # M OK 0 0 1169.14 -7.4 3.16E-07 .424
8: # W CV 0 0 3329.30 -16.4 1.81E-06
9: # X OK 0 0 1737.19 -10.5 3.44E-07 .358
10: # Y OK 0 0 2182.07 -9.0 4.41E-07 .218
11: #
12: # format of output record (time in nanoseconds, signal values in dB)
13: # MJD sec time M W X Y Z
14: # 49228 36.852 175.0 -7.4 -16.4 -10.5 -9.0
15: #
16: # select LORAN TDATA records with valid format
17: {
18: if (NF >= 7 && $6 == "TDATA") {
19: m = w = x = y = z = -40.0
20: for (i = 7; i < NF - 5; i++) {
21: if ($i == "M" && $(i+1) == "OK") {
22: i += 5
23: m = $i
24: }
25: else if ($i == "W" && $(i+1) == "OK") {
26: i += 5
27: w = $i
28: }
29: else if ($i == "X" && $(i+1) == "OK") {
30: i += 5
31: x = $i
32: }
33: else if ($i == "Y" && $(i+1) == "OK") {
34: i += 5
35: y = $i
36: }
37: else if ($i == "Z" && $(i+1) == "OK") {
38: i += 5
39: z = $i
40: }
41: }
42: printf "%5s %9.3f %6.1f %6.1f %6.1f %6.1f %6.1f\n", $1, $2, m, w, x, y, z
43: }
44: }
45:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>