diff options
author | Frederic Culot <calcurse@culot.org> | 2008-04-12 21:14:03 +0000 |
---|---|---|
committer | Frederic Culot <calcurse@culot.org> | 2008-04-12 21:14:03 +0000 |
commit | efd782699b63038a36bf68eaa1230d2d10bd9b38 (patch) | |
tree | a8bf286c6aa9bbfc12192cefed63a98567a3f010 /src/calendar.c | |
parent | 0c281d2c1e53248f0075f988fb4ba02f041bd170 (diff) | |
download | calcurse-efd782699b63038a36bf68eaa1230d2d10bd9b38.zip |
Yet another style for source code. GNU style now used (I am fed up with tabs...)
Diffstat (limited to 'src/calendar.c')
-rwxr-xr-x | src/calendar.c | 742 |
1 files changed, 372 insertions, 370 deletions
diff --git a/src/calendar.c b/src/calendar.c index 93b461c..6c1d957 100755 --- a/src/calendar.c +++ b/src/calendar.c @@ -1,4 +1,4 @@ -/* $calcurse: calendar.c,v 1.14 2008/04/09 20:38:29 culot Exp $ */ +/* $calcurse: calendar.c,v 1.15 2008/04/12 21:14:03 culot Exp $ */ /* * Calcurse - text-based organizer @@ -55,273 +55,276 @@ #define isleap(y) ((((y) % 4) == 0 && ((y) % 100) != 0) || ((y) % 400) == 0) -static date_t today, slctd_day; -static bool week_begins_on_monday; -static pthread_mutex_t date_thread_mutex = PTHREAD_MUTEX_INITIALIZER; -static pthread_t calendar_t_date; +static date_t today, slctd_day; +static bool week_begins_on_monday; +static pthread_mutex_t date_thread_mutex = PTHREAD_MUTEX_INITIALIZER; +static pthread_t calendar_t_date; /* Thread needed to update current date in calendar. */ static void * -calendar_date_thread(void *arg) +calendar_date_thread (void *arg) { - time_t now, tomorrow; + time_t now, tomorrow; - for (;;) { - tomorrow = (time_t)(get_today() + DAYINSEC); + for (;;) + { + tomorrow = (time_t) (get_today () + DAYINSEC); - while ((now = time(NULL)) < tomorrow) { - sleep(tomorrow - now); - } - - calendar_set_current_date(); - calendar_update_panel(win[CAL].p); + while ((now = time (NULL)) < tomorrow) + { + sleep (tomorrow - now); } - pthread_exit((void*) 0); + calendar_set_current_date (); + calendar_update_panel (win[CAL].p); + } + + pthread_exit ((void *) 0); } /* Launch the calendar date thread. */ -void -calendar_start_date_thread(void) +void +calendar_start_date_thread (void) { - pthread_create(&calendar_t_date, NULL, calendar_date_thread, NULL); - return; + pthread_create (&calendar_t_date, NULL, calendar_date_thread, NULL); + return; } /* Stop the calendar date thread. */ -void -calendar_stop_date_thread(void) +void +calendar_stop_date_thread (void) { - pthread_cancel(calendar_t_date); - return; + pthread_cancel (calendar_t_date); + return; } /* Set static variable today to current date */ -void -calendar_set_current_date(void) +void +calendar_set_current_date (void) { - time_t timer; - struct tm *tm; + time_t timer; + struct tm *tm; - timer = time(NULL); - tm = localtime(&timer); + timer = time (NULL); + tm = localtime (&timer); - pthread_mutex_lock(&date_thread_mutex); - today.dd = tm->tm_mday; - today.mm = tm->tm_mon + 1; - today.yyyy = tm->tm_year + 1900; - pthread_mutex_unlock(&date_thread_mutex); + pthread_mutex_lock (&date_thread_mutex); + today.dd = tm->tm_mday; + today.mm = tm->tm_mon + 1; + today.yyyy = tm->tm_year + 1900; + pthread_mutex_unlock (&date_thread_mutex); } /* Needed to display sunday or monday as the first day of week in calendar. */ void -calendar_set_first_day_of_week(wday_e first_day) +calendar_set_first_day_of_week (wday_e first_day) { - switch (first_day) { - case SUNDAY: - week_begins_on_monday = false; - break; - case MONDAY: - week_begins_on_monday = true; - break; - default: - fputs(_("ERROR in calendar_set_first_day_of_week\n"), stderr); - week_begins_on_monday = false; - /* NOTREACHED */ - } + switch (first_day) + { + case SUNDAY: + week_begins_on_monday = false; + break; + case MONDAY: + week_begins_on_monday = true; + break; + default: + fputs (_("ERROR in calendar_set_first_day_of_week\n"), stderr); + week_begins_on_monday = false; + /* NOTREACHED */ + } } /* Swap first day of week in calendar. */ void -calendar_change_first_day_of_week(void) +calendar_change_first_day_of_week (void) { - week_begins_on_monday = !week_begins_on_monday; + week_begins_on_monday = !week_begins_on_monday; } /* Return true if week begins on monday, false otherwise. */ bool -calendar_week_begins_on_monday(void) +calendar_week_begins_on_monday (void) { - return (week_begins_on_monday); + return (week_begins_on_monday); } /* Fill in the given variable with the current date. */ void -calendar_store_current_date(date_t *date) +calendar_store_current_date (date_t *date) { - pthread_mutex_lock(&date_thread_mutex); - *date = today; - pthread_mutex_unlock(&date_thread_mutex); + pthread_mutex_lock (&date_thread_mutex); + *date = today; + pthread_mutex_unlock (&date_thread_mutex); } /* This is to start at the current date in calendar. */ void -calendar_init_slctd_day(void) +calendar_init_slctd_day (void) { - calendar_store_current_date(&slctd_day); + calendar_store_current_date (&slctd_day); } /* Return the selected day in calendar */ date_t * -calendar_get_slctd_day(void) +calendar_get_slctd_day (void) { - return (&slctd_day); + return (&slctd_day); } /* Returned value represents the selected day in calendar (in seconds) */ long -calendar_get_slctd_day_sec(void) +calendar_get_slctd_day_sec (void) { - return (date2sec(slctd_day, 0, 0)); + return (date2sec (slctd_day, 0, 0)); } -static int -isBissextile(unsigned year) +static int +isBissextile (unsigned year) { - return (year % 400 == 0 || (year % 4 == 0 && year % 100 != 0)); + return (year % 400 == 0 || (year % 4 == 0 && year % 100 != 0)); } -static unsigned -months_to_days(unsigned month) +static unsigned +months_to_days (unsigned month) { - return ((month * 3057 - 3007) / 100); + return ((month * 3057 - 3007) / 100); } -static long -years_to_days(unsigned year) +static long +years_to_days (unsigned year) { - return (year * 365L + year / 4 - year / 100 + year / 400); + return (year * 365L + year / 4 - year / 100 + year / 400); } -static long -ymd_to_scalar(unsigned year, unsigned month, unsigned day) +static long +ymd_to_scalar (unsigned year, unsigned month, unsigned day) { - long scalar; + long scalar; - scalar = day + months_to_days(month); - if (month > 2) - scalar -= isBissextile(year) ? 1 : 2; - year--; - scalar += years_to_days(year); + scalar = day + months_to_days (month); + if (month > 2) + scalar -= isBissextile (year) ? 1 : 2; + year--; + scalar += years_to_days (year); - return (scalar); + return (scalar); } /* Function used to display the calendar panel. */ void -calendar_update_panel(WINDOW *cwin) +calendar_update_panel (WINDOW *cwin) { - date_t current_day, check_day; - int c_day, c_day_1, day_1_sav, numdays, j; - unsigned yr, mo; - int ofs_x, ofs_y; - int item_this_day = 0; - int title_lines = 3; - int sunday_first = 0; - - /* inits */ - calendar_store_current_date(¤t_day); - erase_window_part(cwin, 1, title_lines, CALWIDTH - 2, CALHEIGHT - 2); - mo = slctd_day.mm; - yr = slctd_day.yyyy; - if (!calendar_week_begins_on_monday()) - sunday_first = 1; - - /* offset for centering calendar in window */ - ofs_y = 2 + (CALHEIGHT - 9) / 2; - ofs_x = (CALWIDTH - 27) / 2; - - /* checking the number of days in february */ - numdays = days[mo - 1]; - if (2 == mo && isBissextile(yr)) - ++numdays; - - /* - * the first calendar day will be monday or sunday, depending on - * 'week_begins_on_monday' value - */ - c_day_1 = - (int)((ymd_to_scalar(yr, mo, 1 + sunday_first) - (long)1) % 7L); - - /* Write the current month and year on top of the calendar */ - custom_apply_attr(cwin, ATTR_HIGH); - mvwprintw(cwin, ofs_y, - (CALWIDTH - (strlen(_(monthnames[mo - 1])) + 5)) / 2, - "%s %d", _(monthnames[mo - 1]), slctd_day.yyyy); - custom_remove_attr(cwin, ATTR_HIGH); - ++ofs_y; - - /* print the days, with regards to the first day of the week */ - custom_apply_attr(cwin, ATTR_HIGH); - for (j = 0; j < 7; j++) { - mvwprintw(cwin, ofs_y, ofs_x + 4 * j, "%s", - _(daynames[1 + j - sunday_first])); + date_t current_day, check_day; + int c_day, c_day_1, day_1_sav, numdays, j; + unsigned yr, mo; + int ofs_x, ofs_y; + int item_this_day = 0; + int title_lines = 3; + int sunday_first = 0; + + /* inits */ + calendar_store_current_date (¤t_day); + erase_window_part (cwin, 1, title_lines, CALWIDTH - 2, CALHEIGHT - 2); + mo = slctd_day.mm; + yr = slctd_day.yyyy; + if (!calendar_week_begins_on_monday ()) + sunday_first = 1; + + /* offset for centering calendar in window */ + ofs_y = 2 + (CALHEIGHT - 9) / 2; + ofs_x = (CALWIDTH - 27) / 2; + + /* checking the number of days in february */ + numdays = days[mo - 1]; + if (2 == mo && isBissextile (yr)) + ++numdays; + + /* + * the first calendar day will be monday or sunday, depending on + * 'week_begins_on_monday' value + */ + c_day_1 = (int) ((ymd_to_scalar (yr, mo, 1 + sunday_first) - (long) 1) % 7L); + + /* Write the current month and year on top of the calendar */ + custom_apply_attr (cwin, ATTR_HIGH); + mvwprintw (cwin, ofs_y, (CALWIDTH - (strlen (_(monthnames[mo - 1])) + 5)) / 2, + "%s %d", _(monthnames[mo - 1]), slctd_day.yyyy); + custom_remove_attr (cwin, ATTR_HIGH); + ++ofs_y; + + /* print the days, with regards to the first day of the week */ + custom_apply_attr (cwin, ATTR_HIGH); + for (j = 0; j < 7; j++) + { + mvwprintw (cwin, ofs_y, ofs_x + 4 * j, "%s", + _(daynames[1 + j - sunday_first])); + } + custom_remove_attr (cwin, ATTR_HIGH); + + day_1_sav = (c_day_1 + 1) * 3 + c_day_1 - 7; + + for (c_day = 1; c_day <= numdays; ++c_day, ++c_day_1, c_day_1 %= 7) + { + check_day.dd = c_day; + check_day.mm = slctd_day.mm; + check_day.yyyy = slctd_day.yyyy; + + /* check if the day contains an event or an appointment */ + item_this_day = day_check_if_item (check_day); + + /* Go to next line, the week is over. */ + if (!c_day_1 && 1 != c_day) + { + ++ofs_y; + ofs_x = 2 - day_1_sav - 4 * c_day - 1; } - custom_remove_attr(cwin, ATTR_HIGH); - - day_1_sav = (c_day_1 + 1) * 3 + c_day_1 - 7; - - for (c_day = 1; c_day <= numdays; ++c_day, ++c_day_1, c_day_1 %= 7) { - check_day.dd = c_day; - check_day.mm = slctd_day.mm; - check_day.yyyy = slctd_day.yyyy; - - /* check if the day contains an event or an appointment */ - item_this_day = - day_check_if_item(check_day); - - /* Go to next line, the week is over. */ - if (!c_day_1 && 1 != c_day) { - ++ofs_y; - ofs_x = 2 - day_1_sav - 4 * c_day - 1; - } - - /* This is today, so print it in yellow. */ - if (c_day == current_day.dd && current_day.mm == slctd_day.mm - && current_day.yyyy == slctd_day.yyyy && - current_day.dd != slctd_day.dd) { - - custom_apply_attr(cwin, ATTR_LOWEST); - mvwprintw(cwin, ofs_y + 1, - ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); - custom_remove_attr(cwin, ATTR_LOWEST); - - } else if (c_day == slctd_day.dd && - ( (current_day.dd != slctd_day.dd) || - (current_day.mm != slctd_day.mm) - || (current_day.yyyy != slctd_day.yyyy))) { - - /* This is the selected day, print it in red. */ - custom_apply_attr(cwin, ATTR_MIDDLE); - mvwprintw(cwin, ofs_y + 1, - ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); - custom_remove_attr(cwin, ATTR_MIDDLE); - - } else if (c_day == slctd_day.dd && - current_day.dd == slctd_day.dd && - current_day.mm == slctd_day.mm && - current_day.yyyy == slctd_day.yyyy) { - - /* today is the selected day */ - custom_apply_attr(cwin, ATTR_MIDDLE); - mvwprintw(cwin, ofs_y + 1, - ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); - custom_remove_attr(cwin, ATTR_MIDDLE); - - } else if (item_this_day) { - custom_apply_attr(cwin, ATTR_LOW); - mvwprintw(cwin, ofs_y + 1, - ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); - custom_remove_attr(cwin, ATTR_LOW); - } else - /* otherwise, print normal days in black */ - mvwprintw(cwin, ofs_y + 1, - ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); + /* This is today, so print it in yellow. */ + if (c_day == current_day.dd && current_day.mm == slctd_day.mm + && current_day.yyyy == slctd_day.yyyy + && current_day.dd != slctd_day.dd) + { + custom_apply_attr (cwin, ATTR_LOWEST); + mvwprintw (cwin, ofs_y + 1, + ofs_x + day_1_sav + 4 * c_day + 1, "%2d", c_day); + custom_remove_attr (cwin, ATTR_LOWEST); + } + else if (c_day == slctd_day.dd && + ((current_day.dd != slctd_day.dd) + || (current_day.mm != slctd_day.mm) + || (current_day.yyyy != slctd_day.yyyy))) + { + /* This is the selected day, print it in red. */ + custom_apply_attr (cwin, ATTR_MIDDLE); + mvwprintw (cwin, ofs_y + 1, ofs_x + day_1_sav + 4 * c_day + 1, "%2d", + c_day); + custom_remove_attr (cwin, ATTR_MIDDLE); + } + else if (c_day == slctd_day.dd && current_day.dd == slctd_day.dd + && current_day.mm == slctd_day.mm + && current_day.yyyy == slctd_day.yyyy) + { + /* today is the selected day */ + custom_apply_attr (cwin, ATTR_MIDDLE); + mvwprintw (cwin, ofs_y + 1, ofs_x + day_1_sav + 4 * c_day + 1, "%2d", + c_day); + custom_remove_attr (cwin, ATTR_MIDDLE); + } + else if (item_this_day) + { + custom_apply_attr (cwin, ATTR_LOW); + mvwprintw (cwin, ofs_y + 1, ofs_x + day_1_sav + 4 * c_day + 1, "%2d", + c_day); + custom_remove_attr (cwin, ATTR_LOW); } - wnoutrefresh(cwin); + else + /* otherwise, print normal days in black */ + mvwprintw (cwin, ofs_y + 1, ofs_x + day_1_sav + 4 * c_day + 1, "%2d", + c_day); + } + wnoutrefresh (cwin); } /* @@ -332,60 +335,58 @@ calendar_update_panel(WINDOW *cwin) * with the newly selected date. */ void -calendar_change_day(int datefmt) +calendar_change_day (int datefmt) { #define LDAY 11 - char selected_day[LDAY] = ""; - char outstr[BUFSIZ]; - date_t today; - int dday, dmonth, dyear; - int wrong_day = 1; - char *mesg_line1 = - _("The day you entered is not valid (should be between 01/01/1902 and 12/31/2037)"); - char *mesg_line2 = _("Press [ENTER] to continue"); - char *request_date = - "Enter the day to go to [ENTER for today] : %s"; - - while (wrong_day) { - snprintf(outstr, BUFSIZ, request_date, - DATEFMT_DESC(datefmt)); - status_mesg(_(outstr), ""); - if (getstring(win[STA].p, selected_day, LDAY, 0, 1) == - GETSTRING_ESC) - return; - else { - if (strlen(selected_day) == 0) { - calendar_store_current_date(&today); - - /* go to today */ - wrong_day = 0; - slctd_day.dd = today.dd; - slctd_day.mm = today.mm; - slctd_day.yyyy = today.yyyy; - - } else if (strlen(selected_day) != LDAY - 1) { - - wrong_day = 1; - - } else if (parse_date(selected_day, datefmt, - &dyear, &dmonth, &dday)) { - - wrong_day = 0; - - /* go to chosen day */ - slctd_day.dd = dday; - slctd_day.mm = dmonth; - slctd_day.yyyy = dyear; - } - - if (wrong_day) { - status_mesg(mesg_line1, mesg_line2); - wgetch(win[STA].p); - } - } + char selected_day[LDAY] = ""; + char outstr[BUFSIZ]; + date_t today; + int dday, dmonth, dyear; + int wrong_day = 1; + char *mesg_line1 = + _("The day you entered is not valid " + "(should be between 01/01/1902 and 12/31/2037)"); + char *mesg_line2 = _("Press [ENTER] to continue"); + char *request_date = "Enter the day to go to [ENTER for today] : %s"; + + while (wrong_day) + { + snprintf (outstr, BUFSIZ, request_date, DATEFMT_DESC (datefmt)); + status_mesg (_(outstr), ""); + if (getstring (win[STA].p, selected_day, LDAY, 0, 1) == GETSTRING_ESC) + return; + else + { + if (strlen (selected_day) == 0) + { + calendar_store_current_date (&today); + /* go to today */ + wrong_day = 0; + slctd_day.dd = today.dd; + slctd_day.mm = today.mm; + slctd_day.yyyy = today.yyyy; + } + else if (strlen (selected_day) != LDAY - 1) + { + wrong_day = 1; + } + else if (parse_date (selected_day, datefmt, &dyear, &dmonth, &dday)) + { + wrong_day = 0; + /* go to chosen day */ + slctd_day.dd = dday; + slctd_day.mm = dmonth; + slctd_day.yyyy = dyear; + } + if (wrong_day) + { + status_mesg (mesg_line1, mesg_line2); + wgetch (win[STA].p); + } } + } - return; + return; } /* @@ -393,68 +394,70 @@ calendar_change_day(int datefmt) * Returns 0 on success, 1 otherwise. */ int -date_change(struct tm *date, int delta_month, int delta_day) -{ - struct tm t; - - t = *date; - t.tm_mon += delta_month; - t.tm_mday += delta_day; - - if (mktime(&t) == -1) - return (1); - else { - *date = t; - return (0); - } +date_change (struct tm *date, int delta_month, int delta_day) +{ + struct tm t; + + t = *date; + t.tm_mon += delta_month; + t.tm_mday += delta_day; + + if (mktime (&t) == -1) + return (1); + else + { + *date = t; + return (0); + } } void -calendar_move(move_t move) +calendar_move (move_t move) { - int ret; - struct tm t; - - memset(&t, 0, sizeof(struct tm)); - t.tm_mday = slctd_day.dd; - t.tm_mon = slctd_day.mm - 1; - t.tm_year = slctd_day.yyyy - 1900; - - switch (move) { - case UP: - if ((slctd_day.dd <= 7) && (slctd_day.mm == 1) && - (slctd_day.yyyy == 1902)) - return; - ret = date_change(&t, 0, -WEEKINDAYS); - break; - case DOWN: - if ((slctd_day.dd > days[slctd_day.mm - 1] - 7) - && (slctd_day.mm == 12) && (slctd_day.yyyy == 2037)) - return; - ret = date_change(&t, 0, WEEKINDAYS); - break; - case LEFT: - if ((slctd_day.dd == 1) && (slctd_day.mm == 1) && - (slctd_day.yyyy == 1902)) - return; - ret = date_change(&t, 0, -1); - break; - case RIGHT: - if ((slctd_day.dd == 31) && (slctd_day.mm == 12) && - (slctd_day.yyyy == 2037)) - return; - ret = date_change(&t, 0, 1); - break; - default: - ret = 1; - /* NOTREACHED */ - } - - if (ret == 0) { - slctd_day.dd = t.tm_mday; - slctd_day.mm = t.tm_mon + 1; - slctd_day.yyyy = t.tm_year + 1900; - } + int ret; + struct tm t; + + memset (&t, 0, sizeof (struct tm)); + t.tm_mday = slctd_day.dd; + t.tm_mon = slctd_day.mm - 1; + t.tm_year = slctd_day.yyyy - 1900; + + switch (move) + { + case UP: + if ((slctd_day.dd <= 7) && (slctd_day.mm == 1) + && (slctd_day.yyyy == 1902)) + return; + ret = date_change (&t, 0, -WEEKINDAYS); + break; + case DOWN: + if ((slctd_day.dd > days[slctd_day.mm - 1] - 7) + && (slctd_day.mm == 12) && (slctd_day.yyyy == 2037)) + return; + ret = date_change (&t, 0, WEEKINDAYS); + break; + case LEFT: + if ((slctd_day.dd == 1) && (slctd_day.mm == 1) + && (slctd_day.yyyy == 1902)) + return; + ret = date_change (&t, 0, -1); + break; + case RIGHT: + if ((slctd_day.dd == 31) && (slctd_day.mm == 12) + && (slctd_day.yyyy == 2037)) + return; + ret = date_change (&t, 0, 1); + break; + default: + ret = 1; + /* NOTREACHED */ + } + if (ret == 0) + { + slctd_day.dd = t.tm_mday; + slctd_day.mm = t.tm_mon + 1; + slctd_day.yyyy = t.tm_year + 1900; + } } /* @@ -499,9 +502,9 @@ calendar_move(move_t move) * convert degrees to radians */ static double -dtor(double deg) +dtor (double deg) { - return(deg * M_PI / 180); + return (deg * M_PI / 180); } /* @@ -509,15 +512,15 @@ dtor(double deg) * adjust value so 0 <= deg <= 360 */ static void -adj360(double *deg) +adj360 (double *deg) { - for (;;) - if (*deg < 0.0) - *deg += 360.0; - else if (*deg > 360.0) - *deg -= 360.0; - else - break; + for (;;) + if (*deg < 0.0) + *deg += 360.0; + else if (*deg > 360.0) + *deg -= 360.0; + else + break; } /* @@ -525,35 +528,35 @@ adj360(double *deg) * return phase of the moon */ static double -potm(double days) +potm (double days) { - double N, Msol, Ec, LambdaSol, l, Mm, Ev, Ac, A3, Mmprime; - double A4, lprime, V, ldprime, D, Nm; - - N = 360.0 * days / 365.242191; /* sec 46 #3 */ - adj360(&N); - Msol = N + EPSILONg - RHOg; /* sec 46 #4 */ - adj360(&Msol); - Ec = 360 / M_PI * ECCEN * sin(dtor(Msol)); /* sec 46 #5 */ - LambdaSol = N + Ec + EPSILONg; /* sec 46 #6 */ - adj360(&LambdaSol); - l = 13.1763966 * days + lzero; /* sec 65 #4 */ - adj360(&l); - Mm = l - (0.1114041 * days) - Pzero; /* sec 65 #5 */ - adj360(&Mm); - Nm = Nzero - (0.0529539 * days); /* sec 65 #6 */ - adj360(&Nm); - Ev = 1.2739 * sin(dtor(2*(l - LambdaSol) - Mm)); /* sec 65 #7 */ - Ac = 0.1858 * sin(dtor(Msol)); /* sec 65 #8 */ - A3 = 0.37 * sin(dtor(Msol)); - Mmprime = Mm + Ev - Ac - A3; /* sec 65 #9 */ - Ec = 6.2886 * sin(dtor(Mmprime)); /* sec 65 #10 */ - A4 = 0.214 * sin(dtor(2 * Mmprime)); /* sec 65 #11 */ - lprime = l + Ev + Ec - Ac + A4; /* sec 65 #12 */ - V = 0.6583 * sin(dtor(2 * (lprime - LambdaSol))); /* sec 65 #13 */ - ldprime = lprime + V; /* sec 65 #14 */ - D = ldprime - LambdaSol; /* sec 67 #2 */ - return(50.0 * (1 - cos(dtor(D)))); /* sec 67 #3 */ + double N, Msol, Ec, LambdaSol, l, Mm, Ev, Ac, A3, Mmprime; + double A4, lprime, V, ldprime, D, Nm; + + N = 360.0 * days / 365.242191; /* sec 46 #3 */ + adj360 (&N); + Msol = N + EPSILONg - RHOg; /* sec 46 #4 */ + adj360 (&Msol); + Ec = 360 / M_PI * ECCEN * sin (dtor (Msol)); /* sec 46 #5 */ + LambdaSol = N + Ec + EPSILONg; /* sec 46 #6 */ + adj360 (&LambdaSol); + l = 13.1763966 * days + lzero; /* sec 65 #4 */ + adj360 (&l); + Mm = l - (0.1114041 * days) - Pzero; /* sec 65 #5 */ + adj360 (&Mm); + Nm = Nzero - (0.0529539 * days); /* sec 65 #6 */ + adj360 (&Nm); + Ev = 1.2739 * sin (dtor (2 * (l - LambdaSol) - Mm)); /* sec 65 #7 */ + Ac = 0.1858 * sin (dtor (Msol)); /* sec 65 #8 */ + A3 = 0.37 * sin (dtor (Msol)); + Mmprime = Mm + Ev - Ac - A3; /* sec 65 #9 */ + Ec = 6.2886 * sin (dtor (Mmprime)); /* sec 65 #10 */ + A4 = 0.214 * sin (dtor (2 * Mmprime)); /* sec 65 #11 */ + lprime = l + Ev + Ec - Ac + A4; /* sec 65 #12 */ + V = 0.6583 * sin (dtor (2 * (lprime - LambdaSol))); /* sec 65 #13 */ + ldprime = lprime + V; /* sec 65 #14 */ + D = ldprime - LambdaSol; /* sec 67 #2 */ + return (50.0 * (1 - cos (dtor (D)))); /* sec 67 #3 */ } /* @@ -568,24 +571,24 @@ potm(double days) * */ static double -pom(time_t tmpt) +pom (time_t tmpt) { - struct tm *GMT; - double days; - int cnt; - pom_e pom; - - pom = NO_POM; - GMT = gmtime(&tmpt); - days = (GMT->tm_yday + 1) + ((GMT->tm_hour + - (GMT->tm_min / 60.0) + (GMT->tm_sec / 3600.0)) / 24.0); - for (cnt = EPOCH; cnt < GMT->tm_year; ++cnt) - days += isleap(cnt + TM_YEAR_BASE) ? 366 : 365; - /* Selected time could be before EPOCH */ - for (cnt = GMT->tm_year; cnt < EPOCH; ++cnt) - days -= isleap(cnt + TM_YEAR_BASE) ? 366 : 365; - - return (potm(days)); + struct tm *GMT; + double days; + int cnt; + pom_e pom; + + pom = NO_POM; + GMT = gmtime (&tmpt); + days = (GMT->tm_yday + 1) + ((GMT->tm_hour + (GMT->tm_min / 60.0) + + (GMT->tm_sec / 3600.0)) / 24.0); + for (cnt = EPOCH; cnt < GMT->tm_year; ++cnt) + days += isleap (cnt + TM_YEAR_BASE) ? 366 : 365; + /* Selected time could be before EPOCH */ + for (cnt = GMT->tm_year; cnt < EPOCH; ++cnt) + days -= isleap (cnt + TM_YEAR_BASE) ? 366 : 365; + + return (potm (days)); } /* @@ -594,25 +597,24 @@ pom(time_t tmpt) * the phase of the moon for previous day. */ char * -calendar_get_pom(time_t date) +calendar_get_pom (time_t date) { - char *pom_pict[MOON_PHASES] = {" ", "|) ", "(|)", "(| ", " | "}; - pom_e phase = NO_POM; - double pom_today, relative_pom, pom_yesterday, pom_tomorrow; - const double half = 50.0; - - pom_yesterday = pom(date); - pom_today = pom(date + DAYINSEC); - relative_pom = abs(pom_today - half); - pom_tomorrow = pom(date + 2 * DAYINSEC); - if (pom_today > pom_yesterday && pom_today > pom_tomorrow) - phase = FULL_MOON; - else if (pom_today < pom_yesterday && pom_today < pom_tomorrow) - phase = NEW_MOON; - else if (relative_pom < abs(pom_yesterday - half) && - relative_pom < abs(pom_tomorrow - half)) - phase = (pom_tomorrow > pom_today) ? - FIRST_QUARTER : LAST_QUARTER; - - return (pom_pict[phase]); + char *pom_pict[MOON_PHASES] = { " ", "|) ", "(|)", "(| ", " | " }; + pom_e phase = NO_POM; + double pom_today, relative_pom, pom_yesterday, pom_tomorrow; + const double half = 50.0; + + pom_yesterday = pom (date); + pom_today = pom (date + DAYINSEC); + relative_pom = abs (pom_today - half); + pom_tomorrow = pom (date + 2 * DAYINSEC); + if (pom_today > pom_yesterday && pom_today > pom_tomorrow) + phase = FULL_MOON; + else if (pom_today < pom_yesterday && pom_today < pom_tomorrow) + phase = NEW_MOON; + else if (relative_pom < abs (pom_yesterday - half) + && relative_pom < abs (pom_tomorrow - half)) + phase = (pom_tomorrow > pom_today) ? FIRST_QUARTER : LAST_QUARTER; + + return (pom_pict[phase]); } |