void
equinoxsolstice(int year, double UTCoffset, int *equinoxdays, int *solsticedays)
{
double fe[2], fs[2];
fequinoxsolstice(year, UTCoffset, fe, fs);
equinoxdays[0] = round(fe[0]);
equinoxdays[1] = round(fe[1]);
solsticedays[0] = round(fs[0]);
solsticedays[1] = round(fs[1]);
}
void
dodebug(char *what)
{
int year;
printf("UTCOffset: %g\n", UTCOffset);
printf("eastlongitude: %d\n", EastLongitude);
if (strcmp(what, "moon") == 0) {
double ffullmoon[MAXMOONS], fnewmoon[MAXMOONS];
int i;
for (year = year1; year <= year2; year++) {
fpom(year, UTCOffset, ffullmoon, fnewmoon);
printf("Full moon %d:\t", year);
for (i = 0; ffullmoon[i] >= 0; i++) {
printf("%g (%s) ", ffullmoon[i],
floattoday(year, ffullmoon[i]));
}
printf("\nNew moon %d:\t", year);
for (i = 0; fnewmoon[i] >= 0; i++) {
printf("%g (%s) ", fnewmoon[i],
floattoday(year, fnewmoon[i]));
}
printf("\n");
}
return;
}
if (strcmp(what, "sun") == 0) {
double equinoxdays[2], solsticedays[2];
for (year = year1; year <= year2; year++) {
printf("Sun in %d:\n", year);
fequinoxsolstice(year, UTCOffset, equinoxdays,
solsticedays);
printf("e[0] - %g (%s)\n",
equinoxdays[0],
floattoday(year, equinoxdays[0]));
printf("e[1] - %g (%s)\n",
equinoxdays[1],
floattoday(year, equinoxdays[1]));
printf("s[0] - %g (%s)\n",
solsticedays[0],
floattoday(year, solsticedays[0]));
printf("s[1] - %g (%s)\n",
solsticedays[1],
floattoday(year, solsticedays[1]));
}
return;
}
}
/*
* Possible date formats include any combination of:
* 3-charmonth (January, Jan, Jan)
* 3-charweekday (Friday, Monday, mon.)
* numeric month or day (1, 2, 04)
*
* Any character may separate them, or they may not be separated. Any line,
* following a line that is matched, that starts with "whitespace", is shown
* along with the matched line.
*/
int
parsedaymonth(char *date, int *yearp, int *monthp, int *dayp, int *flags,
char **edp)
{
char month[100], dayofmonth[100], dayofweek[100], modifieroffset[100];
char syear[100];
char modifierindex[100], specialday[100];
int idayofweek = -1, imonth = -1, idayofmonth = -1, iyear = -1;
int year, remindex;
int d, m, dow, rm, rd, offset;
char *ed;
int retvalsign = 1;
/*
* CONVENTION
*
* Month: 1-12
* Monthname: Jan .. Dec
* Day: 1-31
* Weekday: Mon .. Sun
*
*/
*flags = 0;
if (debug)
debug_determinestyle(1, date, *flags, month, imonth,
dayofmonth, idayofmonth, dayofweek, idayofweek,
modifieroffset, modifierindex, specialday, syear, iyear);
if (determinestyle(date, flags, month, &imonth, dayofmonth,
&idayofmonth, dayofweek, &idayofweek, modifieroffset,
modifierindex, specialday, syear, &iyear) == 0) {
if (debug)
printf("Failed!\n");
return (0);
}
if (debug)
debug_determinestyle(0, date, *flags, month, imonth,
dayofmonth, idayofmonth, dayofweek, idayofweek,
modifieroffset, modifierindex, specialday, syear, iyear);
remindex = 0;
for (year = year1; year <= year2; year++) {
int lflags = *flags;
/* If the year is specified, only do it if it is this year! */
if ((lflags & F_YEAR) != 0)
if (iyear != year)
continue;
lflags &= ~F_YEAR;
/* Get important dates for this year */
yearinfo = years;
while (yearinfo != NULL) {
if (yearinfo->year == year)
break;
yearinfo = yearinfo -> next;
}
if (yearinfo == NULL) {
yearinfo = (struct yearinfo *)calloc(1,
sizeof(struct yearinfo));
if (yearinfo == NULL)
errx(1, "Unable to allocate more years");
yearinfo->year = year;
yearinfo->next = years;
years = yearinfo;
yearinfo->monthdays = monthdaytab[isleap(year)];
yearinfo->ieaster = easter(year);
yearinfo->ipaskha = paskha(year);
fpom(year, UTCOffset, yearinfo->ffullmoon,
yearinfo->fnewmoon);
fpom(year, UTCOFFSET_CNY, yearinfo->ffullmooncny,
yearinfo->fnewmooncny);
fequinoxsolstice(year, UTCOffset,
yearinfo->equinoxdays, yearinfo->solsticedays);
/*
* CNY: Match day with sun longitude at 330` with new
* moon
*/
yearinfo->firstcnyday = calculatesunlongitude30(year,
UTCOFFSET_CNY, yearinfo->ichinesemonths);
for (m = 0; yearinfo->fnewmooncny[m] >= 0; m++) {
if (yearinfo->fnewmooncny[m] >
yearinfo->firstcnyday) {
yearinfo->firstcnyday =
floor(yearinfo->fnewmooncny[m - 1]);
break;
}
}
}
/* Same day every year */
if (lflags == (F_MONTH | F_DAYOFMONTH)) {
if (!remember_ymd(year, imonth, idayofmonth))
continue;
remember(&remindex, yearp, monthp, dayp, edp,
year, imonth, idayofmonth, NULL);
continue;
}
/* XXX Same day every year, but variable */
if (lflags == (F_MONTH | F_DAYOFMONTH | F_VARIABLE)) {
if (!remember_ymd(year, imonth, idayofmonth))
continue;
remember(&remindex, yearp, monthp, dayp, edp,
year, imonth, idayofmonth, NULL);
continue;
}
/* Same day every month */
if (lflags == (F_ALLMONTH | F_DAYOFMONTH)) {
for (m = 1; m <= 12; m++) {
if (!remember_ymd(year, m, idayofmonth))
continue;
remember(&remindex, yearp, monthp, dayp, edp,
year, m, idayofmonth, NULL);
}
continue;
}
/* Every day of a month */
if (lflags == (F_ALLDAY | F_MONTH)) {
for (d = 1; d <= yearinfo->monthdays[imonth]; d++) {
if (!remember_ymd(year, imonth, d))
continue;
remember(&remindex, yearp, monthp, dayp, edp,
year, imonth, d, NULL);
}
continue;
}
/* One day of every month */
if (lflags == (F_ALLMONTH | F_DAYOFWEEK)) {
for (m = 1; m <= 12; m++) {
if (!remember_ymd(year, m, idayofmonth))
continue;
remember(&remindex, yearp, monthp, dayp, edp,
year, m, idayofmonth, NULL);
}
continue;
}
/* Every dayofweek of the year */
if (lflags == (F_DAYOFWEEK | F_VARIABLE)) {
dow = first_dayofweek_of_year(year);
d = (idayofweek - dow + 8) % 7;
while (d <= 366) {
if (remember_yd(year, d, &rm, &rd))
remember(&remindex,
yearp, monthp, dayp, edp,
year, rm, rd, NULL);
d += 7;
}
continue;
}
/*
* Every so-manied dayofweek of every month of the year:
* Thu-3
*/
if (lflags == (F_DAYOFWEEK | F_MODIFIERINDEX | F_VARIABLE)) {
offset = indextooffset(modifierindex);
for (m = 0; m <= 12; m++) {
d = wdayom (idayofweek, offset, m, year);
if (remember_ymd(year, m, d)) {
remember(&remindex,
yearp, monthp, dayp, edp,
year, m, d, NULL);
continue;
}
}
continue;
}
/*
* A certain dayofweek of a month
* Jan/Thu-3
*/
if (lflags ==
(F_MONTH | F_DAYOFWEEK | F_MODIFIERINDEX | F_VARIABLE)) {
offset = indextooffset(modifierindex);
dow = first_dayofweek_of_month(year, imonth);
d = (idayofweek - dow + 8) % 7;
if (offset > 0) {
while (d <= yearinfo->monthdays[imonth]) {
if (--offset == 0
&& remember_ymd(year, imonth, d)) {
remember(&remindex,
yearp, monthp, dayp, edp,
year, imonth, d, NULL);
continue;
}
d += 7;
}
continue;
}
if (offset < 0) {
while (d <= yearinfo->monthdays[imonth])
d += 7;
while (offset != 0) {
offset++;
d -= 7;
}
if (remember_ymd(year, imonth, d))
remember(&remindex,
yearp, monthp, dayp, edp,
year, imonth, d, NULL);
continue;
}
continue;
}
/* Every dayofweek of the month */
if (lflags == (F_DAYOFWEEK | F_MONTH | F_VARIABLE)) {
dow = first_dayofweek_of_month(year, imonth);
d = (idayofweek - dow + 8) % 7;
while (d <= yearinfo->monthdays[imonth]) {
if (remember_ymd(year, imonth, d))
remember(&remindex,
yearp, monthp, dayp, edp,
year, imonth, d, NULL);
d += 7;
}
continue;
}
/* Easter */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_EASTER)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year, yearinfo->ieaster + offset,
&rm, &rd))
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, NULL);
continue;
}
/* Paskha */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_PASKHA)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year, yearinfo->ipaskha + offset,
&rm, &rd))
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, NULL);
continue;
}
/* Chinese New Year */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_CNY)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year, yearinfo->firstcnyday + offset,
&rm, &rd))
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, NULL);
continue;
}
/* FullMoon */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_FULLMOON)) {
int i;
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
for (i = 0; yearinfo->ffullmoon[i] > 0; i++) {
if (remember_yd(year,
floor(yearinfo->ffullmoon[i]) + offset,
&rm, &rd)) {
ed = floattotime(
yearinfo->ffullmoon[i]);
remember(&remindex,
yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
}
continue;
}
/* NewMoon */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_NEWMOON)) {
int i;
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
for (i = 0; yearinfo->ffullmoon[i] > 0; i++) {
if (remember_yd(year,
floor(yearinfo->fnewmoon[i]) + offset,
&rm, &rd)) {
ed = floattotime(yearinfo->fnewmoon[i]);
remember(&remindex,
yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
}
continue;
}
/* (Mar|Sep)Equinox */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_MAREQUINOX)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year, yearinfo->equinoxdays[0] + offset,
&rm, &rd)) {
ed = floattotime(yearinfo->equinoxdays[0]);
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
continue;
}
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_SEPEQUINOX)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year, yearinfo->equinoxdays[1] + offset,
&rm, &rd)) {
ed = floattotime(yearinfo->equinoxdays[1]);
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
continue;
}
/* (Jun|Dec)Solstice */
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_JUNSOLSTICE)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year,
yearinfo->solsticedays[0] + offset, &rm, &rd)) {
ed = floattotime(yearinfo->solsticedays[0]);
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
continue;
}
if ((lflags & ~F_MODIFIEROFFSET) ==
(F_SPECIALDAY | F_VARIABLE | F_DECSOLSTICE)) {
offset = 0;
if ((lflags & F_MODIFIEROFFSET) != 0)
offset = parseoffset(modifieroffset);
if (remember_yd(year,
yearinfo->solsticedays[1] + offset, &rm, &rd)) {
ed = floattotime(yearinfo->solsticedays[1]);
remember(&remindex, yearp, monthp, dayp, edp,
year, rm, rd, ed);
}
continue;
}
if (debug) {
printf("Unprocessed:\n");
debug_determinestyle(2, date, lflags, month, imonth,
dayofmonth, idayofmonth, dayofweek, idayofweek,
modifieroffset, modifierindex, specialday, syear,
iyear);
}
retvalsign = -1;
}
if (retvalsign == -1)
return (-remindex - 1);
else
return (remindex);
}
