2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (c) 1992-2009 Edwin Groothuis <edwin@FreeBSD.org>.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 #include <sys/cdefs.h>
31 __FBSDID("$FreeBSD$");
41 int year; /* 19xx, 20xx, 21xx */
42 int easter; /* Julian day */
43 int paskha; /* Julian day */
44 int cny; /* Julian day */
45 int firstdayofweek; /* 0 .. 6 */
46 struct cal_month *months;
47 struct cal_year *nextyear;
51 int month; /* 01 .. 12 */
52 int firstdayjulian; /* 000 .. 366 */
53 int firstdayofweek; /* 0 .. 6 */
54 struct cal_year *year; /* points back */
56 struct cal_month *nextmonth;
60 int dayofmonth; /* 01 .. 31 */
61 int julianday; /* 000 .. 366 */
62 int dayofweek; /* 0 .. 6 */
63 struct cal_day *nextday;
64 struct cal_month *month; /* points back */
65 struct cal_year *year; /* points back */
69 int debug_remember = 0;
70 static struct cal_year *hyear = NULL;
72 /* 1-based month, 0-based days, cumulative */
73 int cumdaytab[][14] = {
74 {0, -1, 30, 58, 89, 119, 150, 180, 211, 242, 272, 303, 333, 364},
75 {0, -1, 30, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365},
77 /* 1-based month, individual */
78 static int *monthdays;
79 int monthdaytab[][14] = {
80 {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 30},
81 {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 30},
84 static struct cal_day * find_day(int yy, int mm, int dd);
87 createdate(int y, int m, int d)
89 struct cal_year *py, *pyp;
90 struct cal_month *pm, *pmp;
91 struct cal_day *pd, *pdp;
97 if (py->year == y + 1900)
106 py = (struct cal_year *)calloc(1, sizeof(struct cal_year));
108 py->easter = easter(y);
109 py->paskha = paskha(y);
115 localtime_r(&t, &td);
116 py->firstdayofweek = td.tm_wday;
122 /* The very very very first one */
136 pm = (struct cal_month *)calloc(1, sizeof(struct cal_month));
139 cumday = cumdaytab[isleap(y)];
140 pm->firstdayjulian = cumday[m] + 2;
142 (py->firstdayofweek + pm->firstdayjulian -1) % 7;
156 if (pd == NULL) { /* Always true */
157 pd = (struct cal_day *)calloc(1, sizeof(struct cal_day));
161 pd->julianday = pm->firstdayjulian + d - 1;
162 pd->dayofweek = (pm->firstdayofweek + d - 1) % 7;
171 generatedates(struct tm *tp1, struct tm *tp2)
178 m1 = tp1->tm_mon + 1;
181 m2 = tp2->tm_mon + 1;
186 /* Same year, same month. Easy! */
187 for (d = d1; d <= d2; d++)
188 createdate(y1, m1, d);
192 * Same year, different month.
193 * - Take the leftover days from m1
194 * - Take all days from <m1 .. m2>
195 * - Take the first days from m2
197 monthdays = monthdaytab[isleap(y1)];
198 for (d = d1; d <= monthdays[m1]; d++)
199 createdate(y1, m1, d);
200 for (m = m1 + 1; m < m2; m++)
201 for (d = 1; d <= monthdays[m]; d++)
202 createdate(y1, m, d);
203 for (d = 1; d <= d2; d++)
204 createdate(y1, m2, d);
208 * Different year, different month.
209 * - Take the leftover days from y1-m1
210 * - Take all days from y1-<m1 .. 12]
211 * - Take all days from <y1 .. y2>
212 * - Take all days from y2-[1 .. m2>
213 * - Take the first days of y2-m2
215 monthdays = monthdaytab[isleap(y1)];
216 for (d = d1; d <= monthdays[m1]; d++)
217 createdate(y1, m1, d);
218 for (m = m1 + 1; m <= 12; m++)
219 for (d = 1; d <= monthdays[m]; d++)
220 createdate(y1, m, d);
221 for (y = y1 + 1; y < y2; y++) {
222 monthdays = monthdaytab[isleap(y)];
223 for (m = 1; m <= 12; m++)
224 for (d = 1; d <= monthdays[m]; d++)
227 monthdays = monthdaytab[isleap(y2)];
228 for (m = 1; m < m2; m++)
229 for (d = 1; d <= monthdays[m]; d++)
230 createdate(y2, m, d);
231 for (d = 1; d <= d2; d++)
232 createdate(y2, m2, d);
244 printf("%-5d (wday:%d)\n", y->year, y->firstdayofweek);
247 printf("-- %-5d (julian:%d, dow:%d)\n", m->month,
248 m->firstdayjulian, m->firstdayofweek);
251 printf(" -- %-5d (julian:%d, dow:%d)\n",
252 d->dayofmonth, d->julianday, d->dayofweek);
262 remember_ymd(int yy, int mm, int dd)
269 printf("remember_ymd: %d - %d - %d\n", yy, mm, dd);
279 if (m->month != mm) {
285 if (d->dayofmonth == dd)
298 remember_yd(int yy, int dd, int *rm, int *rd)
305 printf("remember_yd: %d - %d\n", yy, dd);
317 if (d->julianday == dd) {
332 first_dayofweek_of_year(int yy)
339 return (y->firstdayofweek);
343 /* Should not happen */
348 first_dayofweek_of_month(int yy, int mm)
362 return (m->firstdayofweek);
365 /* No data for this month */
369 /* No data for this year. Error? */
374 walkthrough_dates(struct event **e)
376 static struct cal_year *y = NULL;
377 static struct cal_month *m = NULL;
378 static struct cal_day *d = NULL;
387 if (d->nextday != NULL) {
392 if (m->nextmonth != NULL) {
398 if (y->nextyear != NULL) {
409 static struct cal_day *
410 find_day(int yy, int mm, int dd)
417 printf("remember_ymd: %d - %d - %d\n", yy, mm, dd);
427 if (m->month != mm) {
433 if (d->dayofmonth == dd)
446 addtodate(struct event *e, int year, int month, int day)
450 d = find_day(year, month, day);