#include "all.h" #include "mem.h" Timet toytime(void) { return mktime + TK2SEC(MACHP(0)->ticks); } #define SEC2MIN 60L #define SEC2HOUR (60L*SEC2MIN) #define SEC2DAY (24L*SEC2HOUR) /* * days per month plus days/year */ int rtdmsize[] = { 365, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; int rtldmsize[] = { 366, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; /* * return the days/month for the given year */ int* yrsize(int y) { if((y%4) == 0 && ((y%100) != 0 || (y%400) == 0)) return rtldmsize; else return rtdmsize; } void sec2rtc(Timet secs, Rtc *rtc) { int d, *d2m; Timet hms, day; /* * break initial number into days */ hms = (uvlong)secs % SEC2DAY; day = (uvlong)secs / SEC2DAY; if(hms < 0) { hms += SEC2DAY; day -= 1; } /* * generate hours:minutes:seconds */ rtc->sec = hms % 60; d = hms / 60; rtc->min = d % 60; d /= 60; rtc->hour = d; /* * year number */ if(day >= 0) for(d = 1970; day >= *yrsize(d); d++) day -= *yrsize(d); else for(d = 1970; day < 0; d--) day += *yrsize(d-1); rtc->year = d; /* * generate month */ d2m = yrsize(rtc->year); for(d = 1; day >= d2m[d]; d++) day -= d2m[d]; rtc->mday = day + 1; rtc->mon = d; } Timet rtc2sec(Rtc *rtc) { Timet secs; int i, *d2m; secs = 0; /* * seconds per year */ for(i = 1970; i < rtc->year; i++) { d2m = yrsize(i); secs += d2m[0] * SEC2DAY; } /* * seconds per month */ d2m = yrsize(rtc->year); for(i = 1; i < rtc->mon; i++) secs += d2m[i] * SEC2DAY; secs += (rtc->mday-1) * SEC2DAY; secs += rtc->hour * SEC2HOUR; secs += rtc->min * SEC2MIN; secs += rtc->sec; return secs; } Timet time(void) { Timet t, dt; t = toytime(); while(tim.bias != 0) { /* adjust at rate 1 sec/min */ dt = t - tim.lasttoy; if(dt < MINUTE(1)) break; if(tim.bias >= 0) { tim.bias -= SECOND(1); tim.offset += SECOND(1); } else { tim.bias += SECOND(1); tim.offset -= SECOND(1); } tim.lasttoy += MINUTE(1); } return t + tim.offset; } void settime(Timet nt) { Timet dt; dt = nt - time(); tim.lasttoy = toytime(); if(dt > MAXBIAS || dt < -MAXBIAS) { /* too much, just set it */ tim.bias = 0; tim.offset = nt - tim.lasttoy; } else tim.bias = dt; } void prdate(void) { Timet t; t = time(); if(tim.bias >= 0) print("%T + %ld\n", t, tim.bias); else print("%T - %ld\n", t, -tim.bias); } static int dysize(int); static void ct_numb(char*, int); void localtime(Timet, Tm*); void gmtime(Timet, Tm*); static char dmsize[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; /* * The following table is used for 1974 and 1975 and * gives the day number of the first day after the Sunday of the * change. */ static struct { short yrfrom; short yrto; short daylb; short dayle; } daytab[] = { 107, ~(ushort)0>>1, 66, 310, 87, 106, 90, 303, 76, 86, 119, 303, 75, 75, 58, 303, 74, 74, 5, 333, -1, 73, 119, 303, }; static prevsunday(Tm *t, int d) { if(d >= 58) d += dysize(t->year) - 365; return d - (d - t->yday + t->wday + 700) % 7; } static succsunday(Tm *t, int d) { int dd; if(d >= 58) d += dysize(t->year) - 365; dd = (d - t->yday + t->wday + 700) % 7; if(dd == 0) return d; else return d + 7 - dd; } void localtime(Timet tim, Tm *ct) { int daylbegin, daylend, dayno, i; Timet copyt; copyt = tim - conf.minuteswest*60L; gmtime(copyt, ct); dayno = ct->yday; /* enforce sane bounds for daytab */ if (ct->year < -1) /* 1 jan 1970 00:00 GMT can be 31 dec 1969 locally */ ct->year = -1; else if (ct->year > 60000) ct->year = 60000; for(i = 0; ; i++) if(ct->year >= daytab[i].yrfrom && ct->year <= daytab[i].yrto) { daylbegin = succsunday(ct, daytab[i].daylb); daylend = prevsunday(ct, daytab[i].dayle); break; } if(conf.dsttime && (dayno>daylbegin || (dayno==daylbegin && ct->hour >= 2)) && (daynohour < 1))) { copyt += 60L*60L; gmtime(copyt, ct); ct->isdst++; } } void gmtime(Timet tim, Tm *ct) { int d0, d1; Timet hms, day; /* * break initial number into days */ hms = (uvlong)tim % 86400L; day = (uvlong)tim / 86400L; if(hms < 0) { hms += 86400L; day -= 1; } /* * generate hours:minutes:seconds */ ct->sec = hms % 60; d1 = hms / 60; ct->min = d1 % 60; d1 /= 60; ct->hour = d1; /* * day is the day number. * generate day of the week. * The addend is 4 mod 7 (1/1/1970 was Thursday) */ ct->wday = (day + 7340036L) % 7; /* * year number */ if(day >= 0) for(d1 = 1970; day >= dysize(d1); d1++) day -= dysize(d1); else for(d1 = 1970; day < 0; d1--) day += dysize(d1-1); ct->year = d1-1900; ct->yday = d0 = day; /* * generate month */ if(dysize(d1) == 366) dmsize[1] = 29; for(d1 = 0; d0 >= dmsize[d1]; d1++) d0 -= dmsize[d1]; dmsize[1] = 28; ct->mday = d0 + 1; ct->mon = d1; ct->isdst = 0; } void datestr(char *s, Timet t) { Tm tm; localtime(t, &tm); sprint(s, "%.4d%.2d%.2d", tm.year+1900, tm.mon+1, tm.mday); } int Tfmt(Fmt* fmt) { char s[30]; char *cp; Timet t; Tm tm; t = va_arg(fmt->args, Timet); if(t == 0) return fmtstrcpy(fmt, "The Epoch"); localtime(t, &tm); strcpy(s, "Day Mon 00 00:00:00 1900"); cp = &"SunMonTueWedThuFriSat"[tm.wday*3]; s[0] = cp[0]; s[1] = cp[1]; s[2] = cp[2]; cp = &"JanFebMarAprMayJunJulAugSepOctNovDec"[tm.mon*3]; s[4] = cp[0]; s[5] = cp[1]; s[6] = cp[2]; ct_numb(s+8, tm.mday); ct_numb(s+11, tm.hour+100); ct_numb(s+14, tm.min+100); ct_numb(s+17, tm.sec+100); if(tm.year >= 100) { s[20] = '2'; s[21] = '0'; } ct_numb(s+22, tm.year+100); return fmtstrcpy(fmt, s); } static dysize(int y) { if((y%4) == 0) return 366; return 365; } static void ct_numb(char *cp, int n) { if(n >= 10) cp[0] = (n/10)%10 + '0'; else cp[0] = ' '; cp[1] = n%10 + '0'; } /* * compute the next time after t * that has hour hr and is not on * day in bitpattern -- * for automatic dumps */ Timet nextime(Timet t, int hr, int day) { int nhr; Tm tm; if(hr < 0 || hr >= 24) hr = 5; if((day&0x7f) == 0x7f) day = 0; for (;;) { localtime(t, &tm); t -= tm.sec; t -= tm.min*60; nhr = tm.hour; do { t += 60*60; nhr++; } while(nhr%24 != hr); localtime(t, &tm); if(tm.hour != hr) { t += 60*60; localtime(t, &tm); if(tm.hour != hr) { t -= 60*60; localtime(t, &tm); } } if(day & (1<