static Recurrence*
_get_day_of_month_recurrence(GncFrequency *gf, GDate *start_date, int multiplier, char *combo_name, char *combo_weekend_name)
{
Recurrence *r;
GtkWidget *day_of_month_combo = glade_xml_get_widget(gf->gxml, combo_name);
int day_of_month_index = gtk_combo_box_get_active(GTK_COMBO_BOX(day_of_month_combo));
GtkWidget *weekend_adjust_combo = glade_xml_get_widget(gf->gxml, combo_weekend_name);
int weekend_adjust = gtk_combo_box_get_active(GTK_COMBO_BOX(weekend_adjust_combo));
GDateWeekday selected_day_of_week;
GDate *day_of_week_date;
int selected_index, selected_week;
r = g_new0(Recurrence, 1);
if (day_of_month_index > LAST_DAY_OF_MONTH_OPTION_INDEX + 7)
{
selected_index = day_of_month_index - LAST_DAY_OF_MONTH_OPTION_INDEX - 7;
day_of_week_date = g_date_new_julian(g_date_get_julian(start_date));
selected_week = (selected_index - 1) / 7 == 4 ? 3 : (selected_index - 1) / 7;
selected_day_of_week = selected_index - 7 * selected_week;
g_date_set_day(day_of_week_date, 1);
while (g_date_get_weekday(day_of_week_date) != selected_day_of_week)
g_date_add_days(day_of_week_date, 1);
g_date_add_days(day_of_week_date, 7 * selected_week);
recurrenceSet(r, multiplier, PERIOD_NTH_WEEKDAY, day_of_week_date, WEEKEND_ADJ_NONE);
}
else if (day_of_month_index > LAST_DAY_OF_MONTH_OPTION_INDEX)
{
day_of_week_date = g_date_new_julian(g_date_get_julian(start_date));
selected_day_of_week = day_of_month_index - LAST_DAY_OF_MONTH_OPTION_INDEX;
// increment until we align on the DOW, but stay inside the month
g_date_set_day(day_of_week_date, 1);
while (g_date_get_weekday(day_of_week_date) != selected_day_of_week)
g_date_add_days(day_of_week_date, 1);
recurrenceSet(r, multiplier, PERIOD_LAST_WEEKDAY, day_of_week_date, weekend_adjust);
}
else if (day_of_month_index == LAST_DAY_OF_MONTH_OPTION_INDEX)
{
GDate *day_of_month = g_date_new_julian(g_date_get_julian(start_date));
recurrenceSet(r, multiplier, PERIOD_END_OF_MONTH, day_of_month, weekend_adjust);
}
else
{
int allowable_date = -1;
GDate *day_of_month = g_date_new_julian(g_date_get_julian(start_date));
allowable_date = MIN(day_of_month_index + 1,
g_date_get_days_in_month(g_date_get_month(day_of_month),
g_date_get_year(day_of_month)));
g_date_set_day(day_of_month, allowable_date);
recurrenceSet(r, multiplier, PERIOD_MONTH, day_of_month, weekend_adjust);
}
return r;
}
void
gnm_date_add_days (GDate *d, int n)
{
if (!g_date_valid (d))
return;
if (n >= 0) {
guint32 lim = 23936166; /* 31-Dec-65535 */
guint32 j = g_date_get_julian (d);
if (j > lim || (unsigned)n > lim - j)
goto bad;
g_date_add_days (d, n);
} else {
int m = g_date_get_julian (d) - 1;
if (m + n <= 0)
goto bad;
g_date_subtract_days (d, -n);
}
return;
bad:
g_date_clear (d, 1);
}
void
mrp_time2_add_days (MrpTime *t, gint days)
{
g_return_if_fail (t != NULL);
g_return_if_fail (days >= 0);
g_date_add_days (&t->date, days);
}
void
utl_date_set_nearest_weekday (GDate *date, gint weekdays, gboolean month_mode)
{
gint day, start_day, days_in_month;
gint i, j;
if (weekdays == D_WEEK) return;
g_return_if_fail (weekdays > D_BAD_DAY && weekdays <= D_WEEK);
g_return_if_fail (g_date_valid (date));
day = g_date_get_weekday (date) - 1;
if (month_mode == TRUE) {
days_in_month = utl_date_get_days_in_month (date);
start_day = g_date_get_day (date);
for (i = 0; i < 7; i++) {
if (weekdays & (1 << ((day + i) % 7))) break;
}
for (j = 0; j < 7; j++) {
if (weekdays & (1 << ((day + 7 - j) % 7))) break;
}
if (start_day + i > days_in_month) i = 7;
if (start_day - j < 1) j = 7;
if (i <= j) {
if (i > 0) g_date_add_days (date, i);
} else {
if (j > 0) g_date_subtract_days (date, j);
}
} else {
for (i = 0; i < 7; i++) {
if (weekdays & (1 << ((day + i) % 7))) break;
}
if (i > 0) g_date_add_days (date, i);
}
}
/**
* increase or decrease the date in the entry date
*
* \param entry
* \param movement + or - ONE_DAY, ONE_WEEK, ONE_MONTH, ONE_YEAR
*
* \return
* */
void gsb_calendar_entry_step_date ( GtkWidget *entry,
gint movement )
{
GDate *date;
gchar *string;
/* on commence par vérifier que la date est valide */
if ( !gsb_date_check_and_complete_entry ( entry, TRUE ) )
return;
date = gsb_date_get_last_entry_date ( gtk_entry_get_text ( GTK_ENTRY ( entry )));
switch ( movement )
{
case ONE_DAY :
case ONE_WEEK :
g_date_add_days ( date, movement ) ;
break ;
case -ONE_DAY :
case -ONE_WEEK :
g_date_subtract_days ( date, -movement ) ;
break ;
case ONE_MONTH :
g_date_add_months ( date, 1 ) ;
break ;
case -ONE_MONTH :
g_date_subtract_months ( date, 1 ) ;
break ;
case ONE_YEAR :
g_date_add_years ( date, 1 ) ;
break ;
case -ONE_YEAR :
g_date_subtract_years ( date, 1 ) ;
break ;
default :
break ;
}
string = gsb_format_gdate (date);
gtk_entry_set_text ( GTK_ENTRY ( entry ), string );
g_date_free (date);
g_free (string);
}
void
hippo_platform_impl_windows_migrate_cookie(const char *from_web_host,
const char *to_web_host)
{
char *username;
char *password;
// See if we already have a cookie from the new host
if (read_ie_login_cookie(to_web_host, &username, &password)) {
g_free(username);
g_free(password);
return;
}
if (!read_ie_login_cookie(from_web_host, &username, &password))
return;
GDate *date = g_date_new();
GTimeVal timeval;
g_get_current_time(&timeval);
g_date_set_time_val(date, &timeval);
g_date_add_days(date, 5 * 365); // 5 years, more or less
// Can't use g_date_strftime, since that would be unpredictably located
// while we need fixed english-locale DAY, DD-MMM-YYYY HH:MM:SS GMT
static const char *days[] = {
"Mon", "Tue", "Wed", "The", "Fri", "Sat", "Sun"
};
static const char * const months[] = {
"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};
char *cookieUTF8 = g_strdup_printf("auth=host=%s&name=%s&password=%s; Path=/; expires = %s, %02d-%s-%04d 00:00:00 GMT",
to_web_host,
username,
password,
days[(int)g_date_get_weekday(date) - 1],
g_date_get_day(date),
months[(int)g_date_get_month(date) - 1],
g_date_get_year(date));
g_date_free(date);
HippoBSTR cookie;
cookie.setUTF8(cookieUTF8, -1);
g_free(cookieUTF8);
HippoBSTR authUrl;
makeAuthUrl(to_web_host, &authUrl);
InternetSetCookie(authUrl, NULL, cookie);
g_free(username);
g_free(password);
}
void
recurrenceSet(Recurrence *r, guint16 mult, PeriodType pt, const GDate *_start, WeekendAdjust wadj)
{
r->ptype = VALID_PERIOD_TYPE(pt) ? pt : PERIOD_MONTH;
r->mult = (pt == PERIOD_ONCE) ? 0 : (mult > 0 ? mult : 1);
if (_start && g_date_valid(_start))
{
r->start = *_start;
}
else
{
gnc_gdate_set_today (&r->start);
}
/* Some of the unusual period types also specify phase. For those
types, we ensure that the start date agrees with that phase. */
switch (r->ptype)
{
case PERIOD_END_OF_MONTH:
g_date_set_day(&r->start, g_date_get_days_in_month
(g_date_get_month(&r->start),
g_date_get_year(&r->start)));
break;
case PERIOD_LAST_WEEKDAY:
{
GDateDay dim;
dim = g_date_get_days_in_month(g_date_get_month(&r->start),
g_date_get_year(&r->start));
while (dim - g_date_get_day(&r->start) >= 7)
g_date_add_days(&r->start, 7);
}
break;
case PERIOD_NTH_WEEKDAY:
if ((g_date_get_day(&r->start) - 1) / 7 == 4) /* Fifth week */
r->ptype = PERIOD_LAST_WEEKDAY;
break;
default:
break;
}
switch (r->ptype)
{
case PERIOD_MONTH:
case PERIOD_END_OF_MONTH:
case PERIOD_YEAR:
r->wadj = wadj;
break;
default:
r->wadj = WEEKEND_ADJ_NONE;
break;
}
}
static gint
gtk_dateentry_entry_key (GtkWidget *widget, GdkEventKey *event, gpointer user_data)
{
GtkDateEntry *dateentry = user_data;
DB( g_print(" (dateentry) entry key pressed: state=%04x, keyval=%04x\n", event->state, event->keyval) );
if( event->keyval == GDK_Up )
{
if( !(event->state & (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) )
{
g_date_add_days (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
else
if( event->state & GDK_SHIFT_MASK )
{
g_date_add_months (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
else
if( event->state & GDK_CONTROL_MASK )
{
g_date_add_years (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
return TRUE;
}
else
if( event->keyval == GDK_Down )
{
if( !(event->state & (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) )
{
g_date_subtract_days (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
else
if( event->state & GDK_SHIFT_MASK )
{
g_date_subtract_months (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
else
if( event->state & GDK_CONTROL_MASK )
{
g_date_subtract_years (dateentry->date, 1);
gtk_dateentry_datetoentry(dateentry);
}
return TRUE;
}
return FALSE;
}
/**
* vu_check_latest_version:
* @window: Somewhere where we may need use the display to inform the user about the version status
*
* Periodically checks the released latest VERSION file on the website to compare with the running version
*
*/
void vu_check_latest_version ( GtkWindow *window )
{
if ( ! a_vik_get_check_version () )
return;
gboolean do_check = FALSE;
gint check_period;
if ( ! a_settings_get_integer ( VIK_SETTINGS_VERSION_CHECK_PERIOD, &check_period ) ) {
check_period = 14;
}
// Get last checked date...
GDate *gdate_last = g_date_new();
GDate *gdate_now = g_date_new();
GTimeVal time_last;
gchar *last_checked_date = NULL;
// When no previous date available - set to do the version check
if ( a_settings_get_string ( VIK_SETTINGS_VERSION_CHECKED_DATE, &last_checked_date) ) {
if ( g_time_val_from_iso8601 ( last_checked_date, &time_last ) ) {
g_date_set_time_val ( gdate_last, &time_last );
}
else
do_check = TRUE;
}
else
do_check = TRUE;
GTimeVal time_now;
g_get_current_time ( &time_now );
g_date_set_time_val ( gdate_now, &time_now );
if ( ! do_check ) {
// Dates available so do the comparison
g_date_add_days ( gdate_last, check_period );
if ( g_date_compare ( gdate_last, gdate_now ) < 0 )
do_check = TRUE;
}
g_date_free ( gdate_last );
g_date_free ( gdate_now );
if ( do_check ) {
#if GLIB_CHECK_VERSION (2, 32, 0)
g_thread_try_new ( "latest_version_thread", (GThreadFunc)latest_version_thread, window, NULL );
#else
g_thread_create ( (GThreadFunc)latest_version_thread, window, FALSE, NULL );
#endif
}
}
static gchar *
unix_shadow_to_string (const gchar *value, const gchar *attname)
{
/* value is the number of days since 1970-01-01 */
gint64 i64;
gchar *endptr [1];
if (!value || !*value)
return NULL;
i64 = g_ascii_strtoll (value, endptr, 10);
if (**endptr != '\0')
return NULL;
if ((i64 == -1) &&
(!strcmp (attname, "shadowInactive") ||
!strcmp (attname, "shadowMin") ||
!strcmp (attname, "shadowExpire")))
return g_strdup (_("Non activated"));
else if ((i64 == 99999) && !strcmp (attname, "shadowMax"))
return g_strdup ("Always valid");
if ((i64 >= G_MAXUINT) || (i64 < 0))
return NULL;
if (!strcmp (attname, "shadowMax") ||
!strcmp (attname, "shadowMin") ||
!strcmp (attname, "shadowInactive"))
return NULL;
GDate *date;
date = g_date_new_dmy (1, 1, 1970);
g_date_add_days (date, (guint) i64);
if (! g_date_valid (date)) {
g_date_free (date);
return NULL;
}
GdaDataHandler *dh;
GValue tvalue;
gchar *str;
memset (&tvalue, 0, sizeof (GValue));
g_value_init (&tvalue, G_TYPE_DATE);
g_value_take_boxed (&tvalue, date);
dh = gda_data_handler_get_default (G_TYPE_DATE);
str = gda_data_handler_get_str_from_value (dh, &tvalue);
g_value_reset (&tvalue);
return str;
}
void
mrp_time2_add_seconds (MrpTime *t, gint64 secs)
{
gint days;
g_return_if_fail (t != NULL);
g_return_if_fail (secs >= 0);
secs += t->sec + SECS_IN_MIN * t->min + SECS_IN_HOUR * t->hour;
/* Add whole days first. */
days = secs / SECS_IN_DAY;
secs = secs % SECS_IN_DAY;
g_date_add_days (&t->date, days);
/* Handle hours/minutes/seconds. */
t->hour = secs / SECS_IN_HOUR;
secs = secs % SECS_IN_HOUR;
t->min = secs / SECS_IN_MIN;
t->sec = secs % SECS_IN_MIN;
}
void
gnc_gdate_set_fiscal_year_start (GDate *date,
const GDate *fy_end)
{
GDate temp;
gboolean new_fy;
g_return_if_fail(date);
g_return_if_fail(fy_end);
/* Compute the FY end that occurred this CY */
temp = *fy_end;
g_date_set_year(&temp, g_date_get_year(date));
/* Has it already passed? */
new_fy = (g_date_compare(date, &temp) > 0);
/* Set start date */
*date = temp;
g_date_add_days(date, 1);
if (!new_fy)
g_date_subtract_years(date, 1);
}
void
gnc_frequency_save_to_recurrence(GncFrequency *gf, GList **recurrences, GDate *out_start_date)
{
GDate start_date;
gint page_index;
gnc_date_edit_get_gdate(gf->startDate, &start_date);
if (out_start_date != NULL)
*out_start_date = start_date;
if (recurrences == NULL)
return;
page_index = gtk_notebook_get_current_page(gf->nb);
switch (page_index)
{
case PAGE_NONE:
{
// empty-recurrence list ~~ none.
} break;
case PAGE_ONCE:
{
Recurrence *r = g_new0(Recurrence, 1);
recurrenceSet(r, 1, PERIOD_ONCE, &start_date, WEEKEND_ADJ_NONE);
*recurrences = g_list_append(*recurrences, r);
}
break;
case PAGE_DAILY:
{
gint multiplier = _get_multiplier_from_widget(gf, "daily_spin");
Recurrence *r = g_new0(Recurrence, 1);
recurrenceSet(r, multiplier, PERIOD_DAY, &start_date, WEEKEND_ADJ_NONE);
*recurrences = g_list_append(*recurrences, r);
}
break;
case PAGE_WEEKLY:
{
int multiplier = _get_multiplier_from_widget(gf, "weekly_spin");
int checkbox_idx;
for (checkbox_idx = 0; CHECKBOX_NAMES[checkbox_idx] != NULL; checkbox_idx++)
{
GDate *day_of_week_aligned_date;
Recurrence *r;
const char *day_widget_name = CHECKBOX_NAMES[checkbox_idx];
GtkWidget *weekday_checkbox = glade_xml_get_widget(gf->gxml, day_widget_name);
if (!gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(weekday_checkbox)))
continue;
day_of_week_aligned_date = g_date_new_julian(g_date_get_julian(&start_date));
// increment until we align on the DOW.
while ((g_date_get_weekday(day_of_week_aligned_date) % 7) != checkbox_idx)
g_date_add_days(day_of_week_aligned_date, 1);
r = g_new0(Recurrence, 1);
recurrenceSet(r, multiplier, PERIOD_WEEK, day_of_week_aligned_date, WEEKEND_ADJ_NONE);
*recurrences = g_list_append(*recurrences, r);
}
}
break;
case PAGE_SEMI_MONTHLY:
{
int multiplier = _get_multiplier_from_widget(gf, "semimonthly_spin");
*recurrences = g_list_append(*recurrences, _get_day_of_month_recurrence(gf, &start_date, multiplier, "semimonthly_first", "semimonthly_first_weekend"));
*recurrences = g_list_append(*recurrences, _get_day_of_month_recurrence(gf, &start_date, multiplier, "semimonthly_second", "semimonthly_second_weekend"));
}
break;
case PAGE_MONTHLY:
{
int multiplier = _get_multiplier_from_widget(gf, "monthly_spin");
Recurrence *r = _get_day_of_month_recurrence(gf, &start_date, multiplier, "monthly_day", "monthly_weekend");
*recurrences = g_list_append(*recurrences, r);
}
break;
default:
g_error("unknown page index [%d]", page_index);
break;
}
}
/**
* find and return the next date after the given date for the given scheduled
* transaction
*
* \param scheduled_number
* \param date the current date, we want the next one after that one
*
* \return a newly allocated date, the next date or NULL if over the limit
* */
GDate *gsb_scheduler_get_next_date ( gint scheduled_number,
const GDate *date )
{
GDate *return_date;
if ( !scheduled_number
||
!gsb_data_scheduled_get_frequency (scheduled_number)
||
!date
||
!g_date_valid (date))
return NULL;
/* we don't change the initial date */
return_date = gsb_date_copy (date);
switch (gsb_data_scheduled_get_frequency (scheduled_number))
{
case SCHEDULER_PERIODICITY_ONCE_VIEW:
return NULL;
break;
case SCHEDULER_PERIODICITY_WEEK_VIEW:
g_date_add_days ( return_date, 7 );
/* FIXME : there were a bug in gtk and we had to add 0 month to have the good date,
* it seems fixed but we should wait the stable debian is upgraded to
* remove that [26/10/2008] */
g_date_add_months ( return_date, 0 );
break;
case SCHEDULER_PERIODICITY_MONTH_VIEW:
g_date_add_months ( return_date, 1 );
break;
case SCHEDULER_PERIODICITY_TWO_MONTHS_VIEW:
g_date_add_months ( return_date, 2 );
break;
case SCHEDULER_PERIODICITY_TRIMESTER_VIEW:
g_date_add_months ( return_date, 3 );
break;
case SCHEDULER_PERIODICITY_YEAR_VIEW:
g_date_add_years ( return_date, 1 );
break;
case SCHEDULER_PERIODICITY_CUSTOM_VIEW:
if ( gsb_data_scheduled_get_user_entry (scheduled_number) <= 0 )
{
g_date_free (return_date);
return NULL;
}
switch (gsb_data_scheduled_get_user_interval (scheduled_number))
{
case PERIODICITY_DAYS:
g_date_add_days ( return_date,
gsb_data_scheduled_get_user_entry (scheduled_number));
/* FIXME : there were a bug in gtk and we had to add 0 month to have the good date,
* it seems fixed but we should wait the stable debian is upgraded to
* remove that [26/10/2008] */
g_date_add_months ( return_date, 0 );
break;
case PERIODICITY_WEEKS:
g_date_add_days ( return_date,
gsb_data_scheduled_get_user_entry (scheduled_number) * 7 );
g_date_add_months ( return_date, 0 );
break;
case PERIODICITY_MONTHS:
g_date_add_months ( return_date,
gsb_data_scheduled_get_user_entry (scheduled_number));
break;
case PERIODICITY_YEARS:
g_date_add_years ( return_date,
gsb_data_scheduled_get_user_entry (scheduled_number));
g_date_add_months ( return_date, 0 );
break;
}
break;
}
if ( gsb_data_scheduled_get_limit_date (scheduled_number)
&&
g_date_compare ( return_date,
gsb_data_scheduled_get_limit_date (scheduled_number)) > 0 )
{
g_date_free (return_date);
return_date = NULL;
}
return ( return_date );
}
/**
* check the scheduled transactions if the are in time limit
* and record the automatic transactions
*
* \param
*
* \return
* */
void gsb_scheduler_check_scheduled_transactions_time_limit ( void )
{
GDate *date;
GSList *tmp_list;
gboolean automatic_transactions_taken = FALSE;
devel_debug (NULL);
/* the scheduled transactions to take will be check here,
* but the scheduled transactions taken will be add to the already appended ones */
scheduled_transactions_to_take = NULL;
/* get the date today + nb_days_before_scheduled */
/* the date untill we execute the scheduled transactions is :
* - either today + nb_days_before_scheduled if warn n days before the scheduled
* - either the end of the month in nb_days_before_scheduled days (so current month or next month)
* */
date = gdate_today ();
g_date_add_days ( date,
nb_days_before_scheduled );
/* now date is in nb_days_before_scheduled, if we want the transactions of the month,
* we change date to the end of its month */
if (execute_scheduled_of_month)
{
gint last_day;
last_day = g_date_get_days_in_month ( g_date_get_month (date),
g_date_get_year (date));
g_date_set_day (date, last_day);
}
/* check all the scheduled transactions,
* if automatic, it's taken
* if manual, appended into scheduled_transactions_to_take */
tmp_list = gsb_data_scheduled_get_scheduled_list ();
while ( tmp_list )
{
gint scheduled_number;
scheduled_number = gsb_data_scheduled_get_scheduled_number (tmp_list -> data);
/* we check that scheduled transaction only if it's not a child of a split */
if ( !gsb_data_scheduled_get_mother_scheduled_number (scheduled_number)
&&
gsb_data_scheduled_get_date (scheduled_number)
&&
g_date_compare ( gsb_data_scheduled_get_date (scheduled_number),
date ) <= 0 )
{
if ( gsb_data_scheduled_get_automatic_scheduled (scheduled_number))
{
/* this is an automatic scheduled, we get it */
gint transaction_number;
/* take automatically the scheduled transaction untill today */
transaction_number = gsb_scheduler_create_transaction_from_scheduled_transaction (scheduled_number,
0 );
if ( gsb_data_scheduled_get_split_of_scheduled (scheduled_number))
gsb_scheduler_execute_children_of_scheduled_transaction ( scheduled_number,
transaction_number );
scheduled_transactions_taken = g_slist_append ( scheduled_transactions_taken,
GINT_TO_POINTER (transaction_number));
automatic_transactions_taken = TRUE;
/* set the scheduled transaction to the next date,
* if it's not finished, we check them again if it need to be
* executed more than one time (the easiest way is to check
* all again, i don't think it will have thousand of scheduled transactions,
* so no much waste of time...) */
if (gsb_scheduler_increase_scheduled (scheduled_number))
{
scheduled_transactions_to_take = NULL;
tmp_list = gsb_data_scheduled_get_scheduled_list ();
}
else
/* the scheduled is finish, so we needn't to check it again ... */
tmp_list = tmp_list -> next;
}
else
{
/* it's a manual scheduled transaction, we put it in the slist */
scheduled_transactions_to_take = g_slist_append ( scheduled_transactions_to_take ,
GINT_TO_POINTER (scheduled_number));
tmp_list = tmp_list -> next;
}
}
else
tmp_list = tmp_list -> next;
}
if ( automatic_transactions_taken )
{
mise_a_jour_liste_echeances_auto_accueil = 1;
gsb_file_set_modified ( TRUE );
}
if ( scheduled_transactions_to_take )
mise_a_jour_liste_echeances_manuelles_accueil = 1;
g_date_free ( date );
}
/**
* called when a calendar receive a key-press-event
*
* \param pCalendar
* \param ev
* \param entry
*
* \return TRUE to block the signal
* */
gboolean gsb_calendar_entry_calendar_key_press ( GtkCalendar *pCalendar,
GdkEventKey *ev,
GtkWidget *entry )
{
guint day, month, year;
GDate *date;
GtkWidget *pTopLevelWidget;
/* get the popup to destroy it if need */
pTopLevelWidget = gtk_widget_get_toplevel ( GTK_WIDGET ( pCalendar ) );
/* most of the time, we will use date so can get it here,
* think about free it if not used */
gtk_calendar_get_date ( pCalendar, &year, &month, &day );
month++;
date = g_date_new_dmy (day, month, year);
switch ( ev -> keyval )
{
case GDK_Escape :
/* just close the calendar if it's a popup */
if ( GTK_WIDGET_TOPLEVEL ( pTopLevelWidget ) )
gtk_widget_destroy ( pTopLevelWidget );
g_date_free (date);
return TRUE;
break ;
case GDK_Return :
case GDK_KP_Enter :
/* get the date an close the calendar */
gtk_entry_set_text ( GTK_ENTRY ( entry ),
gsb_format_date ( day, month, year ));
if ( GTK_WIDGET_TOPLEVEL ( pTopLevelWidget ) )
gtk_widget_destroy ( pTopLevelWidget );
g_date_free (date);
return TRUE;
break ;
/* from now, it will change date so just use date, modify it and fill day, month, year
* we will set the calendar at the end of that function
* so after now, only keys which change the date */
case GDK_Left :
case GDK_KP_Left:
case GDK_minus:
case GDK_KP_Subtract:
/* day before */
g_date_subtract_days (date, 1);
break ;
case GDK_Right :
case GDK_KP_Right:
case GDK_plus:
case GDK_KP_Add:
/* day after */
g_date_add_days (date, 1);
break ;
case GDK_Up :
case GDK_KP_Up :
/* prev week */
g_date_subtract_days (date, 7);
break ;
case GDK_Down :
case GDK_KP_Down :
/* next week */
g_date_add_days (date, 7);
break ;
case GDK_Home :
case GDK_KP_Home :
/* go to first day of the month */
g_date_set_day (date, 1);
break ;
case GDK_End :
case GDK_KP_End :
/* go to last day of the month */
g_date_set_day (date,
g_date_get_days_in_month (month, year));
break ;
case GDK_Page_Up :
case GDK_KP_Page_Up :
/* prev month */
g_date_subtract_months (date, 1);
break ;
case GDK_Page_Down :
case GDK_KP_Page_Down :
/* next month */
g_date_add_months (date, 1);
break ;
default:
return TRUE;
}
day = g_date_get_day (date);
month = g_date_get_month (date);
year = g_date_get_year (date);
g_date_free (date);
/* to avoid a warning */
gtk_calendar_select_day( pCalendar , 15 );
month--;
gtk_calendar_select_month ( pCalendar , month, year );
gtk_calendar_select_day( pCalendar , day );
return TRUE;
}
/* This is the only real algorithm related to recurrences. It goes:
Step 1) Go forward one period from the reference date.
Step 2) Back up to align to the phase of the start date.
*/
void
recurrenceNextInstance(const Recurrence *r, const GDate *ref, GDate *next)
{
PeriodType pt;
const GDate *start;
guint mult;
WeekendAdjust wadj;
g_return_if_fail(r);
g_return_if_fail(ref);
g_return_if_fail(g_date_valid(&r->start));
g_return_if_fail(g_date_valid(ref));
/* If the ref date comes before the start date then the next
occurrence is always the start date, and we're done. */
start = &r->start;
if (g_date_compare(ref, start) < 0)
{
g_date_set_julian(next, g_date_get_julian(start));
return;
}
g_date_set_julian(next, g_date_get_julian(ref)); /* start at refDate */
/* Step 1: move FORWARD one period, passing exactly one occurrence. */
mult = r->mult;
pt = r->ptype;
wadj = r->wadj;
switch (pt)
{
case PERIOD_YEAR:
mult *= 12;
/* fall through */
case PERIOD_MONTH:
case PERIOD_NTH_WEEKDAY:
case PERIOD_LAST_WEEKDAY:
case PERIOD_END_OF_MONTH:
/* Takes care of short months. */
if (r->wadj == WEEKEND_ADJ_BACK &&
(pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH) &&
(g_date_get_weekday(next) == G_DATE_SATURDAY || g_date_get_weekday(next) == G_DATE_SUNDAY))
{
/* Allows the following Friday-based calculations to proceed if 'next'
is between Friday and the target day. */
g_date_subtract_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 1 : 2);
}
if (r->wadj == WEEKEND_ADJ_BACK &&
(pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH) &&
g_date_get_weekday(next) == G_DATE_FRIDAY)
{
GDate tmp_sat;
GDate tmp_sun;
g_date_set_julian(&tmp_sat, g_date_get_julian(next));
g_date_set_julian(&tmp_sun, g_date_get_julian(next));
g_date_add_days(&tmp_sat, 1);
g_date_add_days(&tmp_sun, 2);
if (pt == PERIOD_END_OF_MONTH)
{
if (g_date_is_last_of_month(next) ||
g_date_is_last_of_month(&tmp_sat) ||
g_date_is_last_of_month(&tmp_sun))
g_date_add_months(next, mult);
else
/* one fewer month fwd because of the occurrence in this month */
g_date_add_months(next, mult - 1);
}
else
{
if (g_date_get_day(&tmp_sat) == g_date_get_day(start))
{
g_date_add_days(next, 1);
g_date_add_months(next, mult);
}
else if (g_date_get_day(&tmp_sun) == g_date_get_day(start))
{
g_date_add_days(next, 2);
g_date_add_months(next, mult);
}
else if (g_date_get_day(next) >= g_date_get_day(start))
{
g_date_add_months(next, mult);
}
else if (g_date_is_last_of_month(next))
{
g_date_add_months(next, mult);
}
else if (g_date_is_last_of_month(&tmp_sat))
{
g_date_add_days(next, 1);
g_date_add_months(next, mult);
}
else if (g_date_is_last_of_month(&tmp_sun))
{
g_date_add_days(next, 2);
g_date_add_months(next, mult);
}
else
{
/* one fewer month fwd because of the occurrence in this month */
g_date_add_months(next, mult - 1);
}
}
}
else if ( g_date_is_last_of_month(next) ||
((pt == PERIOD_MONTH || pt == PERIOD_YEAR) &&
g_date_get_day(next) >= g_date_get_day(start)) ||
((pt == PERIOD_NTH_WEEKDAY || pt == PERIOD_LAST_WEEKDAY) &&
nth_weekday_compare(start, next, pt) <= 0) )
g_date_add_months(next, mult);
else
/* one fewer month fwd because of the occurrence in this month */
g_date_add_months(next, mult - 1);
break;
case PERIOD_WEEK:
mult *= 7;
/* fall through */
case PERIOD_DAY:
g_date_add_days(next, mult);
break;
case PERIOD_ONCE:
g_date_clear(next, 1); /* We already caught the case where ref is */
return; /* earlier than start, so this is invalid. */
default:
PERR("Invalid period type");
break;
}
/* Step 2: Back up to align to the base phase. To ensure forward
progress, we never subtract as much as we added (x % mult < mult). */
switch (pt)
{
case PERIOD_YEAR:
case PERIOD_MONTH:
case PERIOD_NTH_WEEKDAY:
case PERIOD_LAST_WEEKDAY:
case PERIOD_END_OF_MONTH:
{
guint dim, n_months;
n_months = 12 * (g_date_get_year(next) - g_date_get_year(start)) +
(g_date_get_month(next) - g_date_get_month(start));
g_date_subtract_months(next, n_months % mult);
/* Ok, now we're in the right month, so we just have to align
the day in one of the three possible ways. */
dim = g_date_get_days_in_month(g_date_get_month(next),
g_date_get_year(next));
if (pt == PERIOD_LAST_WEEKDAY || pt == PERIOD_NTH_WEEKDAY)
{
gint wdresult = nth_weekday_compare(start, next, pt);
if (wdresult < 0)
{
wdresult = -wdresult;
g_date_subtract_days(next, wdresult);
}
else
g_date_add_days(next, wdresult);
}
else if (pt == PERIOD_END_OF_MONTH || g_date_get_day(start) >= dim)
g_date_set_day(next, dim); /* last day in the month */
else
g_date_set_day(next, g_date_get_day(start)); /*same day as start*/
/* Adjust for dates on the weekend. */
if (pt == PERIOD_YEAR || pt == PERIOD_MONTH || pt == PERIOD_END_OF_MONTH)
{
if (g_date_get_weekday(next) == G_DATE_SATURDAY || g_date_get_weekday(next) == G_DATE_SUNDAY)
{
switch (wadj)
{
case WEEKEND_ADJ_BACK:
g_date_subtract_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 1 : 2);
break;
case WEEKEND_ADJ_FORWARD:
g_date_add_days(next, g_date_get_weekday(next) == G_DATE_SATURDAY ? 2 : 1);
break;
case WEEKEND_ADJ_NONE:
default:
break;
}
}
}
}
break;
case PERIOD_WEEK:
case PERIOD_DAY:
g_date_subtract_days(next, g_date_days_between(start, next) % mult);
break;
default:
PERR("Invalid period type");
break;
}
}
static void
annum_shell_view_date_navigator_selection_changed_cb (AnnumShellView * self,
ECalendarItem * calitem)
{
AnnumShellContent *prox_shell_content;
GnomeCalendarViewType switch_to;
GnomeCalendarViewType view_type;
GnomeCalendar *calendar;
ECalModel *model;
GDate start_date, end_date;
GDate new_start_date, new_end_date;
icaltimetype tt;
icaltimezone *timezone;
time_t start, end, new_time;
gboolean starts_on_week_start_day;
gint new_days_shown;
gint week_start_day;
prox_shell_content = self->priv->prox_shell_content;
calendar = annum_shell_content_get_calendar (prox_shell_content);
model = gnome_calendar_get_model (calendar);
view_type = gnome_calendar_get_view (calendar);
switch_to = view_type;
timezone = e_cal_model_get_timezone (model);
week_start_day = e_cal_model_get_week_start_day (model);
e_cal_model_get_time_range (model, &start, &end);
time_to_gdate_with_zone (&start_date, start, timezone);
time_to_gdate_with_zone (&end_date, end, timezone);
if (view_type == GNOME_CAL_MONTH_VIEW) {
EWeekView *week_view;
ECalendarView *calendar_view;
gboolean multi_week_view;
gboolean compress_weekend;
calendar_view =
gnome_calendar_get_calendar_view (calendar,
GNOME_CAL_MONTH_VIEW);
week_view = E_WEEK_VIEW (calendar_view);
multi_week_view = e_week_view_get_multi_week_view (week_view);
compress_weekend = e_week_view_get_compress_weekend (week_view);
if (week_start_day == 0
&& (!multi_week_view || compress_weekend))
g_date_add_days (&start_date, 1);
}
g_date_subtract_days (&end_date, 1);
e_calendar_item_get_selection (calitem, &new_start_date, &new_end_date);
/* There used to be a check here to make sure the rest of the
* code only ran when the date actually changed. We do not
* this to simplify always having three columns for the day
* view.
*/
new_days_shown =
g_date_get_julian (&new_end_date) -
g_date_get_julian (&new_start_date) + 1;
/* If a complete week is selected we show the week view.
* Note that if weekends are compressed and the week start
* day is set to Sunday, we don't actually show complete
* weeks in the week view, so this may need tweaking. */
starts_on_week_start_day =
(g_date_get_weekday (&new_start_date) % 7 == week_start_day);
/* Update selection to be in the new time range. */
tt = icaltime_null_time ();
tt.year = g_date_get_year (&new_start_date);
tt.month = g_date_get_month (&new_start_date);
tt.day = g_date_get_day (&new_start_date);
new_time = icaltime_as_timet_with_zone (tt, timezone);
/* Switch views as appropriate, and change the number of
* days or weeks shown. */
if (new_days_shown > 9) {
if (view_type != GNOME_CAL_LIST_VIEW) {
ECalendarView *calendar_view;
calendar_view =
gnome_calendar_get_calendar_view (calendar,
GNOME_CAL_MONTH_VIEW);
e_week_view_set_weeks_shown (E_WEEK_VIEW
(calendar_view),
(new_days_shown + 6) / 7);
switch_to = GNOME_CAL_MONTH_VIEW;
}
} else if (new_days_shown == 7 && starts_on_week_start_day)
switch_to = GNOME_CAL_WEEK_VIEW;
else {
ECalendarView *calendar_view;
calendar_view =
gnome_calendar_get_calendar_view (calendar,
GNOME_CAL_DAY_VIEW);
/* We always show three days */
if (new_days_shown == 1)
new_days_shown = 3;
e_day_view_set_days_shown (E_DAY_VIEW (calendar_view),
new_days_shown);
if (new_days_shown != 5 || !starts_on_week_start_day)
switch_to = GNOME_CAL_DAY_VIEW;
else if (view_type != GNOME_CAL_WORK_WEEK_VIEW)
switch_to = GNOME_CAL_DAY_VIEW;
}
/* Make the views display things properly. */
gnome_calendar_update_view_times (calendar, new_time);
gnome_calendar_set_view (calendar, switch_to);
gnome_calendar_set_range_selected (calendar, TRUE);
gnome_calendar_notify_dates_shown_changed (calendar);
g_signal_emit (self, signals[DATE_CHANGED], 0, switch_to);
}
int main(int argc, char** argv)
{
GDate* d;
guint32 j;
GDateMonth m;
GDateYear y, prev_y;
GDateDay day;
gchar buf[101];
gchar* loc;
/* Try to get all the leap year cases. */
GDateYear check_years[] = {
1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 98, 99, 100, 101, 102, 103, 397,
398, 399, 400, 401, 402, 403, 404, 405, 406,
1598, 1599, 1600, 1601, 1602, 1650, 1651,
1897, 1898, 1899, 1900, 1901, 1902, 1903,
1961, 1962, 1963, 1964, 1965, 1967,
1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976,
1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985,
1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012,
3000, 3001, 3002, 3998, 3999, 4000, 4001, 4002, 4003
};
guint n_check_years = sizeof(check_years)/sizeof(GDateYear);
guint i;
gboolean discontinuity;
g_print("checking GDate...");
TEST("sizeof(GDate) is not more than 8 bytes on this platform", sizeof(GDate) < 9);
d = g_date_new();
TEST("Empty constructor produces invalid date", !g_date_valid(d));
g_date_free(d);
d = g_date_new_dmy(1,1,1);
TEST("January 1, Year 1 created and valid", g_date_valid(d));
j = g_date_get_julian(d);
TEST("January 1, Year 1 is Julian date 1", j == 1);
TEST("Returned month is January", g_date_get_month(d) == G_DATE_JANUARY);
TEST("Returned day is 1", g_date_get_day(d) == 1);
TEST("Returned year is 1", g_date_get_year(d) == 1);
TEST("Bad month is invalid", !g_date_valid_month(G_DATE_BAD_MONTH));
TEST("Month 13 is invalid", !g_date_valid_month(13));
TEST("Bad day is invalid", !g_date_valid_day(G_DATE_BAD_DAY));
TEST("Day 32 is invalid", !g_date_valid_day(32));
TEST("Bad year is invalid", !g_date_valid_year(G_DATE_BAD_YEAR));
TEST("Bad julian is invalid", !g_date_valid_julian(G_DATE_BAD_JULIAN));
TEST("Bad weekday is invalid", !g_date_valid_weekday(G_DATE_BAD_WEEKDAY));
TEST("Year 2000 is a leap year", g_date_is_leap_year(2000));
TEST("Year 1999 is not a leap year", !g_date_is_leap_year(1999));
TEST("Year 1996 is a leap year", g_date_is_leap_year(1996));
TEST("Year 1600 is a leap year", g_date_is_leap_year(1600));
TEST("Year 2100 is not a leap year", !g_date_is_leap_year(2100));
TEST("Year 1800 is not a leap year", !g_date_is_leap_year(1800));
g_date_free(d);
loc = setlocale(LC_ALL,"");
if (loc)
g_print("\nLocale set to %s\n", loc);
else
g_print("\nLocale unchanged\n");
d = g_date_new();
g_date_set_time(d, time(NULL));
TEST("Today is valid", g_date_valid(d));
g_date_strftime(buf,100,"Today is a %A, %x\n", d);
g_print("%s", buf);
g_date_set_time(d, 1);
TEST("Beginning of Unix epoch is valid", g_date_valid(d));
g_date_strftime(buf,100,"1 second into the Unix epoch it was a %A, in the month of %B, %x\n", d);
g_print("%s", buf);
g_date_set_julian(d, 1);
TEST("GDate's \"Julian\" epoch's first day is valid", g_date_valid(d));
g_date_strftime(buf,100,"Our \"Julian\" epoch begins on a %A, in the month of %B, %x\n",
d);
g_print("%s", buf);
g_date_set_dmy(d, 10, 1, 2000);
g_date_strftime(buf,100,"%x", d);
g_date_set_parse(d, buf);
/* Note: this test will hopefully work, but no promises. */
TEST("Successfully parsed a %x-formatted string",
g_date_valid(d) &&
g_date_get_month(d) == 1 &&
g_date_get_day(d) == 10 &&
g_date_get_year(d) == 2000);
if (failed)
g_date_debug_print(d);
g_date_free(d);
j = G_DATE_BAD_JULIAN;
i = 0;
discontinuity = TRUE;
y = check_years[0];
prev_y = G_DATE_BAD_YEAR;
while (i < n_check_years)
{
guint32 first_day_of_year = G_DATE_BAD_JULIAN;
guint16 days_in_year = g_date_is_leap_year(y) ? 366 : 365;
guint sunday_week_of_year = 0;
guint sunday_weeks_in_year = g_date_get_sunday_weeks_in_year(y);
guint monday_week_of_year = 0;
guint monday_weeks_in_year = g_date_get_monday_weeks_in_year(y);
guint iso8601_week_of_year = 0;
if (discontinuity)
g_print(" (Break in sequence of requested years to check)\n");
g_print("Checking year %u", y);
TEST("Year is valid", g_date_valid_year(y));
TEST("Number of Sunday weeks in year is 52 or 53",
sunday_weeks_in_year == 52 || sunday_weeks_in_year == 53);
TEST("Number of Monday weeks in year is 52 or 53",
monday_weeks_in_year == 52 || monday_weeks_in_year == 53);
m = 1;
while (m < 13)
{
guint8 dim = g_date_get_days_in_month(m,y);
GDate days[31]; /* This is the fast way, no allocation */
TEST("Sensible number of days in month", (dim > 0 && dim < 32));
TEST("Month between 1 and 12 is valid", g_date_valid_month(m));
day = 1;
g_date_clear(days, 31);
while (day <= dim)
{
guint i;
GDate tmp;
TEST("DMY triplet is valid", g_date_valid_dmy(day,m,y));
/* Create GDate with triplet */
d = &days[day-1];
TEST("Cleared day is invalid", !g_date_valid(d));
g_date_set_dmy(d,day,m,y);
TEST("Set day is valid", g_date_valid(d));
if (m == G_DATE_JANUARY && day == 1)
{
first_day_of_year = g_date_get_julian(d);
}
g_assert(first_day_of_year != G_DATE_BAD_JULIAN);
TEST("Date with DMY triplet is valid", g_date_valid(d));
TEST("Month accessor works", g_date_get_month(d) == m);
TEST("Year accessor works", g_date_get_year(d) == y);
TEST("Day of month accessor works", g_date_get_day(d) == day);
TEST("Day of year is consistent with Julian dates",
((g_date_get_julian(d) + 1 - first_day_of_year) ==
(g_date_get_day_of_year(d))));
if (failed)
{
g_print("first day: %u this day: %u day of year: %u\n",
first_day_of_year,
g_date_get_julian(d),
g_date_get_day_of_year(d));
}
if (m == G_DATE_DECEMBER && day == 31)
{
TEST("Last day of year equals number of days in year",
g_date_get_day_of_year(d) == days_in_year);
if (failed)
{
g_print("last day: %u days in year: %u\n",
g_date_get_day_of_year(d), days_in_year);
}
}
TEST("Day of year is not more than number of days in the year",
g_date_get_day_of_year(d) <= days_in_year);
TEST("Monday week of year is not more than number of weeks in the year",
g_date_get_monday_week_of_year(d) <= monday_weeks_in_year);
if (failed)
{
g_print("Weeks in year: %u\n", monday_weeks_in_year);
g_date_debug_print(d);
}
TEST("Monday week of year is >= than last week of year",
g_date_get_monday_week_of_year(d) >= monday_week_of_year);
if (g_date_get_weekday(d) == G_DATE_MONDAY)
{
TEST("Monday week of year on Monday 1 more than previous day's week of year",
(g_date_get_monday_week_of_year(d) - monday_week_of_year) == 1);
if ((m == G_DATE_JANUARY && day <= 4) ||
(m == G_DATE_DECEMBER && day >= 29)) {
TEST("ISO 8601 week of year on Monday Dec 29 - Jan 4 is 1",
(g_date_get_iso8601_week_of_year(d) == 1));
} else {
TEST("ISO 8601 week of year on Monday 1 more than previous day's week of year",
(g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 1);
}
}
else
{
TEST("Monday week of year on non-Monday 0 more than previous day's week of year",
(g_date_get_monday_week_of_year(d) - monday_week_of_year) == 0);
if (!(day == 1 && m == G_DATE_JANUARY)) {
TEST("ISO 8601 week of year on non-Monday 0 more than previous day's week of year (",
(g_date_get_iso8601_week_of_year(d) - iso8601_week_of_year) == 0);
}
}
monday_week_of_year = g_date_get_monday_week_of_year(d);
iso8601_week_of_year = g_date_get_iso8601_week_of_year(d);
TEST("Sunday week of year is not more than number of weeks in the year",
g_date_get_sunday_week_of_year(d) <= sunday_weeks_in_year);
if (failed)
{
g_date_debug_print(d);
}
TEST("Sunday week of year is >= than last week of year",
g_date_get_sunday_week_of_year(d) >= sunday_week_of_year);
if (g_date_get_weekday(d) == G_DATE_SUNDAY)
{
TEST("Sunday week of year on Sunday 1 more than previous day's week of year",
(g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 1);
}
else
{
TEST("Sunday week of year on non-Sunday 0 more than previous day's week of year",
(g_date_get_sunday_week_of_year(d) - sunday_week_of_year) == 0);
}
sunday_week_of_year = g_date_get_sunday_week_of_year(d);
TEST("Date is equal to itself",
g_date_compare(d,d) == 0);
/*************** Increments ***********/
i = 1;
while (i < 402) /* Need to get 400 year increments in */
{
/***** Days ******/
tmp = *d;
g_date_add_days(d, i);
TEST("Adding days gives a value greater than previous",
g_date_compare(d, &tmp) > 0);
g_date_subtract_days(d, i);
TEST("Forward days then backward days returns us to current day",
g_date_get_day(d) == day);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
TEST("Forward days then backward days returns us to current month",
g_date_get_month(d) == m);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
TEST("Forward days then backward days returns us to current year",
g_date_get_year(d) == y);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
/******* Months ********/
tmp = *d;
g_date_add_months(d, i);
TEST("Adding months gives a larger value",
g_date_compare(d, &tmp) > 0);
g_date_subtract_months(d, i);
TEST("Forward months then backward months returns us to current month",
g_date_get_month(d) == m);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
TEST("Forward months then backward months returns us to current year",
g_date_get_year(d) == y);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
if (day < 29)
{
/* Day should be unchanged */
TEST("Forward months then backward months returns us to current day",
g_date_get_day(d) == day);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
}
else
{
/* reset the day for later tests */
g_date_set_day(d, day);
}
/******* Years ********/
tmp = *d;
g_date_add_years(d, i);
TEST("Adding years gives a larger value",
g_date_compare(d,&tmp) > 0);
g_date_subtract_years(d, i);
TEST("Forward years then backward years returns us to current month",
g_date_get_month(d) == m);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
TEST("Forward years then backward years returns us to current year",
g_date_get_year(d) == y);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
if (m != 2 && day != 29)
{
TEST("Forward years then backward years returns us to current day",
g_date_get_day(d) == day);
if (failed)
{
g_print(" (increment %u, dmy %u %u %u) ", i, day, m, y);
g_date_debug_print(d);
}
}
else
{
g_date_set_day(d, day); /* reset */
}
i += 10;
}
/***** increment test relative to our local Julian count */
if (!discontinuity) {
/* We can only run sequence tests between sequential years */
TEST("Julians are sequential with increment 1",
j+1 == g_date_get_julian(d));
if (failed)
{
g_print("Out of sequence, prev: %u expected: %u got: %u\n",
j, j+1, g_date_get_julian(d));
}
g_date_add_days(d,1);
TEST("Next day has julian 1 higher",
g_date_get_julian(d) == j + 2);
g_date_subtract_days(d, 1);
if (j != G_DATE_BAD_JULIAN)
{
g_date_subtract_days(d, 1);
TEST("Previous day has julian 1 lower",
g_date_get_julian(d) == j);
g_date_add_days(d, 1); /* back to original */
}
}
discontinuity = FALSE; /* goes away now */
fflush(stdout);
fflush(stderr);
j = g_date_get_julian(d); /* inc current julian */
++day;
}
++m;
}
g_print(" done\n");
++i;
prev_y = y;
y = check_years[i];
if (prev_y == G_DATE_BAD_YEAR ||
(prev_y + 1) != y) discontinuity = TRUE;
}
g_print("\n%u tests passed, %u failed\n",passed, notpassed);
return 0;
}
void
calendar_draw_page (GtkPrintOperation *operation, GtkPrintContext *context, gint npage, gpointer user_data)
{
PangoLayout *layout;
PangoFontDescription *month_name_font, *day_name_font, *day_num_font, *event_font;
cairo_t *cr;
GDate *date;
gdouble page_width, page_height, day_width, day_height;
gint text_width, text_height, header_height, event_height, mnf_height, dnf_height, duf_height;
gint day, month, i, j;
guint32 julian;
gboolean monday, actual;
gchar buffer[BUFFER_SIZE];
gint padding = config.cal_print_padding;
GUI *appGUI = (GUI *) user_data;
date = g_date_new_julian (g_date_get_julian (appGUI->cal->date));
g_return_if_fail (date != NULL);
cr = gtk_print_context_get_cairo_context (context);
layout = gtk_print_context_create_pango_layout (context);
month_name_font = pango_font_description_from_string (config.cal_print_month_name_font);
day_name_font = pango_font_description_from_string (config.cal_print_day_name_font);
day_num_font = pango_font_description_from_string (config.cal_print_day_num_font);
event_font = pango_font_description_from_string (config.cal_print_event_font);
pango_layout_set_text (layout, "Aj", -1);
pango_layout_set_font_description (layout, month_name_font);
pango_layout_get_pixel_size (layout, NULL, &mnf_height);
mnf_height *= 1.2;
pango_layout_set_font_description (layout, day_name_font);
pango_layout_get_pixel_size (layout, NULL, &dnf_height);
dnf_height *= 1.2;
pango_layout_set_font_description (layout, day_num_font);
pango_layout_get_pixel_size (layout, NULL, &duf_height);
page_width = gtk_print_context_get_width (context);
day_width = page_width / 7;
page_height = gtk_print_context_get_height (context);
header_height = mnf_height + dnf_height;
day_height = (page_height - header_height) / 6;
event_height = day_height - duf_height - padding * 3;
cairo_set_line_width (cr, 1);
monday = (config.display_options & GUI_CALENDAR_WEEK_START_MONDAY) ? TRUE : FALSE;
/* Month and year */
pango_layout_set_font_description (layout, month_name_font);
g_date_strftime (buffer, BUFFER_SIZE, "%B %Y", date);
pango_layout_set_text (layout, buffer, -1);
pango_layout_get_pixel_size (layout, &text_width, NULL);
cairo_move_to (cr, (page_width - text_width) / 2, 0);
pango_cairo_show_layout (cr, layout);
/* Day names */
pango_layout_set_font_description (layout, day_name_font);
for (i = 0; i < 7; i++) {
g_snprintf (buffer, BUFFER_SIZE, "%s", utl_get_day_name (i + 7 + monday, FALSE));
pango_layout_set_text (layout, buffer, -1);
pango_layout_get_pixel_size (layout, &text_width, NULL);
cairo_move_to (cr, day_width * i + (day_width - text_width) / 2, mnf_height);
pango_cairo_show_layout (cr, layout);
}
/* Day */
g_date_set_day (date, 1);
day = g_date_get_weekday (date);
month = g_date_get_month (date);
day = monday ? day - 1 : day % 7;
if (day > 0)
g_date_subtract_days (date, day);
day = g_date_get_day (date);
julian = g_date_get_julian (date);
pango_layout_set_wrap (layout, PANGO_WRAP_WORD_CHAR);
pango_layout_set_width (layout, (day_width - padding * 2) * PANGO_SCALE);
pango_layout_set_height (layout, event_height * PANGO_SCALE);
pango_layout_set_ellipsize (layout, PANGO_ELLIPSIZE_END);
pango_layout_set_indent (layout, -4 * PANGO_SCALE);
for (i = 0; i < 6; i++) {
for (j = 0; j < 7; j++) {
actual = (month == g_date_get_month (date)) ? TRUE : FALSE;
day = g_date_get_day (date);
cairo_rectangle (cr, day_width * j, header_height + day_height * i, day_width, day_height);
if (actual) {
cairo_set_source_rgb (cr, 1.0, 1.0, 1.0);
} else {
cairo_set_source_rgb (cr, 0.8, 0.8, 0.8);
}
cairo_fill_preserve (cr);
cairo_set_source_rgb (cr, 0, 0, 0);
cairo_stroke (cr);
pango_layout_set_font_description (layout, day_num_font);
if (actual) {
cairo_move_to (cr, day_width * j + padding, header_height + day_height * i + padding);
if ((j == 0 && !monday) || (j == 5 && monday) || j == 6) {
g_snprintf (buffer, BUFFER_SIZE, "<span color=\"red\">%d</span>", day);
} else {
g_snprintf (buffer, BUFFER_SIZE, "%d", day);
}
pango_layout_set_markup (layout, buffer, -1);
pango_cairo_show_layout (cr, layout);
cal_print_get_events (buffer, julian, appGUI);
pango_layout_set_markup (layout, "", -1);
pango_layout_set_text (layout, buffer, -1);
pango_layout_set_font_description (layout, event_font);
pango_layout_get_pixel_size (layout, NULL, &text_height);
cairo_move_to (cr, day_width * j + padding, header_height + day_height * (i + 1) - text_height - padding);
pango_cairo_show_layout (cr, layout);
} else {
cairo_move_to (cr, day_width * j + padding, header_height + day_height * i + padding);
g_snprintf (buffer, BUFFER_SIZE, "<span color=\"white\">%d</span>", day);
pango_layout_set_markup (layout, buffer, -1);
pango_cairo_show_layout (cr, layout);
}
g_date_add_days (date, 1);
julian++;
}
}
g_date_free (date);
pango_font_description_free (month_name_font);
pango_font_description_free (day_name_font);
pango_font_description_free (day_num_font);
pango_font_description_free (event_font);
g_object_unref (layout);
}
/* BBBBB.BBBBBBBB] - Epoch Time -- 2-digit year, followed by 3-digit sequential
day of the year, followed by the time represented as the
fractional portion of one day, but...
we now have the converted fields, tle->epoch_year, tle->epoch_day and tle->epoch_fod
*/
static gchar *epoch_to_str(sat_t * sat)
{
GDate *epd;
guint h, m, s, sec;
gchar *buff;
gchar *fmt;
struct tm tms;
time_t t;
guint size;
/* http://celestrak.com/columns/v04n03/#FAQ02
... While talking about the epoch, this is perhaps a good place to answer
the other time-related questions. First, how is the epoch time format
interpreted? This question is best answered by using an example. An epoch
of 98001.00000000 corresponds to 0000 UT on 1998 January 01st in other
words, midnight between 1997 December 31 and 1998 January 01. An epoch of
98000.00000000 would actually correspond to the beginning of 1997 December
31st strange as that might seem. Note that the epoch day starts at UT
midnight (not noon) and that all times are measured mean solar rather than
sidereal time units (the answer to our third question).
*/
epd = g_date_new_dmy(1, 1, sat->tle.epoch_year);
g_date_add_days(epd, sat->tle.epoch_day - 1);
/* convert date to struct tm */
g_date_to_struct_tm(epd, &tms);
/* add HMS */
sec = (guint) floor(sat->tle.epoch_fod * 86400); /* fraction of day in seconds */
/* hour */
h = (guint) floor(sec / 3600);
tms.tm_hour = h;
/* minutes */
m = (guint) floor((sec - (h * 3600)) / 60);
tms.tm_min = m;
s = (guint) floor(sec - (h * 3600) - (m * 60));
tms.tm_sec = s;
/* get format string */
fmt = sat_cfg_get_str(SAT_CFG_STR_TIME_FORMAT);
/* format either local time or UTC depending on check box */
t = mktime(&tms);
buff = g_try_malloc(51);
if (sat_cfg_get_bool(SAT_CFG_BOOL_USE_LOCAL_TIME))
size = strftime(buff, 50, fmt, localtime(&t));
else
size = strftime(buff, 50, fmt, gmtime(&t));
if (size < 50)
buff[size] = '\0';
else
buff[50] = '\0';
g_date_free(epd);
g_free(fmt);
return buff;
}
gboolean
gnc_handle_date_accelerator (GdkEventKey *event,
struct tm *tm,
const char *date_str)
{
GDate gdate;
g_return_val_if_fail (event != NULL, FALSE);
g_return_val_if_fail (tm != NULL, FALSE);
g_return_val_if_fail (date_str != NULL, FALSE);
if (event->type != GDK_KEY_PRESS)
return FALSE;
if ((tm->tm_mday <= 0) || (tm->tm_mon == -1) || (tm->tm_year == -1))
return FALSE;
// Make sure we have a valid date before we proceed
if (!g_date_valid_dmy (tm->tm_mday, tm->tm_mon + 1, tm->tm_year + 1900))
return FALSE;
g_date_set_dmy (&gdate,
tm->tm_mday,
tm->tm_mon + 1,
tm->tm_year + 1900);
/*
* Check those keys where the code does different things depending
* upon the modifiers.
*/
switch (event->keyval)
{
case GDK_KEY_KP_Add:
case GDK_KEY_plus:
case GDK_KEY_equal:
if (event->state & GDK_SHIFT_MASK)
g_date_add_days (&gdate, 7);
else if (event->state & GDK_MOD1_MASK)
g_date_add_months (&gdate, 1);
else if (event->state & GDK_CONTROL_MASK)
g_date_add_years (&gdate, 1);
else
g_date_add_days (&gdate, 1);
g_date_to_struct_tm (&gdate, tm);
return TRUE;
case GDK_KEY_minus:
case GDK_KEY_KP_Subtract:
case GDK_KEY_underscore:
if ((strlen (date_str) != 0) && (dateSeparator () == '-'))
{
const char *c;
gunichar uc;
int count = 0;
/* rough check for existing date */
c = date_str;
while (*c)
{
uc = g_utf8_get_char (c);
if (uc == '-')
count++;
c = g_utf8_next_char (c);
}
if (count < 2)
return FALSE;
}
if (event->state & GDK_SHIFT_MASK)
g_date_subtract_days (&gdate, 7);
else if (event->state & GDK_MOD1_MASK)
g_date_subtract_months (&gdate, 1);
else if (event->state & GDK_CONTROL_MASK)
g_date_subtract_years (&gdate, 1);
else
g_date_subtract_days (&gdate, 1);
g_date_to_struct_tm (&gdate, tm);
return TRUE;
default:
break;
}
/*
* Control and Alt key combinations should be ignored by this
* routine so that the menu system gets to handle them. This
* prevents weird behavior of the menu accelerators (i.e. work in
* some widgets but not others.)
*/
if (event->state & (GDK_CONTROL_MASK | GDK_MOD1_MASK))
return FALSE;
/* Now check for the remaining keystrokes. */
switch (event->keyval)
{
case GDK_KEY_braceright:
case GDK_KEY_bracketright:
/* increment month */
g_date_add_months (&gdate, 1);
break;
case GDK_KEY_braceleft:
case GDK_KEY_bracketleft:
/* decrement month */
g_date_subtract_months (&gdate, 1);
break;
case GDK_KEY_M:
case GDK_KEY_m:
/* beginning of month */
g_date_set_day (&gdate, 1);
break;
case GDK_KEY_H:
case GDK_KEY_h:
/* end of month */
g_date_set_day (&gdate, 1);
g_date_add_months (&gdate, 1);
g_date_subtract_days (&gdate, 1);
break;
case GDK_KEY_Y:
case GDK_KEY_y:
/* beginning of year */
g_date_set_day (&gdate, 1);
g_date_set_month (&gdate, 1);
break;
case GDK_KEY_R:
case GDK_KEY_r:
/* end of year */
g_date_set_day (&gdate, 1);
g_date_set_month (&gdate, 1);
g_date_add_years (&gdate, 1);
g_date_subtract_days (&gdate, 1);
break;
case GDK_KEY_T:
case GDK_KEY_t:
/* today */
gnc_gdate_set_today (&gdate);
break;
default:
return FALSE;
}
g_date_to_struct_tm (&gdate, tm);
return TRUE;
}
static GncSxInstances*
_gnc_sx_gen_instances(gpointer *data, gpointer user_data)
{
GncSxInstances *instances = g_new0(GncSxInstances, 1);
SchedXaction *sx = (SchedXaction*)data;
GDate *range_end = (GDate*)user_data;
GDate creation_end, remind_end;
GDate cur_date;
void *sequence_ctx;
instances->sx = sx;
creation_end = *range_end;
g_date_add_days(&creation_end, xaccSchedXactionGetAdvanceCreation(sx));
remind_end = creation_end;
g_date_add_days(&remind_end, xaccSchedXactionGetAdvanceReminder(sx));
/* postponed */
{
GList *postponed = gnc_sx_get_defer_instances(sx);
for ( ; postponed != NULL; postponed = postponed->next)
{
GDate inst_date;
int seq_num;
GncSxInstance *inst;
g_date_clear(&inst_date, 1);
inst_date = xaccSchedXactionGetNextInstance(sx, postponed->data);
seq_num = gnc_sx_get_instance_count(sx, postponed->data);
inst = gnc_sx_instance_new(instances, SX_INSTANCE_STATE_POSTPONED, &inst_date, postponed->data, seq_num);
instances->instance_list = g_list_append(instances->instance_list, inst);
}
}
/* to-create */
g_date_clear(&cur_date, 1);
sequence_ctx = gnc_sx_create_temporal_state(sx);
cur_date = xaccSchedXactionGetInstanceAfter(sx, &cur_date, sequence_ctx);
instances->next_instance_date = cur_date;
while (g_date_valid(&cur_date) && g_date_compare(&cur_date, &creation_end) <= 0)
{
GncSxInstance *inst;
int seq_num;
seq_num = gnc_sx_get_instance_count(sx, sequence_ctx);
inst = gnc_sx_instance_new(instances, SX_INSTANCE_STATE_TO_CREATE, &cur_date, sequence_ctx, seq_num);
instances->instance_list = g_list_append(instances->instance_list, inst);
gnc_sx_incr_temporal_state(sx, sequence_ctx);
cur_date = xaccSchedXactionGetInstanceAfter(sx, &cur_date, sequence_ctx);
}
/* reminders */
while (g_date_valid(&cur_date) && g_date_compare(&cur_date, &remind_end) <= 0)
{
GncSxInstance *inst;
int seq_num;
seq_num = gnc_sx_get_instance_count(sx, sequence_ctx);
inst = gnc_sx_instance_new(instances, SX_INSTANCE_STATE_REMINDER, &cur_date, sequence_ctx, seq_num);
instances->instance_list = g_list_append(instances->instance_list, inst);
gnc_sx_incr_temporal_state(sx, sequence_ctx);
cur_date = xaccSchedXactionGetInstanceAfter(sx, &cur_date, sequence_ctx);
}
return instances;
}
