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