home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / src / vmstime.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  9KB  |  377 lines
  1. /* Time support for VMS.
  2.    Copyright (C) 1993 Free Software Foundation.
  3.  
  4. This file is part of GNU Emacs.
  5.  
  6. GNU Emacs is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. GNU Emacs is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU Emacs; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include <config.h>
  21. #include "vmstime.h"
  22.  
  23. long timezone=0;
  24. int daylight=0;
  25.  
  26. static char tzname_default[20]="";
  27. static char tzname_dst[20]="";
  28.  
  29. char *tzname[2] = { tzname_default, tzname_dst };
  30.  
  31. static long internal_daylight=0;
  32. static char daylight_set=0;
  33.  
  34. static long read_time(const char *nptr, const char **endptr,
  35.               int sign_allowed_p)
  36. {
  37.   int t;
  38.  
  39.   *endptr = nptr;
  40.  
  41.   /* This routine trusts the user very much, and does no checks!
  42.       The only exception is this: */
  43.   if (!sign_allowed_p && (*nptr == '-' || *nptr == '+'))
  44.     return 0;
  45.  
  46.   t = strtol(*endptr, endptr, 10) * 3600;
  47.   if (**endptr != ':' || **endptr == '+' || **endptr == '-')
  48.     return t;
  49.   (*endptr)++;
  50.  
  51.   t = t + strtol(*endptr, endptr, 10) * 60;
  52.   if (**endptr != ':' || **endptr == '+' || **endptr == '-')
  53.     return t;
  54.   (*endptr)++;
  55.  
  56.   return t + strtol(*endptr, endptr, 10);
  57. }
  58.  
  59. static void read_dst_time(const char *nptr, const char **endptr,
  60.               int *m, int *n, int *d,
  61.               int *leap_p)
  62. {
  63.   time_t bintim = time(0);
  64.   struct tm *lc = localtime(&bintim);
  65.  
  66.   *leap_p = 1;
  67.   *m = 0;            /* When m and n are 0, a Julian */
  68.   *n = 0;            /* date has been inserted in d */
  69.  
  70.   switch(*nptr)
  71.     {
  72.     case 'M':
  73.       {
  74.     /* This routine counts on the user to have specified "Mm.n.d",
  75.        where 1 <= n <= 5, 1 <= m <= 12, 0 <= d <= 6 */
  76.  
  77.     *m = strtol(++nptr, endptr, 10);
  78.     (*endptr)++;        /* Skip the dot */
  79.     *n = strtol(*endptr, endptr, 10);
  80.     (*endptr)++;        /* Skip the dot */
  81.     *d = strtol(*endptr, endptr, 10);
  82.  
  83.     return;
  84.       }
  85.     case 'J':
  86.       *leap_p = 0;        /* Never count with leap years */
  87.     default: /* trust the user to have inserted a number! */
  88.       *d = strtol(++nptr, endptr, 10);
  89.       return;
  90.     }
  91. }
  92.  
  93. struct vms_vectim
  94. {
  95.   short year, month, day, hour, minute, second, centi_second;
  96. };
  97. static void find_dst_time(int m, int n, long d,
  98.               int hour, int minute, int second,
  99.               int leap_p,
  100.               long vms_internal_time[2])
  101. {
  102.   long status = SYS$GETTIM(vms_internal_time);
  103.   struct vms_vectim vms_vectime;
  104.   status = SYS$NUMTIM(&vms_vectime, vms_internal_time);
  105.  
  106.   if (m == 0 && n == 0)
  107.     {
  108.       long tmp_vms_internal_time[2][2];
  109.       long day_of_year;
  110.       long tmp_operation = LIB$K_DAY_OF_YEAR;
  111.  
  112.       status = LIB$CVT_FROM_INTERNAL_TIME(&tmp_operation, &day_of_year,
  113.                       vms_internal_time);
  114.       
  115.       vms_vectime.month = 2;
  116.       vms_vectime.day = 29;
  117.       status = LIB$CVT_VECTIM(&vms_vectime, tmp_vms_internal_time[0]);
  118.       if (status & 1) /* This is a leap year */
  119.     {
  120.       if (!leap_p && d > 59)
  121.         d ++;        /* If we don't count with 29th Feb,
  122.                    and this is a leap year, count up,
  123.                    to make day 60 really become the
  124.                    1st March. */
  125.     }
  126.       /* 1st January, at midnight */
  127.       vms_vectime.month = 1;
  128.       vms_vectime.day = 1;
  129.       vms_vectime.hour = hour;
  130.       vms_vectime.minute = minute;
  131.       vms_vectime.second = second;
  132.       vms_vectime.centi_second = 0;
  133.       status = LIB$CVT_VECTIM(&vms_vectime, tmp_vms_internal_time[0]);
  134.       tmp_operation = LIB$K_DELTA_DAYS;
  135.       status = LIB$CVT_TO_INTERNAL_TIME(&tmp_operation, &d,
  136.                     tmp_vms_internal_time[1]);
  137.       /* now, tmp_vms_interval_time[0] contains 1st Jan, 00:00:00,
  138.      and  tmp_vms_interval_time[1] contains delta time +d days.
  139.      Let's just add them together */
  140.       status = LIB$ADD_TIMES(tmp_vms_internal_time[0],
  141.                  tmp_vms_internal_time[1],
  142.                  vms_internal_time);
  143.     }
  144.   else
  145.     {
  146.       long tmp_vms_internal_time[2];
  147.       long day_of_week;
  148.       long tmp_operation = LIB$K_DAY_OF_YEAR;
  149.  
  150.       if (d == 0) /* 0 is Sunday, which isn't compatible with VMS,
  151.              where day_of_week is 1 -- 7, and 1 is Monday */
  152.     {
  153.       d = 7; /* So a simple conversion is required */
  154.     }
  155.       vms_vectime.month = m;
  156.       vms_vectime.day = 1;
  157.       vms_vectime.hour = hour;
  158.       vms_vectime.minute = minute;
  159.       vms_vectime.second = second;
  160.       vms_vectime.centi_second = 0;
  161.       status = LIB$CVT_VECTIM(&vms_vectime, tmp_vms_internal_time);
  162.       tmp_operation = LIB$K_DAY_OF_WEEK;
  163.       status = LIB$CVT_FROM_INTERNAL_TIME(&tmp_operation, &day_of_week,
  164.                       tmp_vms_internal_time);
  165.       d -= day_of_week;
  166.       if (d < 0)
  167.     {
  168.       d += 7;
  169.     }
  170.       vms_vectime.day += (n-1)*7 + d;
  171.       status = LIB$CVT_VECTIM(&vms_vectime, vms_internal_time);
  172.       if (!(status & 1))
  173.     {
  174.       vms_vectime.day -= 7;    /* n was probably 5 */
  175.       status = LIB$CVT_VECTIM(&vms_vectime, vms_internal_time);
  176.     }
  177.     }
  178. }
  179.  
  180. static cmp_vms_internal_times(long vms_internal_time1[2],
  181.                   long vms_internal_time2[2])
  182. {
  183.   if (vms_internal_time1[1] < vms_internal_time2[1])
  184.     return -1;
  185.   else
  186.     if (vms_internal_time1[1] > vms_internal_time2[1])
  187.       return 1;
  188.  
  189.   if (vms_internal_time1[0] < vms_internal_time2[0])
  190.     return -1;
  191.   else
  192.     if (vms_internal_time1[0] > vms_internal_time2[0])
  193.       return 1;
  194.  
  195.   return 0;
  196. }
  197.  
  198. /* -------------------------- Global routines ------------------------------ */
  199.  
  200. #ifdef tzset
  201. #undef tzset
  202. #endif
  203. void sys_tzset()
  204. {
  205.   char *TZ;
  206.   char *p, *q;
  207.  
  208.   if (daylight_set)
  209.     return;
  210.  
  211.   daylight = 0;
  212.  
  213.   if ((TZ = getenv("TZ")) == 0)
  214.     return;
  215.  
  216.   p = TZ;
  217.   q = tzname[0];
  218.  
  219.   while(*p != '\0'
  220.     && (*p <'0' || *p > '9') && *p != '-' && *p != '+' && *p != ',')
  221.     *q++ = *p++;
  222.   *q = '\0';
  223.  
  224.   /* This is special for VMS, so I don't care if it doesn't exist anywhere
  225.      else */
  226.  
  227.   timezone = read_time(p, &p, 1);
  228.  
  229.   q = tzname[1];
  230.  
  231.   while(*p != '\0'
  232.     && (*p <'0' || *p > '9') && *p != '-' && *p != '+' && *p != ',')
  233.     *q++ = *p++;
  234.   *q = '\0';
  235.  
  236.   if (*p != '-' && *p != '+' && !(*p >='0' && *p <= '9'))
  237.     internal_daylight = timezone - 3600;
  238.   else
  239.     internal_daylight = read_time(p, &p, 1);
  240.  
  241.   if (*p == ',')
  242.     {
  243.       int start_m;
  244.       int start_n;
  245.       int start_d;
  246.       int start_leap_p;
  247.       int start_hour=2, start_minute=0, start_second=0;
  248.  
  249.       p++;
  250.       read_dst_time(p, &p, &start_m, &start_n, &start_d, &start_leap_p);
  251.       if (*p == '/')
  252.     {
  253.       long tmp = read_time (++p, &p, 0);
  254.       start_hour = tmp / 3600;
  255.       start_minute = (tmp % 3600) / 60;
  256.       start_second = tmp % 60;
  257.     }
  258.       if (*p == ',')
  259.     {
  260.       int end_m;
  261.       int end_n;
  262.       int end_d;
  263.       int end_leap_p;
  264.       int end_hour=2, end_minute=0, end_second=0;
  265.  
  266.       p++;
  267.       read_dst_time(p, &p, &end_m, &end_n, &end_d, &end_leap_p);
  268.       if (*p == '/')
  269.         {
  270.           long tmp = read_time (++p, &p, 0);
  271.           end_hour = tmp / 3600;
  272.           end_minute = (tmp % 3600) / 60;
  273.           end_second = tmp % 60;
  274.         }
  275.       {
  276.         long vms_internal_time[3][2];
  277.         find_dst_time(start_m, start_n, start_d,
  278.               start_hour, start_minute, start_second,
  279.               start_leap_p,
  280.               vms_internal_time[0]);
  281.         SYS$GETTIM(&vms_internal_time[1]);
  282.         find_dst_time(end_m, end_n, end_d,
  283.               end_hour, end_minute, end_second,
  284.               end_leap_p,
  285.               vms_internal_time[2]);
  286.         if (cmp_vms_internal_times(vms_internal_time[0],
  287.                       vms_internal_time[1]) < 0
  288.         && cmp_vms_internal_times(vms_internal_time[1],
  289.                      vms_internal_time[2]) < 0)
  290.           daylight = 1;
  291.       }
  292.     }
  293.     }
  294. }  
  295.  
  296. #ifdef localtime
  297. #undef localtime
  298. #endif
  299. struct tm *sys_localtime(time_t *clock)
  300. {
  301.   struct tm *tmp = localtime(clock);
  302.  
  303.   sys_tzset();
  304.   tmp->tm_isdst = daylight;
  305.  
  306.   return tmp;
  307. }
  308.  
  309. #ifdef gmtime
  310. #undef gmtime
  311. #endif
  312. struct tm *sys_gmtime(time_t *clock)
  313. {
  314.   static struct tm gmt;
  315.   struct vms_vectim tmp_vectime;
  316.   long vms_internal_time[3][2];
  317.   long tmp_operation = LIB$K_DELTA_SECONDS;
  318.   long status;
  319.   long tmp_offset;
  320.   char tmp_o_sign;
  321.  
  322.   sys_tzset();
  323.   
  324.   if (daylight)
  325.     tmp_offset = internal_daylight;
  326.   else
  327.     tmp_offset = timezone;
  328.  
  329.   if (tmp_offset < 0)
  330.     {
  331.       tmp_o_sign = -1;
  332.       tmp_offset = -tmp_offset;
  333.     }
  334.   else
  335.     tmp_o_sign = 1;
  336.  
  337.   status = LIB$CVT_TO_INTERNAL_TIME(&tmp_operation, &tmp_offset,
  338.                     vms_internal_time[1]);
  339.   status = SYS$GETTIM(vms_internal_time[0]);
  340.   if (tmp_o_sign < 0)
  341.     {
  342.       status = LIB$SUB_TIMES(vms_internal_time[0],
  343.                  vms_internal_time[1],
  344.                  vms_internal_time[2]);
  345.     }
  346.   else
  347.     {
  348.       status = LIB$ADD_TIMES(vms_internal_time[0],
  349.                  vms_internal_time[1],
  350.                  vms_internal_time[2]);
  351.     }
  352.  
  353.   status = SYS$NUMTIM(&tmp_vectime, vms_internal_time[2]);
  354.   gmt.tm_sec = tmp_vectime.second;
  355.   gmt.tm_min = tmp_vectime.minute;
  356.   gmt.tm_hour = tmp_vectime.hour;
  357.   gmt.tm_mday = tmp_vectime.day;
  358.   gmt.tm_mon = tmp_vectime.month - 1;
  359.   gmt.tm_year = tmp_vectime.year % 100;
  360.  
  361.   tmp_operation = LIB$K_DAY_OF_WEEK;
  362.   status = LIB$CVT_FROM_INTERNAL_TIME(&tmp_operation,
  363.                       &gmt.tm_wday,
  364.                       vms_internal_time[2]);
  365.   if (gmt.tm_wday == 7) gmt.tm_wday = 0;
  366.  
  367.   tmp_operation = LIB$K_DAY_OF_YEAR;
  368.   status = LIB$CVT_FROM_INTERNAL_TIME(&tmp_operation,
  369.                       &gmt.tm_yday,
  370.                       vms_internal_time[2]);
  371.   gmt.tm_yday--;
  372.   gmt.tm_isdst = daylight;
  373.  
  374.   return &gmt;
  375. }
  376.  
  377.