ltimevalstuff.inc

   1 { Copyright (C) 2005 Bas Steendijk and Peter Green\r
   2   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
   3   which is included in the package\r
   4   ----------------------------------------------------------------------------- }\r
   5 \r
   6 \r
   7 \r
   8 {add nn msec to tv}\r
   9 const\r
  10   tv_invalidtimebig : ttimeval = (tv_sec:maxlongint;tv_usec:maxlongint);\r
  11   //tv_invalidtimebig will always compare as greater than any valid timeval\r
  12 procedure tv_add(var tv:ttimeval;msec:integer);//{ $ifdef fpc}inline;{ $endif}\r
  13 begin\r
  14   inc(tv.tv_usec,msec*1000);\r
  15   inc(tv.tv_sec,tv.tv_usec div 1000000);\r
  16   tv.tv_usec := tv.tv_usec mod 1000000;\r
  17 end;\r
  18 \r
  19 {tv1 >= tv2}\r
  20 function tv_compare(const tv1,tv2:ttimeval):boolean;//{ $ifdef fpc}inline;{ $endif}\r
  21 begin\r
  22   if tv1.tv_sec = tv2.tv_sec then begin\r
  23     result := tv1.tv_usec >= tv2.tv_usec;\r
  24   end else result := tv1.tv_sec > tv2.tv_sec;\r
  25 end;\r
  26 \r
  27 procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);//{ $ifdef fpc}inline;{ $endif}\r
  28 begin\r
  29   dec(tv.tv_usec,tv2.tv_usec);\r
  30   if tv.tv_usec < 0 then begin\r
  31     inc(tv.tv_usec,1000000);\r
  32     dec(tv.tv_sec)\r
  33   end;\r
  34   dec(tv.tv_sec,tv2.tv_sec);\r
  35 end;\r
  36 \r
  37 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
  38 begin\r
  39   tv.tv_sec := msec div 1000;\r
  40   tv.tv_usec := (msec mod 1000)*1000;\r
  41 end;\r
  42 \r