Return to tdata.awk CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / scripts / stats

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: