/* Like g_date_add_years, but...
*
* 1. Do not spew criticals.
* 2. Number of years is signed.
*/
void
gnm_date_add_years (GDate *d, int n)
{
if (!g_date_valid (d))
return;
if (n >= 0) {
int m = 65535 - g_date_get_year (d);
if (n > m)
goto bad;
g_date_add_years (d, n);
} else {
int m = g_date_get_year (d) - 1;
if (m + n <= 0)
goto bad;
g_date_subtract_years (d, -n);
}
return;
bad:
g_date_clear (d, 1);
}
void
mrp_time2_add_years (MrpTime *t, gint years)
{
g_return_if_fail (t != NULL);
g_return_if_fail (years >= 0);
g_date_add_years (&t->date, years);
}
/**
* 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);
}
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_fiscal_year_end (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 end date */
*date = temp;
if (new_fy)
g_date_add_years(date, 1);
}
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 ();
}
}
static GtkWidget *
ap_assistant_create (AcctPeriodInfo *info)
{
GtkBuilder *builder;
GtkWidget *window;
GtkWidget *box;
builder = gtk_builder_new();
gnc_builder_add_from_file (builder , "assistant-acct-period.glade", "account_period_assistant");
window = GTK_WIDGET(gtk_builder_get_object (builder, "account_period_assistant"));
info->window = window;
// Set the style context for this assistant so it can be easily manipulated with css
gnc_widget_set_style_context (GTK_WIDGET(window), "GncAssistAccountPeriod");
/* Enable all pages except menu page. */
gtk_assistant_set_page_complete (GTK_ASSISTANT (window),
GTK_WIDGET(gtk_builder_get_object(builder, "start_page")),
TRUE);
gtk_assistant_set_page_complete (GTK_ASSISTANT (window),
GTK_WIDGET(gtk_builder_get_object(builder, "book_page")),
TRUE);
gtk_assistant_set_page_complete (GTK_ASSISTANT (window),
GTK_WIDGET(gtk_builder_get_object(builder, "finish_page")),
TRUE);
gtk_assistant_set_page_complete (GTK_ASSISTANT (window),
GTK_WIDGET(gtk_builder_get_object(builder, "summary_page")),
TRUE);
info->close_status = -1;
/* Find the date of the earliest transaction in the book.
* Add a year minus a day as the first guess for book closing,
* and use that to set up the freq spec widget. */
info->earliest = get_earliest_in_book (gnc_get_current_book());
info->earliest_str = qof_print_date(info->earliest);
PINFO ("date of earliest transaction is %" G_GINT64_FORMAT " %s",
info->earliest, gnc_ctime (&info->earliest));
g_date_clear (&info->closing_date, 1);
gnc_gdate_set_time64 (&info->closing_date, info->earliest);
g_date_clear (&info->prev_closing_date, 1);
info->prev_closing_date = info->closing_date;
g_date_add_years (&info->closing_date, 1);
{
Recurrence *r = g_new0(Recurrence, 1);
recurrenceSet(r, 1, PERIOD_MONTH, &info->closing_date, WEEKEND_ADJ_NONE);
info->period = NULL;
info->period = g_list_append(info->period, r);
}
info->period_menu = GNC_FREQUENCY(
gnc_frequency_new_from_recurrence(info->period, &info->closing_date));
/* Change the text so that its more mainingful for this assistant */
gnc_frequency_set_frequency_label_text(info->period_menu, _("Period:"));
gnc_frequency_set_date_label_text(info->period_menu, _("Closing Date:"));
/* Reparent to the correct location */
box = GTK_WIDGET(gtk_builder_get_object(builder, "period_hbox"));
gtk_box_pack_start (GTK_BOX (box), GTK_WIDGET (info->period_menu), TRUE, TRUE, 0);
g_signal_connect (info->period_menu, "changed",
G_CALLBACK (ap_assistant_menu_changed_cb), info);
/* Get handles to all of the other widgets we'll need */
info->period_remarks = GTK_WIDGET(gtk_builder_get_object(builder, "remarks_label"));
info->close_results = GTK_WIDGET(gtk_builder_get_object(builder, "results_label"));
info->book_details = GTK_WIDGET(gtk_builder_get_object(builder, "book_label"));
info->book_title = GTK_WIDGET(gtk_builder_get_object(builder, "book_title_entry"));
info->book_notes = GTK_TEXT_VIEW(gtk_builder_get_object(builder, "book_notes_view"));
info->apply_label = GTK_WIDGET(gtk_builder_get_object(builder, "finish_page"));
info->summary = GTK_WIDGET(gtk_builder_get_object(builder, "summary_label"));
g_signal_connect (G_OBJECT(window), "destroy",
G_CALLBACK (ap_assistant_destroy_cb), info);
gtk_builder_connect_signals(builder, info);
g_object_unref(G_OBJECT(builder));
return window;
}
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;
}
static GtkWidget *
gnc_plugin_page_sx_list_create_widget (GncPluginPage *plugin_page)
{
GncPluginPageSxList *page;
GncPluginPageSxListPrivate *priv;
GtkWidget *widget;
GtkWidget *vbox;
GtkWidget *label;
GtkWidget *swin;
char *markup;
char *text;
page = GNC_PLUGIN_PAGE_SX_LIST(plugin_page);
priv = GNC_PLUGIN_PAGE_SX_LIST_GET_PRIVATE(page);
if (priv->widget != NULL)
return priv->widget;
/* Create Vpaned widget for top level */
widget = gtk_vpaned_new();
priv->widget = widget;
gtk_widget_show (priv->widget);
/* Add vbox and label */
vbox = gtk_vbox_new(FALSE, 0);
gtk_paned_pack1( GTK_PANED(widget), vbox, TRUE, FALSE);
label = gtk_label_new(NULL);
text = g_strdup_printf(_("Transactions"));
markup = g_markup_printf_escaped ("<b> %s</b>", text);
gtk_label_set_markup (GTK_LABEL (label), markup);
g_free (markup);
g_free (text);
gtk_misc_set_alignment (GTK_MISC (label), 0.0, 0);
gtk_widget_show (label);
gtk_box_pack_start ( GTK_BOX(vbox), label, FALSE, FALSE, 0);
gtk_widget_show (vbox);
/* Create scrolled window for top area */
swin = gtk_scrolled_window_new(NULL, NULL);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (swin),
GTK_POLICY_AUTOMATIC,
GTK_POLICY_AUTOMATIC);
gtk_box_pack_start ( GTK_BOX(vbox), swin, TRUE, TRUE, 5);
gtk_widget_show (swin);
{
// gint half_way;
// half_way = plugin_page->notebook_page->allocation.height * 0.5;
// fixme; get a real value:
gtk_paned_set_position(GTK_PANED(priv->widget), 160);
}
{
GDate end;
g_date_clear(&end, 1);
gnc_gdate_set_today (&end);
g_date_add_years(&end, 1);
priv->instances = GNC_SX_INSTANCE_MODEL(gnc_sx_get_instances(&end, TRUE));
}
{
GtkAction *edit_action, *delete_action;
edit_action = gnc_plugin_page_get_action(GNC_PLUGIN_PAGE(page), "SxListEditAction");
delete_action = gnc_plugin_page_get_action(GNC_PLUGIN_PAGE(page), "SxListDeleteAction");
gtk_action_set_sensitive(edit_action, FALSE);
gtk_action_set_sensitive(delete_action, FALSE);
}
{
GtkTreeSelection *selection;
priv->tree_view = GTK_TREE_VIEW(gnc_tree_view_sx_list_new(priv->instances));
g_object_set(G_OBJECT(priv->tree_view),
"gconf-section", GCONF_SECTION,
"show-column-menu", TRUE,
NULL);
gtk_container_add(GTK_CONTAINER( swin ), GTK_WIDGET(priv->tree_view));
selection = gtk_tree_view_get_selection(priv->tree_view);
gtk_tree_selection_set_mode(selection, GTK_SELECTION_MULTIPLE);
g_signal_connect(G_OBJECT(selection), "changed", (GCallback)gppsl_selection_changed_cb, (gpointer)page);
g_signal_connect(G_OBJECT(priv->tree_view), "row-activated", (GCallback)gppsl_row_activated_cb, (gpointer)page);
}
/* Add vbox and label */
vbox = gtk_vbox_new(FALSE, 0);
gtk_paned_pack2( GTK_PANED(widget), vbox, TRUE, FALSE);
label = gtk_label_new(NULL);
text = g_strdup_printf(_("Upcoming Transactions"));
markup = g_markup_printf_escaped ("<b> %s</b>", text);
gtk_label_set_markup (GTK_LABEL (label), markup);
g_free (markup);
g_free (text);
gtk_misc_set_alignment (GTK_MISC (label), 0.0, 0);
gtk_widget_show (label);
gtk_box_pack_start ( GTK_BOX(vbox), label, FALSE, FALSE, 0);
gtk_widget_show (vbox);
/* Create scrolled window for bottom area */
swin = gtk_scrolled_window_new(NULL, NULL);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (swin),
GTK_POLICY_AUTOMATIC,
GTK_POLICY_AUTOMATIC);
gtk_box_pack_start ( GTK_BOX(vbox), swin, TRUE, TRUE, 5);
gtk_widget_show (swin);
{
priv->dense_cal_model = gnc_sx_instance_dense_cal_adapter_new(GNC_SX_INSTANCE_MODEL(priv->instances));
priv->gdcal = GNC_DENSE_CAL(gnc_dense_cal_new_with_model(GNC_DENSE_CAL_MODEL(priv->dense_cal_model)));
g_object_ref_sink(priv->gdcal);
gnc_dense_cal_set_months_per_col(priv->gdcal, 4);
gnc_dense_cal_set_num_months(priv->gdcal, 12);
gtk_scrolled_window_add_with_viewport(GTK_SCROLLED_WINDOW(swin), GTK_WIDGET(priv->gdcal));
}
priv->gnc_component_id = gnc_register_gui_component("plugin-page-sx-list",
gnc_plugin_page_sx_list_refresh_cb,
gnc_plugin_page_sx_list_close_cb,
page);
return priv->widget;
}
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 void
ap_druid_create (AcctPeriodInfo *info)
{
GladeXML *xml;
GtkWidget *w;
xml = gnc_glade_xml_new ("acctperiod.glade", "Acct Period Druid");
info->window = glade_xml_get_widget (xml, "Acct Period Druid");
info->druid = GNOME_DRUID (glade_xml_get_widget (xml, "acct_period_druid"));
gnc_druid_set_colors (info->druid);
info->start_page =
GNOME_DRUID_PAGE(glade_xml_get_widget (xml, "start page"));
info->menu_page =
GNOME_DRUID_PAGE(glade_xml_get_widget (xml, "menu page"));
info->book_page =
GNOME_DRUID_PAGE(glade_xml_get_widget (xml, "book page"));
info->finish_page =
GNOME_DRUID_PAGE(glade_xml_get_widget (xml, "finish page"));
info->close_status = -1;
/* Find the date of the earliest transaction in the book.
* Add a year minus a day as the first guess for book closing,
* and use that to set up the freq spec widget. */
info->earliest = get_earliest_in_book (gnc_get_current_book());
info->earliest_str = qof_print_date(info->earliest);
PINFO ("date of earliest transaction is %ld %s",
info->earliest, ctime (&info->earliest));
g_date_clear (&info->closing_date, 1);
g_date_set_time_t (&info->closing_date, info->earliest);
g_date_clear (&info->prev_closing_date, 1);
info->prev_closing_date = info->closing_date;
g_date_add_years (&info->closing_date, 1);
{
Recurrence *r = g_new0(Recurrence, 1);
recurrenceSet(r, 1, PERIOD_MONTH, &info->closing_date, WEEKEND_ADJ_NONE);
info->period = NULL;
info->period = g_list_append(info->period, r);
}
info->period_menu = GNC_FREQUENCY(
gnc_frequency_new_from_recurrence(info->period, &info->closing_date));
/* Change the text so that its more mainingful for this druid */
gnc_frequency_set_frequency_label_text(info->period_menu, _("Period:"));
gnc_frequency_set_date_label_text(info->period_menu, _("Closing Date:"));
/* Reparent to the correct location */
w = glade_xml_get_widget (xml, "period box");
gtk_box_pack_start (GTK_BOX (w), GTK_WIDGET (info->period_menu),
TRUE, TRUE, 0);
/* Get handles to all of the other widgets we'll need */
info->period_remarks =
GTK_LABEL (glade_xml_get_widget (xml, "remarks label"));
info->close_results =
GTK_LABEL (glade_xml_get_widget (xml, "results label"));
info->book_details =
GTK_LABEL (glade_xml_get_widget (xml, "book label"));
info->book_title =
GTK_ENTRY (glade_xml_get_widget (xml, "book title entry"));
info->book_notes =
GTK_TEXT_VIEW (glade_xml_get_widget (xml, "book notes text"));
/* generic finished/close/abort signals */
g_signal_connect (info->window, "destroy",
G_CALLBACK (ap_window_destroy_cb), info);
g_signal_connect (info->druid, "cancel",
G_CALLBACK (ap_druid_cancel), info);
g_signal_connect (info->menu_page, "prepare",
G_CALLBACK (ap_show_menu), info);
g_signal_connect (info->menu_page, "next",
G_CALLBACK (ap_validate_menu), info);
g_signal_connect (info->book_page, "prepare",
G_CALLBACK (ap_show_book), info);
g_signal_connect (info->book_page, "next",
G_CALLBACK (ap_close_period), info);
g_signal_connect (info->finish_page, "prepare",
G_CALLBACK (ap_show_done), info);
g_signal_connect (info->finish_page, "finish",
G_CALLBACK (ap_finish), info);
/* User changes the accouting period or date signals */
g_signal_connect (info->period_menu, "changed",
G_CALLBACK (ap_changed), info);
}
/**
* 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 );
}
GSList *
log_read_dates (const char **buffer_lines, time_t current)
{
int current_year, offsetyear, i, n, rangemin, rangemax, timestamp_len = 0;
GSList *days = NULL;
GDate *date = NULL;
struct tm *tmptm;
char *date_string = NULL;
Day *day;
gboolean done = FALSE;
g_return_val_if_fail (buffer_lines != NULL, NULL);
n = g_strv_length ((char **) buffer_lines);
tmptm = localtime (¤t);
current_year = tmptm->tm_year + 1900;
offsetyear = 0;
/* find the first line with a date we're able to parse */
for (i = 0; buffer_lines[i]; i++) {
if ((date = string_get_date (buffer_lines[i], &date_string, ×tamp_len)) != NULL)
break;
}
if (!date) {
/* no valid dates in the array, return NULL */
return NULL;
}
if (!g_date_valid (date)) {
g_date_free (date);
g_free (date_string);
return NULL;
}
g_date_set_year (date, current_year);
day = g_slice_new0 (Day);
days = g_slist_append (days, day);
/* $i now contains the line number for the first good date */
day->date = date;
day->first_line = i;
day->last_line = -1;
day->timestamp_len = timestamp_len;
/* now scan the logfile to get the last line of the day */
rangemin = i;
rangemax = n - 1;
while (!done) {
/* find out the last line of the day we're currently building */
i = n - 1;
while (day->last_line < 0) {
if (strstr (buffer_lines[i], date_string)) {
/* if we find the same string on the last line of the log, we're done */
if (i == n - 1) {
done = TRUE;
day->last_line = i;
break;
}
/* we're still in a section of lines with the same date;
* - if the next one changes, then we're on the last.
* - else we keep searching in the following.
*/
if (!strstr (buffer_lines[i + 1], date_string)) {
day->last_line = i;
break;
} else {
rangemin = i;
i = floor (((float) i + (float) rangemax) / 2.);
}
} else {
/* we can't find the same date here; go back to a safer range. */
rangemax = i;
i = floor (((float) rangemin + (float) i) / 2.);
}
}
g_free (date_string);
date_string = NULL;
if (!done) {
/* this means we finished the current day but we're not at the end
* of the buffer: reset the parameters for the next day.
*/
GDate *newdate = NULL;
for (i = day->last_line + 1; buffer_lines[i]; i++) {
if ((newdate = string_get_date (buffer_lines[i], &date_string, ×tamp_len)) != NULL)
break;
}
if (date_string == NULL && i == n - 1) {
done = TRUE;
}
/* this will set the last line of the "old" log to either:
* - "n - 1" if we can't find another date
* - the line before the new date else.
*/
day->last_line = i - 1;
if (newdate) {
/* append a new day to the list */
g_date_set_year (newdate, current_year + offsetyear);
if (g_date_compare (newdate, date) < 1) {
/* this isn't possible, as we're reading the log forward.
* so it means that newdate is the next year.
*/
g_date_add_years (newdate, 1);
offsetyear++;
}
date = newdate;
day = g_slice_new0 (Day);
days = g_slist_prepend (days, day);
day->date = date;
day->first_line = i;
day->last_line = -1;
day->timestamp_len = timestamp_len;
rangemin = i;
rangemax = n - 1;
}
}
}
if (date_string) {
g_free (date_string);
}
/* sort the days in chronological order */
days = g_slist_sort (days, days_compare);
return days;
}