static void
fill_day(Calendar *c, Week *w, int x, int y, int day,
Paint_cache *cache, int a_total, XRectangle *rect)
{
CSA_return_code stat;
Dtcm_appointment *appt;
register int lower = (int)lowerbound(day);
register int upper = (int)next_ndays(day, 1);
register int i, loop, n;
register int nlines = 0;
XFontSetExtents fontextents;
int char_width;
int char_height;
int maxlines;
int maxchars;
Tick tick;
CalFontExtents(w->small_font, &fontextents);
char_width = fontextents.max_logical_extent.width;
char_height = fontextents.max_logical_extent.height;
maxlines = ((w->day_height - w->label_height) / char_height)- 1;
maxchars = (w->day_width / char_width);
#if 0
x += char_width;
#endif
x += 3;
y += (w->label_height + char_height);
/*
* Fill in a day with appointments
*/
/* loop thru twice, first displaying "no time" appointments,
and then the others. */
for (loop = 0; loop < 2; loop++) {
for (i = 0; i < a_total; i++) {
if ((cache[i].start_time < lower) || (cache[i].start_time >= upper))
continue;
if (cache[i].show_time != loop)
continue;
if (nlines < maxlines) {
n = paint_entry(c, x, y, maxchars, &cache[i], rect);
y += n * char_height;
nlines += n;
}
}
}
}
static int
count_week_pages (Calendar *c, int lines_per_page, Tick start_date)
{
time_t start, stop;
CSA_return_code stat;
CSA_entry_handle *list;
CSA_attribute *range_attrs;
CSA_enum *ops;
CSA_uint32 a_total;
int num_appts, i, j, max = 0, pages;
/* count the times and text of appts */
for (i = 1; i <= 7; i++)
{
/* setup a time limit for appts searched */
start = (time_t) lowerbound (start_date);
stop = (time_t) next_ndays(start_date, 1) - 1;
setup_range(&range_attrs, &ops, &j, start, stop,
CSA_TYPE_EVENT, 0, B_FALSE, c->general->version);
csa_list_entries(c->cal_handle, j, range_attrs, ops, &a_total, &list, NULL);
free_range(&range_attrs, &ops, j);
num_appts = count_multi_appts(list, a_total, c);
if (num_appts > max)
max = num_appts;
start_date = nextday(start_date);
csa_free(list);
}
pages = max / lines_per_page;
if ((max % lines_per_page) > 0)
pages++;
return(pages);
}
extern void
monthbox_xytodate(Calendar *c, int x, int y)
{
char str[5];
Day *day_info = (Day *)c->view->day_info;
XFontSetExtents fontextents;
int pfy;
int col_w = day_info->col_w;
int row_h = day_info->row_h;
int row, col, x_off;
int day_selected, tmpx;
CalFontExtents(c->fonts->labelfont, &fontextents);
pfy = fontextents.max_ink_extent.height;
col = (x-c->view->outside_margin-INSIDE_MARGIN) / col_w;
if (col < 0) return;
tmpx = c->view->outside_margin + INSIDE_MARGIN + col * col_w;
if (y < (day_info->month1_y +
day_info->mobox_height1)) {
row = (y-day_info->month1_y-row_h) / row_h;
day_selected = (7 * (row+1)) - fdom(day_info->month1)
- (6 - col);
if (day_selected <= 0 || day_selected >
monthlength(day_info->month1))
return;
day_info->day_selected = day_selected;
day_info->day_selected_y =
day_info->month1_y + (row+1)*row_h;
c->view->olddate = c->view->date;
c->view->date = next_ndays(first_dom(day_info->month1),
day_info->day_selected);
}
else if (y < (day_info->month2_y +
day_info->mobox_height2)) {
row = (y-day_info->month2_y-row_h) / row_h;
day_selected = (7 * (row+1)) - fdom(day_info->month2)
- (6 - col);
if (day_selected <= 0 || day_selected >
monthlength(day_info->month2))
return;
day_info->day_selected = day_selected;
day_info->day_selected_y =
day_info->month2_y + (row+1)*row_h;
c->view->olddate = c->view->date;
c->view->date = next_ndays(first_dom(day_info->month2),
day_info->day_selected);
}
else if (y < (day_info->month3_y +
day_info->mobox_height3)) {
row = (y-day_info->month3_y-row_h) / row_h;
day_selected = (7 * (row+1)) - fdom(day_info->month3)
- (6 - col);
if (day_selected <= 0 || day_selected >
monthlength(day_info->month3))
return;
day_info->day_selected = day_selected;
day_info->day_selected_y =
day_info->month3_y + (row+1)*row_h;
c->view->olddate = c->view->date;
c->view->date = next_ndays(first_dom(day_info->month3),
day_info->day_selected);
}
day_info->day_selected_x = tmpx;
sprintf(str, "%d", day_info->day_selected);
x_off = gr_center(col_w, str, c->fonts->labelfont);
day_info->day_selected_x2 =
day_info->day_selected_x+x_off;
day_info->day_selected_y2 =
day_info->day_selected_y + pfy;
}
static void
draw_week(Calendar *c, XRectangle *rect, Boundary boundary)
{
Week *w = (Week *)c->view->week_info;
register int current_day;
register int n;
register int x, y;
int char_height;
int start_date;
char **day_names;
char label[80];
char buf[MAXNAMELEN];
char *footer_message = NULL;
int start_ind, end_ind;
int today_dom, day_om;
new_XContext *xc;
Props *p = (Props*)c->properties;
XRectangle chartrect;
OrderingType ot = get_int_prop(p, CP_DATEORDERING);
Tick start_tick, end_tick;
time_t start, stop;
CSA_return_code stat;
CSA_entry_handle *list;
CSA_attribute *range_attrs;
CSA_enum *ops;
CSA_uint32 a_total;
int i, lower_bound = 0, upper_bound = 0;
XFontSetExtents regfontextents, boldfontextents;
int notused, width1, width2, width3;
CalFontExtents(w->font, ®fontextents);
char_height = regfontextents.max_logical_extent.height;
start_date = w->start_date;
xc = c->xcontext;
start = (time_t) lowerbound(start_date);
stop = (time_t) next_ndays(start, 7) - 1;
if (c->paint_cache == NULL) {
setup_range(&range_attrs, &ops, &i, start, stop, CSA_TYPE_EVENT,
0, B_FALSE, c->general->version);
csa_list_entries(c->cal_handle, i, range_attrs, ops,
&a_total, &list, NULL);
free_range(&range_attrs, &ops, i);
allocate_paint_cache(list, a_total, &c->paint_cache);
c->paint_cache_size = a_total;
csa_free(list);
}
gr_clear_box(xc, 0, 0, w->canvas_w, w->canvas_h);
CalTextExtents(w->font, days2[3], cm_strlen(days2[3]),
¬used, ¬used, &width1, ¬used);
CalTextExtents(w->font, " 00", cm_strlen(" 00"),
¬used, ¬used, &width2, ¬used);
CalTextExtents(w->font, "Wed 00", cm_strlen("Wed 00"),
¬used, ¬used, &width3, ¬used);
if (width1 + width2 <= w->day_width - 2)
day_names = days2;
else if (width3 <= w->day_width - 2)
day_names = days;
else
day_names = days3;
x = w->x;
y = w->y;
format_week_header(start_date, ot, label);
gr_text(xc, x, y - char_height / 2, w->font, label, rect);
/*
* Draw bold box around first 5 days
*/
gr_draw_box(xc, x, y, w->width, w->day_height, rect);
gr_draw_box(xc, x - 1, y - 1, w->width + 2, w->day_height + 2, rect);
gr_draw_line(xc, x, y + w->label_height, x + w->width,
y + w->label_height, gr_solid, rect);
/*
* Draw bold box around last 2 days
*/
x += 3 * w->day_width;
y += w->day_height;
gr_draw_box(xc, x, y, 2 * w->day_width, w->day_height, rect);
gr_draw_box(xc, x - 1, y, 2 * w->day_width + 2, w->day_height + 1,rect);
gr_draw_line(xc, x, y + w->label_height, x + 2 * w->day_width,
y + w->label_height, gr_solid, rect);
y = w->y;
x = w->x + w->day_width;
for (n = 0; n < 4; n++) {
if (n < 3) {
gr_draw_line(xc, x, y, x, y + w->day_height,
gr_solid, rect);
} else {
gr_draw_line(xc, x, y, x, y + 2 * w->day_height,
gr_solid, rect);
}
x += w->day_width;
}
/*
* Fill in week with appointments
*/
x = w->x;
y = w->y;
current_day = start_date;
today_dom = dom(time(0));
/* Crock alert!!!! The obscure code below is doing something
really nasty. The variable boundary indicates whether the
week being displayed falls across a boundary with the
beginning or the end of time. In the case of the beginning
of time, the code then assumes that the first 2 days in the
week need to be unbuttoned, and the rest buttoned and painted.
Likewise, with the end of time case, the code assumes the last
3 days of the week need similar treatment. */
for (n = 0; n < 7; n++) {
if (n == 5) {
y += w->day_height;
x = w->x + 3 * w->day_width;
}
if (boundary == okay) {
day_om = dom(current_day);
display_hot_btn(c, n, day_om);
fill_day(c, w, x, y, current_day,
c->paint_cache, c->paint_cache_size, rect);
current_day += daysec;
if (lower_bound > 0) {
sprintf(buf, "%s", catgets(c->DT_catd, 1, 623, "Calendar does not display dates prior to January 1, 1970"));
footer_message = buf;
}
else
footer_message = NULL;
}
else if (boundary == lower) {
/* skip days before Jan 1, 1970 */
clear_hot_btn(c, n);
if (lower_bound++ == 2)
boundary = okay;
}
else if (boundary == upper) {
day_om = dom(current_day);
if (++upper_bound <= 4)
display_hot_btn(c, n, day_om);
fill_day(c, w, x, y, current_day,
c->paint_cache, c->paint_cache_size, rect);
current_day += daysec;
sprintf(buf, "%s", catgets(c->DT_catd, 1, 624, "Calendar does not display dates after December 31, 2037"));
footer_message = buf;
if (upper_bound > 4)
clear_hot_btn(c, n);
}
x += w->day_width;
}
if (rect != NULL) {
CalFontExtents(w->small_bold_font, &boldfontextents);
chartrect.x = w->x;
chartrect.y = w->chart_y - w->label_height;
chartrect.width = w->chart_width +
3*boldfontextents.max_logical_extent.width;
chartrect.height = w->chart_height + 2*w->label_height;
}
if (rect == NULL || myrect_intersectsrect(rect, &chartrect)) {
for (i = 0; i < c->paint_cache_size; i++) {
start_tick = (c->paint_cache)[i].start_time;
end_tick = (c->paint_cache)[i].end_time;
cm_update_segs(w, start_tick,
(end_tick ? (end_tick - start_tick) : 0),
&start_ind, &end_ind, True);
}
chart_draw_appts(w, 0, w->segs_in_array);
draw_chart(c, w, NULL);
}
/* do not repaint the footer message in a damage display.
For some reason this causes the damage routine to get called
again, resulting in a recursive dsaster. */
if (footer_message && !rect)
set_message(c->message_text, footer_message);
}
/*
* Set up data needed to draw this particular week
*/
static void
init_week(Calendar *c, Boundary *boundary)
{
Week *w = (Week *)c->view->week_info;
int char_width, char_height;
Props *p;
int num_hrs, day_of_week;
int empty_space, day_box;
int skip_days = 0;
XFontSetExtents regfontextents, boldfontextents;
*boundary = okay;
/*
* The week view starts on Monday. Map Sunday to the last day of the
* week
*/
if ((day_of_week = dow(c->view->date)) == 0)
day_of_week = 6;
else
day_of_week--;
((Selection*)w->current_selection)->col = day_of_week;
w->start_date = lowerbound(c->view->date - (day_of_week * daysec));
/* make sure date is within bounds */
if (w->start_date == -1) {
if (year(c->view->date) == year(get_bot())) {
w->start_date = get_bot();
*boundary = lower;
}
}
else if (year(next_ndays(w->start_date, 7)) > year(get_eot())) {
*boundary = upper;
}
/*
* Set up a bunch of variables which are needed to draw and fill
* the week at a glance screen
*/
XtVaGetValues(c->canvas,
XmNwidth, &w->canvas_w,
XmNheight, &w->canvas_h,
NULL);
w->font = c->fonts->labelfont;
w->small_font = c->fonts->viewfont;
w->small_bold_font = c->fonts->boldfont;
CalFontExtents(w->font, ®fontextents);
CalFontExtents(w->small_bold_font, &boldfontextents);
w->x = c->view->outside_margin;
w->y = 2 * (int) boldfontextents.max_logical_extent.height;
char_height = regfontextents.max_logical_extent.height;
char_width = regfontextents.max_logical_extent.width;
w->label_height = char_height * 2;
w->day_width = ((int) (w->canvas_w - 2 * w->x)) / 5;
/* height of box with label */
w->day_height = ((int) (w->canvas_h - 2 * w->y)) / 2;
/*
* We compute week dimensions from day dimensions to remove rounding
* errors
*/
w->width = w->day_width * 5;
/* height from top of box to bottom of weekend boxes */
w->height = w->day_height * 2;
p = (Props *)c->properties;
w->begin_hour = get_int_prop(p, CP_DAYBEGIN);
w->end_hour = get_int_prop(p, CP_DAYEND);
/* width of a column in chart */
w->chart_day_width = (3 * w->day_width - 3 * char_width) / 7;
/* width of chart */
w->chart_width = w->chart_day_width * 7;
num_hrs = w->end_hour - w->begin_hour;
/* height of box without label */
day_box = w->day_height - w->label_height;
/* height of an hour in chart */
w->chart_hour_height = day_box / num_hrs;
/* chart_hour_height must be evenly divisble by BOX_SEG */
w->chart_hour_height -= (w->chart_hour_height % BOX_SEG);
w->chart_height = w->chart_hour_height * num_hrs;
/* x point of upper left corner of chart */
w->chart_x = w->x + 2 * boldfontextents.max_logical_extent.width;
/* y point of upper left corner of chart */
w->chart_y = w->y + w->height - w->chart_height;
/* left over empty space above chart after round off error */
empty_space = day_box - w->chart_height;
/* add pixels to the height of each hour box in chart to fill gap*/
if (w->add_pixels = ((double)empty_space / (double)num_hrs)) {
w->chart_y -= w->add_pixels * num_hrs;
w->chart_height += w->add_pixels * num_hrs;
}
w->segs_in_array = BOX_SEG * num_hrs * 7;
if (w->time_array != NULL)
free(w->time_array);
w->time_array = (char*)ckalloc(w->segs_in_array);
c->view->outside_margin = w->x;
c->view->topoffset = w->y;
}
static Boolean
print_week (Calendar *c,
int num_page,
void *xp,
Tick first_date,
Props *p,
Boolean first)
{
Boolean more, done = False, all_done = True;
int num_appts, day_of_week;
char buf[128];
int i, j;
OrderingType ot = get_int_prop(p, CP_DATEORDERING);
time_t start, stop;
CSA_return_code stat;
CSA_entry_handle *list;
CSA_attribute *range_attrs;
CSA_enum *ops;
CSA_uint32 a_total;
int lines_per_page;
static Tick start_date = 0;
static int total_pages;
static char *days[] = {
(char *)NULL, (char *)NULL, (char *)NULL,
(char *)NULL, (char *)NULL, (char *)NULL, (char *)NULL
};
if (days[0] == (char *)NULL)
{
days[0] = XtNewString(catgets(c->DT_catd, 1, 596, "Monday %d"));
days[1] = XtNewString(catgets(c->DT_catd, 1, 597, "Tuesday %d"));
days[2] = XtNewString(catgets(c->DT_catd, 1, 598, "Wednesday %d"));
days[3] = XtNewString(catgets(c->DT_catd, 1, 599, "Thursday %d"));
days[4] = XtNewString(catgets(c->DT_catd, 1, 600, "Friday %d"));
days[5] = XtNewString(catgets(c->DT_catd, 1, 601, "Saturday %d"));
days[6] = XtNewString(catgets(c->DT_catd, 1, 602, "Sunday %d"));
}
x_init_printer(xp, LANDSCAPE);
x_init_week(xp);
lines_per_page = x_get_week_lines_per_page(xp);
if (first)
start_date = first_date;
if (num_page > 1)
{
start_date = prevweek(start_date);
if (!timeok(start_date))
start_date = get_bot();
}
else
total_pages = (lines_per_page > 0) ?
count_week_pages(c, lines_per_page, start_date) : 1;
format_week_header(start_date, ot, buf);
x_print_header(xp, buf, num_page, total_pages);
x_week_appt_boxes(xp);
x_week_sched_boxes(xp);
/* print the times and text of appts */
for (i = (dow(start_date) + 6) % 7; i < 7; i++)
{
/* print <Weekday DD> centered at top of appt box */
x_week_sched_init(xp);
sprintf(buf, days[i], dom(start_date));
/* setup a time limit for appts searched */
start = (time_t) lowerbound (start_date);
stop = (time_t) next_ndays(start_date, 1) - 1;
setup_range(&range_attrs, &ops, &j, start, stop,
CSA_TYPE_EVENT, 0, B_FALSE, c->general->version);
csa_list_entries(c->cal_handle, j, range_attrs,
ops, &a_total, &list, NULL);
free_range(&range_attrs, &ops, j);
num_appts = count_multi_appts(list, a_total, c);
if ((lines_per_page > 0) &&
(num_appts > (lines_per_page * num_page)))
more = True;
else
more = False;
x_week_daynames(xp, buf, i, more);
/* print out times and appts */
if (lines_per_page > 0)
done = x_print_multi_appts(xp, list, a_total,
num_page, weekGlance);
else done = True;
if (!done)
all_done = False;
x_week_sched_draw(xp, i);
start_date = nextday(start_date);
csa_free(list);
}
x_finish_printer(xp);
return(all_done);
}
