/* Like g_date_add_months, but...
*
* 1. Do not spew criticals.
* 2. Number of months is signed.
*/
void
gnm_date_add_months (GDate *d, int n)
{
if (!g_date_valid (d))
return;
if (n >= 0) {
int m = (65535 - g_date_get_year (d)) * 12 +
(12 - g_date_get_month (d));
if (n > m)
goto bad;
g_date_add_months (d, n);
} else {
int m = (g_date_get_year (d) - 1) * 12 +
(g_date_get_month (d) - 1);
if (m + n <= 0)
goto bad;
g_date_subtract_months (d, -n);
}
return;
bad:
g_date_clear (d, 1);
}
void
mrp_time2_add_months (MrpTime *t, gint months)
{
g_return_if_fail (t != NULL);
g_return_if_fail (months >= 0);
g_date_add_months (&t->date, months);
}
/**
* 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);
}
/** Convert a GDate to the last day of the month. This routine has no
* knowledge of how many days are in a month, whether its a leap
* year, etc. All that information is contained in the glib date
* functions.
*
* @param date The GDate to modify.
*/
void
gnc_gdate_set_month_end (GDate *date)
{
/* First set the start of next month. */
g_date_set_day(date, 1);
g_date_add_months(date, 1);
/* Then back up one day */
g_date_subtract_days(date, 1);
}
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;
}
void
gnc_gdate_set_quarter_end (GDate *date)
{
gint months;
/* Set the date to the first day of the specified month. */
g_date_set_day(date, 1);
/* Add 1-3 months to get the first day of the next quarter.*/
months = (g_date_get_month(date) - G_DATE_JANUARY) % 3;
g_date_add_months(date, 3 - months);
/* Now back up one day */
g_date_subtract_days(date, 1);
}
/**
* start the reconciliation, called by a click on the
* reconcile button
*
* \param button the button we click to come here
* \param null not used
*
* \return FALSE
* */
gboolean gsb_reconcile_run_reconciliation ( GtkWidget *button,
gpointer null )
{
GDate *date;
gint account_number;
gint reconcile_number;
gchar *label;
gchar *string;
gchar* tmpstr;
account_number = gsb_gui_navigation_get_current_account ();
reconcile_number = gsb_data_reconcile_get_account_last_number (account_number);
label = gsb_reconcile_build_label ( reconcile_number );
gtk_entry_set_text ( GTK_ENTRY ( reconcile_number_entry ), label );
g_free ( label );
/* reset records in run structure if user has changed of account */
if (run.reconcile_account_number != account_number)
{
g_free (run.reconcile_final_balance);
if (run.reconcile_new_date)
g_date_free (run.reconcile_new_date);
run.reconcile_final_balance = NULL;
run.reconcile_new_date = NULL;
run.reconcile_account_number = -1;
}
/* set last input date/amount if available */
if (run.reconcile_new_date)
{
date = run.reconcile_new_date;
}
else
{
/* increase the last date of 1 month */
date = gsb_date_copy (gsb_data_reconcile_get_final_date (reconcile_number));
if (date)
{
GDate *today;
gchar *string ;
string = gsb_format_gdate ( date );
gtk_label_set_text ( GTK_LABEL ( reconcile_last_date_label ),
string);
gtk_widget_set_sensitive ( GTK_WIDGET ( reconcile_last_date_label ),
FALSE );
g_free (string);
g_date_add_months ( date, 1 );
/* if etat.reconcile_end_date or the new date is after today, set today */
today = gdate_today();
if ( etat.reconcile_end_date || g_date_compare ( date, today) > 0 )
{
g_date_free (date);
date = gdate_today();
}
else
g_date_free (today);
/* it's not the first reconciliation, set the old balance and unsensitive the old balance entry */
tmpstr = utils_real_get_string (gsb_data_reconcile_get_final_balance (reconcile_number));
gtk_entry_set_text ( GTK_ENTRY ( reconcile_initial_balance_entry ), tmpstr);
g_free ( tmpstr );
gtk_widget_set_sensitive ( GTK_WIDGET ( reconcile_initial_balance_entry ),
FALSE );
}
else
{
gtk_label_set_text ( GTK_LABEL ( reconcile_last_date_label ), _("None") );
date = gdate_today();
/* it's the first reconciliation, set the initial balance and make sensitive the old balance to change
* it if necessary */
tmpstr = utils_real_get_string ( gsb_data_account_get_init_balance (account_number, -1));
gtk_entry_set_text ( GTK_ENTRY ( reconcile_initial_balance_entry ), tmpstr);
g_free ( tmpstr );
gtk_widget_set_sensitive ( GTK_WIDGET ( reconcile_initial_balance_entry ), TRUE );
}
}
string = gsb_format_gdate (date);
gtk_entry_set_text ( GTK_ENTRY ( reconcile_new_date_entry ),
string );
g_free (string);
g_date_free (date);
/* set last input amount if available and if the account is the good one */
gtk_entry_set_text ( GTK_ENTRY ( reconcile_final_balance_entry ),
(run.reconcile_final_balance) ? run.reconcile_final_balance : "");
g_free(run.reconcile_final_balance);
/* set the title */
tmpstr = g_markup_printf_escaped ( _(" <b>%s reconciliation</b> "),
gsb_data_account_get_name (account_number));
gtk_label_set_markup ( GTK_LABEL (gtk_frame_get_label_widget (GTK_FRAME (reconcile_panel))),
tmpstr );
g_free ( tmpstr );
/* we go to the reconciliation mode */
run.equilibrage = 1;
/* set all the balances for reconciliation */
gsb_reconcile_update_amounts (NULL, NULL);
/* set the transactions list to reconciliation mode */
/* only change the current account */
reconcile_save_account_display = etat.retient_affichage_par_compte;
etat.retient_affichage_par_compte = 1;
/* hide the marked R transactions */
reconcile_save_show_marked = gsb_data_account_get_r (account_number);
if (reconcile_save_show_marked)
{
gsb_data_account_set_r (account_number, FALSE );
mise_a_jour_affichage_r (FALSE);
}
/* 1 line on the transaction list */
reconcile_save_rows_number = gsb_data_account_get_nb_rows (account_number);
if (reconcile_save_rows_number != 1)
gsb_transactions_list_set_visible_rows_number ( 1 );
/* sort by method of payment if in conf */
if (gsb_data_account_get_reconcile_sort_type (account_number))
gtk_toggle_button_set_active ( GTK_TOGGLE_BUTTON (reconcile_sort_list_button),
TRUE );
gtk_widget_show_all ( reconcile_panel );
transaction_list_show_toggle_mark (TRUE);
/* unsensitive all that could change the account number */
gsb_reconcile_sensitive (FALSE);
gtk_widget_grab_focus ( GTK_WIDGET ( reconcile_number_entry ) );
return FALSE;
}
void
mrp_time2_align_next (MrpTime *t, MrpTimeUnit unit)
{
GDateWeekday weekday;
GDateMonth month;
g_return_if_fail (t != NULL);
switch (unit) {
case MRP_TIME_UNIT_HOUR:
t->min = 0;
t->sec = 0;
mrp_time2_add_hours (t, 1);
break;
case MRP_TIME_UNIT_TWO_HOURS:
t->min = 0;
t->sec = 0;
mrp_time2_add_hours (t, 2 - t->hour % 2);
break;
case MRP_TIME_UNIT_HALFDAY:
t->min = 0;
t->sec = 0;
if (t->hour < 12) {
t->hour = 12;
} else {
t->hour = 0;
mrp_time2_add_days (t, 1);
}
break;
case MRP_TIME_UNIT_DAY:
t->hour = 0;
t->min = 0;
t->sec = 0;
mrp_time2_add_days (t, 1);
break;
case MRP_TIME_UNIT_WEEK:
/* FIXME: We currently hardcode monday as week start .*/
weekday = g_date_get_weekday (&t->date);
t->hour = 0;
t->min = 0;
t->sec = 0;
mrp_time2_add_days (t, 8 - weekday);
break;
case MRP_TIME_UNIT_MONTH:
t->hour = 0;
t->min = 0;
t->sec = 0;
g_date_set_day (&t->date, 1);
g_date_add_months (&t->date, 1);
break;
case MRP_TIME_UNIT_QUARTER:
t->hour = 0;
t->min = 0;
t->sec = 0;
g_date_set_day (&t->date, 1);
month = g_date_get_month (&t->date);
if (month >= 1 && month <= 3) {
g_date_set_month (&t->date, 4);
}
else if (month >= 4 && month <= 6) {
g_date_set_month (&t->date, 7);
}
else if (month >= 7 && month <= 9) {
g_date_set_month (&t->date, 10);
}
else if (month >= 10 && month <= 12) {
g_date_set_month (&t->date, 1);
g_date_add_years (&t->date, 1);
}
break;
case MRP_TIME_UNIT_HALFYEAR:
g_date_set_day (&t->date, 1);
t->hour = 0;
t->min = 0;
t->sec = 0;
month = g_date_get_month (&t->date);
if (month >= 1 && month <= 6) {
g_date_set_month (&t->date, 7);
} else if (month >= 7 && month <= 12) {
g_date_set_month (&t->date, 1);
g_date_add_years (&t->date, 1);
}
break;
case MRP_TIME_UNIT_YEAR:
t->hour = 0;
t->min = 0;
t->sec = 0;
g_date_set_day (&t->date, 1);
g_date_set_month (&t->date, 1);
g_date_add_years (&t->date, 1);
break;
case MRP_TIME_UNIT_NONE:
default:
g_assert_not_reached ();
}
}
/* 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;
}
}
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;
}
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;
}
/**
* 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;
}
/**
* 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 );
}
