libs/basekit/source/Date.c

   1 /*#io
   2 docCopyright("Steve Dekorte", 2002)
   3 docLicense("BSD revised")
   4 */
   5
   6 #define DATE_C
   7 #include "Date.h"
   8 #undef DATE_C
   9 #include <stdlib.h>
  10 #include <stdio.h>
  11 #include <string.h>
  12 #include <time.h>
  13 #include <math.h>
  14 #include "PortableStrptime.h"
  15 #include "UArray.h"
  16
  17 Date *Date_new(void)
  18 {
  19         Date *self = (Date *)io_calloc(1, sizeof(Date));
  20         Date_now(self);
  21         return self;
  22 }
  23
  24 void Date_copy_(Date *self, const Date *other)
  25 {
  26         memcpy(self, other, sizeof(Date));
  27 }
  28
  29 void Date_free(Date *self)
  30 {
  31         io_free(self);
  32 }
  33
  34 int Date_compare(const Date *self, const Date *other)
  35 {
  36         double s1 = Date_asSeconds(self);
  37         double s2 = Date_asSeconds(other);
  38
  39         if (s1 == s2)
  40         {
  41                 return 0;
  42         }
  43
  44         return s1 > s2 ? 1 : -1;
  45 }
  46
  47 double Date_SecondsFrom1970ToNow(void)
  48 {
  49         double s, us;
  50         struct timeval timeval;
  51         struct timezone timezone;
  52
  53         gettimeofday(&timeval, &timezone);
  54         s = timeval.tv_sec;
  55         //s -= timezone.tz_minuteswest * 60;
  56         us = timeval.tv_usec;
  57
  58         return s + (us/1000000.0); /* + (60*60);*/
  59 }
  60
  61 void Date_now(Date *self)
  62 {
  63         double s, us;
  64         struct timeval timeval;
  65         struct timezone timezone;
  66
  67         gettimeofday(&timeval, &timezone);
  68         s = timeval.tv_sec;
  69         s -= timezone.tz_minuteswest * 60;
  70         us = timeval.tv_usec;
  71
  72         self->tv = timeval;
  73         self->tz = timezone;
  74 }
  75
  76 double Date_Clock(void)
  77 {
  78         return ((double)clock())/((double)CLOCKS_PER_SEC);
  79 }
  80
  81 // zone --------------------------------------------------------
  82
  83 void Date_setToLocalTimeZone(Date *self)
  84 {
  85         struct timeval timeval;
  86         gettimeofday(&timeval, &(self->tz));
  87 }
  88
  89 struct timezone Date_timeZone(const Date *self)
  90 {
  91         return self->tz;
  92 }
  93
  94 void Date_setTimeZone_(Date *self, struct timezone tz)
  95 {
  96         self->tz = tz;
  97 }
  98
  99 void Date_convertToTimeZone_(Date *self, struct timezone tz)
 100 {
 101         double s = Date_asSeconds(self) +
 102         ((self->tz.tz_minuteswest - tz.tz_minuteswest) * 60);
 103         Date_fromSeconds_(self, s);
 104         Date_setTimeZone_(self, tz);
 105 }
 106
 107 // time --------------------------------------------------------
 108
 109 void Date_fromLocalTime_(Date *self, struct tm *t)
 110 {
 111         Date_fromTime_(self, mktime(t));
 112 }
 113
 114 void Date_fromTime_(Date *self, time_t t)
 115 {
 116         Date_fromSeconds_(self, (double)t);
 117 }
 118
 119 time_t Date_asTime(const Date *self)
 120 {
 121         return (time_t)self->tv.tv_sec;
 122 }
 123
 124 // sconds --------------------------------------------------------
 125
 126 double Date_asSeconds(const Date *self)
 127 {
 128         return ((double)self->tv.tv_sec) + (((double)self->tv.tv_usec) / 1000000.0);
 129 }
 130
 131 void Date_fromSeconds_(Date *self, double s)
 132 {
 133         long secs = s;
 134         self->tv.tv_sec = secs;
 135         self->tv.tv_usec = (s - secs)*1000000;
 136 }
 137
 138 void Date_addSeconds_(Date *self, double s)
 139 {
 140         long secs = s;
 141         self->tv.tv_sec += secs;
 142         self->tv.tv_usec += (s - secs)*1000000;
 143 }
 144
 145 double Date_secondsSince_(const Date *self, const Date *other)
 146 {
 147         return Date_asSeconds(self) - Date_asSeconds(other);
 148 }
 149
 150 // components --------------------------------------------------------
 151
 152 long Date_year(const Date *self)
 153 {
 154         time_t t = self->tv.tv_sec;
 155         struct tm *tm = localtime(&t);
 156         return tm->tm_year + 1900;
 157 }
 158
 159 void Date_setYear_(Date *self, long v)
 160 {
 161         time_t t = self->tv.tv_sec;
 162         struct tm *tm = localtime(&t);
 163         tm->tm_year = v - 1900;
 164         self->tv.tv_sec = mktime(tm);
 165 }
 166
 167 int Date_month(const Date *self)
 168 {
 169         time_t t = self->tv.tv_sec;
 170         struct tm *tm = localtime(&t);
 171         return tm->tm_mon;
 172 }
 173
 174 void Date_setMonth_(Date *self, int v)
 175 {
 176         time_t t = self->tv.tv_sec;
 177         struct tm *tm = localtime(&t);
 178         tm->tm_mon = v;
 179         self->tv.tv_sec = mktime(tm);
 180 }
 181
 182 int Date_day(const Date *self)
 183 {
 184         time_t t = self->tv.tv_sec;
 185         struct tm *tm = localtime(&t);
 186         return tm->tm_mday;
 187 }
 188
 189 void Date_setDay_(Date *self, int v)
 190 {
 191         time_t t = self->tv.tv_sec;
 192         struct tm *tm = localtime(&t);
 193         tm->tm_mday = v;
 194         self->tv.tv_sec = mktime(tm);
 195 }
 196
 197 int Date_hour(const Date *self)
 198 {
 199         time_t t = self->tv.tv_sec;
 200         struct tm *tm = localtime(&t);
 201         return tm->tm_hour;
 202 }
 203
 204 void Date_setHour_(Date *self, int v)
 205 {
 206         time_t t = self->tv.tv_sec;
 207         struct tm *tm = localtime(&t);
 208         tm->tm_hour = v;
 209         self->tv.tv_sec = mktime(tm);
 210 }
 211
 212 int Date_minute(const Date *self)
 213 {
 214         time_t t = self->tv.tv_sec;
 215         struct tm *tm = localtime(&t);
 216         return tm->tm_min;
 217 }
 218
 219 void Date_setMinute_(Date *self, int v)
 220 {
 221         time_t t = self->tv.tv_sec;
 222         struct tm *tm = localtime(&t);
 223         tm->tm_min = v;
 224         self->tv.tv_sec = mktime(tm);
 225 }
 226
 227 double Date_second(const Date *self)
 228 {
 229         time_t t = self->tv.tv_sec;
 230         struct tm *tm = localtime(&t);
 231         return ((double)tm->tm_sec) + ((double)self->tv.tv_usec)/1000000.0;
 232 }
 233
 234 void Date_setSecond_(Date *self, double v)
 235 {
 236         time_t t = self->tv.tv_sec;
 237         struct tm *tm = localtime(&t);
 238         tm->tm_sec = v;
 239         self->tv.tv_sec = mktime(tm);
 240         self->tv.tv_usec = (v - ((long)v))*1000000;
 241 }
 242
 243 unsigned char Date_isDaylightSavingsTime(const Date *self)
 244 {
 245         time_t t = self->tv.tv_sec;
 246         struct tm *tm = localtime(&t);
 247         return (unsigned char)tm->tm_isdst;
 248 }
 249
 250 int Date_isLeapYear(const Date *self)
 251 {
 252         int year = Date_year(self);
 253
 254         if (((year % 4 == 0) && (year % 100 != 0)) || (year % 400 == 0))
 255         {
 256                 return 1;
 257         }
 258         else
 259         {
 260                 return 0;
 261         }
 262 }
 263
 264 // format --------------------------------------------------------
 265
 266 static struct tm EmptyTM(void)
 267 {
 268         time_t tmp = 0;
 269         struct tm *tt = localtime(&tmp);
 270         struct tm t;
 271
 272         memcpy(&t, tt, sizeof(struct tm));
 273         t.tm_sec  = 0;
 274         t.tm_min  = 0;
 275         t.tm_hour = 0;
 276         t.tm_mday = 0;
 277         t.tm_mon  = 0;
 278         t.tm_year = 0;
 279         t.tm_wday = 0;
 280         t.tm_yday = 0;
 281         return t;
 282 }
 283
 284 void Date_fromString_format_(Date *self, const char *s, const char *format)
 285 {
 286         struct tm tm = EmptyTM();
 287         io_strptime((char *)s, (char *)format, &tm);
 288         /*
 289         printf("year  = %i\n", t.tm_year);
 290         printf("month = %i\n", t.tm_mon);
 291         printf("day   = %i\n", t.tm_mday);
 292         printf("hour  = %i\n", t.tm_hour);
 293         printf("min   = %i\n", t.tm_min);
 294         printf("sec   = %i\n", t.tm_sec);
 295         */
 296         Date_fromSeconds_(self, mktime(&tm));
 297 }
 298
 299 // durations --------------------------------------------------------
 300
 301 Duration *Date_newDurationBySubtractingDate_(const Date *self, const Date *other)
 302 {
 303         double d = Date_secondsSince_(self, other);
 304         return Duration_newWithSeconds_(d);
 305 }
 306
 307 void Date_addDuration_(Date *self, const Duration *d)
 308 {
 309         Date_addSeconds_(self, Duration_asSeconds(d));
 310 }
 311
 312 void Date_subtractDuration_(Date *self, const Duration *d)
 313 {
 314         Date_addSeconds_(self, -Duration_asSeconds(d));
 315 }
 316
 317 // -----------------------------------------------------------
 318
 319 double Date_secondsSinceNow(const Date *self)
 320 {
 321         double n = Date_SecondsFrom1970ToNow();
 322         double s = Date_asSeconds(self);
 323         return n - s;
 324 }
 325
 326 // format --------------------------------------------------------
 327
 328 UArray *Date_asString(const Date *self, const char *format)
 329 {
 330         UArray *u = UArray_new();
 331         time_t t = self->tv.tv_sec;
 332         struct tm *tm = localtime(&t);
 333
 334         // what about unicode formats?
 335         UArray_setSize_(u, 1024 + strlen(format));
 336         strftime((char *)UArray_bytes(u), 1024, format, tm);
 337         UArray_setSize_(u, strlen((char *)UArray_bytes(u)));
 338
 339         return u;
 340 }