src/lisp/time.c

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 /* Time support routines that are easier to do in C then in lisp. */
   9
  10 #include <stdio.h>
  11 #include <time.h>
  12 #include "lisp.h"
  13
  14 void
  15 get_timezone(time_t when, int *minwest, boolean * dst)
  16 {
  17     struct tm ltm, gtm;
  18     int mw;
  19
  20     ltm = *localtime(&when);
  21     gtm = *gmtime(&when);
  22
  23     mw = ((gtm.tm_hour * 60) + gtm.tm_min) - ((ltm.tm_hour * 60) + ltm.tm_min);
  24     if ((gtm.tm_wday + 1) % 7 == ltm.tm_wday)
  25         mw -= 24 * 60;
  26     else if (gtm.tm_wday == (ltm.tm_wday + 1) % 7)
  27         mw += 24 * 60;
  28     *minwest = mw;
  29     *dst = ltm.tm_isdst;
  30 }