Category : UNIX Files
Archive : VCAL.ZIP
Filename : USER.C
Output of file : USER.C contained in archive : VCAL.ZIP
* Modification History
*
* Origional Author: Tom Stoehn@Tektronics[zeus!tims] Modifications by: Jeff
* Bauer@ETA Systems[eta!bauer] Marc Ries@TRW[trwrb!ries]
*
*/
#include
#include "month.h"
extern short crow, ccol, current_area, month, day, year, edit_flag;
extern short this_month, this_day, this_year, message_line_filled, days;
extern struct event_rec current_event;
extern struct mdate mdates[];
struct mdate mdates[12];
user()
{
register short ch;
short n, m, y;
char *prompt;
struct mdate tmp;
for (;;)
{
MR: move(crow, ccol);
refresh();
m = month;
y = year;
GETCH:
ch = get_char();
switch (ch)
{
case '/':
date_search();
break;
case ';':
case ':':
if (current_area != SCHEDULE)
{
goto_this_day(mdates[10].month, 1, mdates[10].year);
tmp = mdates[10];
mdates[10] = mdates[11];
mdates[11] = tmp;
goto MR;
}
break;
case 'Q':
if (current_area != SCHEDULE)
{
terminate();
}
break;
case '\033':
if (edit_flag)
{
return (CANCEL);
} else if (current_area == SCHEDULE)
{
accept_cancel(0);
}
break;
case 'L':
if (current_area == DAYS)
{
lunar();
} else if ((current_area == MONTHS) || (current_area == YEARS))
{
warn_day();
}
break;
case 'j':
case 'k':
case 'l':
case 'h':
case 'y':
case 'm':
case 'd':
case '\t':
move_cursor(ch);
break;
case 'n':
case '+':
case 'p':
case '-':
incr(ch);
break;
case '\n':
case '\r':
if ((n = selection()) != NOTHING)
{
return (n);
}
break;
case ' ':
case '\b':
scroll_time(ch);
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
switch (current_area)
{
case DAYS:
prompt = "day: ";
break;
case MONTHS:
prompt = "month: ";
break;
case YEARS:
prompt = "year: ";
break;
case SCHEDULE:
switch (ccol)
{
case SMONTH_COL:
prompt = "month: ";
break;
case SDAY_COL:
prompt = "day: ";
break;
case SYEAR_COL:
prompt = "year: ";
break;
case NTH_COL:
prompt = "nth: ";
break;
default:
goto GETCH;
}
break;
default:
goto GETCH;
}
if ((n = enter_number(ch, prompt)) >= 0)
{
do_number(n);
}
break;
case 'P':
if (current_area == DAYS)
{
post_event(month, day, year);
} else
{
warn_day();
}
break;
case 'A':
if (current_area != SCHEDULE)
{
show_all_events(month, year);
}
break;
case 'F':
file_events();
break;
case 'S':
if (current_area == DAYS)
{
scan_events(ch);
} else if ((current_area == MONTHS) || (current_area == YEARS))
{
warn_day();
}
break;
case 'E':
if (current_area != SCHEDULE)
{
scan_events(ch);
}
break;
case 'O':
if (current_area == DAYS)
{
overview();
} else if ((current_area == MONTHS) || (current_area == YEARS))
{
clear_schedule_area();
warn_day();
}
break;
case 'T':
if (current_area != SCHEDULE)
{
goto_this_day(this_month, this_day, this_year);
}
break;
case 'M':
case 'G':
if (current_area != SCHEDULE)
{
mark_day((ch == 'G'));
}
break;
case 'B':
psched();
break;
case '?':
help();
break;
default:
standout();
mvaddstr(23, 60, " Press ? for help");
standend();
refresh();
goto GETCH;
break;
}
if ((m != month) || (y != year))
{ /* changed months */
mdates[10] = mdates[11];
mdates[11].month = month;
mdates[11].year = year;
}
}
}
enter_number(ch, prompt)
short ch;
char *prompt;
{
char nbuf[6];
short col, first_col, i = 0;
int retval = -1;
first_col = col = strlen(prompt);
mvaddstr(0, 0, prompt);
for (;;)
{
if ((ch >= '0') && (ch <= '9'))
{
if ((col < (first_col + 2)) ||
(((current_area == YEARS) ||
((current_area == SCHEDULE)) &&
(ccol == SYEAR_COL)) &&
(col < (first_col + 4))))
{
nbuf[i++] = ch;
mvaddch(0, col++, ch);
refresh();
}
} else if ((ch == '\n') || (ch == '\r'))
{
nbuf[i] = 0;
retval = atoi(nbuf);
break;
} else if (ch == '\b')
{
if (col > first_col)
{
i--;
col--;
mvaddch(0, col, ' ');
move(0, col);
refresh();
}
} else if (ch == '\033')
{
break;
}
ch = get_char();
}
clear_message_line();
return (retval);
}
do_number(n)
short n;
{
if (current_area == YEARS)
{
if (n > 0)
{
shift_years(n - year);
goto_year(year);
}
} else if (current_area == MONTHS)
{
if ((n <= 12) && (n >= 1))
{
crow = TOP_MONTH_ROW + n;
selection();
}
} else if (current_area == DAYS)
{
if ((n >= 1) && (n <= days))
{
goto_day(n);
}
} else if (current_area == SCHEDULE)
{
switch (ccol)
{
case SMONTH_COL:
if ((n >= 1) && (n <= 12))
{
current_event.event_month = n;
}
break;
case SDAY_COL:
if ((n >= 1) && (n <= days))
{
current_event.event_day = n;
}
break;
case SYEAR_COL:
if (n > 0)
{
current_event.event_year = n;
}
break;
case NTH_COL:
if ((n > 0) && (n <= 53))
{
current_event.nth = n;
current_event.nth_is_on = 1;
print_nth(¤t_event);
}
break;
default:
return;
}
if (ccol != NTH_COL)
{
print_date(current_event.event_month,
current_event.event_day, current_event.event_year, 0);
}
}
}
handle_event_description()
{
short ch;
for (;;)
{
move(crow, ccol);
refresh();
ch = get_char();
if ((ch >= ' ') && (ch <= '~'))
{
if (ccol <= 78)
{
addch(ch);
current_event.event_string[ccol - TIME_COL] = ch;
ccol++;
current_event.event_string[ccol - TIME_COL] = 0;
}
} else
{
switch (ch)
{
case '\n':
case '\r':
case '\t':
schedule_move_cursor(ch);
return;
break;
case '\b':
if (ccol > TIME_COL)
{
ccol--;
mvaddch(crow, ccol, ' ');
current_event.event_string
[ccol - TIME_COL] = 0;
}
break;
case '\004':
case '\025':
case '\030':
current_event.event_string[0] = 0;
ccol = TIME_COL;
move(crow, TIME_COL);
clrtoeol();
break;
case '\027':
while ((ccol > TIME_COL) && (current_event.event_string
[--ccol - TIME_COL] == ' '));
while ((ccol > TIME_COL) && (current_event.event_string
[(ccol - 1) - TIME_COL] != ' '))
{
ccol--;
}
move(crow, ccol);
clrtoeol();
break;
}
}
}
}
get_answer(prompt, yes_string, no_string, char1, char2)
char *prompt, *yes_string, *no_string;
int char1, char2;
{
char *s;
short retval, col;
mvaddstr(0, 0, prompt);
refresh();
do
{
retval = get_char();
if ((retval == (char1 - 32)) || (retval == (char2 - 32)))
{
retval += 32;
}
} while ((retval != char1) && (retval != char2) && (retval != '\033'));
s = (retval == char1) ? yes_string : no_string;
mvaddstr(0, 0, s);
col = strlen(s);
if (edit_flag)
{
addstr(" -more-");
move(0, col + 7);
blank_out(col + 7);
move(0, col + 7);
refresh();
(void) get_char();
} else
{
blank_out(col);
}
message_line_filled = 1;
return (retval);
}
get_nq()
{
register ch;
mvaddstr(0, 0, "[n,q] ");
refresh();
for (;;)
{
ch = get_char();
switch (ch)
{
case 'q':
case '\033':
clear_message_line();
return ('q');
break;
case 'n':
case '\n':
case '\r':
clear_message_line();
return ('n');
break;
}
}
}
get_npdeq()
{
register ch;
mvaddstr(0, 0, "[n,p,d,e,q] ");
refresh();
for (;;)
{
ch = get_char();
switch (ch)
{
case '\n':
case '\r':
ch = 'n'; /* no break statement */
case 'n':
case 'p':
case 'e':
case '\033':
case 'q':
clear_message_line();
return (ch);
break;
case 'd':
ch = get_answer("really delete? ", "", "", 'n', 'y');
if (ch == 'y')
{
mvaddstr(0, 0, "deleted");
} else
{
mvaddstr(0, 0, "not deleted");
}
addstr(" -more-");
refresh();
(void) get_char();
clear_message_line();
return ((ch == 'y') ? 'd' : '\0');
break;
}
}
}
mark_day(goto_flag)
short goto_flag;
{
short ch;
mvaddstr(0, 0, "mark: ");
refresh();
for (;;)
{
ch = get_char();
switch (ch)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
mvaddch(0, 6, ch);
refresh();
message_line_filled = 1;
ch -= '0';
if (goto_flag)
{
goto_this_day(mdates[ch].month, 1, mdates[ch].year);
} else
{
mdates[ch].month = month;
mdates[ch].year = year;
}
return;
break;
case '\033':
case '\n':
case '\r':
clear_message_line();
return;
break;
}
}
}
get_char()
{
register int ch;
GETCH:
ch = getchar() & 0377;
if (message_line_filled)
{
clear_message_line();
}
switch (ch)
{
case '\014':
case '\022':
wrefresh(curscr);
goto GETCH;
break;
}
return (ch);
}
date_search()
{
register short ch;
short col, slash_count;
char buf[16];
int m, d, y;
STARTOVER:
mvaddstr(0, 0, "date: ");
buf[col = 0] = 0;
slash_count = 0;
for (;;)
{
refresh();
GETCH:
ch = get_char();
switch (ch)
{
case '\b':
if (col > 0)
{
if (buf[col - 1] == '/')
{
slash_count--;
}
buf[--col] = 0;
mvaddch(0, col + 6, ' ');
move(0, col + 6);
}
break;
case '/':
if ((slash_count >= 2) || ((col > 0) && (buf[col - 1] == '/')) ||
(col == 0))
{
sound_bell();
} else
{
addch(ch);
buf[col++] = ch;
buf[col] = 0;
slash_count++;
}
break;
case '0':
if ((col == 0) || (buf[col - 1] == '/'))
{
goto GETCH;
} /* no break statement */
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
if (
((col == 2) && (buf[col - 1] != '/')) ||
((slash_count == 1) && (buf[col - 1] != '/') && (buf[col - 2] != '/')) ||
((slash_count == 2) && (buf[col - 1] != '/') && (buf[col - 2] != '/') &&
(buf[col - 3] != '/') && (buf[col - 4] != '/')) ||
((col == 1) && ((ch > '2') || (buf[0] > '1')))
)
{
sound_bell();
goto GETCH;
} else
{
addch(ch);
buf[col++] = ch;
buf[col] = 0;
}
break;
case '\n':
case '\r':
if ((slash_count < 2) || (buf[col - 1] == '/'))
{
sound_bell();
goto GETCH;
} else
{
(void) sscanf(buf, "%d/%d/%d", &m, &d, &y);
if (y < 100)
{
y += 1900;
}
goto_this_day(m, d, y); /* no break statement! */
}
case '\033':
goto RET;
break;
case '\004':
case '\025':
case '\030':
clear_message_line();
goto STARTOVER;
break;
default:
goto GETCH;
break;
}
}
RET:
clear_message_line();
}
warn_day()
{
error_message("put cursor on day", 1);
}
get_input_line(prompt, buf)
char *prompt, *buf;
{
short col, i = 0, ch;
clear_message_line();
mvaddstr(0, 0, prompt);
col = strlen(prompt);
move(0, col);
refresh();
while (((ch = get_char()) != '\n') && (ch != '\r') && (ch != '\033'))
{
if ((ch > ' ') && (ch < '~'))
{
if ((i + col) <= 30)
{
buf[i++] = ch;
addch(ch);
refresh();
}
} else if (ch == '\b')
{
if (i > 0)
{
i--;
mvaddch(0, (col + i), ' ');
move(0, (col + i));
refresh();
}
}
}
buf[i] = 0;
clear_message_line();
if ((i == 0) || (ch == '\033'))
{
return (0);
}
return (1);
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/