Return to calc_tickadj.in CVS log

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

Annotation of embedaddon/ntp/scripts/calc_tickadj.in, revision 1.1.1.1

1.1       misho       1: #! @PATH_PERL@
                      2: #
                      3: # drift of 104.8576 -> +1 tick.  Base  of 10000 ticks.
                      4: #
                      5: # 970306 HMS Deal with nanoseconds.  Fix sign of adjustments.
                      6: 
                      7: $df="/etc/ntp.drift";
                      8: # Assumes a 100Hz box with "tick" of 10000
                      9: # Someday, we might call "tickadj" for better values...
                     10: $base=10000;   # tick: 1,000,000 / HZ
                     11: $cvt=104.8576; # 2 ** 20 / $base
                     12: $v1=0.;
                     13: $v2="";
                     14: 
                     15: if (open(DF, $df))
                     16:   {
                     17:     if ($_=<DF>)
                     18:       {
                     19:         ($v1, $v2) = split;
                     20:       }
                     21: 
                     22:     while ($v1 < 0)
                     23:       {
                     24:         $v1 += $cvt;
                     25:         $base--;
                     26:       }
                     27: 
                     28:     while ($v1 > $cvt)
                     29:       {
                     30:         $v1 -= $cvt;
                     31:         $base++;
                     32:       }
                     33:   }
                     34: 
                     35: printf("%.3f (drift)\n", $v1);
                     36: 
                     37: printf("%d usec; %d nsec\n", $base, ($base + ($v1/$cvt)) * 1000);
                     38: