Home » Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo » !Calendars/C_Source
!Calendars/C_Source
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo |
| Filename: | !Calendars/C_Source |
| Read OK: | ✔ |
| File size: | 505E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/****************************************************************************
PROGRAM INFO
****************************************************************************/
#define VERSION "1.05 (05 Nov 92)"
/* Compiled with Acorn ANSI C Release 4
*
* File: c.calendars
* Purpose: Create annual calendars as textfiles (filetype 0xfff)
* Author: � Tony Shew, 1992
*
* History: v1.00 - 02 Sep 92 - First working version
* v1.01 - 15 Sep 92 - Added dbox event handler to keep dbox on
* screen when icon menu is called.
* v1.02 - 18 Sep 92 - Icon click brings hidden window to front
* v1.03 - 30 Sep 92 - Export data in Draw Text Area format
* v1.04 - 19 Oct 92 - Selectable between 1 year/3 months/1 month
* v1.05 - 05 Nov 92 - Up/down arrows for year/month
*/
/****************************************************************************
#INCLUDE's
****************************************************************************/
#include "akbd.h"
#include "baricon.h"
#include "dbox.h"
#include "event.h"
#include "menu.h"
#include "msgs.h"
#include "os.h"
#include "res.h"
#include "resspr.h"
#include "saveas.h"
#include "template.h"
#include "werr.h"
#include "wimp.h"
#include "wimpt.h"
#include "win.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
/****************************************************************************
GLOBAL DATA / MACROs
****************************************************************************/
/* window icon numbers */
enum { YEAR = 5, STARTMONTH, TM, LM, HG, VG, DAY, MONTH = 18 };
enum { OK = 30, THISYEAR, THISMONTH, P1YEAR, P3MONTHS, P1MONTH, DRAW };
enum { SAVE = 37, LOAD, YDN, YUP, MDN, MUP };
#define BEEP os_swi0(256+7)
#define FRONT -1 /* position to open window, -1 = front, -2 = back */
wimp_w window_handle;
BOOL wopen = FALSE; /* flag to indicate window open/closed */
BOOL draw; /* flag to indicate draw format */
int pflag; /* flag for 1 year/3 months/1 month */
int year, startmonth, tm, lm, hg, vg;
char day[8][3], month[15][21];
#define SIZEOFCALENDAR 4096
char *calendar;
static char *app_title = "Calendars";
static char *app_resourses = "Calendars";
static char *app_baricon = "!calendars";
static int app_eventmask = wimp_EMNULL|wimp_EMPTRLEAVE|wimp_EMPTRENTER;
/****************************************************************************
ICON BAR MENU STRUCTURE
****************************************************************************/
static menu icon_menu;
#define icon_menu_title "Calendars"
enum icon_menu_list { icon_menu_info = 1,
icon_menu_quit
};
#define icon_menu_items msgs_lookup("iconmenu")
/****************************************************************************
CHECK / LOAD / SAVE DATA
****************************************************************************/
static void check_data(void) /* check data is valid */
{
/* default data to use in case of invalid data in data file */
char *dday[8] = { "", "S", "M", "Tu", "W", "Th", "F", "S" };
char *dmonth[13] = { "", "Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };
int i;
if (tm < 0 || tm > 9) tm = 1;
if (lm < 0 || lm > 9) lm = 0;
if (hg < 1 || hg > 9) hg = 2;
if (vg < 1 || vg > 9) vg = 3;
if (pflag < 0 || pflag > 2) pflag = 0;
for (i = 1; i < 8; i++)
if (!strlen(day[i]))
strcpy(day[i], dday[i]);
for (i = 1; i < 13; i++)
if (!strlen(month[i]))
strcpy(month[i], dmonth[i]);
}
static void save_data(void)
{
int i;
FILE *out;
char *ps = "File: !Calendars.Data";
if ((out = res_openfile("Data", "wb")) != NULL) {
fprintf(out, "%d %d %d %d %d %d\n", tm, lm, hg, vg, draw, pflag);
for (i = 1; i < 8; i++)
fprintf(out, "%s%c", day[i], (i < 7) ? ' ' : '\n');
for (i = 1; i < 13; i++)
fprintf(out, "%s\n", month[i]);
fprintf(out, "\n%s", ps);
fclose(out);
}
else
werr(FALSE, msgs_lookup("fileerr1"));
}
static void load_data(void)
{
int i;
FILE *in;
if ((in = res_openfile("Data", "rb")) != NULL) {
fscanf(in, "%d %d %d %d %d %d", &tm, &lm, &hg, &vg, &draw, &pflag);
for (i = 1; i < 8; i++)
fscanf(in, "%s", day[i]);
for (i = 1; i < 13; i++)
fscanf(in, "%s", month[i]);
fclose(in);
}
check_data(); /* check data is valid before using it */
}
/****************************************************************************
DISPLAY progInfo DBOX
****************************************************************************/
static void info_dbox(void)
{
dbox d;
if ((d = dbox_new("progInfo")) != NULL) {
dbox_setfield(d, 4, VERSION);
dbox_show(d);
dbox_fillin(d);
dbox_dispose(&d);
}
}
/****************************************************************************
MENU EVENT HANDLER
****************************************************************************/
/* use the same menu for the icon bar and calendar dbox */
static void icon_menu_fn(void *handle, char *hit)
{
switch (hit[0])
{
case icon_menu_info:
if (wimpt_last_event() -> e != wimp_EMENU)
info_dbox();
break;
case icon_menu_quit:
exit(0);
default:
break;
}
}
/****************************************************************************
DATA SAVE FNs
****************************************************************************/
static BOOL file_save_fn(char *filename, void *handle)
{
os_filestr osf;
osf.action = 10;
osf.name = filename;
osf.loadaddr = 0xfff;
osf.start = (int)calendar;
osf.end = osf.start + strlen(calendar);
if (wimpt_complain(os_file(&osf)))
return FALSE;
return TRUE;
}
static BOOL ram_save_fn(void *handle, int *max_buff)
{
char *dataptr = calendar;
int left = strlen(calendar);
int send;
while (left) {
send = (left < *max_buff) ? left : *max_buff;
if (!xfersend_sendbuf(dataptr, send))
return FALSE;
dataptr += send;
left -= send;
}
return TRUE;
}
/****************************************************************************
GENERATE CALENDAR
****************************************************************************/
/* work out day of week for Jan 1 for any year since 1801 */
static int jan1st(int year)
{
return (((year+((year+3)/4))-((year-1701)/100)+((year-1601)/400)) % 7);
}
/* Put names of months centred over dates */
static char *month_line(int start_month, int width)
{
int i, len, lsp, rsp;
char temp[32], s[100];
char *sp = " "; /* 10 spaces */
sprintf(s, "%.*s", lm, sp);
for (i = start_month; i < start_month+width; i++) {
len = strlen(month[i]);
lsp = (21 - len) / 2;
rsp = 20 - len - lsp;
sprintf(temp, "%.*s%s", lsp, sp, month[i]);
strcat(s, temp);
if (i < start_month + width - 1)
sprintf(temp, "%.*s%.*s", rsp, sp, vg, sp);
else
sprintf(temp, "\n\n");
strcat(s, temp);
}
if (draw) strcat(s, "\n\n");
return s;
}
/* put output into char *calendar */
static void generate_calendar(int year, int monthstoprint, int smonth)
{
char *sp = " "; /* 10 spaces */
char *nl = "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"; /* 18 \n */
char ds[21] = "\0"; /* days of the week */
char left[10] = "\0"; /* left margin */
char hgap[10] = "\0"; /* horizontal gap */
char vgap[10] = "\0"; /* vertical gap */
char dl[100] = "\0"; /* complete line of ds */
char line[100] = "\0"; /* to build up date data */
char temp[32] = "\0"; /* temp work space */
char save_name[256] = "\0";
int i, j, k, l, sl, width;
int ms[15]; /* month start day of week */
int mp[15][43]; /* dates in month to print */
int mm[15] = { 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 31, 28 };
width = (monthstoprint == 1) ? 1 : 3;
/* add 1 to feb in leap year */
mm[2] += year%4 == 0 && year%100 != 0 || year%400 == 0;
mm[14] += (year+1)%4 == 0 && (year+1)%100 != 0 || (year+1)%400 == 0;
/* if only doing 1 or 3 months put year onto end of month names */
if (monthstoprint != 12) {
for (i = smonth; i <= smonth + monthstoprint && i <= 12; i++)
sprintf(month[i], "%s %d", month[i], year);
sprintf(month[13], "%s %d", month[1], year + 1);
sprintf(month[14], "%s %d", month[2], year + 1);
}
/* put abbrieviations for days into the string ds */
sprintf(ds, "%2.2s", day[1]);
for (i = 2; i < 8; i++) {
sprintf(temp, " %2.2s", day[i]);
strcat(ds, temp);
}
strncpy(left, sp, lm); /* pad out left with left margin spaces */
strncpy(vgap, sp, vg-1); /* pad out vgap with vertical gap spaces */
strncpy(hgap, nl, hg); /* pad out hgap with horizontal gap lines */
/* put ds and hgap together into dl */
if (width == 1)
sprintf(dl, "%s\n", ds);
else
sprintf(dl, "%s%s %s%s %s%s\n", left, ds, vgap, ds, vgap, ds);
if (draw) strcat(dl, "\n");
calendar = calloc(SIZEOFCALENDAR, sizeof(char));
ms[1] = jan1st(year); /* find out day of week for jan 1 */
for (i = 2; i < 15; i++) /* calculate days other months start on */
ms[i] = (ms[i-1] + mm[i-1]) % 7;
for (i = 1; i < 15; i++) /* initialise mp with 0's*/
for (j = 0; j < 43; j++)
mp[i][j] = 0;
for (i = 1; i < 15; i++) /* put dates into mp */
for (j = ms[i], k = 1; k <= mm[i]; j++, k++)
mp[i][j] = k;
if (draw) { /* put in Draw text area header data */
strcpy(calendar, "\\! 1\n");
strcat(calendar, "\\F 0 Corpus.Medium 30\n");
strcat(calendar, "\\F 1 Corpus.Medium 12\n");
strcat(calendar, "\\0\\AC/\\L30\n");
strncat(calendar, nl, tm);
if (monthstoprint == 12) {
sprintf(temp, "%d\n", year);
strcat(calendar, temp);
}
strcat(calendar, "\\1\\AL/\\L7\n\n");
}
else if (monthstoprint == 12) {
strncpy(calendar, nl, tm); /* top margin */
sprintf(temp, "%s%d\n", left, year); /* heading = year */
strcat(calendar, temp);
strncat(calendar, nl, hg);
}
else
strncpy(calendar, nl, tm);
for (i = smonth; i < smonth+monthstoprint; i += width) {
strcat(calendar, month_line(i, width)); /* name of months */
strcat(calendar, dl); /* put in name of days */
for (j = 0; j < 6; j++) { /* put in dates */
strcpy(line, left); /* left margin */
for (k = i; k < i+width; k++) {
for (l = 0; l < 7; l++) {
if (mp[k][j*7+l]) {
sprintf(temp, "%2d ", mp[k][j*7+l]);
strcat(line, temp);
}
else
strcat(line, " ");
if (l == 6 && k != i+2)
strcat(line, vgap);
}
}
for (sl = strlen(line); line[--sl] == ' '; )
; /* strip end spaces */
sl++;
if (sl || (!sl && i < monthstoprint-2)) {
line[sl++] = '\n';
if (draw) line[sl++] = '\n';
line[sl] = '\0';
strcat(calendar, line);
}
}
if (i < monthstoprint-2)
strcat(calendar, hgap);
}
sprintf(save_name, "%c", (draw) ? 'D' : '\0');
switch (monthstoprint)
{
case 1:
sprintf(temp, "%d_%dM1", year, smonth);
break;
case 3:
sprintf(temp, "%d_%dM3", year, smonth);
break;
case 12:
sprintf(temp, "%d", year);
break;
}
strcat(save_name, temp);
saveas(0xfff, save_name, strlen(calendar), file_save_fn, ram_save_fn, 0,0);
free(calendar);
}
/****************************************************************************
CALENDARS DBOX FNs
****************************************************************************/
static void position_caret(dbox d, int dbfield)
{
wimp_caretstr c;
char s[256];
dbox_getfield(d, dbfield, s, 256);
c.w = dbox_syshandle(d);
c.i = dbfield;
c.x = 0;
c.y = 0;
c.height = -1;
c.index = strlen(s);
wimpt_noerr(wimp_set_caret_pos(&c));
}
static int this_year(void)
{
char yearbuf[8];
os_read_var_val("Sys$Year", yearbuf, 8);
return atoi(yearbuf);
}
static int this_month(void)
{
struct tm *local;
time_t timer;
time(&timer);
local = localtime(&timer);
return local->tm_mon + 1;
}
static void read_calendars_dbox(dbox d)
{
int i;
year = dbox_getnumeric(d, YEAR);
startmonth = dbox_getnumeric(d, STARTMONTH);
tm = dbox_getnumeric(d, TM);
lm = dbox_getnumeric(d, LM);
hg = dbox_getnumeric(d, HG);
vg = dbox_getnumeric(d, VG);
draw = dbox_getnumeric(d, DRAW);
for (i = 0; i < 3; i++)
if (dbox_getnumeric(d, P1YEAR+i))
pflag = i;
for (i = 1; i < 8; i++)
dbox_getfield(d, DAY+i-1, day[i], 3);
for (i = 1; i < 13; i++)
dbox_getfield(d, MONTH+i-1, month[i], 21);
check_data();
}
static void write_calendars_dbox(dbox d)
{
int i;
dbox_setnumeric(d, YEAR, year);
dbox_setnumeric(d, STARTMONTH, startmonth);
dbox_setnumeric(d, TM, tm);
dbox_setnumeric(d, LM, lm);
dbox_setnumeric(d, HG, hg);
dbox_setnumeric(d, VG, vg);
dbox_setnumeric(d, DRAW, draw);
for (i = P1YEAR; i <= P1MONTH; i++)
dbox_setnumeric(d, i, FALSE);
dbox_setnumeric(d, pflag + P1YEAR, TRUE);
for (i = 1; i < 8; i++)
dbox_setfield(d, DAY+i-1, day[i]);
for (i = 1; i < 13; i++)
dbox_setfield(d, MONTH+i-1, month[i]);
}
static void cal_ok(dbox d)
{
int oldyear, oldmonth;
int months[] = { 12, 3, 1 };
oldyear = year;
oldmonth = startmonth;
read_calendars_dbox(d);
write_calendars_dbox(d);
if (year < 1801) {
werr(FALSE, msgs_lookup("yearerr1"));
year = oldyear;
dbox_setnumeric(d, YEAR, year);
if (startmonth < 1 || startmonth > 12) {
startmonth = oldmonth;
dbox_setnumeric(d, STARTMONTH, startmonth);
}
}
else if (pflag && (startmonth < 1 || startmonth > 12)) {
werr(FALSE, msgs_lookup("montherr1"), startmonth);
startmonth = oldmonth;
dbox_setnumeric(d, STARTMONTH, startmonth);
}
else {
generate_calendar(year, months[pflag], (pflag) ? startmonth : 1);
}
}
static void cal_thisyear(dbox d)
{
year = this_year();
dbox_setnumeric(d, YEAR, year);
}
static void cal_thismonth(dbox d)
{
startmonth = this_month();
dbox_setnumeric(d, STARTMONTH, startmonth);
}
static void cal_save(dbox d)
{
read_calendars_dbox(d);
save_data();
}
static void cal_load(dbox d)
{
load_data();
write_calendars_dbox(d);
}
static void cal_changeyear(dbox d, int adjust)
{
year = dbox_getnumeric(d, YEAR);
year += adjust;
if (year < 1801) {
BEEP;
year = 1801;
}
if (year > 9999) {
BEEP;
year = 9999;
}
dbox_setnumeric(d, YEAR, year);
}
static void cal_changemonth(dbox d, int adjust)
{
startmonth = dbox_getnumeric(d, STARTMONTH);
startmonth += adjust;
if (startmonth < 1)
startmonth = 12;
if (startmonth > 12)
startmonth = 1;
dbox_setnumeric(d, STARTMONTH, startmonth);
}
static void bring_to_front(wimp_w winhandle)
{
wimp_wstate state;
wimpt_noerr(wimp_get_wind_state(winhandle, &state));
state.o.behind = FRONT;
wimpt_noerr(wimp_open_wind(&state.o));
}
static BOOL calendars_dbox_eventhandler(dbox d, void *event, void *handle)
{
wimp_eventstr *e = (wimp_eventstr *)event;
wimp_wstate state;
wimp_caretstr c;
wimp_i icon;
switch (e->e)
{
case wimp_EBUT: /* mouse click in window */
icon = e->data.but.m.i;
switch(icon)
{
case OK:
cal_ok(d);
return TRUE;
case THISYEAR:
cal_thisyear(d);
return TRUE;
case THISMONTH:
cal_thismonth(d);
return TRUE;
case SAVE:
cal_save(d);
return TRUE;
case LOAD:
cal_load(d);
return TRUE;
case YDN:
cal_changeyear(d, -1);
return TRUE;
case YUP:
cal_changeyear(d, +1);
return TRUE;
case MDN:
cal_changemonth(d, -1);
return TRUE;
case MUP:
cal_changemonth(d, +1);
return TRUE;
case P1YEAR: case P3MONTHS: case P1MONTH:
dbox_setnumeric(d, icon, TRUE);
return TRUE;
case DRAW:
return TRUE;
/* a click on unused part of window */
/* the window background must be of type 'click' */
/* text icons must be of type 'click' not 'never' */
default:
bring_to_front(window_handle);
return TRUE;
}
break;
case wimp_EKEY: /* Keyboard key pressed */
switch (e->data.key.chcode)
{
case 13: /* Return */
case 398: /* Down arrow */
case 399: /* Up arrow */
/* writable fields must be numbered sequentially for this to work */
/* if window is not full size restrict movement of cursor */
wimpt_noerr(wimp_get_wind_state(window_handle, &state));
state.flags &= wimp_WFULL; /* is window full sized? */
wimpt_noerr(wimp_get_caret_pos(&c));
if (e->data.key.chcode == 399) c.i--;
else c.i++;
if (!state.flags && c.i > STARTMONTH) c.i = YEAR;
else if (!state.flags && c.i < YEAR) c.i = STARTMONTH;
else if (state.flags && c.i == MONTH + 12) c.i = YEAR;
else if (state.flags && c.i < YEAR) c.i = MONTH + 11;
position_caret(d, c.i);
return TRUE;
/* assign jobs to Function keys */
case akbd_Fn+1:
cal_ok(d);
return TRUE;
case akbd_Fn+2:
cal_thisyear(d);
return TRUE;
case akbd_Fn+3:
cal_thismonth(d);
return TRUE;
case akbd_Fn+4:
cal_save(d);
return TRUE;
case akbd_Fn+5:
cal_load(d);
return TRUE;
case akbd_Fn+6:
cal_changeyear(d, -1);
return TRUE;
case akbd_Fn+7:
cal_changeyear(d, +1);
return TRUE;
case akbd_Fn+8:
cal_changemonth(d, -1);
return TRUE;
case akbd_Fn+9:
cal_changemonth(d, +1);
return TRUE;
}
break;
case wimp_ECLOSE:
read_calendars_dbox(d); /* get contents of window before closing */
wimpt_complain(wimp_close_wind(window_handle));
return TRUE;
}
return FALSE;
}
/****************************************************************************
ICON CLICK EVENT HANDLER
****************************************************************************/
static void iconbar_click(wimp_i icon)
{
if (wopen) /* if window is open then bring to front */
bring_to_front(window_handle);
else { /* else open window */
dbox d;
if ((d = dbox_new("calendar")) != NULL) {
window_handle = dbox_syshandle(d);
event_attachmenu((event_w)window_handle, icon_menu, icon_menu_fn, 0);
dbox_raw_eventhandler(d, calendars_dbox_eventhandler, 0);
dbox_showstatic(d);
wopen = TRUE;
write_calendars_dbox(d);
position_caret(d, YEAR);
}
}
}
/****************************************************************************
INITIALISATION
****************************************************************************/
static BOOL initialise(void)
{
wimpt_init(app_title);
res_init(app_resourses);
resspr_init();
template_init();
dbox_init();
msgs_init();
if ((icon_menu = menu_new(icon_menu_title, icon_menu_items)) == NULL)
return FALSE;
baricon(app_baricon, (int)resspr_area(), iconbar_click);
if (!event_attachmenu(win_ICONBAR, icon_menu, icon_menu_fn, 0))
return FALSE;
event_setmask(app_eventmask);
load_data();
year = this_year(); /* set initial values to year and month */
startmonth = this_month();
return TRUE;
}
/****************************************************************************
MAIN PROGRAM
****************************************************************************/
int main()
{
if (initialise())
while (TRUE)
event_process();
return 0;
}
/****************************************************************************
END OF FILE
****************************************************************************/
00000000 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |/***************|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 |*************. |
00000050 50 52 4f 47 52 41 4d 20 49 4e 46 4f 0a 2a 2a 2a |PROGRAM INFO.***|
00000060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000000a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 23 64 65 66 |*********/..#def|
000000b0 69 6e 65 20 56 45 52 53 49 4f 4e 20 22 31 2e 30 |ine VERSION "1.0|
000000c0 35 20 28 30 35 20 4e 6f 76 20 39 32 29 22 0a 0a |5 (05 Nov 92)"..|
000000d0 2f 2a 20 20 43 6f 6d 70 69 6c 65 64 20 77 69 74 |/* Compiled wit|
000000e0 68 20 41 63 6f 72 6e 20 41 4e 53 49 20 43 20 52 |h Acorn ANSI C R|
000000f0 65 6c 65 61 73 65 20 34 0a 20 2a 0a 20 2a 20 20 |elease 4. *. * |
00000100 46 69 6c 65 3a 20 20 20 20 20 63 2e 63 61 6c 65 |File: c.cale|
00000110 6e 64 61 72 73 0a 20 2a 20 20 50 75 72 70 6f 73 |ndars. * Purpos|
00000120 65 3a 20 20 43 72 65 61 74 65 20 61 6e 6e 75 61 |e: Create annua|
00000130 6c 20 63 61 6c 65 6e 64 61 72 73 20 61 73 20 74 |l calendars as t|
00000140 65 78 74 66 69 6c 65 73 20 28 66 69 6c 65 74 79 |extfiles (filety|
00000150 70 65 20 30 78 66 66 66 29 0a 20 2a 20 20 41 75 |pe 0xfff). * Au|
00000160 74 68 6f 72 3a 20 20 20 a9 20 54 6f 6e 79 20 53 |thor: . Tony S|
00000170 68 65 77 2c 20 31 39 39 32 0a 20 2a 0a 20 2a 20 |hew, 1992. *. * |
00000180 20 48 69 73 74 6f 72 79 3a 20 20 76 31 2e 30 30 | History: v1.00|
00000190 20 2d 20 30 32 20 53 65 70 20 39 32 20 2d 20 46 | - 02 Sep 92 - F|
000001a0 69 72 73 74 20 77 6f 72 6b 69 6e 67 20 76 65 72 |irst working ver|
000001b0 73 69 6f 6e 0a 20 2a 20 20 20 20 20 20 20 20 20 |sion. * |
000001c0 20 20 20 76 31 2e 30 31 20 2d 20 31 35 20 53 65 | v1.01 - 15 Se|
000001d0 70 20 39 32 20 2d 20 41 64 64 65 64 20 64 62 6f |p 92 - Added dbo|
000001e0 78 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 |x event handler |
000001f0 74 6f 20 6b 65 65 70 20 64 62 6f 78 20 6f 6e 0a |to keep dbox on.|
00000200 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220 20 20 73 63 72 65 65 6e 20 77 68 65 6e 20 69 63 | screen when ic|
00000230 6f 6e 20 6d 65 6e 75 20 69 73 20 63 61 6c 6c 65 |on menu is calle|
00000240 64 2e 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 |d.. * |
00000250 20 76 31 2e 30 32 20 2d 20 31 38 20 53 65 70 20 | v1.02 - 18 Sep |
00000260 39 32 20 2d 20 49 63 6f 6e 20 63 6c 69 63 6b 20 |92 - Icon click |
00000270 62 72 69 6e 67 73 20 68 69 64 64 65 6e 20 77 69 |brings hidden wi|
00000280 6e 64 6f 77 20 74 6f 20 66 72 6f 6e 74 0a 20 2a |ndow to front. *|
00000290 20 20 20 20 20 20 20 20 20 20 20 20 76 31 2e 30 | v1.0|
000002a0 33 20 2d 20 33 30 20 53 65 70 20 39 32 20 2d 20 |3 - 30 Sep 92 - |
000002b0 45 78 70 6f 72 74 20 64 61 74 61 20 69 6e 20 44 |Export data in D|
000002c0 72 61 77 20 54 65 78 74 20 41 72 65 61 20 66 6f |raw Text Area fo|
000002d0 72 6d 61 74 0a 20 2a 20 20 20 20 20 20 20 20 20 |rmat. * |
000002e0 20 20 20 76 31 2e 30 34 20 2d 20 31 39 20 4f 63 | v1.04 - 19 Oc|
000002f0 74 20 39 32 20 2d 20 53 65 6c 65 63 74 61 62 6c |t 92 - Selectabl|
00000300 65 20 62 65 74 77 65 65 6e 20 31 20 79 65 61 72 |e between 1 year|
00000310 2f 33 20 6d 6f 6e 74 68 73 2f 31 20 6d 6f 6e 74 |/3 months/1 mont|
00000320 68 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 |h. * |
00000330 76 31 2e 30 35 20 2d 20 30 35 20 4e 6f 76 20 39 |v1.05 - 05 Nov 9|
00000340 32 20 2d 20 55 70 2f 64 6f 77 6e 20 61 72 72 6f |2 - Up/down arro|
00000350 77 73 20 66 6f 72 20 79 65 61 72 2f 6d 6f 6e 74 |ws for year/mont|
00000360 68 0a 20 2a 2f 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a |h. */../********|
00000370 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000003b0 2a 2a 2a 2a 0a 20 20 23 49 4e 43 4c 55 44 45 27 |****. #INCLUDE'|
000003c0 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |s.**************|
000003d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a |**************/.|
00000410 0a 23 69 6e 63 6c 75 64 65 20 22 61 6b 62 64 2e |.#include "akbd.|
00000420 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 62 61 72 |h".#include "bar|
00000430 69 63 6f 6e 2e 68 22 0a 23 69 6e 63 6c 75 64 65 |icon.h".#include|
00000440 20 22 64 62 6f 78 2e 68 22 0a 23 69 6e 63 6c 75 | "dbox.h".#inclu|
00000450 64 65 20 22 65 76 65 6e 74 2e 68 22 0a 23 69 6e |de "event.h".#in|
00000460 63 6c 75 64 65 20 22 6d 65 6e 75 2e 68 22 0a 23 |clude "menu.h".#|
00000470 69 6e 63 6c 75 64 65 20 22 6d 73 67 73 2e 68 22 |include "msgs.h"|
00000480 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22 |.#include "os.h"|
00000490 0a 23 69 6e 63 6c 75 64 65 20 22 72 65 73 2e 68 |.#include "res.h|
000004a0 22 0a 23 69 6e 63 6c 75 64 65 20 22 72 65 73 73 |".#include "ress|
000004b0 70 72 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 |pr.h".#include "|
000004c0 73 61 76 65 61 73 2e 68 22 0a 23 69 6e 63 6c 75 |saveas.h".#inclu|
000004d0 64 65 20 22 74 65 6d 70 6c 61 74 65 2e 68 22 0a |de "template.h".|
000004e0 23 69 6e 63 6c 75 64 65 20 22 77 65 72 72 2e 68 |#include "werr.h|
000004f0 22 0a 23 69 6e 63 6c 75 64 65 20 22 77 69 6d 70 |".#include "wimp|
00000500 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 77 69 |.h".#include "wi|
00000510 6d 70 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 |mpt.h".#include |
00000520 22 77 69 6e 2e 68 22 0a 0a 23 69 6e 63 6c 75 64 |"win.h"..#includ|
00000530 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 |e <stdio.h>.#inc|
00000540 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a |lude <stdlib.h>.|
00000550 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 |#include <string|
00000560 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74 69 |.h>.#include <ti|
00000570 6d 65 2e 68 3e 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a |me.h>../********|
00000580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000005c0 2a 2a 2a 2a 0a 20 20 47 4c 4f 42 41 4c 20 44 41 |****. GLOBAL DA|
000005d0 54 41 20 2f 20 4d 41 43 52 4f 73 0a 2a 2a 2a 2a |TA / MACROs.****|
000005e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000620 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 20 77 69 |********/../* wi|
00000630 6e 64 6f 77 20 69 63 6f 6e 20 6e 75 6d 62 65 72 |ndow icon number|
00000640 73 20 2a 2f 0a 65 6e 75 6d 20 7b 20 59 45 41 52 |s */.enum { YEAR|
00000650 20 3d 20 35 2c 20 53 54 41 52 54 4d 4f 4e 54 48 | = 5, STARTMONTH|
00000660 2c 20 54 4d 2c 20 4c 4d 2c 20 48 47 2c 20 56 47 |, TM, LM, HG, VG|
00000670 2c 20 44 41 59 2c 20 4d 4f 4e 54 48 20 3d 20 31 |, DAY, MONTH = 1|
00000680 38 20 7d 3b 0a 65 6e 75 6d 20 7b 20 4f 4b 20 3d |8 };.enum { OK =|
00000690 20 33 30 2c 20 54 48 49 53 59 45 41 52 2c 20 54 | 30, THISYEAR, T|
000006a0 48 49 53 4d 4f 4e 54 48 2c 20 50 31 59 45 41 52 |HISMONTH, P1YEAR|
000006b0 2c 20 50 33 4d 4f 4e 54 48 53 2c 20 50 31 4d 4f |, P3MONTHS, P1MO|
000006c0 4e 54 48 2c 20 44 52 41 57 20 7d 3b 0a 65 6e 75 |NTH, DRAW };.enu|
000006d0 6d 20 7b 20 53 41 56 45 20 3d 20 33 37 2c 20 4c |m { SAVE = 37, L|
000006e0 4f 41 44 2c 20 59 44 4e 2c 20 59 55 50 2c 20 4d |OAD, YDN, YUP, M|
000006f0 44 4e 2c 20 4d 55 50 20 7d 3b 0a 0a 23 64 65 66 |DN, MUP };..#def|
00000700 69 6e 65 20 42 45 45 50 20 6f 73 5f 73 77 69 30 |ine BEEP os_swi0|
00000710 28 32 35 36 2b 37 29 0a 23 64 65 66 69 6e 65 20 |(256+7).#define |
00000720 46 52 4f 4e 54 20 2d 31 20 20 20 2f 2a 20 70 6f |FRONT -1 /* po|
00000730 73 69 74 69 6f 6e 20 74 6f 20 6f 70 65 6e 20 77 |sition to open w|
00000740 69 6e 64 6f 77 2c 20 2d 31 20 3d 20 66 72 6f 6e |indow, -1 = fron|
00000750 74 2c 20 2d 32 20 3d 20 62 61 63 6b 20 2a 2f 0a |t, -2 = back */.|
00000760 77 69 6d 70 5f 77 20 77 69 6e 64 6f 77 5f 68 61 |wimp_w window_ha|
00000770 6e 64 6c 65 3b 0a 42 4f 4f 4c 20 77 6f 70 65 6e |ndle;.BOOL wopen|
00000780 20 3d 20 46 41 4c 53 45 3b 20 20 20 20 20 20 20 | = FALSE; |
00000790 20 20 20 2f 2a 20 66 6c 61 67 20 74 6f 20 69 6e | /* flag to in|
000007a0 64 69 63 61 74 65 20 77 69 6e 64 6f 77 20 6f 70 |dicate window op|
000007b0 65 6e 2f 63 6c 6f 73 65 64 20 2a 2f 0a 42 4f 4f |en/closed */.BOO|
000007c0 4c 20 64 72 61 77 3b 20 20 20 20 20 20 20 20 20 |L draw; |
000007d0 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 6c 61 | /* fla|
000007e0 67 20 74 6f 20 69 6e 64 69 63 61 74 65 20 64 72 |g to indicate dr|
000007f0 61 77 20 66 6f 72 6d 61 74 20 2a 2f 0a 69 6e 74 |aw format */.int|
00000800 20 70 66 6c 61 67 3b 20 20 20 20 20 20 20 20 20 | pflag; |
00000810 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 6c 61 | /* fla|
00000820 67 20 66 6f 72 20 31 20 79 65 61 72 2f 33 20 6d |g for 1 year/3 m|
00000830 6f 6e 74 68 73 2f 31 20 6d 6f 6e 74 68 20 2a 2f |onths/1 month */|
00000840 0a 69 6e 74 20 79 65 61 72 2c 20 73 74 61 72 74 |.int year, start|
00000850 6d 6f 6e 74 68 2c 20 74 6d 2c 20 6c 6d 2c 20 68 |month, tm, lm, h|
00000860 67 2c 20 76 67 3b 0a 63 68 61 72 20 64 61 79 5b |g, vg;.char day[|
00000870 38 5d 5b 33 5d 2c 20 6d 6f 6e 74 68 5b 31 35 5d |8][3], month[15]|
00000880 5b 32 31 5d 3b 0a 0a 23 64 65 66 69 6e 65 20 53 |[21];..#define S|
00000890 49 5a 45 4f 46 43 41 4c 45 4e 44 41 52 20 34 30 |IZEOFCALENDAR 40|
000008a0 39 36 0a 63 68 61 72 20 2a 63 61 6c 65 6e 64 61 |96.char *calenda|
000008b0 72 3b 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a |r;.static char *|
000008c0 61 70 70 5f 74 69 74 6c 65 20 20 20 20 20 3d 20 |app_title = |
000008d0 22 43 61 6c 65 6e 64 61 72 73 22 3b 0a 73 74 61 |"Calendars";.sta|
000008e0 74 69 63 20 63 68 61 72 20 2a 61 70 70 5f 72 65 |tic char *app_re|
000008f0 73 6f 75 72 73 65 73 20 3d 20 22 43 61 6c 65 6e |sourses = "Calen|
00000900 64 61 72 73 22 3b 0a 73 74 61 74 69 63 20 63 68 |dars";.static ch|
00000910 61 72 20 2a 61 70 70 5f 62 61 72 69 63 6f 6e 20 |ar *app_baricon |
00000920 20 20 3d 20 22 21 63 61 6c 65 6e 64 61 72 73 22 | = "!calendars"|
00000930 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 20 20 61 |;.static int a|
00000940 70 70 5f 65 76 65 6e 74 6d 61 73 6b 20 3d 20 77 |pp_eventmask = w|
00000950 69 6d 70 5f 45 4d 4e 55 4c 4c 7c 77 69 6d 70 5f |imp_EMNULL|wimp_|
00000960 45 4d 50 54 52 4c 45 41 56 45 7c 77 69 6d 70 5f |EMPTRLEAVE|wimp_|
00000970 45 4d 50 54 52 45 4e 54 45 52 3b 0a 0a 2f 2a 2a |EMPTRENTER;../**|
00000980 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000009c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 49 43 4f |**********. ICO|
000009d0 4e 20 42 41 52 20 4d 45 4e 55 20 53 54 52 55 43 |N BAR MENU STRUC|
000009e0 54 55 52 45 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |TURE.***********|
000009f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000a30 2a 2f 0a 0a 73 74 61 74 69 63 20 6d 65 6e 75 20 |*/..static menu |
00000a40 69 63 6f 6e 5f 6d 65 6e 75 3b 0a 23 64 65 66 69 |icon_menu;.#defi|
00000a50 6e 65 20 69 63 6f 6e 5f 6d 65 6e 75 5f 74 69 74 |ne icon_menu_tit|
00000a60 6c 65 20 22 43 61 6c 65 6e 64 61 72 73 22 0a 65 |le "Calendars".e|
00000a70 6e 75 6d 20 69 63 6f 6e 5f 6d 65 6e 75 5f 6c 69 |num icon_menu_li|
00000a80 73 74 20 7b 20 69 63 6f 6e 5f 6d 65 6e 75 5f 69 |st { icon_menu_i|
00000a90 6e 66 6f 20 3d 20 31 2c 0a 20 20 20 20 20 20 20 |nfo = 1,. |
00000aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 | i|
00000ab0 63 6f 6e 5f 6d 65 6e 75 5f 71 75 69 74 0a 20 20 |con_menu_quit. |
00000ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ad0 20 20 7d 3b 0a 23 64 65 66 69 6e 65 20 69 63 6f | };.#define ico|
00000ae0 6e 5f 6d 65 6e 75 5f 69 74 65 6d 73 20 6d 73 67 |n_menu_items msg|
00000af0 73 5f 6c 6f 6f 6b 75 70 28 22 69 63 6f 6e 6d 65 |s_lookup("iconme|
00000b00 6e 75 22 29 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a |nu")../*********|
00000b10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000b50 2a 2a 2a 0a 20 20 43 48 45 43 4b 20 2f 20 4c 4f |***. CHECK / LO|
00000b60 41 44 20 2f 20 53 41 56 45 20 44 41 54 41 0a 2a |AD / SAVE DATA.*|
00000b70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000bb0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 74 |***********/..st|
00000bc0 61 74 69 63 20 76 6f 69 64 20 63 68 65 63 6b 5f |atic void check_|
00000bd0 64 61 74 61 28 76 6f 69 64 29 20 20 20 20 20 20 |data(void) |
00000be0 20 2f 2a 20 63 68 65 63 6b 20 64 61 74 61 20 69 | /* check data i|
00000bf0 73 20 76 61 6c 69 64 20 2a 2f 0a 7b 0a 20 20 2f |s valid */.{. /|
00000c00 2a 20 64 65 66 61 75 6c 74 20 64 61 74 61 20 74 |* default data t|
00000c10 6f 20 75 73 65 20 69 6e 20 63 61 73 65 20 6f 66 |o use in case of|
00000c20 20 69 6e 76 61 6c 69 64 20 64 61 74 61 20 69 6e | invalid data in|
00000c30 20 64 61 74 61 20 66 69 6c 65 20 2a 2f 0a 20 20 | data file */. |
00000c40 63 68 61 72 20 2a 64 64 61 79 5b 38 5d 20 3d 20 |char *dday[8] = |
00000c50 7b 20 22 22 2c 20 22 53 22 2c 20 22 4d 22 2c 20 |{ "", "S", "M", |
00000c60 22 54 75 22 2c 20 22 57 22 2c 20 22 54 68 22 2c |"Tu", "W", "Th",|
00000c70 20 22 46 22 2c 20 22 53 22 20 7d 3b 0a 20 20 63 | "F", "S" };. c|
00000c80 68 61 72 20 2a 64 6d 6f 6e 74 68 5b 31 33 5d 20 |har *dmonth[13] |
00000c90 3d 20 7b 20 22 22 2c 20 22 4a 61 6e 22 2c 20 22 |= { "", "Jan", "|
00000ca0 46 65 62 22 2c 20 22 4d 61 72 22 2c 20 22 41 70 |Feb", "Mar", "Ap|
00000cb0 72 22 2c 20 22 4d 61 79 22 2c 20 22 4a 75 6e 22 |r", "May", "Jun"|
00000cc0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |,. |
00000cd0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4a 75 | "Ju|
00000ce0 6c 22 2c 20 22 41 75 67 22 2c 20 22 53 65 70 22 |l", "Aug", "Sep"|
00000cf0 2c 20 22 4f 63 74 22 2c 20 22 4e 6f 76 22 2c 20 |, "Oct", "Nov", |
00000d00 22 44 65 63 22 20 7d 3b 0a 20 20 69 6e 74 20 69 |"Dec" };. int i|
00000d10 3b 0a 0a 20 20 69 66 20 28 74 6d 20 3c 20 30 20 |;.. if (tm < 0 |
00000d20 7c 7c 20 74 6d 20 3e 20 39 29 20 74 6d 20 3d 20 ||| tm > 9) tm = |
00000d30 31 3b 0a 20 20 69 66 20 28 6c 6d 20 3c 20 30 20 |1;. if (lm < 0 |
00000d40 7c 7c 20 6c 6d 20 3e 20 39 29 20 6c 6d 20 3d 20 ||| lm > 9) lm = |
00000d50 30 3b 0a 20 20 69 66 20 28 68 67 20 3c 20 31 20 |0;. if (hg < 1 |
00000d60 7c 7c 20 68 67 20 3e 20 39 29 20 68 67 20 3d 20 ||| hg > 9) hg = |
00000d70 32 3b 0a 20 20 69 66 20 28 76 67 20 3c 20 31 20 |2;. if (vg < 1 |
00000d80 7c 7c 20 76 67 20 3e 20 39 29 20 76 67 20 3d 20 ||| vg > 9) vg = |
00000d90 33 3b 0a 20 20 69 66 20 28 70 66 6c 61 67 20 3c |3;. if (pflag <|
00000da0 20 30 20 7c 7c 20 70 66 6c 61 67 20 3e 20 32 29 | 0 || pflag > 2)|
00000db0 20 70 66 6c 61 67 20 3d 20 30 3b 0a 0a 20 20 66 | pflag = 0;.. f|
00000dc0 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 3c 20 38 |or (i = 1; i < 8|
00000dd0 3b 20 69 2b 2b 29 0a 20 20 20 20 69 66 20 28 21 |; i++). if (!|
00000de0 73 74 72 6c 65 6e 28 64 61 79 5b 69 5d 29 29 0a |strlen(day[i])).|
00000df0 20 20 20 20 20 20 73 74 72 63 70 79 28 64 61 79 | strcpy(day|
00000e00 5b 69 5d 2c 20 64 64 61 79 5b 69 5d 29 3b 0a 0a |[i], dday[i]);..|
00000e10 20 20 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 | for (i = 1; i |
00000e20 3c 20 31 33 3b 20 69 2b 2b 29 0a 20 20 20 20 69 |< 13; i++). i|
00000e30 66 20 28 21 73 74 72 6c 65 6e 28 6d 6f 6e 74 68 |f (!strlen(month|
00000e40 5b 69 5d 29 29 0a 20 20 20 20 20 20 73 74 72 63 |[i])). strc|
00000e50 70 79 28 6d 6f 6e 74 68 5b 69 5d 2c 20 64 6d 6f |py(month[i], dmo|
00000e60 6e 74 68 5b 69 5d 29 3b 0a 7d 0a 0a 73 74 61 74 |nth[i]);.}..stat|
00000e70 69 63 20 76 6f 69 64 20 73 61 76 65 5f 64 61 74 |ic void save_dat|
00000e80 61 28 76 6f 69 64 29 0a 7b 0a 20 20 69 6e 74 20 |a(void).{. int |
00000e90 69 3b 0a 20 20 46 49 4c 45 20 2a 6f 75 74 3b 0a |i;. FILE *out;.|
00000ea0 20 20 63 68 61 72 20 2a 70 73 20 3d 20 22 46 69 | char *ps = "Fi|
00000eb0 6c 65 3a 20 21 43 61 6c 65 6e 64 61 72 73 2e 44 |le: !Calendars.D|
00000ec0 61 74 61 22 3b 0a 0a 20 20 69 66 20 28 28 6f 75 |ata";.. if ((ou|
00000ed0 74 20 3d 20 72 65 73 5f 6f 70 65 6e 66 69 6c 65 |t = res_openfile|
00000ee0 28 22 44 61 74 61 22 2c 20 22 77 62 22 29 29 20 |("Data", "wb")) |
00000ef0 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 66 |!= NULL) {. f|
00000f00 70 72 69 6e 74 66 28 6f 75 74 2c 20 22 25 64 20 |printf(out, "%d |
00000f10 25 64 20 25 64 20 25 64 20 25 64 20 25 64 5c 6e |%d %d %d %d %d\n|
00000f20 22 2c 20 74 6d 2c 20 6c 6d 2c 20 68 67 2c 20 76 |", tm, lm, hg, v|
00000f30 67 2c 20 64 72 61 77 2c 20 70 66 6c 61 67 29 3b |g, draw, pflag);|
00000f40 0a 20 20 20 20 66 6f 72 20 28 69 20 3d 20 31 3b |. for (i = 1;|
00000f50 20 69 20 3c 20 38 3b 20 69 2b 2b 29 0a 20 20 20 | i < 8; i++). |
00000f60 20 20 20 66 70 72 69 6e 74 66 28 6f 75 74 2c 20 | fprintf(out, |
00000f70 22 25 73 25 63 22 2c 20 64 61 79 5b 69 5d 2c 20 |"%s%c", day[i], |
00000f80 28 69 20 3c 20 37 29 20 3f 20 27 20 27 20 3a 20 |(i < 7) ? ' ' : |
00000f90 27 5c 6e 27 29 3b 0a 20 20 20 20 66 6f 72 20 28 |'\n');. for (|
00000fa0 69 20 3d 20 31 3b 20 69 20 3c 20 31 33 3b 20 69 |i = 1; i < 13; i|
00000fb0 2b 2b 29 0a 20 20 20 20 20 20 66 70 72 69 6e 74 |++). fprint|
00000fc0 66 28 6f 75 74 2c 20 22 25 73 5c 6e 22 2c 20 6d |f(out, "%s\n", m|
00000fd0 6f 6e 74 68 5b 69 5d 29 3b 0a 20 20 20 20 66 70 |onth[i]);. fp|
00000fe0 72 69 6e 74 66 28 6f 75 74 2c 20 22 5c 6e 25 73 |rintf(out, "\n%s|
00000ff0 22 2c 20 70 73 29 3b 0a 20 20 20 20 66 63 6c 6f |", ps);. fclo|
00001000 73 65 28 6f 75 74 29 3b 0a 20 20 7d 0a 20 20 65 |se(out);. }. e|
00001010 6c 73 65 0a 20 20 20 20 77 65 72 72 28 46 41 4c |lse. werr(FAL|
00001020 53 45 2c 20 6d 73 67 73 5f 6c 6f 6f 6b 75 70 28 |SE, msgs_lookup(|
00001030 22 66 69 6c 65 65 72 72 31 22 29 29 3b 0a 7d 0a |"fileerr1"));.}.|
00001040 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f 61 |.static void loa|
00001050 64 5f 64 61 74 61 28 76 6f 69 64 29 0a 7b 0a 20 |d_data(void).{. |
00001060 20 69 6e 74 20 69 3b 0a 20 20 46 49 4c 45 20 2a | int i;. FILE *|
00001070 69 6e 3b 0a 0a 20 20 69 66 20 28 28 69 6e 20 3d |in;.. if ((in =|
00001080 20 72 65 73 5f 6f 70 65 6e 66 69 6c 65 28 22 44 | res_openfile("D|
00001090 61 74 61 22 2c 20 22 72 62 22 29 29 20 21 3d 20 |ata", "rb")) != |
000010a0 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 66 73 63 61 |NULL) {. fsca|
000010b0 6e 66 28 69 6e 2c 20 22 25 64 20 25 64 20 25 64 |nf(in, "%d %d %d|
000010c0 20 25 64 20 25 64 20 25 64 22 2c 20 26 74 6d 2c | %d %d %d", &tm,|
000010d0 20 26 6c 6d 2c 20 26 68 67 2c 20 26 76 67 2c 20 | &lm, &hg, &vg, |
000010e0 26 64 72 61 77 2c 20 26 70 66 6c 61 67 29 3b 0a |&draw, &pflag);.|
000010f0 20 20 20 20 66 6f 72 20 28 69 20 3d 20 31 3b 20 | for (i = 1; |
00001100 69 20 3c 20 38 3b 20 69 2b 2b 29 0a 20 20 20 20 |i < 8; i++). |
00001110 20 20 66 73 63 61 6e 66 28 69 6e 2c 20 22 25 73 | fscanf(in, "%s|
00001120 22 2c 20 64 61 79 5b 69 5d 29 3b 0a 20 20 20 20 |", day[i]);. |
00001130 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 3c 20 |for (i = 1; i < |
00001140 31 33 3b 20 69 2b 2b 29 0a 20 20 20 20 20 20 66 |13; i++). f|
00001150 73 63 61 6e 66 28 69 6e 2c 20 22 25 73 22 2c 20 |scanf(in, "%s", |
00001160 6d 6f 6e 74 68 5b 69 5d 29 3b 0a 20 20 20 20 66 |month[i]);. f|
00001170 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 7d 0a 20 |close(in);. }. |
00001180 20 63 68 65 63 6b 5f 64 61 74 61 28 29 3b 20 20 | check_data(); |
00001190 20 2f 2a 20 63 68 65 63 6b 20 64 61 74 61 20 69 | /* check data i|
000011a0 73 20 76 61 6c 69 64 20 62 65 66 6f 72 65 20 75 |s valid before u|
000011b0 73 69 6e 67 20 69 74 20 2a 2f 0a 7d 0a 0a 2f 2a |sing it */.}../*|
000011c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 44 49 |***********. DI|
00001210 53 50 4c 41 59 20 70 72 6f 67 49 6e 66 6f 20 44 |SPLAY progInfo D|
00001220 42 4f 58 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |BOX.************|
00001230 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001270 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69 |/..static void i|
00001280 6e 66 6f 5f 64 62 6f 78 28 76 6f 69 64 29 0a 7b |nfo_dbox(void).{|
00001290 0a 20 20 64 62 6f 78 20 64 3b 0a 0a 20 20 69 66 |. dbox d;.. if|
000012a0 20 28 28 64 20 3d 20 64 62 6f 78 5f 6e 65 77 28 | ((d = dbox_new(|
000012b0 22 70 72 6f 67 49 6e 66 6f 22 29 29 20 21 3d 20 |"progInfo")) != |
000012c0 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 64 62 6f 78 |NULL) {. dbox|
000012d0 5f 73 65 74 66 69 65 6c 64 28 64 2c 20 34 2c 20 |_setfield(d, 4, |
000012e0 56 45 52 53 49 4f 4e 29 3b 0a 20 20 20 20 64 62 |VERSION);. db|
000012f0 6f 78 5f 73 68 6f 77 28 64 29 3b 0a 20 20 20 20 |ox_show(d);. |
00001300 64 62 6f 78 5f 66 69 6c 6c 69 6e 28 64 29 3b 0a |dbox_fillin(d);.|
00001310 20 20 20 20 64 62 6f 78 5f 64 69 73 70 6f 73 65 | dbox_dispose|
00001320 28 26 64 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 2a |(&d);. }.}../**|
00001330 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001370 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 4d 45 4e |**********. MEN|
00001380 55 20 45 56 45 4e 54 20 48 41 4e 44 4c 45 52 0a |U EVENT HANDLER.|
00001390 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000013d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f |************/../|
000013e0 2a 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 6d |* use the same m|
000013f0 65 6e 75 20 66 6f 72 20 74 68 65 20 69 63 6f 6e |enu for the icon|
00001400 20 62 61 72 20 61 6e 64 20 63 61 6c 65 6e 64 61 | bar and calenda|
00001410 72 20 64 62 6f 78 20 2a 2f 0a 73 74 61 74 69 63 |r dbox */.static|
00001420 20 76 6f 69 64 20 69 63 6f 6e 5f 6d 65 6e 75 5f | void icon_menu_|
00001430 66 6e 28 76 6f 69 64 20 2a 68 61 6e 64 6c 65 2c |fn(void *handle,|
00001440 20 63 68 61 72 20 2a 68 69 74 29 0a 7b 0a 20 20 | char *hit).{. |
00001450 73 77 69 74 63 68 20 28 68 69 74 5b 30 5d 29 0a |switch (hit[0]).|
00001460 20 20 7b 0a 20 20 20 20 63 61 73 65 20 69 63 6f | {. case ico|
00001470 6e 5f 6d 65 6e 75 5f 69 6e 66 6f 3a 0a 20 20 20 |n_menu_info:. |
00001480 20 20 20 69 66 20 28 77 69 6d 70 74 5f 6c 61 73 | if (wimpt_las|
00001490 74 5f 65 76 65 6e 74 28 29 20 2d 3e 20 65 20 21 |t_event() -> e !|
000014a0 3d 20 77 69 6d 70 5f 45 4d 45 4e 55 29 0a 20 20 |= wimp_EMENU). |
000014b0 20 20 20 20 20 20 69 6e 66 6f 5f 64 62 6f 78 28 | info_dbox(|
000014c0 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a |);. break;.|
000014d0 0a 20 20 20 20 63 61 73 65 20 69 63 6f 6e 5f 6d |. case icon_m|
000014e0 65 6e 75 5f 71 75 69 74 3a 0a 20 20 20 20 20 20 |enu_quit:. |
000014f0 65 78 69 74 28 30 29 3b 0a 0a 20 20 20 20 64 65 |exit(0);.. de|
00001500 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 62 72 65 |fault:. bre|
00001510 61 6b 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a |ak;. }.}../****|
00001520 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001560 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 44 41 54 41 20 |********. DATA |
00001570 53 41 56 45 20 46 4e 73 0a 2a 2a 2a 2a 2a 2a 2a |SAVE FNs.*******|
00001580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000015c0 2a 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 42 |*****/..static B|
000015d0 4f 4f 4c 20 66 69 6c 65 5f 73 61 76 65 5f 66 6e |OOL file_save_fn|
000015e0 28 63 68 61 72 20 2a 66 69 6c 65 6e 61 6d 65 2c |(char *filename,|
000015f0 20 76 6f 69 64 20 2a 68 61 6e 64 6c 65 29 0a 7b | void *handle).{|
00001600 0a 20 20 6f 73 5f 66 69 6c 65 73 74 72 20 6f 73 |. os_filestr os|
00001610 66 3b 0a 0a 20 20 6f 73 66 2e 61 63 74 69 6f 6e |f;.. osf.action|
00001620 20 3d 20 31 30 3b 0a 20 20 6f 73 66 2e 6e 61 6d | = 10;. osf.nam|
00001630 65 20 3d 20 66 69 6c 65 6e 61 6d 65 3b 0a 20 20 |e = filename;. |
00001640 6f 73 66 2e 6c 6f 61 64 61 64 64 72 20 3d 20 30 |osf.loadaddr = 0|
00001650 78 66 66 66 3b 0a 20 20 6f 73 66 2e 73 74 61 72 |xfff;. osf.star|
00001660 74 20 3d 20 28 69 6e 74 29 63 61 6c 65 6e 64 61 |t = (int)calenda|
00001670 72 3b 0a 20 20 6f 73 66 2e 65 6e 64 20 3d 20 6f |r;. osf.end = o|
00001680 73 66 2e 73 74 61 72 74 20 2b 20 73 74 72 6c 65 |sf.start + strle|
00001690 6e 28 63 61 6c 65 6e 64 61 72 29 3b 0a 0a 20 20 |n(calendar);.. |
000016a0 69 66 20 28 77 69 6d 70 74 5f 63 6f 6d 70 6c 61 |if (wimpt_compla|
000016b0 69 6e 28 6f 73 5f 66 69 6c 65 28 26 6f 73 66 29 |in(os_file(&osf)|
000016c0 29 29 0a 20 20 20 20 72 65 74 75 72 6e 20 46 41 |)). return FA|
000016d0 4c 53 45 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 |LSE;.. return T|
000016e0 52 55 45 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 42 |RUE;.}..static B|
000016f0 4f 4f 4c 20 72 61 6d 5f 73 61 76 65 5f 66 6e 28 |OOL ram_save_fn(|
00001700 76 6f 69 64 20 2a 68 61 6e 64 6c 65 2c 20 69 6e |void *handle, in|
00001710 74 20 2a 6d 61 78 5f 62 75 66 66 29 0a 7b 0a 20 |t *max_buff).{. |
00001720 20 63 68 61 72 20 2a 64 61 74 61 70 74 72 20 3d | char *dataptr =|
00001730 20 63 61 6c 65 6e 64 61 72 3b 0a 20 20 69 6e 74 | calendar;. int|
00001740 20 6c 65 66 74 20 3d 20 73 74 72 6c 65 6e 28 63 | left = strlen(c|
00001750 61 6c 65 6e 64 61 72 29 3b 0a 20 20 69 6e 74 20 |alendar);. int |
00001760 73 65 6e 64 3b 0a 0a 20 20 77 68 69 6c 65 20 28 |send;.. while (|
00001770 6c 65 66 74 29 20 7b 0a 20 20 20 20 73 65 6e 64 |left) {. send|
00001780 20 3d 20 28 6c 65 66 74 20 3c 20 2a 6d 61 78 5f | = (left < *max_|
00001790 62 75 66 66 29 20 3f 20 6c 65 66 74 20 3a 20 2a |buff) ? left : *|
000017a0 6d 61 78 5f 62 75 66 66 3b 0a 20 20 20 20 69 66 |max_buff;. if|
000017b0 20 28 21 78 66 65 72 73 65 6e 64 5f 73 65 6e 64 | (!xfersend_send|
000017c0 62 75 66 28 64 61 74 61 70 74 72 2c 20 73 65 6e |buf(dataptr, sen|
000017d0 64 29 29 0a 20 20 20 20 20 20 72 65 74 75 72 6e |d)). return|
000017e0 20 46 41 4c 53 45 3b 0a 20 20 20 20 64 61 74 61 | FALSE;. data|
000017f0 70 74 72 20 2b 3d 20 73 65 6e 64 3b 0a 20 20 20 |ptr += send;. |
00001800 20 6c 65 66 74 20 2d 3d 20 73 65 6e 64 3b 0a 20 | left -= send;. |
00001810 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 52 55 45 | }. return TRUE|
00001820 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |;.}../**********|
00001830 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001870 2a 2a 0a 20 20 47 45 4e 45 52 41 54 45 20 43 41 |**. GENERATE CA|
00001880 4c 45 4e 44 41 52 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a |LENDAR.*********|
00001890 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000018d0 2a 2a 2a 2f 0a 0a 2f 2a 20 77 6f 72 6b 20 6f 75 |***/../* work ou|
000018e0 74 20 64 61 79 20 6f 66 20 77 65 65 6b 20 66 6f |t day of week fo|
000018f0 72 20 4a 61 6e 20 31 20 66 6f 72 20 61 6e 79 20 |r Jan 1 for any |
00001900 79 65 61 72 20 73 69 6e 63 65 20 31 38 30 31 20 |year since 1801 |
00001910 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6a 61 |*/.static int ja|
00001920 6e 31 73 74 28 69 6e 74 20 79 65 61 72 29 0a 7b |n1st(int year).{|
00001930 0a 20 20 72 65 74 75 72 6e 20 28 28 28 79 65 61 |. return (((yea|
00001940 72 2b 28 28 79 65 61 72 2b 33 29 2f 34 29 29 2d |r+((year+3)/4))-|
00001950 28 28 79 65 61 72 2d 31 37 30 31 29 2f 31 30 30 |((year-1701)/100|
00001960 29 2b 28 28 79 65 61 72 2d 31 36 30 31 29 2f 34 |)+((year-1601)/4|
00001970 30 30 29 29 20 25 20 37 29 3b 0a 7d 0a 0a 2f 2a |00)) % 7);.}../*|
00001980 20 50 75 74 20 6e 61 6d 65 73 20 6f 66 20 6d 6f | Put names of mo|
00001990 6e 74 68 73 20 63 65 6e 74 72 65 64 20 6f 76 65 |nths centred ove|
000019a0 72 20 64 61 74 65 73 20 2a 2f 0a 73 74 61 74 69 |r dates */.stati|
000019b0 63 20 63 68 61 72 20 2a 6d 6f 6e 74 68 5f 6c 69 |c char *month_li|
000019c0 6e 65 28 69 6e 74 20 73 74 61 72 74 5f 6d 6f 6e |ne(int start_mon|
000019d0 74 68 2c 20 69 6e 74 20 77 69 64 74 68 29 0a 7b |th, int width).{|
000019e0 0a 20 20 69 6e 74 20 69 2c 20 6c 65 6e 2c 20 6c |. int i, len, l|
000019f0 73 70 2c 20 72 73 70 3b 0a 20 20 63 68 61 72 20 |sp, rsp;. char |
00001a00 74 65 6d 70 5b 33 32 5d 2c 20 73 5b 31 30 30 5d |temp[32], s[100]|
00001a10 3b 0a 20 20 63 68 61 72 20 2a 73 70 20 3d 20 22 |;. char *sp = "|
00001a20 20 20 20 20 20 20 20 20 20 20 22 3b 20 20 20 2f | "; /|
00001a30 2a 20 31 30 20 73 70 61 63 65 73 20 2a 2f 0a 0a |* 10 spaces */..|
00001a40 20 20 73 70 72 69 6e 74 66 28 73 2c 20 22 25 2e | sprintf(s, "%.|
00001a50 2a 73 22 2c 20 6c 6d 2c 20 73 70 29 3b 0a 20 20 |*s", lm, sp);. |
00001a60 66 6f 72 20 28 69 20 3d 20 73 74 61 72 74 5f 6d |for (i = start_m|
00001a70 6f 6e 74 68 3b 20 69 20 3c 20 73 74 61 72 74 5f |onth; i < start_|
00001a80 6d 6f 6e 74 68 2b 77 69 64 74 68 3b 20 69 2b 2b |month+width; i++|
00001a90 29 20 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 73 74 |) {. len = st|
00001aa0 72 6c 65 6e 28 6d 6f 6e 74 68 5b 69 5d 29 3b 0a |rlen(month[i]);.|
00001ab0 20 20 20 20 6c 73 70 20 3d 20 28 32 31 20 2d 20 | lsp = (21 - |
00001ac0 6c 65 6e 29 20 2f 20 32 3b 0a 20 20 20 20 72 73 |len) / 2;. rs|
00001ad0 70 20 3d 20 32 30 20 2d 20 6c 65 6e 20 2d 20 6c |p = 20 - len - l|
00001ae0 73 70 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 |sp;. sprintf(|
00001af0 74 65 6d 70 2c 20 22 25 2e 2a 73 25 73 22 2c 20 |temp, "%.*s%s", |
00001b00 6c 73 70 2c 20 73 70 2c 20 6d 6f 6e 74 68 5b 69 |lsp, sp, month[i|
00001b10 5d 29 3b 0a 20 20 20 20 73 74 72 63 61 74 28 73 |]);. strcat(s|
00001b20 2c 20 74 65 6d 70 29 3b 0a 20 20 20 20 69 66 20 |, temp);. if |
00001b30 28 69 20 3c 20 73 74 61 72 74 5f 6d 6f 6e 74 68 |(i < start_month|
00001b40 20 2b 20 77 69 64 74 68 20 2d 20 31 29 0a 20 20 | + width - 1). |
00001b50 20 20 20 20 73 70 72 69 6e 74 66 28 74 65 6d 70 | sprintf(temp|
00001b60 2c 20 22 25 2e 2a 73 25 2e 2a 73 22 2c 20 72 73 |, "%.*s%.*s", rs|
00001b70 70 2c 20 73 70 2c 20 76 67 2c 20 73 70 29 3b 0a |p, sp, vg, sp);.|
00001b80 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 73 | else. s|
00001b90 70 72 69 6e 74 66 28 74 65 6d 70 2c 20 22 5c 6e |printf(temp, "\n|
00001ba0 5c 6e 22 29 3b 0a 20 20 20 20 73 74 72 63 61 74 |\n");. strcat|
00001bb0 28 73 2c 20 74 65 6d 70 29 3b 0a 20 20 7d 0a 20 |(s, temp);. }. |
00001bc0 20 69 66 20 28 64 72 61 77 29 20 73 74 72 63 61 | if (draw) strca|
00001bd0 74 28 73 2c 20 22 5c 6e 5c 6e 22 29 3b 0a 20 20 |t(s, "\n\n");. |
00001be0 72 65 74 75 72 6e 20 73 3b 0a 7d 0a 0a 2f 2a 20 |return s;.}../* |
00001bf0 70 75 74 20 6f 75 74 70 75 74 20 69 6e 74 6f 20 |put output into |
00001c00 63 68 61 72 20 2a 63 61 6c 65 6e 64 61 72 20 2a |char *calendar *|
00001c10 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 67 65 |/.static void ge|
00001c20 6e 65 72 61 74 65 5f 63 61 6c 65 6e 64 61 72 28 |nerate_calendar(|
00001c30 69 6e 74 20 79 65 61 72 2c 20 69 6e 74 20 6d 6f |int year, int mo|
00001c40 6e 74 68 73 74 6f 70 72 69 6e 74 2c 20 69 6e 74 |nthstoprint, int|
00001c50 20 73 6d 6f 6e 74 68 29 0a 7b 0a 20 20 63 68 61 | smonth).{. cha|
00001c60 72 20 2a 73 70 20 3d 20 22 20 20 20 20 20 20 20 |r *sp = " |
00001c70 20 20 20 22 3b 20 20 20 20 20 20 20 20 20 20 20 | "; |
00001c80 20 2f 2a 20 31 30 20 73 70 61 63 65 73 20 20 20 | /* 10 spaces |
00001c90 20 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 63 | */. c|
00001ca0 68 61 72 20 2a 6e 6c 20 3d 20 22 5c 6e 5c 6e 5c |har *nl = "\n\n\|
00001cb0 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\n\n\n\n\|
00001cc0 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 5c 6e 22 |n\n\n\n\n\n\n\n"|
00001cd0 3b 20 20 2f 2a 20 31 38 20 5c 6e 20 2a 2f 0a 20 |; /* 18 \n */. |
00001ce0 20 63 68 61 72 20 64 73 5b 32 31 5d 20 3d 20 22 | char ds[21] = "|
00001cf0 5c 30 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 |\0"; |
00001d00 20 20 20 20 20 2f 2a 20 64 61 79 73 20 6f 66 20 | /* days of |
00001d10 74 68 65 20 77 65 65 6b 20 20 20 20 20 20 2a 2f |the week */|
00001d20 0a 20 20 63 68 61 72 20 6c 65 66 74 5b 31 30 5d |. char left[10]|
00001d30 20 3d 20 22 5c 30 22 3b 20 20 20 20 20 20 20 20 | = "\0"; |
00001d40 20 20 20 20 20 20 20 2f 2a 20 6c 65 66 74 20 6d | /* left m|
00001d50 61 72 67 69 6e 20 20 20 20 20 20 20 20 20 20 20 |argin |
00001d60 2a 2f 0a 20 20 63 68 61 72 20 68 67 61 70 5b 31 |*/. char hgap[1|
00001d70 30 5d 20 3d 20 22 5c 30 22 3b 20 20 20 20 20 20 |0] = "\0"; |
00001d80 20 20 20 20 20 20 20 20 20 2f 2a 20 68 6f 72 69 | /* hori|
00001d90 7a 6f 6e 74 61 6c 20 67 61 70 20 20 20 20 20 20 |zontal gap |
00001da0 20 20 2a 2f 0a 20 20 63 68 61 72 20 76 67 61 70 | */. char vgap|
00001db0 5b 31 30 5d 20 3d 20 22 5c 30 22 3b 20 20 20 20 |[10] = "\0"; |
00001dc0 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 76 65 | /* ve|
00001dd0 72 74 69 63 61 6c 20 67 61 70 20 20 20 20 20 20 |rtical gap |
00001de0 20 20 20 20 2a 2f 0a 20 20 63 68 61 72 20 64 6c | */. char dl|
00001df0 5b 31 30 30 5d 20 3d 20 22 5c 30 22 3b 20 20 20 |[100] = "\0"; |
00001e00 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 | /* |
00001e10 63 6f 6d 70 6c 65 74 65 20 6c 69 6e 65 20 6f 66 |complete line of|
00001e20 20 64 73 20 20 20 2a 2f 0a 20 20 63 68 61 72 20 | ds */. char |
00001e30 6c 69 6e 65 5b 31 30 30 5d 20 3d 20 22 5c 30 22 |line[100] = "\0"|
00001e40 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f |; /|
00001e50 2a 20 74 6f 20 62 75 69 6c 64 20 75 70 20 64 61 |* to build up da|
00001e60 74 65 20 64 61 74 61 20 2a 2f 0a 20 20 63 68 61 |te data */. cha|
00001e70 72 20 74 65 6d 70 5b 33 32 5d 20 3d 20 22 5c 30 |r temp[32] = "\0|
00001e80 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"; |
00001e90 20 2f 2a 20 74 65 6d 70 20 77 6f 72 6b 20 73 70 | /* temp work sp|
00001ea0 61 63 65 20 20 20 20 20 20 20 2a 2f 0a 20 20 63 |ace */. c|
00001eb0 68 61 72 20 73 61 76 65 5f 6e 61 6d 65 5b 32 35 |har save_name[25|
00001ec0 36 5d 20 3d 20 22 5c 30 22 3b 0a 20 20 69 6e 74 |6] = "\0";. int|
00001ed0 20 69 2c 20 6a 2c 20 6b 2c 20 6c 2c 20 73 6c 2c | i, j, k, l, sl,|
00001ee0 20 77 69 64 74 68 3b 0a 20 20 69 6e 74 20 6d 73 | width;. int ms|
00001ef0 5b 31 35 5d 3b 20 20 20 20 20 20 20 20 20 20 20 |[15]; |
00001f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a | /*|
00001f10 20 6d 6f 6e 74 68 20 73 74 61 72 74 20 64 61 79 | month start day|
00001f20 20 6f 66 20 77 65 65 6b 20 2a 2f 0a 20 20 69 6e | of week */. in|
00001f30 74 20 6d 70 5b 31 35 5d 5b 34 33 5d 3b 20 20 20 |t mp[15][43]; |
00001f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001f50 20 20 2f 2a 20 64 61 74 65 73 20 69 6e 20 6d 6f | /* dates in mo|
00001f60 6e 74 68 20 74 6f 20 70 72 69 6e 74 20 2a 2f 0a |nth to print */.|
00001f70 20 20 69 6e 74 20 6d 6d 5b 31 35 5d 20 3d 20 7b | int mm[15] = {|
00001f80 20 30 2c 20 33 31 2c 20 32 38 2c 20 33 31 2c 20 | 0, 31, 28, 31, |
00001f90 33 30 2c 20 33 31 2c 20 33 30 2c 20 33 31 2c 20 |30, 31, 30, 31, |
00001fa0 33 31 2c 20 33 30 2c 20 33 31 2c 20 33 30 2c 20 |31, 30, 31, 30, |
00001fb0 33 31 2c 20 33 31 2c 20 32 38 20 7d 3b 0a 0a 20 |31, 31, 28 };.. |
00001fc0 20 77 69 64 74 68 20 3d 20 28 6d 6f 6e 74 68 73 | width = (months|
00001fd0 74 6f 70 72 69 6e 74 20 3d 3d 20 31 29 20 3f 20 |toprint == 1) ? |
00001fe0 31 20 3a 20 33 3b 0a 0a 20 20 2f 2a 20 61 64 64 |1 : 3;.. /* add|
00001ff0 20 31 20 74 6f 20 66 65 62 20 69 6e 20 6c 65 61 | 1 to feb in lea|
00002000 70 20 79 65 61 72 20 2a 2f 0a 20 20 6d 6d 5b 32 |p year */. mm[2|
00002010 5d 20 2b 3d 20 79 65 61 72 25 34 20 3d 3d 20 30 |] += year%4 == 0|
00002020 20 26 26 20 79 65 61 72 25 31 30 30 20 21 3d 20 | && year%100 != |
00002030 30 20 7c 7c 20 79 65 61 72 25 34 30 30 20 3d 3d |0 || year%400 ==|
00002040 20 30 3b 0a 20 20 6d 6d 5b 31 34 5d 20 2b 3d 20 | 0;. mm[14] += |
00002050 28 79 65 61 72 2b 31 29 25 34 20 3d 3d 20 30 20 |(year+1)%4 == 0 |
00002060 26 26 20 28 79 65 61 72 2b 31 29 25 31 30 30 20 |&& (year+1)%100 |
00002070 21 3d 20 30 20 7c 7c 20 28 79 65 61 72 2b 31 29 |!= 0 || (year+1)|
00002080 25 34 30 30 20 3d 3d 20 30 3b 0a 0a 20 20 2f 2a |%400 == 0;.. /*|
00002090 20 69 66 20 6f 6e 6c 79 20 64 6f 69 6e 67 20 31 | if only doing 1|
000020a0 20 6f 72 20 33 20 6d 6f 6e 74 68 73 20 70 75 74 | or 3 months put|
000020b0 20 79 65 61 72 20 6f 6e 74 6f 20 65 6e 64 20 6f | year onto end o|
000020c0 66 20 6d 6f 6e 74 68 20 6e 61 6d 65 73 20 2a 2f |f month names */|
000020d0 0a 20 20 69 66 20 28 6d 6f 6e 74 68 73 74 6f 70 |. if (monthstop|
000020e0 72 69 6e 74 20 21 3d 20 31 32 29 20 7b 0a 20 20 |rint != 12) {. |
000020f0 20 20 66 6f 72 20 28 69 20 3d 20 73 6d 6f 6e 74 | for (i = smont|
00002100 68 3b 20 69 20 3c 3d 20 73 6d 6f 6e 74 68 20 2b |h; i <= smonth +|
00002110 20 6d 6f 6e 74 68 73 74 6f 70 72 69 6e 74 20 26 | monthstoprint &|
00002120 26 20 69 20 3c 3d 20 31 32 3b 20 69 2b 2b 29 0a |& i <= 12; i++).|
00002130 20 20 20 20 20 20 73 70 72 69 6e 74 66 28 6d 6f | sprintf(mo|
00002140 6e 74 68 5b 69 5d 2c 20 22 25 73 20 25 64 22 2c |nth[i], "%s %d",|
00002150 20 6d 6f 6e 74 68 5b 69 5d 2c 20 79 65 61 72 29 | month[i], year)|
00002160 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 6d 6f |;. sprintf(mo|
00002170 6e 74 68 5b 31 33 5d 2c 20 22 25 73 20 25 64 22 |nth[13], "%s %d"|
00002180 2c 20 6d 6f 6e 74 68 5b 31 5d 2c 20 79 65 61 72 |, month[1], year|
00002190 20 2b 20 31 29 3b 0a 20 20 20 20 73 70 72 69 6e | + 1);. sprin|
000021a0 74 66 28 6d 6f 6e 74 68 5b 31 34 5d 2c 20 22 25 |tf(month[14], "%|
000021b0 73 20 25 64 22 2c 20 6d 6f 6e 74 68 5b 32 5d 2c |s %d", month[2],|
000021c0 20 79 65 61 72 20 2b 20 31 29 3b 0a 20 20 7d 0a | year + 1);. }.|
000021d0 0a 20 20 2f 2a 20 70 75 74 20 61 62 62 72 69 65 |. /* put abbrie|
000021e0 76 69 61 74 69 6f 6e 73 20 66 6f 72 20 64 61 79 |viations for day|
000021f0 73 20 69 6e 74 6f 20 74 68 65 20 73 74 72 69 6e |s into the strin|
00002200 67 20 64 73 20 2a 2f 0a 20 20 73 70 72 69 6e 74 |g ds */. sprint|
00002210 66 28 64 73 2c 20 22 25 32 2e 32 73 22 2c 20 64 |f(ds, "%2.2s", d|
00002220 61 79 5b 31 5d 29 3b 0a 20 20 66 6f 72 20 28 69 |ay[1]);. for (i|
00002230 20 3d 20 32 3b 20 69 20 3c 20 38 3b 20 69 2b 2b | = 2; i < 8; i++|
00002240 29 20 7b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 |) {. sprintf(|
00002250 74 65 6d 70 2c 20 22 20 25 32 2e 32 73 22 2c 20 |temp, " %2.2s", |
00002260 64 61 79 5b 69 5d 29 3b 0a 20 20 20 20 73 74 72 |day[i]);. str|
00002270 63 61 74 28 64 73 2c 20 74 65 6d 70 29 3b 0a 20 |cat(ds, temp);. |
00002280 20 7d 0a 20 20 73 74 72 6e 63 70 79 28 6c 65 66 | }. strncpy(lef|
00002290 74 2c 20 73 70 2c 20 6c 6d 29 3b 20 20 20 20 20 |t, sp, lm); |
000022a0 20 20 2f 2a 20 70 61 64 20 6f 75 74 20 6c 65 66 | /* pad out lef|
000022b0 74 20 77 69 74 68 20 6c 65 66 74 20 6d 61 72 67 |t with left marg|
000022c0 69 6e 20 73 70 61 63 65 73 20 20 2a 2f 0a 20 20 |in spaces */. |
000022d0 73 74 72 6e 63 70 79 28 76 67 61 70 2c 20 73 70 |strncpy(vgap, sp|
000022e0 2c 20 76 67 2d 31 29 3b 20 20 20 20 20 2f 2a 20 |, vg-1); /* |
000022f0 70 61 64 20 6f 75 74 20 76 67 61 70 20 77 69 74 |pad out vgap wit|
00002300 68 20 76 65 72 74 69 63 61 6c 20 67 61 70 20 73 |h vertical gap s|
00002310 70 61 63 65 73 20 2a 2f 0a 20 20 73 74 72 6e 63 |paces */. strnc|
00002320 70 79 28 68 67 61 70 2c 20 6e 6c 2c 20 68 67 29 |py(hgap, nl, hg)|
00002330 3b 20 20 20 20 20 20 20 2f 2a 20 70 61 64 20 6f |; /* pad o|
00002340 75 74 20 68 67 61 70 20 77 69 74 68 20 68 6f 72 |ut hgap with hor|
00002350 69 7a 6f 6e 74 61 6c 20 67 61 70 20 6c 69 6e 65 |izontal gap line|
00002360 73 20 2a 2f 0a 0a 20 20 2f 2a 20 70 75 74 20 64 |s */.. /* put d|
00002370 73 20 61 6e 64 20 68 67 61 70 20 74 6f 67 65 74 |s and hgap toget|
00002380 68 65 72 20 69 6e 74 6f 20 64 6c 20 2a 2f 0a 20 |her into dl */. |
00002390 20 69 66 20 28 77 69 64 74 68 20 3d 3d 20 31 29 | if (width == 1)|
000023a0 0a 20 20 20 20 73 70 72 69 6e 74 66 28 64 6c 2c |. sprintf(dl,|
000023b0 20 22 25 73 5c 6e 22 2c 20 64 73 29 3b 0a 20 20 | "%s\n", ds);. |
000023c0 65 6c 73 65 0a 20 20 20 20 73 70 72 69 6e 74 66 |else. sprintf|
000023d0 28 64 6c 2c 20 22 25 73 25 73 20 25 73 25 73 20 |(dl, "%s%s %s%s |
000023e0 25 73 25 73 5c 6e 22 2c 20 6c 65 66 74 2c 20 64 |%s%s\n", left, d|
000023f0 73 2c 20 76 67 61 70 2c 20 64 73 2c 20 76 67 61 |s, vgap, ds, vga|
00002400 70 2c 20 64 73 29 3b 0a 20 20 69 66 20 28 64 72 |p, ds);. if (dr|
00002410 61 77 29 20 73 74 72 63 61 74 28 64 6c 2c 20 22 |aw) strcat(dl, "|
00002420 5c 6e 22 29 3b 0a 0a 20 20 63 61 6c 65 6e 64 61 |\n");.. calenda|
00002430 72 20 3d 20 63 61 6c 6c 6f 63 28 53 49 5a 45 4f |r = calloc(SIZEO|
00002440 46 43 41 4c 45 4e 44 41 52 2c 20 73 69 7a 65 6f |FCALENDAR, sizeo|
00002450 66 28 63 68 61 72 29 29 3b 0a 20 20 6d 73 5b 31 |f(char));. ms[1|
00002460 5d 20 3d 20 6a 61 6e 31 73 74 28 79 65 61 72 29 |] = jan1st(year)|
00002470 3b 20 20 20 20 20 20 20 20 2f 2a 20 66 69 6e 64 |; /* find|
00002480 20 6f 75 74 20 64 61 79 20 6f 66 20 77 65 65 6b | out day of week|
00002490 20 66 6f 72 20 6a 61 6e 20 31 20 2a 2f 0a 20 20 | for jan 1 */. |
000024a0 66 6f 72 20 28 69 20 3d 20 32 3b 20 69 20 3c 20 |for (i = 2; i < |
000024b0 31 35 3b 20 69 2b 2b 29 20 20 20 20 20 2f 2a 20 |15; i++) /* |
000024c0 63 61 6c 63 75 6c 61 74 65 20 64 61 79 73 20 6f |calculate days o|
000024d0 74 68 65 72 20 6d 6f 6e 74 68 73 20 73 74 61 72 |ther months star|
000024e0 74 20 6f 6e 20 2a 2f 0a 20 20 20 20 6d 73 5b 69 |t on */. ms[i|
000024f0 5d 20 3d 20 28 6d 73 5b 69 2d 31 5d 20 2b 20 6d |] = (ms[i-1] + m|
00002500 6d 5b 69 2d 31 5d 29 20 25 20 37 3b 0a 0a 20 20 |m[i-1]) % 7;.. |
00002510 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 3c 20 |for (i = 1; i < |
00002520 31 35 3b 20 69 2b 2b 29 20 20 20 20 20 2f 2a 20 |15; i++) /* |
00002530 69 6e 69 74 69 61 6c 69 73 65 20 6d 70 20 77 69 |initialise mp wi|
00002540 74 68 20 30 27 73 2a 2f 0a 20 20 20 20 66 6f 72 |th 0's*/. for|
00002550 20 28 6a 20 3d 20 30 3b 20 6a 20 3c 20 34 33 3b | (j = 0; j < 43;|
00002560 20 6a 2b 2b 29 0a 20 20 20 20 20 20 6d 70 5b 69 | j++). mp[i|
00002570 5d 5b 6a 5d 20 3d 20 30 3b 0a 0a 20 20 66 6f 72 |][j] = 0;.. for|
00002580 20 28 69 20 3d 20 31 3b 20 69 20 3c 20 31 35 3b | (i = 1; i < 15;|
00002590 20 69 2b 2b 29 20 20 20 20 20 2f 2a 20 70 75 74 | i++) /* put|
000025a0 20 64 61 74 65 73 20 69 6e 74 6f 20 6d 70 20 2a | dates into mp *|
000025b0 2f 0a 20 20 20 20 66 6f 72 20 28 6a 20 3d 20 6d |/. for (j = m|
000025c0 73 5b 69 5d 2c 20 6b 20 3d 20 31 3b 20 6b 20 3c |s[i], k = 1; k <|
000025d0 3d 20 6d 6d 5b 69 5d 3b 20 6a 2b 2b 2c 20 6b 2b |= mm[i]; j++, k+|
000025e0 2b 29 0a 20 20 20 20 20 20 6d 70 5b 69 5d 5b 6a |+). mp[i][j|
000025f0 5d 20 3d 20 6b 3b 0a 0a 20 20 69 66 20 28 64 72 |] = k;.. if (dr|
00002600 61 77 29 20 7b 20 20 20 20 20 20 20 20 20 2f 2a |aw) { /*|
00002610 20 70 75 74 20 69 6e 20 44 72 61 77 20 74 65 78 | put in Draw tex|
00002620 74 20 61 72 65 61 20 68 65 61 64 65 72 20 64 61 |t area header da|
00002630 74 61 20 2a 2f 0a 20 20 20 20 73 74 72 63 70 79 |ta */. strcpy|
00002640 28 63 61 6c 65 6e 64 61 72 2c 20 22 5c 5c 21 20 |(calendar, "\\! |
00002650 31 5c 6e 22 29 3b 0a 20 20 20 20 73 74 72 63 61 |1\n");. strca|
00002660 74 28 63 61 6c 65 6e 64 61 72 2c 20 22 5c 5c 46 |t(calendar, "\\F|
00002670 20 30 20 43 6f 72 70 75 73 2e 4d 65 64 69 75 6d | 0 Corpus.Medium|
00002680 20 33 30 5c 6e 22 29 3b 0a 20 20 20 20 73 74 72 | 30\n");. str|
00002690 63 61 74 28 63 61 6c 65 6e 64 61 72 2c 20 22 5c |cat(calendar, "\|
000026a0 5c 46 20 31 20 43 6f 72 70 75 73 2e 4d 65 64 69 |\F 1 Corpus.Medi|
000026b0 75 6d 20 31 32 5c 6e 22 29 3b 0a 20 20 20 20 73 |um 12\n");. s|
000026c0 74 72 63 61 74 28 63 61 6c 65 6e 64 61 72 2c 20 |trcat(calendar, |
000026d0 22 5c 5c 30 5c 5c 41 43 2f 5c 5c 4c 33 30 5c 6e |"\\0\\AC/\\L30\n|
000026e0 22 29 3b 0a 20 20 20 20 73 74 72 6e 63 61 74 28 |");. strncat(|
000026f0 63 61 6c 65 6e 64 61 72 2c 20 6e 6c 2c 20 74 6d |calendar, nl, tm|
00002700 29 3b 0a 20 20 20 20 69 66 20 28 6d 6f 6e 74 68 |);. if (month|
00002710 73 74 6f 70 72 69 6e 74 20 3d 3d 20 31 32 29 20 |stoprint == 12) |
00002720 7b 0a 20 20 20 20 20 20 73 70 72 69 6e 74 66 28 |{. sprintf(|
00002730 74 65 6d 70 2c 20 22 25 64 5c 6e 22 2c 20 79 65 |temp, "%d\n", ye|
00002740 61 72 29 3b 0a 20 20 20 20 20 20 73 74 72 63 61 |ar);. strca|
00002750 74 28 63 61 6c 65 6e 64 61 72 2c 20 74 65 6d 70 |t(calendar, temp|
00002760 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 72 |);. }. str|
00002770 63 61 74 28 63 61 6c 65 6e 64 61 72 2c 20 22 5c |cat(calendar, "\|
00002780 5c 31 5c 5c 41 4c 2f 5c 5c 4c 37 5c 6e 5c 6e 22 |\1\\AL/\\L7\n\n"|
00002790 29 3b 0a 20 20 7d 0a 20 20 65 6c 73 65 20 69 66 |);. }. else if|
000027a0 20 28 6d 6f 6e 74 68 73 74 6f 70 72 69 6e 74 20 | (monthstoprint |
000027b0 3d 3d 20 31 32 29 20 7b 0a 20 20 20 20 73 74 72 |== 12) {. str|
000027c0 6e 63 70 79 28 63 61 6c 65 6e 64 61 72 2c 20 6e |ncpy(calendar, n|
000027d0 6c 2c 20 74 6d 29 3b 20 20 20 20 20 20 20 20 20 |l, tm); |
000027e0 20 20 20 20 2f 2a 20 74 6f 70 20 6d 61 72 67 69 | /* top margi|
000027f0 6e 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 70 72 |n */. spr|
00002800 69 6e 74 66 28 74 65 6d 70 2c 20 22 25 73 25 64 |intf(temp, "%s%d|
00002810 5c 6e 22 2c 20 6c 65 66 74 2c 20 79 65 61 72 29 |\n", left, year)|
00002820 3b 20 20 20 2f 2a 20 68 65 61 64 69 6e 67 20 3d |; /* heading =|
00002830 20 79 65 61 72 20 2a 2f 0a 20 20 20 20 73 74 72 | year */. str|
00002840 63 61 74 28 63 61 6c 65 6e 64 61 72 2c 20 74 65 |cat(calendar, te|
00002850 6d 70 29 3b 0a 20 20 20 20 73 74 72 6e 63 61 74 |mp);. strncat|
00002860 28 63 61 6c 65 6e 64 61 72 2c 20 6e 6c 2c 20 68 |(calendar, nl, h|
00002870 67 29 3b 0a 20 20 7d 0a 20 20 65 6c 73 65 0a 20 |g);. }. else. |
00002880 20 20 20 73 74 72 6e 63 70 79 28 63 61 6c 65 6e | strncpy(calen|
00002890 64 61 72 2c 20 6e 6c 2c 20 74 6d 29 3b 0a 0a 20 |dar, nl, tm);.. |
000028a0 20 66 6f 72 20 28 69 20 3d 20 73 6d 6f 6e 74 68 | for (i = smonth|
000028b0 3b 20 69 20 3c 20 73 6d 6f 6e 74 68 2b 6d 6f 6e |; i < smonth+mon|
000028c0 74 68 73 74 6f 70 72 69 6e 74 3b 20 69 20 2b 3d |thstoprint; i +=|
000028d0 20 77 69 64 74 68 29 20 7b 0a 20 20 20 20 73 74 | width) {. st|
000028e0 72 63 61 74 28 63 61 6c 65 6e 64 61 72 2c 20 6d |rcat(calendar, m|
000028f0 6f 6e 74 68 5f 6c 69 6e 65 28 69 2c 20 77 69 64 |onth_line(i, wid|
00002900 74 68 29 29 3b 20 20 2f 2a 20 6e 61 6d 65 20 6f |th)); /* name o|
00002910 66 20 6d 6f 6e 74 68 73 20 20 20 20 20 20 20 20 |f months |
00002920 2a 2f 0a 20 20 20 20 73 74 72 63 61 74 28 63 61 |*/. strcat(ca|
00002930 6c 65 6e 64 61 72 2c 20 64 6c 29 3b 20 20 20 20 |lendar, dl); |
00002940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002950 2f 2a 20 70 75 74 20 69 6e 20 6e 61 6d 65 20 6f |/* put in name o|
00002960 66 20 64 61 79 73 20 20 20 2a 2f 0a 20 20 20 20 |f days */. |
00002970 66 6f 72 20 28 6a 20 3d 20 30 3b 20 6a 20 3c 20 |for (j = 0; j < |
00002980 36 3b 20 6a 2b 2b 29 20 7b 20 20 20 20 20 20 20 |6; j++) { |
00002990 20 20 20 20 20 20 20 20 20 2f 2a 20 70 75 74 20 | /* put |
000029a0 69 6e 20 64 61 74 65 73 20 20 20 20 20 20 20 20 |in dates |
000029b0 20 20 2a 2f 0a 20 20 20 20 20 20 73 74 72 63 70 | */. strcp|
000029c0 79 28 6c 69 6e 65 2c 20 6c 65 66 74 29 3b 20 20 |y(line, left); |
000029d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000029e0 20 20 2f 2a 20 6c 65 66 74 20 6d 61 72 67 69 6e | /* left margin|
000029f0 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 | */. |
00002a00 20 20 20 20 66 6f 72 20 28 6b 20 3d 20 69 3b 20 | for (k = i; |
00002a10 6b 20 3c 20 69 2b 77 69 64 74 68 3b 20 6b 2b 2b |k < i+width; k++|
00002a20 29 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 |) {. for |
00002a30 28 6c 20 3d 20 30 3b 20 6c 20 3c 20 37 3b 20 6c |(l = 0; l < 7; l|
00002a40 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 |++) {. |
00002a50 69 66 20 28 6d 70 5b 6b 5d 5b 6a 2a 37 2b 6c 5d |if (mp[k][j*7+l]|
00002a60 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 |) {. |
00002a70 73 70 72 69 6e 74 66 28 74 65 6d 70 2c 20 22 25 |sprintf(temp, "%|
00002a80 32 64 20 22 2c 20 6d 70 5b 6b 5d 5b 6a 2a 37 2b |2d ", mp[k][j*7+|
00002a90 6c 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 |l]);. |
00002aa0 20 73 74 72 63 61 74 28 6c 69 6e 65 2c 20 74 65 | strcat(line, te|
00002ab0 6d 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d |mp);. }|
00002ac0 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a |. else.|
00002ad0 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 63 | strc|
00002ae0 61 74 28 6c 69 6e 65 2c 20 22 20 20 20 22 29 3b |at(line, " ");|
00002af0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c |. if (l|
00002b00 20 3d 3d 20 36 20 26 26 20 6b 20 21 3d 20 69 2b | == 6 && k != i+|
00002b10 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 |2). s|
00002b20 74 72 63 61 74 28 6c 69 6e 65 2c 20 76 67 61 70 |trcat(line, vgap|
00002b30 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 |);. }. |
00002b40 20 20 20 7d 0a 20 20 20 20 20 20 66 6f 72 20 28 | }. for (|
00002b50 73 6c 20 3d 20 73 74 72 6c 65 6e 28 6c 69 6e 65 |sl = strlen(line|
00002b60 29 3b 20 6c 69 6e 65 5b 2d 2d 73 6c 5d 20 3d 3d |); line[--sl] ==|
00002b70 20 27 20 27 3b 20 29 0a 20 20 20 20 20 20 20 20 | ' '; ). |
00002b80 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00002b90 20 20 20 20 2f 2a 20 73 74 72 69 70 20 65 6e 64 | /* strip end|
00002ba0 20 73 70 61 63 65 73 20 2a 2f 0a 20 20 20 20 20 | spaces */. |
00002bb0 20 73 6c 2b 2b 3b 0a 20 20 20 20 20 20 69 66 20 | sl++;. if |
00002bc0 28 73 6c 20 7c 7c 20 28 21 73 6c 20 26 26 20 69 |(sl || (!sl && i|
00002bd0 20 3c 20 6d 6f 6e 74 68 73 74 6f 70 72 69 6e 74 | < monthstoprint|
00002be0 2d 32 29 29 20 7b 0a 20 20 20 20 20 20 20 20 6c |-2)) {. l|
00002bf0 69 6e 65 5b 73 6c 2b 2b 5d 20 3d 20 27 5c 6e 27 |ine[sl++] = '\n'|
00002c00 3b 0a 20 20 20 20 20 20 20 20 69 66 20 28 64 72 |;. if (dr|
00002c10 61 77 29 20 6c 69 6e 65 5b 73 6c 2b 2b 5d 20 3d |aw) line[sl++] =|
00002c20 20 27 5c 6e 27 3b 0a 20 20 20 20 20 20 20 20 6c | '\n';. l|
00002c30 69 6e 65 5b 73 6c 5d 20 3d 20 27 5c 30 27 3b 0a |ine[sl] = '\0';.|
00002c40 20 20 20 20 20 20 20 20 73 74 72 63 61 74 28 63 | strcat(c|
00002c50 61 6c 65 6e 64 61 72 2c 20 6c 69 6e 65 29 3b 0a |alendar, line);.|
00002c60 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 | }. }. |
00002c70 20 20 69 66 20 28 69 20 3c 20 6d 6f 6e 74 68 73 | if (i < months|
00002c80 74 6f 70 72 69 6e 74 2d 32 29 0a 20 20 20 20 20 |toprint-2). |
00002c90 20 73 74 72 63 61 74 28 63 61 6c 65 6e 64 61 72 | strcat(calendar|
00002ca0 2c 20 68 67 61 70 29 3b 0a 20 20 7d 0a 0a 20 20 |, hgap);. }.. |
00002cb0 73 70 72 69 6e 74 66 28 73 61 76 65 5f 6e 61 6d |sprintf(save_nam|
00002cc0 65 2c 20 22 25 63 22 2c 20 28 64 72 61 77 29 20 |e, "%c", (draw) |
00002cd0 3f 20 27 44 27 20 3a 20 27 5c 30 27 29 3b 0a 20 |? 'D' : '\0');. |
00002ce0 20 73 77 69 74 63 68 20 28 6d 6f 6e 74 68 73 74 | switch (monthst|
00002cf0 6f 70 72 69 6e 74 29 0a 20 20 7b 0a 20 20 20 20 |oprint). {. |
00002d00 63 61 73 65 20 31 3a 0a 20 20 20 20 20 20 73 70 |case 1:. sp|
00002d10 72 69 6e 74 66 28 74 65 6d 70 2c 20 22 25 64 5f |rintf(temp, "%d_|
00002d20 25 64 4d 31 22 2c 20 79 65 61 72 2c 20 73 6d 6f |%dM1", year, smo|
00002d30 6e 74 68 29 3b 0a 20 20 20 20 20 20 62 72 65 61 |nth);. brea|
00002d40 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 33 3a 0a |k;.. case 3:.|
00002d50 20 20 20 20 20 20 73 70 72 69 6e 74 66 28 74 65 | sprintf(te|
00002d60 6d 70 2c 20 22 25 64 5f 25 64 4d 33 22 2c 20 79 |mp, "%d_%dM3", y|
00002d70 65 61 72 2c 20 73 6d 6f 6e 74 68 29 3b 0a 20 20 |ear, smonth);. |
00002d80 20 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 | break;.. |
00002d90 63 61 73 65 20 31 32 3a 0a 20 20 20 20 20 20 73 |case 12:. s|
00002da0 70 72 69 6e 74 66 28 74 65 6d 70 2c 20 22 25 64 |printf(temp, "%d|
00002db0 22 2c 20 79 65 61 72 29 3b 0a 20 20 20 20 20 20 |", year);. |
00002dc0 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 73 74 72 |break;. }. str|
00002dd0 63 61 74 28 73 61 76 65 5f 6e 61 6d 65 2c 20 74 |cat(save_name, t|
00002de0 65 6d 70 29 3b 0a 20 20 73 61 76 65 61 73 28 30 |emp);. saveas(0|
00002df0 78 66 66 66 2c 20 73 61 76 65 5f 6e 61 6d 65 2c |xfff, save_name,|
00002e00 20 73 74 72 6c 65 6e 28 63 61 6c 65 6e 64 61 72 | strlen(calendar|
00002e10 29 2c 20 66 69 6c 65 5f 73 61 76 65 5f 66 6e 2c |), file_save_fn,|
00002e20 20 72 61 6d 5f 73 61 76 65 5f 66 6e 2c 20 30 2c | ram_save_fn, 0,|
00002e30 30 29 3b 0a 20 20 66 72 65 65 28 63 61 6c 65 6e |0);. free(calen|
00002e40 64 61 72 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a |dar);.}../******|
00002e50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002e90 2a 2a 2a 2a 2a 2a 0a 20 20 43 41 4c 45 4e 44 41 |******. CALENDA|
00002ea0 52 53 20 44 42 4f 58 20 46 4e 73 0a 2a 2a 2a 2a |RS DBOX FNs.****|
00002eb0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002ef0 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 |********/..stati|
00002f00 63 20 76 6f 69 64 20 70 6f 73 69 74 69 6f 6e 5f |c void position_|
00002f10 63 61 72 65 74 28 64 62 6f 78 20 64 2c 20 69 6e |caret(dbox d, in|
00002f20 74 20 64 62 66 69 65 6c 64 29 0a 7b 0a 20 20 77 |t dbfield).{. w|
00002f30 69 6d 70 5f 63 61 72 65 74 73 74 72 20 63 3b 0a |imp_caretstr c;.|
00002f40 20 20 63 68 61 72 20 73 5b 32 35 36 5d 3b 0a 0a | char s[256];..|
00002f50 20 20 64 62 6f 78 5f 67 65 74 66 69 65 6c 64 28 | dbox_getfield(|
00002f60 64 2c 20 64 62 66 69 65 6c 64 2c 20 73 2c 20 32 |d, dbfield, s, 2|
00002f70 35 36 29 3b 0a 0a 20 20 63 2e 77 20 3d 20 64 62 |56);.. c.w = db|
00002f80 6f 78 5f 73 79 73 68 61 6e 64 6c 65 28 64 29 3b |ox_syshandle(d);|
00002f90 0a 20 20 63 2e 69 20 3d 20 64 62 66 69 65 6c 64 |. c.i = dbfield|
00002fa0 3b 0a 20 20 63 2e 78 20 3d 20 30 3b 0a 20 20 63 |;. c.x = 0;. c|
00002fb0 2e 79 20 3d 20 30 3b 0a 20 20 63 2e 68 65 69 67 |.y = 0;. c.heig|
00002fc0 68 74 20 3d 20 2d 31 3b 0a 20 20 63 2e 69 6e 64 |ht = -1;. c.ind|
00002fd0 65 78 20 3d 20 73 74 72 6c 65 6e 28 73 29 3b 0a |ex = strlen(s);.|
00002fe0 20 20 77 69 6d 70 74 5f 6e 6f 65 72 72 28 77 69 | wimpt_noerr(wi|
00002ff0 6d 70 5f 73 65 74 5f 63 61 72 65 74 5f 70 6f 73 |mp_set_caret_pos|
00003000 28 26 63 29 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 |(&c));.}..static|
00003010 20 69 6e 74 20 74 68 69 73 5f 79 65 61 72 28 76 | int this_year(v|
00003020 6f 69 64 29 0a 7b 0a 20 20 63 68 61 72 20 79 65 |oid).{. char ye|
00003030 61 72 62 75 66 5b 38 5d 3b 0a 0a 20 20 6f 73 5f |arbuf[8];.. os_|
00003040 72 65 61 64 5f 76 61 72 5f 76 61 6c 28 22 53 79 |read_var_val("Sy|
00003050 73 24 59 65 61 72 22 2c 20 79 65 61 72 62 75 66 |s$Year", yearbuf|
00003060 2c 20 38 29 3b 0a 20 20 72 65 74 75 72 6e 20 61 |, 8);. return a|
00003070 74 6f 69 28 79 65 61 72 62 75 66 29 3b 0a 7d 0a |toi(yearbuf);.}.|
00003080 0a 73 74 61 74 69 63 20 69 6e 74 20 74 68 69 73 |.static int this|
00003090 5f 6d 6f 6e 74 68 28 76 6f 69 64 29 0a 7b 0a 20 |_month(void).{. |
000030a0 20 73 74 72 75 63 74 20 74 6d 20 2a 6c 6f 63 61 | struct tm *loca|
000030b0 6c 3b 0a 20 20 74 69 6d 65 5f 74 20 74 69 6d 65 |l;. time_t time|
000030c0 72 3b 0a 0a 20 20 74 69 6d 65 28 26 74 69 6d 65 |r;.. time(&time|
000030d0 72 29 3b 0a 20 20 6c 6f 63 61 6c 20 3d 20 6c 6f |r);. local = lo|
000030e0 63 61 6c 74 69 6d 65 28 26 74 69 6d 65 72 29 3b |caltime(&timer);|
000030f0 0a 0a 20 20 72 65 74 75 72 6e 20 6c 6f 63 61 6c |.. return local|
00003100 2d 3e 74 6d 5f 6d 6f 6e 20 2b 20 31 3b 0a 7d 0a |->tm_mon + 1;.}.|
00003110 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 61 |.static void rea|
00003120 64 5f 63 61 6c 65 6e 64 61 72 73 5f 64 62 6f 78 |d_calendars_dbox|
00003130 28 64 62 6f 78 20 64 29 0a 7b 0a 20 20 69 6e 74 |(dbox d).{. int|
00003140 20 69 3b 0a 0a 20 20 79 65 61 72 20 3d 20 64 62 | i;.. year = db|
00003150 6f 78 5f 67 65 74 6e 75 6d 65 72 69 63 28 64 2c |ox_getnumeric(d,|
00003160 20 59 45 41 52 29 3b 0a 20 20 73 74 61 72 74 6d | YEAR);. startm|
00003170 6f 6e 74 68 20 3d 20 64 62 6f 78 5f 67 65 74 6e |onth = dbox_getn|
00003180 75 6d 65 72 69 63 28 64 2c 20 53 54 41 52 54 4d |umeric(d, STARTM|
00003190 4f 4e 54 48 29 3b 0a 20 20 74 6d 20 20 20 3d 20 |ONTH);. tm = |
000031a0 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 69 63 28 |dbox_getnumeric(|
000031b0 64 2c 20 54 4d 29 3b 0a 20 20 6c 6d 20 20 20 3d |d, TM);. lm =|
000031c0 20 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 69 63 | dbox_getnumeric|
000031d0 28 64 2c 20 4c 4d 29 3b 0a 20 20 68 67 20 20 20 |(d, LM);. hg |
000031e0 3d 20 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 69 |= dbox_getnumeri|
000031f0 63 28 64 2c 20 48 47 29 3b 0a 20 20 76 67 20 20 |c(d, HG);. vg |
00003200 20 3d 20 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 | = dbox_getnumer|
00003210 69 63 28 64 2c 20 56 47 29 3b 0a 20 20 64 72 61 |ic(d, VG);. dra|
00003220 77 20 3d 20 64 62 6f 78 5f 67 65 74 6e 75 6d 65 |w = dbox_getnume|
00003230 72 69 63 28 64 2c 20 44 52 41 57 29 3b 0a 0a 20 |ric(d, DRAW);.. |
00003240 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 20 3c | for (i = 0; i <|
00003250 20 33 3b 20 69 2b 2b 29 0a 20 20 20 20 69 66 20 | 3; i++). if |
00003260 28 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 69 63 |(dbox_getnumeric|
00003270 28 64 2c 20 50 31 59 45 41 52 2b 69 29 29 0a 20 |(d, P1YEAR+i)). |
00003280 20 20 20 20 20 70 66 6c 61 67 20 3d 20 69 3b 0a | pflag = i;.|
00003290 0a 20 20 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 |. for (i = 1; i|
000032a0 20 3c 20 38 3b 20 69 2b 2b 29 0a 20 20 20 20 64 | < 8; i++). d|
000032b0 62 6f 78 5f 67 65 74 66 69 65 6c 64 28 64 2c 20 |box_getfield(d, |
000032c0 44 41 59 2b 69 2d 31 2c 20 64 61 79 5b 69 5d 2c |DAY+i-1, day[i],|
000032d0 20 33 29 3b 0a 0a 20 20 66 6f 72 20 28 69 20 3d | 3);.. for (i =|
000032e0 20 31 3b 20 69 20 3c 20 31 33 3b 20 69 2b 2b 29 | 1; i < 13; i++)|
000032f0 0a 20 20 20 20 64 62 6f 78 5f 67 65 74 66 69 65 |. dbox_getfie|
00003300 6c 64 28 64 2c 20 4d 4f 4e 54 48 2b 69 2d 31 2c |ld(d, MONTH+i-1,|
00003310 20 6d 6f 6e 74 68 5b 69 5d 2c 20 32 31 29 3b 0a | month[i], 21);.|
00003320 0a 20 20 63 68 65 63 6b 5f 64 61 74 61 28 29 3b |. check_data();|
00003330 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 |.}..static void |
00003340 77 72 69 74 65 5f 63 61 6c 65 6e 64 61 72 73 5f |write_calendars_|
00003350 64 62 6f 78 28 64 62 6f 78 20 64 29 0a 7b 0a 20 |dbox(dbox d).{. |
00003360 20 69 6e 74 20 69 3b 0a 0a 20 20 64 62 6f 78 5f | int i;.. dbox_|
00003370 73 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 59 45 |setnumeric(d, YE|
00003380 41 52 2c 20 79 65 61 72 29 3b 0a 20 20 64 62 6f |AR, year);. dbo|
00003390 78 5f 73 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 |x_setnumeric(d, |
000033a0 53 54 41 52 54 4d 4f 4e 54 48 2c 20 73 74 61 72 |STARTMONTH, star|
000033b0 74 6d 6f 6e 74 68 29 3b 0a 20 20 64 62 6f 78 5f |tmonth);. dbox_|
000033c0 73 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 54 4d |setnumeric(d, TM|
000033d0 2c 20 74 6d 29 3b 0a 20 20 64 62 6f 78 5f 73 65 |, tm);. dbox_se|
000033e0 74 6e 75 6d 65 72 69 63 28 64 2c 20 4c 4d 2c 20 |tnumeric(d, LM, |
000033f0 6c 6d 29 3b 0a 20 20 64 62 6f 78 5f 73 65 74 6e |lm);. dbox_setn|
00003400 75 6d 65 72 69 63 28 64 2c 20 48 47 2c 20 68 67 |umeric(d, HG, hg|
00003410 29 3b 0a 20 20 64 62 6f 78 5f 73 65 74 6e 75 6d |);. dbox_setnum|
00003420 65 72 69 63 28 64 2c 20 56 47 2c 20 76 67 29 3b |eric(d, VG, vg);|
00003430 0a 20 20 64 62 6f 78 5f 73 65 74 6e 75 6d 65 72 |. dbox_setnumer|
00003440 69 63 28 64 2c 20 44 52 41 57 2c 20 64 72 61 77 |ic(d, DRAW, draw|
00003450 29 3b 0a 0a 20 20 66 6f 72 20 28 69 20 3d 20 50 |);.. for (i = P|
00003460 31 59 45 41 52 3b 20 69 20 3c 3d 20 50 31 4d 4f |1YEAR; i <= P1MO|
00003470 4e 54 48 3b 20 69 2b 2b 29 0a 20 20 20 20 64 62 |NTH; i++). db|
00003480 6f 78 5f 73 65 74 6e 75 6d 65 72 69 63 28 64 2c |ox_setnumeric(d,|
00003490 20 69 2c 20 46 41 4c 53 45 29 3b 0a 20 20 64 62 | i, FALSE);. db|
000034a0 6f 78 5f 73 65 74 6e 75 6d 65 72 69 63 28 64 2c |ox_setnumeric(d,|
000034b0 20 70 66 6c 61 67 20 2b 20 50 31 59 45 41 52 2c | pflag + P1YEAR,|
000034c0 20 54 52 55 45 29 3b 0a 0a 20 20 66 6f 72 20 28 | TRUE);.. for (|
000034d0 69 20 3d 20 31 3b 20 69 20 3c 20 38 3b 20 69 2b |i = 1; i < 8; i+|
000034e0 2b 29 0a 20 20 20 20 64 62 6f 78 5f 73 65 74 66 |+). dbox_setf|
000034f0 69 65 6c 64 28 64 2c 20 44 41 59 2b 69 2d 31 2c |ield(d, DAY+i-1,|
00003500 20 64 61 79 5b 69 5d 29 3b 0a 0a 20 20 66 6f 72 | day[i]);.. for|
00003510 20 28 69 20 3d 20 31 3b 20 69 20 3c 20 31 33 3b | (i = 1; i < 13;|
00003520 20 69 2b 2b 29 0a 20 20 20 20 64 62 6f 78 5f 73 | i++). dbox_s|
00003530 65 74 66 69 65 6c 64 28 64 2c 20 4d 4f 4e 54 48 |etfield(d, MONTH|
00003540 2b 69 2d 31 2c 20 6d 6f 6e 74 68 5b 69 5d 29 3b |+i-1, month[i]);|
00003550 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 |.}..static void |
00003560 63 61 6c 5f 6f 6b 28 64 62 6f 78 20 64 29 0a 7b |cal_ok(dbox d).{|
00003570 0a 20 20 69 6e 74 20 6f 6c 64 79 65 61 72 2c 20 |. int oldyear, |
00003580 6f 6c 64 6d 6f 6e 74 68 3b 0a 20 20 69 6e 74 20 |oldmonth;. int |
00003590 6d 6f 6e 74 68 73 5b 5d 20 3d 20 7b 20 31 32 2c |months[] = { 12,|
000035a0 20 33 2c 20 31 20 7d 3b 0a 0a 20 20 6f 6c 64 79 | 3, 1 };.. oldy|
000035b0 65 61 72 20 3d 20 79 65 61 72 3b 0a 20 20 6f 6c |ear = year;. ol|
000035c0 64 6d 6f 6e 74 68 20 3d 20 73 74 61 72 74 6d 6f |dmonth = startmo|
000035d0 6e 74 68 3b 0a 20 20 72 65 61 64 5f 63 61 6c 65 |nth;. read_cale|
000035e0 6e 64 61 72 73 5f 64 62 6f 78 28 64 29 3b 0a 20 |ndars_dbox(d);. |
000035f0 20 77 72 69 74 65 5f 63 61 6c 65 6e 64 61 72 73 | write_calendars|
00003600 5f 64 62 6f 78 28 64 29 3b 0a 0a 20 20 69 66 20 |_dbox(d);.. if |
00003610 28 79 65 61 72 20 3c 20 31 38 30 31 29 20 7b 0a |(year < 1801) {.|
00003620 20 20 20 20 77 65 72 72 28 46 41 4c 53 45 2c 20 | werr(FALSE, |
00003630 6d 73 67 73 5f 6c 6f 6f 6b 75 70 28 22 79 65 61 |msgs_lookup("yea|
00003640 72 65 72 72 31 22 29 29 3b 0a 20 20 20 20 79 65 |rerr1"));. ye|
00003650 61 72 20 3d 20 6f 6c 64 79 65 61 72 3b 0a 20 20 |ar = oldyear;. |
00003660 20 20 64 62 6f 78 5f 73 65 74 6e 75 6d 65 72 69 | dbox_setnumeri|
00003670 63 28 64 2c 20 59 45 41 52 2c 20 79 65 61 72 29 |c(d, YEAR, year)|
00003680 3b 0a 20 20 20 20 69 66 20 28 73 74 61 72 74 6d |;. if (startm|
00003690 6f 6e 74 68 20 3c 20 31 20 7c 7c 20 73 74 61 72 |onth < 1 || star|
000036a0 74 6d 6f 6e 74 68 20 3e 20 31 32 29 20 7b 0a 20 |tmonth > 12) {. |
000036b0 20 20 20 20 20 73 74 61 72 74 6d 6f 6e 74 68 20 | startmonth |
000036c0 3d 20 6f 6c 64 6d 6f 6e 74 68 3b 0a 20 20 20 20 |= oldmonth;. |
000036d0 20 20 64 62 6f 78 5f 73 65 74 6e 75 6d 65 72 69 | dbox_setnumeri|
000036e0 63 28 64 2c 20 53 54 41 52 54 4d 4f 4e 54 48 2c |c(d, STARTMONTH,|
000036f0 20 73 74 61 72 74 6d 6f 6e 74 68 29 3b 0a 20 20 | startmonth);. |
00003700 20 20 7d 0a 20 20 7d 0a 20 20 65 6c 73 65 20 69 | }. }. else i|
00003710 66 20 28 70 66 6c 61 67 20 26 26 20 28 73 74 61 |f (pflag && (sta|
00003720 72 74 6d 6f 6e 74 68 20 3c 20 31 20 7c 7c 20 73 |rtmonth < 1 || s|
00003730 74 61 72 74 6d 6f 6e 74 68 20 3e 20 31 32 29 29 |tartmonth > 12))|
00003740 20 7b 0a 20 20 20 20 77 65 72 72 28 46 41 4c 53 | {. werr(FALS|
00003750 45 2c 20 6d 73 67 73 5f 6c 6f 6f 6b 75 70 28 22 |E, msgs_lookup("|
00003760 6d 6f 6e 74 68 65 72 72 31 22 29 2c 20 73 74 61 |montherr1"), sta|
00003770 72 74 6d 6f 6e 74 68 29 3b 0a 20 20 20 20 73 74 |rtmonth);. st|
00003780 61 72 74 6d 6f 6e 74 68 20 3d 20 6f 6c 64 6d 6f |artmonth = oldmo|
00003790 6e 74 68 3b 0a 20 20 20 20 64 62 6f 78 5f 73 65 |nth;. dbox_se|
000037a0 74 6e 75 6d 65 72 69 63 28 64 2c 20 53 54 41 52 |tnumeric(d, STAR|
000037b0 54 4d 4f 4e 54 48 2c 20 73 74 61 72 74 6d 6f 6e |TMONTH, startmon|
000037c0 74 68 29 3b 0a 20 20 7d 0a 20 20 65 6c 73 65 20 |th);. }. else |
000037d0 7b 0a 20 20 20 20 67 65 6e 65 72 61 74 65 5f 63 |{. generate_c|
000037e0 61 6c 65 6e 64 61 72 28 79 65 61 72 2c 20 6d 6f |alendar(year, mo|
000037f0 6e 74 68 73 5b 70 66 6c 61 67 5d 2c 20 28 70 66 |nths[pflag], (pf|
00003800 6c 61 67 29 20 3f 20 73 74 61 72 74 6d 6f 6e 74 |lag) ? startmont|
00003810 68 20 3a 20 31 29 3b 0a 20 20 7d 0a 7d 0a 0a 73 |h : 1);. }.}..s|
00003820 74 61 74 69 63 20 76 6f 69 64 20 63 61 6c 5f 74 |tatic void cal_t|
00003830 68 69 73 79 65 61 72 28 64 62 6f 78 20 64 29 0a |hisyear(dbox d).|
00003840 7b 0a 20 20 79 65 61 72 20 3d 20 74 68 69 73 5f |{. year = this_|
00003850 79 65 61 72 28 29 3b 0a 20 20 64 62 6f 78 5f 73 |year();. dbox_s|
00003860 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 59 45 41 |etnumeric(d, YEA|
00003870 52 2c 20 79 65 61 72 29 3b 0a 7d 0a 0a 73 74 61 |R, year);.}..sta|
00003880 74 69 63 20 76 6f 69 64 20 63 61 6c 5f 74 68 69 |tic void cal_thi|
00003890 73 6d 6f 6e 74 68 28 64 62 6f 78 20 64 29 0a 7b |smonth(dbox d).{|
000038a0 0a 20 20 73 74 61 72 74 6d 6f 6e 74 68 20 3d 20 |. startmonth = |
000038b0 74 68 69 73 5f 6d 6f 6e 74 68 28 29 3b 0a 20 20 |this_month();. |
000038c0 64 62 6f 78 5f 73 65 74 6e 75 6d 65 72 69 63 28 |dbox_setnumeric(|
000038d0 64 2c 20 53 54 41 52 54 4d 4f 4e 54 48 2c 20 73 |d, STARTMONTH, s|
000038e0 74 61 72 74 6d 6f 6e 74 68 29 3b 0a 7d 0a 0a 73 |tartmonth);.}..s|
000038f0 74 61 74 69 63 20 76 6f 69 64 20 63 61 6c 5f 73 |tatic void cal_s|
00003900 61 76 65 28 64 62 6f 78 20 64 29 0a 7b 0a 20 20 |ave(dbox d).{. |
00003910 72 65 61 64 5f 63 61 6c 65 6e 64 61 72 73 5f 64 |read_calendars_d|
00003920 62 6f 78 28 64 29 3b 0a 20 20 73 61 76 65 5f 64 |box(d);. save_d|
00003930 61 74 61 28 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 |ata();.}..static|
00003940 20 76 6f 69 64 20 63 61 6c 5f 6c 6f 61 64 28 64 | void cal_load(d|
00003950 62 6f 78 20 64 29 0a 7b 0a 20 20 6c 6f 61 64 5f |box d).{. load_|
00003960 64 61 74 61 28 29 3b 0a 20 20 77 72 69 74 65 5f |data();. write_|
00003970 63 61 6c 65 6e 64 61 72 73 5f 64 62 6f 78 28 64 |calendars_dbox(d|
00003980 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 |);.}..static voi|
00003990 64 20 63 61 6c 5f 63 68 61 6e 67 65 79 65 61 72 |d cal_changeyear|
000039a0 28 64 62 6f 78 20 64 2c 20 69 6e 74 20 61 64 6a |(dbox d, int adj|
000039b0 75 73 74 29 0a 7b 0a 20 20 79 65 61 72 20 3d 20 |ust).{. year = |
000039c0 64 62 6f 78 5f 67 65 74 6e 75 6d 65 72 69 63 28 |dbox_getnumeric(|
000039d0 64 2c 20 59 45 41 52 29 3b 0a 20 20 79 65 61 72 |d, YEAR);. year|
000039e0 20 2b 3d 20 61 64 6a 75 73 74 3b 0a 20 20 69 66 | += adjust;. if|
000039f0 20 28 79 65 61 72 20 3c 20 31 38 30 31 29 20 7b | (year < 1801) {|
00003a00 0a 20 20 20 20 42 45 45 50 3b 0a 20 20 20 20 79 |. BEEP;. y|
00003a10 65 61 72 20 3d 20 31 38 30 31 3b 0a 20 20 7d 0a |ear = 1801;. }.|
00003a20 20 20 69 66 20 28 79 65 61 72 20 3e 20 39 39 39 | if (year > 999|
00003a30 39 29 20 7b 0a 20 20 20 20 42 45 45 50 3b 0a 20 |9) {. BEEP;. |
00003a40 20 20 20 79 65 61 72 20 3d 20 39 39 39 39 3b 0a | year = 9999;.|
00003a50 20 20 7d 0a 20 20 64 62 6f 78 5f 73 65 74 6e 75 | }. dbox_setnu|
00003a60 6d 65 72 69 63 28 64 2c 20 59 45 41 52 2c 20 79 |meric(d, YEAR, y|
00003a70 65 61 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 |ear);.}..static |
00003a80 76 6f 69 64 20 63 61 6c 5f 63 68 61 6e 67 65 6d |void cal_changem|
00003a90 6f 6e 74 68 28 64 62 6f 78 20 64 2c 20 69 6e 74 |onth(dbox d, int|
00003aa0 20 61 64 6a 75 73 74 29 0a 7b 0a 20 20 73 74 61 | adjust).{. sta|
00003ab0 72 74 6d 6f 6e 74 68 20 3d 20 64 62 6f 78 5f 67 |rtmonth = dbox_g|
00003ac0 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 53 54 41 |etnumeric(d, STA|
00003ad0 52 54 4d 4f 4e 54 48 29 3b 0a 20 20 73 74 61 72 |RTMONTH);. star|
00003ae0 74 6d 6f 6e 74 68 20 2b 3d 20 61 64 6a 75 73 74 |tmonth += adjust|
00003af0 3b 0a 20 20 69 66 20 28 73 74 61 72 74 6d 6f 6e |;. if (startmon|
00003b00 74 68 20 3c 20 31 29 0a 20 20 20 20 73 74 61 72 |th < 1). star|
00003b10 74 6d 6f 6e 74 68 20 3d 20 31 32 3b 0a 20 20 69 |tmonth = 12;. i|
00003b20 66 20 28 73 74 61 72 74 6d 6f 6e 74 68 20 3e 20 |f (startmonth > |
00003b30 31 32 29 0a 20 20 20 20 73 74 61 72 74 6d 6f 6e |12). startmon|
00003b40 74 68 20 3d 20 31 3b 0a 20 20 64 62 6f 78 5f 73 |th = 1;. dbox_s|
00003b50 65 74 6e 75 6d 65 72 69 63 28 64 2c 20 53 54 41 |etnumeric(d, STA|
00003b60 52 54 4d 4f 4e 54 48 2c 20 73 74 61 72 74 6d 6f |RTMONTH, startmo|
00003b70 6e 74 68 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 |nth);.}..static |
00003b80 76 6f 69 64 20 62 72 69 6e 67 5f 74 6f 5f 66 72 |void bring_to_fr|
00003b90 6f 6e 74 28 77 69 6d 70 5f 77 20 77 69 6e 68 61 |ont(wimp_w winha|
00003ba0 6e 64 6c 65 29 0a 7b 0a 20 20 77 69 6d 70 5f 77 |ndle).{. wimp_w|
00003bb0 73 74 61 74 65 20 73 74 61 74 65 3b 0a 0a 20 20 |state state;.. |
00003bc0 77 69 6d 70 74 5f 6e 6f 65 72 72 28 77 69 6d 70 |wimpt_noerr(wimp|
00003bd0 5f 67 65 74 5f 77 69 6e 64 5f 73 74 61 74 65 28 |_get_wind_state(|
00003be0 77 69 6e 68 61 6e 64 6c 65 2c 20 26 73 74 61 74 |winhandle, &stat|
00003bf0 65 29 29 3b 0a 20 20 73 74 61 74 65 2e 6f 2e 62 |e));. state.o.b|
00003c00 65 68 69 6e 64 20 3d 20 46 52 4f 4e 54 3b 0a 20 |ehind = FRONT;. |
00003c10 20 77 69 6d 70 74 5f 6e 6f 65 72 72 28 77 69 6d | wimpt_noerr(wim|
00003c20 70 5f 6f 70 65 6e 5f 77 69 6e 64 28 26 73 74 61 |p_open_wind(&sta|
00003c30 74 65 2e 6f 29 29 3b 0a 7d 0a 0a 73 74 61 74 69 |te.o));.}..stati|
00003c40 63 20 42 4f 4f 4c 20 63 61 6c 65 6e 64 61 72 73 |c BOOL calendars|
00003c50 5f 64 62 6f 78 5f 65 76 65 6e 74 68 61 6e 64 6c |_dbox_eventhandl|
00003c60 65 72 28 64 62 6f 78 20 64 2c 20 76 6f 69 64 20 |er(dbox d, void |
00003c70 2a 65 76 65 6e 74 2c 20 76 6f 69 64 20 2a 68 61 |*event, void *ha|
00003c80 6e 64 6c 65 29 0a 7b 0a 20 20 77 69 6d 70 5f 65 |ndle).{. wimp_e|
00003c90 76 65 6e 74 73 74 72 20 2a 65 20 3d 20 28 77 69 |ventstr *e = (wi|
00003ca0 6d 70 5f 65 76 65 6e 74 73 74 72 20 2a 29 65 76 |mp_eventstr *)ev|
00003cb0 65 6e 74 3b 0a 20 20 77 69 6d 70 5f 77 73 74 61 |ent;. wimp_wsta|
00003cc0 74 65 20 73 74 61 74 65 3b 0a 20 20 77 69 6d 70 |te state;. wimp|
00003cd0 5f 63 61 72 65 74 73 74 72 20 63 3b 0a 20 20 77 |_caretstr c;. w|
00003ce0 69 6d 70 5f 69 20 69 63 6f 6e 3b 0a 0a 20 20 73 |imp_i icon;.. s|
00003cf0 77 69 74 63 68 20 28 65 2d 3e 65 29 0a 20 20 7b |witch (e->e). {|
00003d00 0a 20 20 20 20 63 61 73 65 20 77 69 6d 70 5f 45 |. case wimp_E|
00003d10 42 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 2f |BUT: /|
00003d20 2a 20 6d 6f 75 73 65 20 63 6c 69 63 6b 20 69 6e |* mouse click in|
00003d30 20 77 69 6e 64 6f 77 20 2a 2f 0a 20 20 20 20 20 | window */. |
00003d40 20 69 63 6f 6e 20 3d 20 65 2d 3e 64 61 74 61 2e | icon = e->data.|
00003d50 62 75 74 2e 6d 2e 69 3b 0a 20 20 20 20 20 20 73 |but.m.i;. s|
00003d60 77 69 74 63 68 28 69 63 6f 6e 29 0a 20 20 20 20 |witch(icon). |
00003d70 20 20 7b 0a 20 20 20 20 20 20 20 20 63 61 73 65 | {. case|
00003d80 20 4f 4b 3a 0a 20 20 20 20 20 20 20 20 20 20 63 | OK:. c|
00003d90 61 6c 5f 6f 6b 28 64 29 3b 0a 20 20 20 20 20 20 |al_ok(d);. |
00003da0 20 20 20 20 72 65 74 75 72 6e 20 54 52 55 45 3b | return TRUE;|
00003db0 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 54 |.. case T|
00003dc0 48 49 53 59 45 41 52 3a 0a 20 20 20 20 20 20 20 |HISYEAR:. |
00003dd0 20 20 20 63 61 6c 5f 74 68 69 73 79 65 61 72 28 | cal_thisyear(|
00003de0 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 |d);. re|
00003df0 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 |turn TRUE;.. |
00003e00 20 20 20 20 63 61 73 65 20 54 48 49 53 4d 4f 4e | case THISMON|
00003e10 54 48 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 |TH:. ca|
00003e20 6c 5f 74 68 69 73 6d 6f 6e 74 68 28 64 29 3b 0a |l_thismonth(d);.|
00003e30 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e | return|
00003e40 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 20 20 | TRUE;.. |
00003e50 63 61 73 65 20 53 41 56 45 3a 0a 20 20 20 20 20 |case SAVE:. |
00003e60 20 20 20 20 20 63 61 6c 5f 73 61 76 65 28 64 29 | cal_save(d)|
00003e70 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 |;. retu|
00003e80 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 |rn TRUE;.. |
00003e90 20 20 63 61 73 65 20 4c 4f 41 44 3a 0a 20 20 20 | case LOAD:. |
00003ea0 20 20 20 20 20 20 20 63 61 6c 5f 6c 6f 61 64 28 | cal_load(|
00003eb0 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 |d);. re|
00003ec0 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 |turn TRUE;.. |
00003ed0 20 20 20 20 63 61 73 65 20 59 44 4e 3a 0a 20 20 | case YDN:. |
00003ee0 20 20 20 20 20 20 20 20 63 61 6c 5f 63 68 61 6e | cal_chan|
00003ef0 67 65 79 65 61 72 28 64 2c 20 2d 31 29 3b 0a 20 |geyear(d, -1);. |
00003f00 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 | return |
00003f10 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 20 20 63 |TRUE;.. c|
00003f20 61 73 65 20 59 55 50 3a 0a 20 20 20 20 20 20 20 |ase YUP:. |
00003f30 20 20 20 63 61 6c 5f 63 68 61 6e 67 65 79 65 61 | cal_changeyea|
00003f40 72 28 64 2c 20 2b 31 29 3b 0a 20 20 20 20 20 20 |r(d, +1);. |
00003f50 20 20 20 20 72 65 74 75 72 6e 20 54 52 55 45 3b | return TRUE;|
00003f60 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 4d |.. case M|
00003f70 44 4e 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 |DN:. ca|
00003f80 6c 5f 63 68 61 6e 67 65 6d 6f 6e 74 68 28 64 2c |l_changemonth(d,|
00003f90 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 | -1);. |
00003fa0 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 |return TRUE;.. |
00003fb0 20 20 20 20 20 20 63 61 73 65 20 4d 55 50 3a 0a | case MUP:.|
00003fc0 20 20 20 20 20 20 20 20 20 20 63 61 6c 5f 63 68 | cal_ch|
00003fd0 61 6e 67 65 6d 6f 6e 74 68 28 64 2c 20 2b 31 29 |angemonth(d, +1)|
00003fe0 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 |;. retu|
00003ff0 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 |rn TRUE;.. |
00004000 20 20 63 61 73 65 20 50 31 59 45 41 52 3a 20 63 | case P1YEAR: c|
00004010 61 73 65 20 50 33 4d 4f 4e 54 48 53 3a 20 63 61 |ase P3MONTHS: ca|
00004020 73 65 20 50 31 4d 4f 4e 54 48 3a 0a 20 20 20 20 |se P1MONTH:. |
00004030 20 20 20 20 20 20 64 62 6f 78 5f 73 65 74 6e 75 | dbox_setnu|
00004040 6d 65 72 69 63 28 64 2c 20 69 63 6f 6e 2c 20 54 |meric(d, icon, T|
00004050 52 55 45 29 3b 0a 20 20 20 20 20 20 20 20 20 20 |RUE);. |
00004060 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 |return TRUE;.. |
00004070 20 20 20 20 20 20 63 61 73 65 20 44 52 41 57 3a | case DRAW:|
00004080 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 |. retur|
00004090 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 20 |n TRUE;.. |
000040a0 20 2f 2a 20 61 20 63 6c 69 63 6b 20 6f 6e 20 75 | /* a click on u|
000040b0 6e 75 73 65 64 20 70 61 72 74 20 6f 66 20 77 69 |nused part of wi|
000040c0 6e 64 6f 77 20 2a 2f 0a 20 20 20 20 20 20 20 20 |ndow */. |
000040d0 2f 2a 20 74 68 65 20 77 69 6e 64 6f 77 20 62 61 |/* the window ba|
000040e0 63 6b 67 72 6f 75 6e 64 20 6d 75 73 74 20 62 65 |ckground must be|
000040f0 20 6f 66 20 74 79 70 65 20 27 63 6c 69 63 6b 27 | of type 'click'|
00004100 20 2a 2f 0a 20 20 20 20 20 20 20 20 2f 2a 20 74 | */. /* t|
00004110 65 78 74 20 69 63 6f 6e 73 20 6d 75 73 74 20 62 |ext icons must b|
00004120 65 20 6f 66 20 74 79 70 65 20 27 63 6c 69 63 6b |e of type 'click|
00004130 27 20 6e 6f 74 20 27 6e 65 76 65 72 27 20 2a 2f |' not 'never' */|
00004140 0a 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 |. default|
00004150 3a 0a 20 20 20 20 20 20 20 20 20 20 62 72 69 6e |:. brin|
00004160 67 5f 74 6f 5f 66 72 6f 6e 74 28 77 69 6e 64 6f |g_to_front(windo|
00004170 77 5f 68 61 6e 64 6c 65 29 3b 0a 20 20 20 20 20 |w_handle);. |
00004180 20 20 20 20 20 72 65 74 75 72 6e 20 54 52 55 45 | return TRUE|
00004190 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 |;. }. |
000041a0 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65 |break;.. case|
000041b0 20 77 69 6d 70 5f 45 4b 45 59 3a 20 20 20 20 20 | wimp_EKEY: |
000041c0 20 20 20 2f 2a 20 4b 65 79 62 6f 61 72 64 20 6b | /* Keyboard k|
000041d0 65 79 20 70 72 65 73 73 65 64 20 2a 2f 0a 20 20 |ey pressed */. |
000041e0 20 20 20 20 73 77 69 74 63 68 20 28 65 2d 3e 64 | switch (e->d|
000041f0 61 74 61 2e 6b 65 79 2e 63 68 63 6f 64 65 29 0a |ata.key.chcode).|
00004200 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 | {. |
00004210 63 61 73 65 20 31 33 3a 20 20 20 2f 2a 20 52 65 |case 13: /* Re|
00004220 74 75 72 6e 20 20 20 20 20 2a 2f 0a 20 20 20 20 |turn */. |
00004230 20 20 20 20 63 61 73 65 20 33 39 38 3a 20 20 2f | case 398: /|
00004240 2a 20 44 6f 77 6e 20 61 72 72 6f 77 20 2a 2f 0a |* Down arrow */.|
00004250 20 20 20 20 20 20 20 20 63 61 73 65 20 33 39 39 | case 399|
00004260 3a 20 20 2f 2a 20 55 70 20 61 72 72 6f 77 20 20 |: /* Up arrow |
00004270 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 2f 2a | */. /*|
00004280 20 77 72 69 74 61 62 6c 65 20 66 69 65 6c 64 73 | writable fields|
00004290 20 6d 75 73 74 20 62 65 20 6e 75 6d 62 65 72 65 | must be numbere|
000042a0 64 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 66 |d sequentially f|
000042b0 6f 72 20 74 68 69 73 20 74 6f 20 77 6f 72 6b 20 |or this to work |
000042c0 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 |*/. /* |
000042d0 69 66 20 77 69 6e 64 6f 77 20 69 73 20 6e 6f 74 |if window is not|
000042e0 20 66 75 6c 6c 20 73 69 7a 65 20 72 65 73 74 72 | full size restr|
000042f0 69 63 74 20 6d 6f 76 65 6d 65 6e 74 20 6f 66 20 |ict movement of |
00004300 63 75 72 73 6f 72 20 20 20 20 20 20 20 20 20 2a |cursor *|
00004310 2f 0a 20 20 20 20 20 20 20 20 20 20 77 69 6d 70 |/. wimp|
00004320 74 5f 6e 6f 65 72 72 28 77 69 6d 70 5f 67 65 74 |t_noerr(wimp_get|
00004330 5f 77 69 6e 64 5f 73 74 61 74 65 28 77 69 6e 64 |_wind_state(wind|
00004340 6f 77 5f 68 61 6e 64 6c 65 2c 20 26 73 74 61 74 |ow_handle, &stat|
00004350 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 |e));. s|
00004360 74 61 74 65 2e 66 6c 61 67 73 20 26 3d 20 77 69 |tate.flags &= wi|
00004370 6d 70 5f 57 46 55 4c 4c 3b 20 20 20 2f 2a 20 69 |mp_WFULL; /* i|
00004380 73 20 77 69 6e 64 6f 77 20 66 75 6c 6c 20 73 69 |s window full si|
00004390 7a 65 64 3f 20 2a 2f 0a 20 20 20 20 20 20 20 20 |zed? */. |
000043a0 20 20 77 69 6d 70 74 5f 6e 6f 65 72 72 28 77 69 | wimpt_noerr(wi|
000043b0 6d 70 5f 67 65 74 5f 63 61 72 65 74 5f 70 6f 73 |mp_get_caret_pos|
000043c0 28 26 63 29 29 3b 0a 20 20 20 20 20 20 20 20 20 |(&c));. |
000043d0 20 69 66 20 28 65 2d 3e 64 61 74 61 2e 6b 65 79 | if (e->data.key|
000043e0 2e 63 68 63 6f 64 65 20 3d 3d 20 33 39 39 29 20 |.chcode == 399) |
000043f0 63 2e 69 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 |c.i--;. |
00004400 20 65 6c 73 65 20 63 2e 69 2b 2b 3b 0a 20 20 20 | else c.i++;. |
00004410 20 20 20 20 20 20 20 69 66 20 28 21 73 74 61 74 | if (!stat|
00004420 65 2e 66 6c 61 67 73 20 26 26 20 63 2e 69 20 3e |e.flags && c.i >|
00004430 20 53 54 41 52 54 4d 4f 4e 54 48 29 20 63 2e 69 | STARTMONTH) c.i|
00004440 20 3d 20 59 45 41 52 3b 0a 20 20 20 20 20 20 20 | = YEAR;. |
00004450 20 20 20 65 6c 73 65 20 69 66 20 28 21 73 74 61 | else if (!sta|
00004460 74 65 2e 66 6c 61 67 73 20 26 26 20 63 2e 69 20 |te.flags && c.i |
00004470 3c 20 59 45 41 52 29 20 63 2e 69 20 3d 20 53 54 |< YEAR) c.i = ST|
00004480 41 52 54 4d 4f 4e 54 48 3b 0a 20 20 20 20 20 20 |ARTMONTH;. |
00004490 20 20 20 20 65 6c 73 65 20 69 66 20 28 73 74 61 | else if (sta|
000044a0 74 65 2e 66 6c 61 67 73 20 26 26 20 63 2e 69 20 |te.flags && c.i |
000044b0 3d 3d 20 4d 4f 4e 54 48 20 2b 20 31 32 29 20 63 |== MONTH + 12) c|
000044c0 2e 69 20 3d 20 59 45 41 52 3b 0a 20 20 20 20 20 |.i = YEAR;. |
000044d0 20 20 20 20 20 65 6c 73 65 20 69 66 20 28 73 74 | else if (st|
000044e0 61 74 65 2e 66 6c 61 67 73 20 26 26 20 63 2e 69 |ate.flags && c.i|
000044f0 20 3c 20 59 45 41 52 29 20 63 2e 69 20 3d 20 4d | < YEAR) c.i = M|
00004500 4f 4e 54 48 20 2b 20 31 31 3b 0a 20 20 20 20 20 |ONTH + 11;. |
00004510 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 5f 63 61 | position_ca|
00004520 72 65 74 28 64 2c 20 63 2e 69 29 3b 0a 20 20 20 |ret(d, c.i);. |
00004530 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 52 | return TR|
00004540 55 45 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 |UE;.. /* |
00004550 61 73 73 69 67 6e 20 6a 6f 62 73 20 74 6f 20 46 |assign jobs to F|
00004560 75 6e 63 74 69 6f 6e 20 6b 65 79 73 20 2a 2f 0a |unction keys */.|
00004570 20 20 20 20 20 20 20 20 63 61 73 65 20 61 6b 62 | case akb|
00004580 64 5f 46 6e 2b 31 3a 0a 20 20 20 20 20 20 20 20 |d_Fn+1:. |
00004590 20 20 63 61 6c 5f 6f 6b 28 64 29 3b 0a 20 20 20 | cal_ok(d);. |
000045a0 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 52 | return TR|
000045b0 55 45 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 |UE;.. cas|
000045c0 65 20 61 6b 62 64 5f 46 6e 2b 32 3a 0a 20 20 20 |e akbd_Fn+2:. |
000045d0 20 20 20 20 20 20 20 63 61 6c 5f 74 68 69 73 79 | cal_thisy|
000045e0 65 61 72 28 64 29 3b 0a 20 20 20 20 20 20 20 20 |ear(d);. |
000045f0 20 20 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 0a | return TRUE;..|
00004600 20 20 20 20 20 20 20 20 63 61 73 65 20 61 6b 62 | case akb|
00004610 64 5f 46 6e 2b 33 3a 0a 20 20 20 20 20 20 20 20 |d_Fn+3:. |
00004620 20 20 63 61 6c 5f 74 68 69 73 6d 6f 6e 74 68 28 | cal_thismonth(|
00004630 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 |d);. re|
00004640 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 |turn TRUE;.. |
00004650 20 20 20 20 63 61 73 65 20 61 6b 62 64 5f 46 6e | case akbd_Fn|
00004660 2b 34 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 |+4:. ca|
00004670 6c 5f 73 61 76 65 28 64 29 3b 0a 20 20 20 20 20 |l_save(d);. |
00004680 20 20 20 20 20 72 65 74 75 72 6e 20 54 52 55 45 | return TRUE|
00004690 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 |;.. case |
000046a0 61 6b 62 64 5f 46 6e 2b 35 3a 0a 20 20 20 20 20 |akbd_Fn+5:. |
000046b0 20 20 20 20 20 63 61 6c 5f 6c 6f 61 64 28 64 29 | cal_load(d)|
000046c0 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 |;. retu|
000046d0 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 20 |rn TRUE;.. |
000046e0 20 20 63 61 73 65 20 61 6b 62 64 5f 46 6e 2b 36 | case akbd_Fn+6|
000046f0 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c 5f |:. cal_|
00004700 63 68 61 6e 67 65 79 65 61 72 28 64 2c 20 2d 31 |changeyear(d, -1|
00004710 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 |);. ret|
00004720 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 20 |urn TRUE;.. |
00004730 20 20 20 63 61 73 65 20 61 6b 62 64 5f 46 6e 2b | case akbd_Fn+|
00004740 37 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c |7:. cal|
00004750 5f 63 68 61 6e 67 65 79 65 61 72 28 64 2c 20 2b |_changeyear(d, +|
00004760 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 |1);. re|
00004770 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 20 20 |turn TRUE;.. |
00004780 20 20 20 20 63 61 73 65 20 61 6b 62 64 5f 46 6e | case akbd_Fn|
00004790 2b 38 3a 0a 20 20 20 20 20 20 20 20 20 20 63 61 |+8:. ca|
000047a0 6c 5f 63 68 61 6e 67 65 6d 6f 6e 74 68 28 64 2c |l_changemonth(d,|
000047b0 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 | -1);. |
000047c0 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 0a 20 20 |return TRUE;.. |
000047d0 20 20 20 20 20 20 63 61 73 65 20 61 6b 62 64 5f | case akbd_|
000047e0 46 6e 2b 39 3a 0a 20 20 20 20 20 20 20 20 20 20 |Fn+9:. |
000047f0 63 61 6c 5f 63 68 61 6e 67 65 6d 6f 6e 74 68 28 |cal_changemonth(|
00004800 64 2c 20 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 |d, +1);. |
00004810 20 20 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 20 | return TRUE;. |
00004820 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65 | }. bre|
00004830 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 77 69 |ak;.. case wi|
00004840 6d 70 5f 45 43 4c 4f 53 45 3a 0a 20 20 20 20 20 |mp_ECLOSE:. |
00004850 20 72 65 61 64 5f 63 61 6c 65 6e 64 61 72 73 5f | read_calendars_|
00004860 64 62 6f 78 28 64 29 3b 20 20 2f 2a 20 67 65 74 |dbox(d); /* get|
00004870 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 77 69 6e | contents of win|
00004880 64 6f 77 20 62 65 66 6f 72 65 20 63 6c 6f 73 69 |dow before closi|
00004890 6e 67 20 2a 2f 0a 20 20 20 20 20 20 77 69 6d 70 |ng */. wimp|
000048a0 74 5f 63 6f 6d 70 6c 61 69 6e 28 77 69 6d 70 5f |t_complain(wimp_|
000048b0 63 6c 6f 73 65 5f 77 69 6e 64 28 77 69 6e 64 6f |close_wind(windo|
000048c0 77 5f 68 61 6e 64 6c 65 29 29 3b 0a 20 20 20 20 |w_handle));. |
000048d0 20 20 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 20 | return TRUE;. |
000048e0 20 7d 0a 20 20 72 65 74 75 72 6e 20 46 41 4c 53 | }. return FALS|
000048f0 45 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a |E;.}../*********|
00004900 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004940 2a 2a 2a 0a 20 20 49 43 4f 4e 20 43 4c 49 43 4b |***. ICON CLICK|
00004950 20 45 56 45 4e 54 20 48 41 4e 44 4c 45 52 0a 2a | EVENT HANDLER.*|
00004960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000049a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 74 |***********/..st|
000049b0 61 74 69 63 20 76 6f 69 64 20 69 63 6f 6e 62 61 |atic void iconba|
000049c0 72 5f 63 6c 69 63 6b 28 77 69 6d 70 5f 69 20 69 |r_click(wimp_i i|
000049d0 63 6f 6e 29 0a 7b 0a 20 20 69 66 20 28 77 6f 70 |con).{. if (wop|
000049e0 65 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |en) |
000049f0 20 2f 2a 20 69 66 20 77 69 6e 64 6f 77 20 69 73 | /* if window is|
00004a00 20 6f 70 65 6e 20 74 68 65 6e 20 62 72 69 6e 67 | open then bring|
00004a10 20 74 6f 20 66 72 6f 6e 74 20 2a 2f 0a 20 20 20 | to front */. |
00004a20 20 62 72 69 6e 67 5f 74 6f 5f 66 72 6f 6e 74 28 | bring_to_front(|
00004a30 77 69 6e 64 6f 77 5f 68 61 6e 64 6c 65 29 3b 0a |window_handle);.|
00004a40 20 20 65 6c 73 65 20 7b 20 20 20 20 20 20 20 20 | else { |
00004a50 20 20 20 20 20 20 20 20 20 20 2f 2a 20 65 6c 73 | /* els|
00004a60 65 20 6f 70 65 6e 20 77 69 6e 64 6f 77 20 2a 2f |e open window */|
00004a70 0a 20 20 20 20 64 62 6f 78 20 64 3b 0a 20 20 20 |. dbox d;. |
00004a80 20 69 66 20 28 28 64 20 3d 20 64 62 6f 78 5f 6e | if ((d = dbox_n|
00004a90 65 77 28 22 63 61 6c 65 6e 64 61 72 22 29 29 20 |ew("calendar")) |
00004aa0 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 |!= NULL) {. |
00004ab0 20 77 69 6e 64 6f 77 5f 68 61 6e 64 6c 65 20 3d | window_handle =|
00004ac0 20 64 62 6f 78 5f 73 79 73 68 61 6e 64 6c 65 28 | dbox_syshandle(|
00004ad0 64 29 3b 0a 20 20 20 20 20 20 65 76 65 6e 74 5f |d);. event_|
00004ae0 61 74 74 61 63 68 6d 65 6e 75 28 28 65 76 65 6e |attachmenu((even|
00004af0 74 5f 77 29 77 69 6e 64 6f 77 5f 68 61 6e 64 6c |t_w)window_handl|
00004b00 65 2c 20 69 63 6f 6e 5f 6d 65 6e 75 2c 20 69 63 |e, icon_menu, ic|
00004b10 6f 6e 5f 6d 65 6e 75 5f 66 6e 2c 20 30 29 3b 0a |on_menu_fn, 0);.|
00004b20 20 20 20 20 20 20 64 62 6f 78 5f 72 61 77 5f 65 | dbox_raw_e|
00004b30 76 65 6e 74 68 61 6e 64 6c 65 72 28 64 2c 20 63 |venthandler(d, c|
00004b40 61 6c 65 6e 64 61 72 73 5f 64 62 6f 78 5f 65 76 |alendars_dbox_ev|
00004b50 65 6e 74 68 61 6e 64 6c 65 72 2c 20 30 29 3b 0a |enthandler, 0);.|
00004b60 20 20 20 20 20 20 64 62 6f 78 5f 73 68 6f 77 73 | dbox_shows|
00004b70 74 61 74 69 63 28 64 29 3b 0a 20 20 20 20 20 20 |tatic(d);. |
00004b80 77 6f 70 65 6e 20 3d 20 54 52 55 45 3b 0a 20 20 |wopen = TRUE;. |
00004b90 20 20 20 20 77 72 69 74 65 5f 63 61 6c 65 6e 64 | write_calend|
00004ba0 61 72 73 5f 64 62 6f 78 28 64 29 3b 0a 20 20 20 |ars_dbox(d);. |
00004bb0 20 20 20 70 6f 73 69 74 69 6f 6e 5f 63 61 72 65 | position_care|
00004bc0 74 28 64 2c 20 59 45 41 52 29 3b 0a 20 20 20 20 |t(d, YEAR);. |
00004bd0 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a |}. }.}../******|
00004be0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004c20 2a 2a 2a 2a 2a 2a 0a 20 20 49 4e 49 54 49 41 4c |******. INITIAL|
00004c30 49 53 41 54 49 4f 4e 0a 2a 2a 2a 2a 2a 2a 2a 2a |ISATION.********|
00004c40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004c80 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 42 4f |****/..static BO|
00004c90 4f 4c 20 69 6e 69 74 69 61 6c 69 73 65 28 76 6f |OL initialise(vo|
00004ca0 69 64 29 0a 7b 0a 20 20 77 69 6d 70 74 5f 69 6e |id).{. wimpt_in|
00004cb0 69 74 28 61 70 70 5f 74 69 74 6c 65 29 3b 0a 20 |it(app_title);. |
00004cc0 20 72 65 73 5f 69 6e 69 74 28 61 70 70 5f 72 65 | res_init(app_re|
00004cd0 73 6f 75 72 73 65 73 29 3b 0a 20 20 72 65 73 73 |sourses);. ress|
00004ce0 70 72 5f 69 6e 69 74 28 29 3b 0a 20 20 74 65 6d |pr_init();. tem|
00004cf0 70 6c 61 74 65 5f 69 6e 69 74 28 29 3b 0a 20 20 |plate_init();. |
00004d00 64 62 6f 78 5f 69 6e 69 74 28 29 3b 0a 20 20 6d |dbox_init();. m|
00004d10 73 67 73 5f 69 6e 69 74 28 29 3b 0a 0a 20 20 69 |sgs_init();.. i|
00004d20 66 20 28 28 69 63 6f 6e 5f 6d 65 6e 75 20 3d 20 |f ((icon_menu = |
00004d30 6d 65 6e 75 5f 6e 65 77 28 69 63 6f 6e 5f 6d 65 |menu_new(icon_me|
00004d40 6e 75 5f 74 69 74 6c 65 2c 20 69 63 6f 6e 5f 6d |nu_title, icon_m|
00004d50 65 6e 75 5f 69 74 65 6d 73 29 29 20 3d 3d 20 4e |enu_items)) == N|
00004d60 55 4c 4c 29 0a 20 20 20 20 72 65 74 75 72 6e 20 |ULL). return |
00004d70 46 41 4c 53 45 3b 0a 20 20 62 61 72 69 63 6f 6e |FALSE;. baricon|
00004d80 28 61 70 70 5f 62 61 72 69 63 6f 6e 2c 20 28 69 |(app_baricon, (i|
00004d90 6e 74 29 72 65 73 73 70 72 5f 61 72 65 61 28 29 |nt)resspr_area()|
00004da0 2c 20 69 63 6f 6e 62 61 72 5f 63 6c 69 63 6b 29 |, iconbar_click)|
00004db0 3b 0a 20 20 69 66 20 28 21 65 76 65 6e 74 5f 61 |;. if (!event_a|
00004dc0 74 74 61 63 68 6d 65 6e 75 28 77 69 6e 5f 49 43 |ttachmenu(win_IC|
00004dd0 4f 4e 42 41 52 2c 20 69 63 6f 6e 5f 6d 65 6e 75 |ONBAR, icon_menu|
00004de0 2c 20 69 63 6f 6e 5f 6d 65 6e 75 5f 66 6e 2c 20 |, icon_menu_fn, |
00004df0 30 29 29 0a 20 20 20 20 72 65 74 75 72 6e 20 46 |0)). return F|
00004e00 41 4c 53 45 3b 0a 20 20 65 76 65 6e 74 5f 73 65 |ALSE;. event_se|
00004e10 74 6d 61 73 6b 28 61 70 70 5f 65 76 65 6e 74 6d |tmask(app_eventm|
00004e20 61 73 6b 29 3b 0a 0a 20 20 6c 6f 61 64 5f 64 61 |ask);.. load_da|
00004e30 74 61 28 29 3b 0a 20 20 79 65 61 72 20 3d 20 74 |ta();. year = t|
00004e40 68 69 73 5f 79 65 61 72 28 29 3b 20 20 20 20 20 |his_year(); |
00004e50 20 20 20 20 2f 2a 20 73 65 74 20 69 6e 69 74 69 | /* set initi|
00004e60 61 6c 20 76 61 6c 75 65 73 20 74 6f 20 79 65 61 |al values to yea|
00004e70 72 20 61 6e 64 20 6d 6f 6e 74 68 20 2a 2f 0a 20 |r and month */. |
00004e80 20 73 74 61 72 74 6d 6f 6e 74 68 20 3d 20 74 68 | startmonth = th|
00004e90 69 73 5f 6d 6f 6e 74 68 28 29 3b 0a 0a 20 20 72 |is_month();.. r|
00004ea0 65 74 75 72 6e 20 54 52 55 45 3b 0a 7d 0a 0a 2f |eturn TRUE;.}../|
00004eb0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004ef0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 4d |************. M|
00004f00 41 49 4e 20 50 52 4f 47 52 41 4d 0a 2a 2a 2a 2a |AIN PROGRAM.****|
00004f10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004f50 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 69 6e 74 20 6d |********/..int m|
00004f60 61 69 6e 28 29 0a 7b 0a 20 20 69 66 20 28 69 6e |ain().{. if (in|
00004f70 69 74 69 61 6c 69 73 65 28 29 29 0a 20 20 20 20 |itialise()). |
00004f80 77 68 69 6c 65 20 28 54 52 55 45 29 0a 20 20 20 |while (TRUE). |
00004f90 20 20 20 65 76 65 6e 74 5f 70 72 6f 63 65 73 73 | event_process|
00004fa0 28 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b |();.. return 0;|
00004fb0 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.}../***********|
00004fc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005000 2a 0a 20 20 45 4e 44 20 4f 46 20 46 49 4c 45 0a |*. END OF FILE.|
00005010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005050 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a |************/.|
0000505e 
.