// days are in [1..31], months are in [0..11], see "man localtime"
dt_logo_season_t get_logo_season(void)
{
time_t now;
time(&now);
struct tm lt;
localtime_r(&now, <);
// Halloween is active on 31.10. and 01.11.
if((lt.tm_mon == 9 && lt.tm_mday == 31) || (lt.tm_mon == 10 && lt.tm_mday == 1))
return DT_LOGO_SEASON_HALLOWEEN;
// Xmas is active from 24.12. until the end of the year
if(lt.tm_mon == 11 && lt.tm_mday >= 24) return DT_LOGO_SEASON_XMAS;
// Easter is active from 2 days before Easter Sunday until 1 day after
{
struct tm easter_sunday = lt;
easter(lt.tm_year+1900, &easter_sunday.tm_mon, &easter_sunday.tm_mday);
easter_sunday.tm_mon--;
easter_sunday.tm_hour = easter_sunday.tm_min = easter_sunday.tm_sec = 0;
easter_sunday.tm_isdst = -1;
time_t easter_sunday_sec = mktime(&easter_sunday);
// we start at midnight, so it's basically +- 2 days
if(labs(easter_sunday_sec - now) <= 2 * 24 * 60 * 60) return DT_LOGO_SEASON_EASTER;
}
return DT_LOGO_SEASON_NONE;
}
void Initialize()
{
char path[BUFFER];
struct tm sys_date;
time_t date;
time(&date);
sys_date = *localtime(&date);
quiet = 0;
X = 5;
no_database = 'n';
path[0] = '\0';
#ifdef _WIN32
strncpy(path, getenv("PROGRAMFILES"), BUFFER);
strncat(path, "\\giortes", BUFFER-strlen(path));
strncpy(database, path, BUFFER);
#else
strncpy(path, getenv("HOME"), BUFFER);
strncat(path, "/.giortes", BUFFER-strlen(path));
#endif
strncpy(personal, path, BUFFER);
strncpy(internat, path, BUFFER);
strncpy(settings, path, BUFFER);
#ifdef _WIN32
strncat(database, "\\database.dat", BUFFER-strlen(database));
strncat(personal, "\\personal.txt", BUFFER-strlen(personal));
strncat(internat, "\\int_days.txt", BUFFER-strlen(internat));
strncat(settings, "\\settings.txt", BUFFER-strlen(settings));
#else
strncpy(database, DATADIR"/database.dat", BUFFER);
strncat(personal, "/personal.txt", BUFFER-strlen(personal));
strncat(internat, "/int_days.txt", BUFFER-strlen(internat));
strncat(settings, "/settings.txt", BUFFER-strlen(settings));
#endif
current_year = sys_date.tm_year+1900;
current_day = sys_date.tm_mday;
current_month = sys_date.tm_mon + 1;
setTomorrow();
easter(current_year);
#ifndef NO_GUI
auto_close_flag=0;
auto_close=30;
#endif
readOptions(path);
}
/* Date of Easter. Input is the year and output is a date.
* The input can either be specified as an integer year or as a
* valid date in the current format.
*/
decNumber *dateEaster(decNumber *res, const decNumber *x) {
int y;
if (find_year(x, &y)) {
set_NaN(res);
return res;
} else {
int m, d;
easter(y, &m, &d);
build_date(res, y, m, d);
}
return res;
}
int main(int argc, char *argv[])
{
int yr, mo, dy;
while (--argc)
{
yr = atoi(*++argv);
if (100 > yr)
yr += 1900;
easter(yr, &mo, &dy);
printf("Easter in %d on %d/%d\n", yr, mo, dy);
}
return 0;
}
easter_related_t easter_related_init (year_t year)
{
date_t date;
easter_related_t holidays;
/* Easter date, always a Sunday. */
holidays.easter = date = easter(year);
/* Ascension day is 39 days after Easter.*/
holidays.ascension = plusab(&date, 39);
/* Pentecost is 10 days after Ascension day.*/
holidays.pentecost = plusab(&date, 10);
/* Trinity is 7 days after Pentecost.*/
holidays.trinity = plusab(&date, 7);
/* Corpus Christi is 4 days after Trinity.*/
holidays.corpus_christi = plusab(&date, 4);
return holidays;
}
int main(int argc, char **argv)
{
if (argc < 2) {
qDebug("XMethods' interface to Easter Dates with a SOAP::Lite service.");
qDebug("usage: %s <year>", argv[0]);
qDebug(" ");
return 1;
}
QCoreApplication app(argc, argv);
Easter easter(atoi(argv[1]), 0);
return app.exec();
}
/* ----------------------------------------------------------------- */
int congesmobstr(int jy, char string[])
/* ----------------------------------------------------------------- */
{int jm,jd; char st[32];
double tj,rh,rm,rs;
static char *day[7]={"Dim","Lun","Mar","Mer","Jeu","Ven","Sam"};
rh=12.0; rm=rs=0.0;
easter(jy,&jm,&jd);
tj=gregjd(jy,jm,jd,rh,rm,rs)+1.0;
jdgreg(tj,&jy,&jm,&jd,&rh,&rm,&rs);
sprintf(string,"Paques: %04d.%02d.%02d(%s)",jy,jm,jd,day[weekday(tj)]);
tj=gregjd(jy,jm,jd,rh,rm,rs)+38.0;
jdgreg(tj,&jy,&jm,&jd,&rh,&rm,&rs);
sprintf(st," Ascension: %04d.%02d.%02d(%s)",jy,jm,jd,day[weekday(tj)]); strcat(string,st);
tj=gregjd(jy,jm,jd,rh,rm,rs)+11.0;
jdgreg(tj,&jy,&jm,&jd,&rh,&rm,&rs);
sprintf(st," Pentecote: %04d.%02d.%02d(%s)",jy,jm,jd,day[weekday(tj)]); strcat(string,st);
return(0);
}
int
geteaster(char *s, int year)
{
int offset = 0;
#define EASTER "easter"
#define EASTERNAMELEN (sizeof(EASTER) - 1)
if (strncasecmp(s, EASTER, EASTERNAMELEN) == 0)
s += EASTERNAMELEN;
else if (neaster.name != NULL
&& strncasecmp(s, neaster.name, neaster.len) == 0
)
s += neaster.len;
else
return(0);
#ifdef DEBUG
printf("%s %d %d\n", s, year, EASTERNAMELEN);
#endif
/* Easter+1 or Easter-2
* ^ ^ */
switch(*s) {
case '-':
case '+':
offset = atoi(s);
break;
default:
offset = 0;
}
return(easter(year) + offset);
}
/*
* 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);
}
static void
createdate(int y, int m, int d)
{
struct cal_year *py, *pyp;
struct cal_month *pm, *pmp;
struct cal_day *pd, *pdp;
int *cumday;
pyp = NULL;
py = hyear;
while (py != NULL) {
if (py->year == y + 1900)
break;
pyp = py;
py = py->nextyear;
}
if (py == NULL) {
struct tm td;
time_t t;
py = (struct cal_year *)calloc(1, sizeof(struct cal_year));
py->year = y + 1900;
py->easter = easter(y);
py->paskha = paskha(y);
td = tm0;
td.tm_year = y;
td.tm_mday = 1;
t = mktime(&td);
localtime_r(&t, &td);
py->firstdayofweek = td.tm_wday;
if (pyp != NULL)
pyp->nextyear = py;
}
if (pyp == NULL) {
/* The very very very first one */
hyear = py;
}
pmp = NULL;
pm = py->months;
while (pm != NULL) {
if (pm->month == m)
break;
pmp = pm;
pm = pm->nextmonth;
}
if (pm == NULL) {
pm = (struct cal_month *)calloc(1, sizeof(struct cal_month));
pm->year = py;
pm->month = m;
cumday = cumdaytab[isleap(y)];
pm->firstdayjulian = cumday[m] + 2;
pm->firstdayofweek =
(py->firstdayofweek + pm->firstdayjulian -1) % 7;
if (pmp != NULL)
pmp->nextmonth = pm;
}
if (pmp == NULL)
py->months = pm;
pdp = NULL;
pd = pm->days;
while (pd != NULL) {
pdp = pd;
pd = pd->nextday;
}
if (pd == NULL) { /* Always true */
pd = (struct cal_day *)calloc(1, sizeof(struct cal_day));
pd->month = pm;
pd->year = py;
pd->dayofmonth = d;
pd->julianday = pm->firstdayjulian + d - 1;
pd->dayofweek = (pm->firstdayofweek + d - 1) % 7;
if (pdp != NULL)
pdp->nextday = pd;
}
if (pdp == NULL)
pm->days = pd;
}
