r4670: abartlet was worried about floating point precision with my first
[gd/samba-autobuild/.git] / source4 / lib / time.c
index d6c6396996136234ff06f68dc68c4944aa4f5418..fd005215a118c363a59fbce34442c8a086fa3875 100644 (file)
 */
 
 #include "includes.h"
+#include "system/time.h"
 
 #ifndef TIME_T_MIN
-#define TIME_T_MIN ((time_t)0 < (time_t) -1 ? (time_t) 0 \
-                   : ~ (time_t) 0 << (sizeof (time_t) * 8 - 1))
+#define TIME_T_MIN 0
 #endif
 #ifndef TIME_T_MAX
-#define TIME_T_MAX (~ (time_t) 0 - TIME_T_MIN)
+#define TIME_T_MAX (~(time_t)0)
 #endif
 
 /*******************************************************************
@@ -50,69 +50,30 @@ void GetTimeOfDay(struct timeval *tval)
 #endif
 }
 
-/*******************************************************************
-yield the difference between *A and *B, in seconds, ignoring leap seconds
-********************************************************************/
-static int tm_diff(struct tm *a, struct tm *b)
-{
-       int ay = a->tm_year + (1900 - 1);
-       int by = b->tm_year + (1900 - 1);
-       int intervening_leap_days =
-               (ay/4 - by/4) - (ay/100 - by/100) + (ay/400 - by/400);
-       int years = ay - by;
-       int days = 365*years + intervening_leap_days + (a->tm_yday - b->tm_yday);
-       int hours = 24*days + (a->tm_hour - b->tm_hour);
-       int minutes = 60*hours + (a->tm_min - b->tm_min);
-       int seconds = 60*minutes + (a->tm_sec - b->tm_sec);
 
-       return seconds;
-}
-
-/*******************************************************************
-  return the UTC offset in seconds west of UTC, or 0 if it cannot be determined
-  ******************************************************************/
-int get_time_zone(time_t t)
-{
-       struct tm *tm = gmtime(&t);
-       struct tm tm_utc;
-       if (!tm)
-               return 0;
-       tm_utc = *tm;
-       tm = localtime(&t);
-       if (!tm)
-               return 0;
-       return tm_diff(&tm_utc,tm);
-}
-
-#define TIME_FIXUP_CONSTANT (369.0*365.25*24*60*60-(3.0*24*60*60+6.0*60*60))
+#define TIME_FIXUP_CONSTANT 11644473600LL
 
 /****************************************************************************
 interpret an 8 byte "filetime" structure to a time_t
 It's originally in "100ns units since jan 1st 1601"
 ****************************************************************************/
-time_t nt_time_to_unix(const NTTIME *nt)
+time_t nt_time_to_unix(NTTIME nt)
 {
-       double d;
-       time_t ret;
-
-       if (nt->high == 0) {
+       if (nt == 0) {
                return 0;
        }
+       if (nt == -1LL) {
+               return (time_t)-1;
+       }
+       nt += 1000*1000*10/2;
+       nt /= 1000*1000*10;
+       nt -= TIME_FIXUP_CONSTANT;
 
-       d = ((double)nt->high)*4.0*(double)(1<<30);
-       d += (nt->low&0xFFF00000);
-       d *= 1.0e-7;
-       /* now adjust by 369 years to make the secs since 1970 */
-       d -= TIME_FIXUP_CONSTANT;
-
-       if (TIME_T_MIN >= d || d >= TIME_T_MAX) {
+       if (TIME_T_MIN >= nt || nt >= TIME_T_MAX) {
                return 0;
        }
 
-       ret = (time_t)(d+0.5);
-
-       return ret;
+       return (time_t)nt;
 }
 
 
@@ -122,50 +83,42 @@ This takes GMT as input
 ****************************************************************************/
 void unix_to_nt_time(NTTIME *nt, time_t t)
 {
-       double d;
+       uint64_t t2; 
 
-       if (t==0) {
-               nt->low = 0;
-               nt->high = 0;
-               return;
-       }
-       if (t == TIME_T_MAX) {
-               nt->low = 0xffffffff;
-               nt->high = 0x7fffffff;
+       if (t == (time_t)-1) {
+               *nt = (NTTIME)-1LL;
                return;
        }               
-       if (t == -1) {
-               nt->low = 0xffffffff;
-               nt->high = 0xffffffff;
+       if (t == 0) {
+               *nt = 0;
                return;
        }               
 
-       d = (double)(t);
-       d += TIME_FIXUP_CONSTANT;
-       d *= 1.0e7;
+       t2 = t;
+       t2 += TIME_FIXUP_CONSTANT;
+       t2 *= 1000*1000*10;
 
-       nt->high = (uint32)(d * (1.0/(4.0*(double)(1<<30))));
-       nt->low  = (uint32)(d - ((double)nt->high)*4.0*(double)(1<<30));
+       *nt = t2;
 }
 
 
 /****************************************************************************
-check if it's a null mtime
+check if it's a null unix time
 ****************************************************************************/
-BOOL null_mtime(time_t mtime)
+BOOL null_time(time_t t)
 {
-       return mtime == 0 || 
-               mtime == (time_t)0xFFFFFFFF || 
-               mtime == (time_t)-1;
+       return t == 0 || 
+               t == (time_t)0xFFFFFFFF || 
+               t == (time_t)-1;
 }
 
 /*******************************************************************
   create a 16 bit dos packed date
 ********************************************************************/
-static uint16 make_dos_date1(struct tm *t)
+static uint16_t make_dos_date1(struct tm *t)
 {
-       uint16 ret=0;
-       ret = (((unsigned)(t->tm_mon+1)) >> 3) | ((t->tm_year-80) << 1);
+       uint16_t ret=0;
+       ret = (((uint_t)(t->tm_mon+1)) >> 3) | ((t->tm_year-80) << 1);
        ret = ((ret&0xFF)<<8) | (t->tm_mday | (((t->tm_mon+1) & 0x7) << 5));
        return ret;
 }
@@ -173,10 +126,10 @@ static uint16 make_dos_date1(struct tm *t)
 /*******************************************************************
   create a 16 bit dos packed time
 ********************************************************************/
-static uint16 make_dos_time1(struct tm *t)
+static uint16_t make_dos_time1(struct tm *t)
 {
-       uint16 ret=0;
-       ret = ((((unsigned)t->tm_min >> 3)&0x7) | (((unsigned)t->tm_hour) << 3));
+       uint16_t ret=0;
+       ret = ((((uint_t)t->tm_min >> 3)&0x7) | (((uint_t)t->tm_hour) << 3));
        ret = ((ret&0xFF)<<8) | ((t->tm_sec/2) | ((t->tm_min & 0x7) << 5));
        return ret;
 }
@@ -185,10 +138,10 @@ static uint16 make_dos_time1(struct tm *t)
   create a 32 bit dos packed date/time from some parameters
   This takes a GMT time and returns a packed localtime structure
 ********************************************************************/
-static uint32 make_dos_date(time_t unixdate, int zone_offset)
+static uint32_t make_dos_date(time_t unixdate, int zone_offset)
 {
        struct tm *t;
-       uint32 ret=0;
+       uint32_t ret=0;
 
        if (unixdate == 0) {
                return 0;
@@ -211,9 +164,9 @@ static uint32 make_dos_date(time_t unixdate, int zone_offset)
 put a dos date into a buffer (time/date format)
 This takes GMT time and puts local time in the buffer
 ********************************************************************/
-void push_dos_date(char *buf, int offset, time_t unixdate, int zone_offset)
+void push_dos_date(uint8_t *buf, int offset, time_t unixdate, int zone_offset)
 {
-       uint32 x = make_dos_date(unixdate, zone_offset);
+       uint32_t x = make_dos_date(unixdate, zone_offset);
        SIVAL(buf,offset,x);
 }
 
@@ -221,9 +174,9 @@ void push_dos_date(char *buf, int offset, time_t unixdate, int zone_offset)
 put a dos date into a buffer (date/time format)
 This takes GMT time and puts local time in the buffer
 ********************************************************************/
-void push_dos_date2(char *buf,int offset,time_t unixdate, int zone_offset)
+void push_dos_date2(uint8_t *buf,int offset,time_t unixdate, int zone_offset)
 {
-       uint32 x;
+       uint32_t x;
        x = make_dos_date(unixdate, zone_offset);
        x = ((x&0xFFFF)<<16) | ((x&0xFFFF0000)>>16);
        SIVAL(buf,offset,x);
@@ -234,9 +187,9 @@ put a dos 32 bit "unix like" date into a buffer. This routine takes
 GMT and converts it to LOCAL time before putting it (most SMBs assume
 localtime for this sort of date)
 ********************************************************************/
-void push_dos_date3(char *buf,int offset,time_t unixdate, int zone_offset)
+void push_dos_date3(uint8_t *buf,int offset,time_t unixdate, int zone_offset)
 {
-       if (!null_mtime(unixdate)) {
+       if (!null_time(unixdate)) {
                unixdate -= zone_offset;
        }
        SIVAL(buf,offset,unixdate);
@@ -245,9 +198,9 @@ void push_dos_date3(char *buf,int offset,time_t unixdate, int zone_offset)
 /*******************************************************************
   interpret a 32 bit dos packed date/time to some parameters
 ********************************************************************/
-static void interpret_dos_date(uint32 date,int *year,int *month,int *day,int *hour,int *minute,int *second)
+static void interpret_dos_date(uint32_t date,int *year,int *month,int *day,int *hour,int *minute,int *second)
 {
-       uint32 p0,p1,p2,p3;
+       uint32_t p0,p1,p2,p3;
 
        p0=date&0xFF; p1=((date&0xFF00)>>8)&0xFF; 
        p2=((date&0xFF0000)>>16)&0xFF; p3=((date&0xFF000000)>>24)&0xFF;
@@ -264,9 +217,9 @@ static void interpret_dos_date(uint32 date,int *year,int *month,int *day,int *ho
   create a unix date (int GMT) from a dos date (which is actually in
   localtime)
 ********************************************************************/
-time_t pull_dos_date(const uint8 *date_ptr, int zone_offset)
+time_t pull_dos_date(const uint8_t *date_ptr, int zone_offset)
 {
-       uint32 dos_date=0;
+       uint32_t dos_date=0;
        struct tm t;
        time_t ret;
 
@@ -288,9 +241,9 @@ time_t pull_dos_date(const uint8 *date_ptr, int zone_offset)
 /*******************************************************************
 like make_unix_date() but the words are reversed
 ********************************************************************/
-time_t pull_dos_date2(const uint8 *date_ptr, int zone_offset)
+time_t pull_dos_date2(const uint8_t *date_ptr, int zone_offset)
 {
-       uint32 x,x2;
+       uint32_t x,x2;
 
        x = IVAL(date_ptr,0);
        x2 = ((x&0xFFFF)<<16) | ((x&0xFFFF0000)>>16);
@@ -303,10 +256,10 @@ time_t pull_dos_date2(const uint8 *date_ptr, int zone_offset)
   create a unix GMT date from a dos date in 32 bit "unix like" format
   these generally arrive as localtimes, with corresponding DST
   ******************************************************************/
-time_t pull_dos_date3(const uint8 *date_ptr, int zone_offset)
+time_t pull_dos_date3(const uint8_t *date_ptr, int zone_offset)
 {
        time_t t = (time_t)IVAL(date_ptr,0);
-       if (!null_mtime(t)) {
+       if (!null_time(t)) {
                t += zone_offset;
        }
        return t;
@@ -339,7 +292,24 @@ char *http_timestring(TALLOC_CTX *mem_ctx, time_t t)
        return buf;
 }
 
+/***************************************************************************
+return a LDAP time string
+  ***************************************************************************/
+char *ldap_timestring(TALLOC_CTX *mem_ctx, time_t t)
+{
+       struct tm *tm = gmtime(&t);
 
+       if (!tm) {
+               return NULL;
+       }
+
+       /* formatted like: 20040408072012.0Z */
+       return talloc_asprintf(mem_ctx, 
+                              "%04u%02u%02u%02u%02u%02u.0Z",
+                              tm->tm_year+1900, tm->tm_mon+1,
+                              tm->tm_mday, tm->tm_hour, tm->tm_min,
+                              tm->tm_sec);
+}
 
 /****************************************************************************
  Return the date and time as a string
@@ -358,6 +328,10 @@ char *timestring(TALLOC_CTX *mem_ctx, time_t t)
        }
 
 #ifdef HAVE_STRFTIME
+       /* some versions of gcc complain about using %c. This is a bug
+          in the gcc warning, not a bug in this code. See a recent
+          strftime() manual page for details.
+        */
        strftime(tempTime,sizeof(tempTime)-1,"%c %Z",tm);
        TimeBuf = talloc_strdup(mem_ctx, tempTime);
 #else
@@ -367,41 +341,208 @@ char *timestring(TALLOC_CTX *mem_ctx, time_t t)
        return TimeBuf;
 }
 
-/****************************************************************************
-check if NTTIME is 0
-****************************************************************************/
-BOOL nt_time_is_zero(NTTIME *nt)
-{
-       return (nt->high==0);
-}
-
 /*
   return a talloced string representing a NTTIME for human consumption
 */
-const char *nt_time_string(TALLOC_CTX *mem_ctx, const NTTIME *nt)
+const char *nt_time_string(TALLOC_CTX *mem_ctx, NTTIME nt)
 {
        time_t t = nt_time_to_unix(nt);
-       return talloc_strdup(mem_ctx, timestring(mem_ctx, t));
+       return timestring(mem_ctx, t);
 }
 
 
 /*
   put a NTTIME into a packet
 */
-void push_nttime(void *base, uint16 offset, NTTIME *t)
+void push_nttime(uint8_t *base, uint16_t offset, NTTIME t)
 {
-       SIVAL(base, offset,   t->low);
-       SIVAL(base, offset+4, t->high);
+       SBVAL(base, offset,   t);
 }
 
 /*
   pull a NTTIME from a packet
 */
-NTTIME pull_nttime(void *base, uint16 offset)
+NTTIME pull_nttime(uint8_t *base, uint16_t offset)
 {
-       NTTIME ret;
-       ret.low = IVAL(base, offset);
-       ret.high = IVAL(base, offset+4);
+       NTTIME ret = BVAL(base, offset);
        return ret;
 }
 
+/*
+  parse a nttime as a large integer in a string and return a NTTIME
+*/
+NTTIME nttime_from_string(const char *s)
+{
+       return strtoull(s, NULL, 0);
+}
+
+/*
+  return (tv1 - tv2) in microseconds
+*/
+int64_t usec_time_diff(struct timeval *tv1, struct timeval *tv2)
+{
+       int64_t sec_diff = tv1->tv_sec - tv2->tv_sec;
+       return (sec_diff * 1000000) + (int64_t)(tv1->tv_usec - tv2->tv_usec);
+}
+
+
+/*
+  return a zero timeval
+*/
+struct timeval timeval_zero(void)
+{
+       struct timeval tv;
+       tv.tv_sec = 0;
+       tv.tv_usec = 0;
+       return tv;
+}
+
+/*
+  return a timeval for the current time
+*/
+struct timeval timeval_current(void)
+{
+       struct timeval tv;
+       GetTimeOfDay(&tv);
+       return tv;
+}
+
+/*
+  return a timeval struct with the given elements
+*/
+struct timeval timeval_set(uint32_t secs, uint32_t usecs)
+{
+       struct timeval tv;
+       tv.tv_sec = secs;
+       tv.tv_usec = usecs;
+       return tv;
+}
+
+
+/*
+  return a timeval ofs microseconds after tv
+*/
+struct timeval timeval_add(struct timeval *tv, uint32_t secs, uint32_t usecs)
+{
+       struct timeval tv2 = *tv;
+       const uint_t million = 1000000;
+       tv2.tv_sec += secs;
+       tv2.tv_usec += usecs;
+       tv2.tv_sec += tv2.tv_usec / million;
+       tv2.tv_usec = tv2.tv_usec % million;
+       return tv2;
+}
+
+/*
+  return the sum of two timeval structures
+*/
+struct timeval timeval_sum(struct timeval *tv1, struct timeval *tv2)
+{
+       return timeval_add(tv1, tv2->tv_sec, tv2->tv_usec);
+}
+
+/*
+  return a timeval secs/usecs into the future
+*/
+struct timeval timeval_current_ofs(uint32_t secs, uint32_t usecs)
+{
+       struct timeval tv = timeval_current();
+       return timeval_add(&tv, secs, usecs);
+}
+
+/*
+  compare two timeval structures. 
+  Return 1 if tv2 > tv1
+  Return 0 if tv2 == tv1
+  Return -1 if tv2 < tv1
+*/
+int timeval_compare(struct timeval *tv1, struct timeval *tv2)
+{
+       if (tv2->tv_sec  > tv1->tv_sec)  return 1;
+       if (tv2->tv_sec  < tv1->tv_sec)  return -1;
+       if (tv2->tv_usec > tv1->tv_usec) return 1;
+       if (tv2->tv_usec < tv1->tv_usec) return -1;
+       return 0;
+}
+
+/*
+  return True if a timer is in the past
+*/
+BOOL timeval_expired(struct timeval *tv)
+{
+       struct timeval tv2 = timeval_current();
+       if (tv2.tv_sec > tv->tv_sec) return True;
+       if (tv2.tv_sec < tv->tv_sec) return False;
+       return (tv2.tv_usec >= tv->tv_usec);
+}
+
+/*
+  return the number of seconds elapsed between two times
+*/
+double timeval_elapsed2(struct timeval *tv1, struct timeval *tv2)
+{
+       return (tv2->tv_sec - tv1->tv_sec) + 
+              (tv2->tv_usec - tv1->tv_usec)*1.0e-6;
+}
+
+/*
+  return the number of seconds elapsed since a given time
+*/
+double timeval_elapsed(struct timeval *tv)
+{
+       struct timeval tv2 = timeval_current();
+       return timeval_elapsed2(tv, &tv2);
+}
+
+/*
+  return the lesser of two timevals
+*/
+struct timeval timeval_min(struct timeval *tv1, struct timeval *tv2)
+{
+       if (tv1->tv_sec < tv2->tv_sec) return *tv1;
+       if (tv1->tv_sec > tv2->tv_sec) return *tv2;
+       if (tv1->tv_usec < tv2->tv_usec) return *tv1;
+       return *tv2;
+}
+
+/*
+  return the greater of two timevals
+*/
+struct timeval timeval_max(struct timeval *tv1, struct timeval *tv2)
+{
+       if (tv1->tv_sec > tv2->tv_sec) return *tv1;
+       if (tv1->tv_sec < tv2->tv_sec) return *tv2;
+       if (tv1->tv_usec > tv2->tv_usec) return *tv1;
+       return *tv2;
+}
+
+/*
+  return the difference between two timevals as a timeval
+  if tv2 comes after tv1, then return a zero timeval
+  (this is *tv1 - *tv2)
+*/
+struct timeval timeval_diff(struct timeval *tv1, struct timeval *tv2)
+{
+       struct timeval t;
+       if (timeval_compare(tv1, tv2) >= 0) {
+               return timeval_zero();
+       }
+       t.tv_sec = tv1->tv_sec - tv2->tv_sec;
+       if (tv2->tv_usec > tv1->tv_usec) {
+               t.tv_sec--;
+               t.tv_usec = 1000000 - (tv2->tv_usec - tv1->tv_usec);
+       } else {
+               t.tv_usec = tv1->tv_usec - tv2->tv_usec;
+       }
+       return t;
+}
+
+
+/*
+  convert a timeval to a NTTIME
+*/
+NTTIME timeval_to_nttime(struct timeval *tv)
+{
+       return 10*(tv->tv_usec + 
+                 ((TIME_FIXUP_CONSTANT + (uint64_t)tv->tv_sec) * 1000000));
+}