2 * Copyright (c) 1992-2009 Edwin Groothuis <edwin@FreeBSD.org>.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 #include <sys/cdefs.h>
29 __FBSDID("$FreeBSD$");
40 static char *showflags(int flags);
41 static int isonlydigits(char *s, int nostar);
42 static const char *getmonthname(int i);
43 static int checkmonth(char *s, size_t *len, size_t *offset, const char **month);
44 static const char *getdayofweekname(int i);
45 static int checkdayofweek(char *s, size_t *len, size_t *offset, const char **dow);
46 static int indextooffset(char *s);
47 static int parseoffset(char *s);
48 static char *floattoday(int year, double f);
49 static char *floattotime(double f);
54 * Date ::= Month . ' ' . DayOfMonth |
55 * Month . ' ' . DayOfWeek . ModifierIndex |
56 * Month . '/' . DayOfMonth |
57 * Month . '/' . DayOfWeek . ModifierIndex |
58 * DayOfMonth . ' ' . Month |
59 * DayOfMonth . '/' . Month |
60 * DayOfWeek . ModifierIndex . ' ' .Month |
61 * DayOfWeek . ModifierIndex . '/' .Month |
62 * DayOfWeek . ModifierIndex |
63 * SpecialDay . ModifierOffset
65 * Month ::= MonthName | MonthNumber | '*'
66 * MonthNumber ::= '0' ... '9' | '00' ... '09' | '10' ... '12'
67 * MonthName ::= MonthNameShort | MonthNameLong
68 * MonthNameLong ::= 'January' ... 'December'
69 * MonthNameShort ::= 'Jan' ... 'Dec' | 'Jan.' ... 'Dec.'
71 * DayOfWeek ::= DayOfWeekShort | DayOfWeekLong
72 * DayOfWeekShort ::= 'Mon' .. 'Sun'
73 * DayOfWeekLong ::= 'Monday' .. 'Sunday'
74 * DayOfMonth ::= '0' ... '9' | '00' ... '09' | '10' ... '29' |
77 * ModifierOffset ::= '' | '+' . ModifierNumber | '-' . ModifierNumber
78 * ModifierNumber ::= '0' ... '9' | '00' ... '99' | '000' ... '299' |
79 * '300' ... '359' | '360' ... '365'
80 * ModifierIndex ::= 'Second' | 'Third' | 'Fourth' | 'Fifth' |
83 * SpecialDay ::= 'Easter' | 'Paskha' | 'ChineseNewYear'
87 determinestyle(char *date, int *flags,
88 char *month, int *imonth, char *dayofmonth, int *idayofmonth,
89 char *dayofweek, int *idayofweek, char *modifieroffset,
90 char *modifierindex, char *specialday, char *year, int *iyear)
92 char *p, *p1, *p2, *py;
93 const char *dow, *pmonth;
106 *modifieroffset = '\0';
107 *modifierindex = '\0';
110 #define CHECKSPECIAL(s1, s2, lens2, type) \
111 if (s2 != NULL && strncmp(s1, s2, lens2) == 0) { \
112 *flags |= F_SPECIALDAY; \
114 *flags |= F_VARIABLE; \
115 if (strlen(s1) == lens2) { \
116 strcpy(specialday, s1); \
119 strncpy(specialday, s1, lens2); \
120 specialday[lens2] = '\0'; \
121 strcpy(modifieroffset, s1 + lens2); \
122 *flags |= F_MODIFIEROFFSET; \
126 if ((p = strchr(date, ' ')) == NULL) {
127 if ((p = strchr(date, '/')) == NULL) {
128 CHECKSPECIAL(date, STRING_CNY, strlen(STRING_CNY),
130 CHECKSPECIAL(date, ncny.name, ncny.len, F_CNY);
131 CHECKSPECIAL(date, STRING_NEWMOON,
132 strlen(STRING_NEWMOON), F_NEWMOON);
133 CHECKSPECIAL(date, nnewmoon.name, nnewmoon.len,
135 CHECKSPECIAL(date, STRING_FULLMOON,
136 strlen(STRING_FULLMOON), F_FULLMOON);
137 CHECKSPECIAL(date, nfullmoon.name, nfullmoon.len,
139 CHECKSPECIAL(date, STRING_PASKHA,
140 strlen(STRING_PASKHA), F_PASKHA);
141 CHECKSPECIAL(date, npaskha.name, npaskha.len, F_PASKHA);
142 CHECKSPECIAL(date, STRING_EASTER,
143 strlen(STRING_EASTER), F_EASTER);
144 CHECKSPECIAL(date, neaster.name, neaster.len, F_EASTER);
145 CHECKSPECIAL(date, STRING_MAREQUINOX,
146 strlen(STRING_MAREQUINOX), F_MAREQUINOX);
147 CHECKSPECIAL(date, nmarequinox.name, nmarequinox.len,
149 CHECKSPECIAL(date, STRING_SEPEQUINOX,
150 strlen(STRING_SEPEQUINOX), F_SEPEQUINOX);
151 CHECKSPECIAL(date, nsepequinox.name, nsepequinox.len,
153 CHECKSPECIAL(date, STRING_JUNSOLSTICE,
154 strlen(STRING_JUNSOLSTICE), F_JUNSOLSTICE);
155 CHECKSPECIAL(date, njunsolstice.name, njunsolstice.len,
157 CHECKSPECIAL(date, STRING_DECSOLSTICE,
158 strlen(STRING_DECSOLSTICE), F_DECSOLSTICE);
159 CHECKSPECIAL(date, ndecsolstice.name, ndecsolstice.len,
161 if (checkdayofweek(date, &len, &offset, &dow) != 0) {
162 *flags |= F_DAYOFWEEK;
163 *flags |= F_VARIABLE;
164 *idayofweek = offset;
165 if (strlen(date) == len) {
166 strcpy(dayofweek, date);
169 strncpy(dayofweek, date, len);
170 dayofweek[len] = '\0';
171 strcpy(modifierindex, date + len);
172 *flags |= F_MODIFIERINDEX;
175 if (isonlydigits(date, 1)) {
176 /* Assume month number only */
178 *imonth = (int)strtol(date, (char **)NULL, 10);
179 strcpy(month, getmonthname(*imonth));
187 * AFTER this, leave by goto-ing to "allfine" or "fail" to restore the
188 * original data in `date'.
194 /* Now p2 points to the next field and p1 to the first field */
196 if ((py = strchr(p2, '/')) != NULL) {
197 /* We have a year in the string. Now this is getting tricky */
199 *iyear = (int)strtol(year, NULL, 10);
207 printf("p1: %s\n", p1);
208 printf("p2: %s\n", p2);
209 printf("year: %s\n", year);
212 /* Check if there is a month-string in the date */
213 if ((checkmonth(p1, &len, &offset, &pmonth) != 0)
214 || (checkmonth(p2, &len, &offset, &pmonth) != 0 && (p2 = p1))) {
215 /* p2 is the non-month part */
219 strcpy(month, getmonthname(offset));
220 if (isonlydigits(p2, 1)) {
221 strcpy(dayofmonth, p2);
222 *idayofmonth = (int)strtol(p2, (char **)NULL, 10);
223 *flags |= F_DAYOFMONTH;
226 if (strcmp(p2, "*") == 0) {
231 if (checkdayofweek(p2, &len, &offset, &dow) != 0) {
232 *flags |= F_DAYOFWEEK;
233 *flags |= F_VARIABLE;
234 *idayofweek = offset;
235 strcpy(dayofweek, getdayofweekname(offset));
236 if (strlen(p2) == len)
238 strcpy(modifierindex, p2 + len);
239 *flags |= F_MODIFIERINDEX;
246 /* Check if there is an every-day or every-month in the string */
247 if ((strcmp(p1, "*") == 0 && isonlydigits(p2, 1))
248 || (strcmp(p2, "*") == 0 && isonlydigits(p1, 1) && (p2 = p1))) {
251 *flags |= F_ALLMONTH;
252 *flags |= F_DAYOFMONTH;
253 d = (int)strtol(p2, (char **)NULL, 10);
255 sprintf(dayofmonth, "%d", d);
259 /* Month as a number, then a weekday */
260 if (isonlydigits(p1, 1)
261 && checkdayofweek(p2, &len, &offset, &dow) != 0) {
265 *flags |= F_DAYOFWEEK;
266 *flags |= F_VARIABLE;
268 *idayofweek = offset;
269 d = (int)strtol(p1, (char **)NULL, 10);
271 strcpy(month, getmonthname(d));
273 strcpy(dayofweek, getdayofweekname(offset));
274 if (strlen(p2) == len)
276 strcpy(modifierindex, p2 + len);
277 *flags |= F_MODIFIERINDEX;
281 /* If both the month and date are specified as numbers */
282 if (isonlydigits(p1, 1) && isonlydigits(p2, 0)) {
283 /* Now who wants to be this ambigious? :-( */
286 if (strchr(p2, '*') != NULL)
287 *flags |= F_VARIABLE;
289 m = (int)strtol(p1, (char **)NULL, 10);
290 d = (int)strtol(p2, (char **)NULL, 10);
293 *flags |= F_DAYOFMONTH;
298 strcpy(month, getmonthname(d));
299 sprintf(dayofmonth, "%d", m);
303 strcpy(month, getmonthname(m));
304 sprintf(dayofmonth, "%d", d);
320 remember(int *rememberindex, int *y, int *m, int *d, char **ed, int yy, int mm,
323 static int warned = 0;
325 if (*rememberindex >= MAXCOUNT - 1) {
327 warnx("Index > %d, ignored", MAXCOUNT);
331 y[*rememberindex] = yy;
332 m[*rememberindex] = mm;
333 d[*rememberindex] = dd;
335 strcpy(ed[*rememberindex], extra);
337 ed[*rememberindex][0] = '\0';
342 debug_determinestyle(int dateonly, char *date, int flags, char *month,
343 int imonth, char *dayofmonth, int idayofmonth, char *dayofweek,
344 int idayofweek, char *modifieroffset, char *modifierindex, char *specialday,
345 char *year, int iyear)
349 printf("-------\ndate: |%s|\n", date);
353 printf("flags: %x - %s\n", flags, showflags(flags));
354 if (modifieroffset[0] != '\0')
355 printf("modifieroffset: |%s|\n", modifieroffset);
356 if (modifierindex[0] != '\0')
357 printf("modifierindex: |%s|\n", modifierindex);
359 printf("year: |%s| (%d)\n", year, iyear);
360 if (month[0] != '\0')
361 printf("month: |%s| (%d)\n", month, imonth);
362 if (dayofmonth[0] != '\0')
363 printf("dayofmonth: |%s| (%d)\n", dayofmonth, idayofmonth);
364 if (dayofweek[0] != '\0')
365 printf("dayofweek: |%s| (%d)\n", dayofweek, idayofweek);
366 if (specialday[0] != '\0')
367 printf("specialday: |%s|\n", specialday);
372 int ieaster, ipaskha, firstcnyday;
373 double ffullmoon[MAXMOONS], fnewmoon[MAXMOONS];
374 double ffullmooncny[MAXMOONS], fnewmooncny[MAXMOONS];
375 int ichinesemonths[MAXMOONS];
376 double equinoxdays[2], solsticedays[2];
378 struct yearinfo *next;
381 * Possible date formats include any combination of:
382 * 3-charmonth (January, Jan, Jan)
383 * 3-charweekday (Friday, Monday, mon.)
384 * numeric month or day (1, 2, 04)
386 * Any character may separate them, or they may not be separated. Any line,
387 * following a line that is matched, that starts with "whitespace", is shown
388 * along with the matched line.
391 parsedaymonth(char *date, int *yearp, int *monthp, int *dayp, int *flags,
394 char month[100], dayofmonth[100], dayofweek[100], modifieroffset[100];
396 char modifierindex[100], specialday[100];
397 int idayofweek = -1, imonth = -1, idayofmonth = -1, iyear = -1;
399 int d, m, dow, rm, rd, offset;
403 static struct yearinfo *years, *yearinfo;
409 * Monthname: Jan .. Dec
411 * Weekday: Mon .. Sun
418 debug_determinestyle(1, date, *flags, month, imonth,
419 dayofmonth, idayofmonth, dayofweek, idayofweek,
420 modifieroffset, modifierindex, specialday, syear, iyear);
421 if (determinestyle(date, flags, month, &imonth, dayofmonth,
422 &idayofmonth, dayofweek, &idayofweek, modifieroffset,
423 modifierindex, specialday, syear, &iyear) == 0) {
430 debug_determinestyle(0, date, *flags, month, imonth,
431 dayofmonth, idayofmonth, dayofweek, idayofweek,
432 modifieroffset, modifierindex, specialday, syear, iyear);
435 for (year = year1; year <= year2; year++) {
438 /* If the year is specified, only do it if it is this year! */
439 if ((lflags & F_YEAR) != 0)
444 /* Get important dates for this year */
446 while (yearinfo != NULL) {
447 if (yearinfo->year == year)
449 yearinfo = yearinfo -> next;
451 if (yearinfo == NULL) {
452 yearinfo = (struct yearinfo *)calloc(1,
453 sizeof(struct yearinfo));
454 if (yearinfo == NULL)
455 errx(1, "Unable to allocate more years");
456 yearinfo->year = year;
457 yearinfo->next = years;
460 yearinfo->mondays = mondaytab[isleap(year)];
461 yearinfo->ieaster = easter(year);
462 yearinfo->ipaskha = paskha(year);
463 fpom(year, UTCOffset, yearinfo->ffullmoon,
465 fpom(year, UTCOFFSET_CNY, yearinfo->ffullmooncny,
466 yearinfo->fnewmooncny);
467 fequinoxsolstice(year, UTCOffset,
468 yearinfo->equinoxdays, yearinfo->solsticedays);
471 * CNY: Match day with sun longitude at 330` with new
474 yearinfo->firstcnyday = calculatesunlongitude30(year,
475 UTCOFFSET_CNY, yearinfo->ichinesemonths);
476 for (m = 0; yearinfo->fnewmooncny[m] >= 0; m++) {
477 if (yearinfo->fnewmooncny[m] >
478 yearinfo->firstcnyday) {
479 yearinfo->firstcnyday =
480 floor(yearinfo->fnewmooncny[m - 1]);
486 /* Same day every year */
487 if (lflags == (F_MONTH | F_DAYOFMONTH)) {
488 if (!remember_ymd(year, imonth, idayofmonth))
490 remember(&remindex, yearp, monthp, dayp, edp,
491 year, imonth, idayofmonth, NULL);
495 /* XXX Same day every year, but variable */
496 if (lflags == (F_MONTH | F_DAYOFMONTH | F_VARIABLE)) {
497 if (!remember_ymd(year, imonth, idayofmonth))
499 remember(&remindex, yearp, monthp, dayp, edp,
500 year, imonth, idayofmonth, NULL);
504 /* Same day every month */
505 if (lflags == (F_ALLMONTH | F_DAYOFMONTH)) {
506 for (m = 1; m <= 12; m++) {
507 if (!remember_ymd(year, m, idayofmonth))
509 remember(&remindex, yearp, monthp, dayp, edp,
510 year, m, idayofmonth, NULL);
515 /* Every day of a month */
516 if (lflags == (F_ALLDAY | F_MONTH)) {
517 for (d = 1; d <= yearinfo->mondays[imonth]; d++) {
518 if (!remember_ymd(year, imonth, d))
520 remember(&remindex, yearp, monthp, dayp, edp,
521 year, imonth, d, NULL);
526 /* One day of every month */
527 if (lflags == (F_ALLMONTH | F_DAYOFWEEK)) {
528 for (m = 1; m <= 12; m++) {
529 if (!remember_ymd(year, m, idayofmonth))
531 remember(&remindex, yearp, monthp, dayp, edp,
532 year, m, idayofmonth, NULL);
537 /* Every dayofweek of the year */
538 if (lflags == (F_DAYOFWEEK | F_VARIABLE)) {
539 dow = first_dayofweek_of_year(year);
540 d = (idayofweek - dow + 8) % 7;
542 if (remember_yd(year, d, &rm, &rd))
544 yearp, monthp, dayp, edp,
551 /* Every so-manied dayofweek of every month of the year */
552 if (lflags == (F_DAYOFWEEK | F_MODIFIERINDEX | F_VARIABLE)) {
553 offset = indextooffset(modifierindex);
555 for (m = 0; m < 12; m++) {
556 dow = first_dayofweek_of_month(year, m);
557 d = (idayofweek - dow + 8) % 7;
558 d += (offset - 1) * 7;
559 if (remember_ymd(year, m, d)) {
561 yearp, monthp, dayp, edp,
569 /* A certain dayofweek of a month */
571 (F_MONTH | F_DAYOFWEEK | F_MODIFIERINDEX | F_VARIABLE)) {
572 offset = indextooffset(modifierindex);
573 dow = first_dayofweek_of_month(year, imonth);
574 d = (idayofweek - dow + 8) % 7;
577 while (d <= yearinfo->mondays[imonth]) {
579 && remember_ymd(year, imonth, d)) {
581 yearp, monthp, dayp, edp,
582 year, imonth, d, NULL);
590 while (d <= yearinfo->mondays[imonth])
592 while (offset != 0) {
596 if (remember_ymd(year, imonth, d))
598 yearp, monthp, dayp, edp,
599 year, imonth, d, NULL);
605 /* Every dayofweek of the month */
606 if (lflags == (F_DAYOFWEEK | F_MONTH | F_VARIABLE)) {
607 dow = first_dayofweek_of_month(year, imonth);
608 d = (idayofweek - dow + 8) % 7;
609 while (d <= yearinfo->mondays[imonth]) {
610 if (remember_ymd(year, imonth, d))
612 yearp, monthp, dayp, edp,
613 year, imonth, d, NULL);
620 if ((lflags & ~F_MODIFIEROFFSET) ==
621 (F_SPECIALDAY | F_VARIABLE | F_EASTER)) {
623 if ((lflags & F_MODIFIEROFFSET) != 0)
624 offset = parseoffset(modifieroffset);
625 if (remember_yd(year, yearinfo->ieaster + offset,
627 remember(&remindex, yearp, monthp, dayp, edp,
633 if ((lflags & ~F_MODIFIEROFFSET) ==
634 (F_SPECIALDAY | F_VARIABLE | F_PASKHA)) {
636 if ((lflags & F_MODIFIEROFFSET) != 0)
637 offset = parseoffset(modifieroffset);
638 if (remember_yd(year, yearinfo->ipaskha + offset,
640 remember(&remindex, yearp, monthp, dayp, edp,
645 /* Chinese New Year */
646 if ((lflags & ~F_MODIFIEROFFSET) ==
647 (F_SPECIALDAY | F_VARIABLE | F_CNY)) {
649 if ((lflags & F_MODIFIEROFFSET) != 0)
650 offset = parseoffset(modifieroffset);
651 if (remember_yd(year, yearinfo->firstcnyday + offset,
653 remember(&remindex, yearp, monthp, dayp, edp,
659 if ((lflags & ~F_MODIFIEROFFSET) ==
660 (F_SPECIALDAY | F_VARIABLE | F_FULLMOON)) {
664 if ((lflags & F_MODIFIEROFFSET) != 0)
665 offset = parseoffset(modifieroffset);
666 for (i = 0; yearinfo->ffullmoon[i] > 0; i++) {
667 if (remember_yd(year,
668 floor(yearinfo->ffullmoon[i]) + offset,
671 yearinfo->ffullmoon[i]);
673 yearp, monthp, dayp, edp,
681 if ((lflags & ~F_MODIFIEROFFSET) ==
682 (F_SPECIALDAY | F_VARIABLE | F_NEWMOON)) {
686 if ((lflags & F_MODIFIEROFFSET) != 0)
687 offset = parseoffset(modifieroffset);
688 for (i = 0; yearinfo->ffullmoon[i] > 0; i++) {
689 if (remember_yd(year,
690 floor(yearinfo->fnewmoon[i]) + offset,
692 ed = floattotime(yearinfo->fnewmoon[i]);
694 yearp, monthp, dayp, edp,
701 /* (Mar|Sep)Equinox */
702 if ((lflags & ~F_MODIFIEROFFSET) ==
703 (F_SPECIALDAY | F_VARIABLE | F_MAREQUINOX)) {
705 if ((lflags & F_MODIFIEROFFSET) != 0)
706 offset = parseoffset(modifieroffset);
707 if (remember_yd(year, yearinfo->equinoxdays[0] + offset,
709 ed = floattotime(yearinfo->equinoxdays[0]);
710 remember(&remindex, yearp, monthp, dayp, edp,
715 if ((lflags & ~F_MODIFIEROFFSET) ==
716 (F_SPECIALDAY | F_VARIABLE | F_SEPEQUINOX)) {
718 if ((lflags & F_MODIFIEROFFSET) != 0)
719 offset = parseoffset(modifieroffset);
720 if (remember_yd(year, yearinfo->equinoxdays[1] + offset,
722 ed = floattotime(yearinfo->equinoxdays[1]);
723 remember(&remindex, yearp, monthp, dayp, edp,
729 /* (Jun|Dec)Solstice */
730 if ((lflags & ~F_MODIFIEROFFSET) ==
731 (F_SPECIALDAY | F_VARIABLE | F_JUNSOLSTICE)) {
733 if ((lflags & F_MODIFIEROFFSET) != 0)
734 offset = parseoffset(modifieroffset);
735 if (remember_yd(year,
736 yearinfo->solsticedays[0] + offset, &rm, &rd)) {
737 ed = floattotime(yearinfo->solsticedays[0]);
738 remember(&remindex, yearp, monthp, dayp, edp,
743 if ((lflags & ~F_MODIFIEROFFSET) ==
744 (F_SPECIALDAY | F_VARIABLE | F_DECSOLSTICE)) {
746 if ((lflags & F_MODIFIEROFFSET) != 0)
747 offset = parseoffset(modifieroffset);
748 if (remember_yd(year,
749 yearinfo->solsticedays[1] + offset, &rm, &rd)) {
750 ed = floattotime(yearinfo->solsticedays[1]);
751 remember(&remindex, yearp, monthp, dayp, edp,
757 printf("Unprocessed:\n");
758 debug_determinestyle(2, date, lflags, month, imonth,
759 dayofmonth, idayofmonth, dayofweek, idayofweek,
760 modifieroffset, modifierindex, specialday, syear, iyear);
764 if (retvalsign == -1)
765 return (-remindex - 1);
776 if ((flags & F_YEAR) != 0)
778 if ((flags & F_MONTH) != 0)
780 if ((flags & F_DAYOFWEEK) != 0)
781 strcat(s, "dayofweek ");
782 if ((flags & F_DAYOFMONTH) != 0)
783 strcat(s, "dayofmonth ");
784 if ((flags & F_MODIFIERINDEX) != 0)
785 strcat(s, "modifierindex ");
786 if ((flags & F_MODIFIEROFFSET) != 0)
787 strcat(s, "modifieroffset ");
788 if ((flags & F_SPECIALDAY) != 0)
789 strcat(s, "specialday ");
790 if ((flags & F_ALLMONTH) != 0)
791 strcat(s, "allmonth ");
792 if ((flags & F_ALLDAY) != 0)
793 strcat(s, "allday ");
794 if ((flags & F_VARIABLE) != 0)
795 strcat(s, "variable ");
796 if ((flags & F_CNY) != 0)
797 strcat(s, "chinesenewyear ");
798 if ((flags & F_PASKHA) != 0)
799 strcat(s, "paskha ");
800 if ((flags & F_EASTER) != 0)
801 strcat(s, "easter ");
802 if ((flags & F_FULLMOON) != 0)
803 strcat(s, "fullmoon ");
804 if ((flags & F_NEWMOON) != 0)
805 strcat(s, "newmoon ");
806 if ((flags & F_MAREQUINOX) != 0)
807 strcat(s, "marequinox ");
808 if ((flags & F_SEPEQUINOX) != 0)
809 strcat(s, "sepequinox ");
810 if ((flags & F_JUNSOLSTICE) != 0)
811 strcat(s, "junsolstice ");
812 if ((flags & F_DECSOLSTICE) != 0)
813 strcat(s, "decsolstice ");
821 if (i <= 0 || i > 12)
823 if (nmonths[i - 1].len != 0 && nmonths[i - 1].name != NULL)
824 return (nmonths[i - 1].name);
825 return (months[i - 1]);
829 checkmonth(char *s, size_t *len, size_t *offset, const char **month)
834 for (i = 0; fnmonths[i].name != NULL; i++) {
836 if (strncasecmp(s, n->name, n->len) == 0) {
843 for (i = 0; nmonths[i].name != NULL; i++) {
845 if (strncasecmp(s, n->name, n->len) == 0) {
852 for (i = 0; fmonths[i] != NULL; i++) {
853 *len = strlen(fmonths[i]);
854 if (strncasecmp(s, fmonths[i], *len) == 0) {
860 for (i = 0; months[i] != NULL; i++) {
861 if (strncasecmp(s, months[i], 3) == 0) {
872 getdayofweekname(int i)
874 if (ndays[i].len != 0 && ndays[i].name != NULL)
875 return (ndays[i].name);
880 checkdayofweek(char *s, size_t *len, size_t *offset, const char **dow)
885 for (i = 0; fndays[i].name != NULL; i++) {
887 if (strncasecmp(s, n->name, n->len) == 0) {
894 for (i = 0; ndays[i].name != NULL; i++) {
896 if (strncasecmp(s, n->name, n->len) == 0) {
903 for (i = 0; fdays[i] != NULL; i++) {
904 *len = strlen(fdays[i]);
905 if (strncasecmp(s, fdays[i], *len) == 0) {
911 for (i = 0; days[i] != NULL; i++) {
912 if (strncasecmp(s, days[i], 3) == 0) {
923 isonlydigits(char *s, int nostar)
926 for (i = 0; s[i] != '\0'; i++) {
927 if (nostar == 0 && s[i] == '*' && s[i + 1] == '\0')
929 if (!isdigit((unsigned char)s[i]))
936 indextooffset(char *s)
941 if (s[0] == '+' || s[0] == '-') {
943 for (i = -100; i < 100; i++) {
944 sprintf(ss, "%s%d", (i > 0) ? "+" : "", i);
945 if (strcmp(ss, s) == 0)
951 for (i = 0; i < 6; i++) {
952 if (strcasecmp(s, sequences[i]) == 0) {
958 for (i = 0; i < 6; i++) {
962 if (strncasecmp(s, n->name, n->len) == 0) {
975 return strtol(s, NULL, 10);
979 floattotime(double f)
981 static char buf[100];
987 hh = i / SECSPERHOUR;
989 mm = i / SECSPERMINUTE;
993 sprintf(buf, "%02d:%02d:%02d", hh, mm, ss);
998 floattoday(int year, double f)
1000 static char buf[100];
1001 int i, m, d, hh, mm, ss;
1002 int *cumdays = cumdaytab[isleap(year)];
1004 for (i = 0; 1 + cumdays[i] < f; i++)
1007 d = floor(f - 1 - cumdays[i]);
1011 hh = i / SECSPERHOUR;
1013 mm = i / SECSPERMINUTE;
1017 sprintf(buf, "%02d-%02d %02d:%02d:%02d", m, d, hh, mm, ss);
1026 printf("UTCOffset: %g\n", UTCOffset);
1027 printf("eastlongitude: %d\n", EastLongitude);
1029 if (strcmp(what, "moon") == 0) {
1030 double ffullmoon[MAXMOONS], fnewmoon[MAXMOONS];
1033 for (year = year1; year <= year2; year++) {
1034 fpom(year, UTCOffset, ffullmoon, fnewmoon);
1035 printf("Full moon %d:\t", year);
1036 for (i = 0; ffullmoon[i] >= 0; i++) {
1037 printf("%g (%s) ", ffullmoon[i],
1038 floattoday(year, ffullmoon[i]));
1040 printf("\nNew moon %d:\t", year);
1041 for (i = 0; fnewmoon[i] >= 0; i++) {
1042 printf("%g (%s) ", fnewmoon[i],
1043 floattoday(year, fnewmoon[i]));
1052 if (strcmp(what, "sun") == 0) {
1053 double equinoxdays[2], solsticedays[2];
1054 for (year = year1; year <= year2; year++) {
1055 printf("Sun in %d:\n", year);
1056 fequinoxsolstice(year, UTCOffset, equinoxdays,
1058 printf("e[0] - %g (%s)\n",
1060 floattoday(year, equinoxdays[0]));
1061 printf("e[1] - %g (%s)\n",
1063 floattoday(year, equinoxdays[1]));
1064 printf("s[0] - %g (%s)\n",
1066 floattoday(year, solsticedays[0]));
1067 printf("s[1] - %g (%s)\n",
1069 floattoday(year, solsticedays[1]));