macro.c

通讯程序源码

/*
 * The keyboard macro feature.  Displays (and prompts for editing) the
 * macros assigned to the shifted number keys.  Prompts for saving
 * changes to disk.
 */

#include <stdio.h>
#include <curses.h>
#include "misc.h"
#include "param.h"

static char *mac_prompt();

void
macro()
{
	extern int fd;
	WINDOW *ma_win, *newwin();
	int ans, changed;
	char *mac, *str_rep();

	ma_win = newwin(18, 65, 2, 15);
	mvwattrstr(ma_win, 1, 25, A_BOLD, "Keyboard Macros");
	horizontal(ma_win, 2, 0, 65);
	mvwprintw(ma_win, 4, 0, " %4.4s-!  %-50.50s\n", param->ascii_hot, param->mac_1);
	wprintw(ma_win, " %4.4s-@  %-50.50s\n", param->ascii_hot, param->mac_2);
	wprintw(ma_win, " %4.4s-#  %-50.50s\n", param->ascii_hot, param->mac_3);
	wprintw(ma_win, " %4.4s-$  %-50.50s\n", param->ascii_hot, param->mac_4);
	wprintw(ma_win, " %4.4s-%%  %-50.50s\n", param->ascii_hot, param->mac_5);
	wprintw(ma_win, " %4.4s-^  %-50.50s\n", param->ascii_hot, param->mac_6);
	wprintw(ma_win, " %4.4s-&  %-50.50s\n", param->ascii_hot, param->mac_7);
	wprintw(ma_win, " %4.4s-*  %-50.50s\n", param->ascii_hot, param->mac_8);
	wprintw(ma_win, " %4.4s-(  %-50.50s\n", param->ascii_hot, param->mac_9);
	wprintw(ma_win, " %4.4s-)  %-50.50s\n", param->ascii_hot, param->mac_0);
	mvwaddstr(ma_win, 15, 5, "Macro key to revise:");
	box(ma_win, VERT, HORZ);
					/* on the bottom line */
	mvwaddstr(ma_win, 17, 21, " Press <ESC> to continue ");
	wmove(ma_win, 15, 26);
	wrefresh(ma_win);

	changed = 0;

	while ((ans = wgetch(ma_win)) != ESC) {
		switch (ans) {
			case '!':	/* shifted 1 */
				if ((mac = mac_prompt(ans, param->mac_1)) != NULL) {
					param->mac_1 = str_rep(param->mac_1, mac);
					clear_line(ma_win, 4, 9, TRUE);
					mvwattrstr(ma_win, 4, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '@':	/* shifted 2 */
				if ((mac = mac_prompt(ans, param->mac_2)) != NULL) {
					param->mac_2 = str_rep(param->mac_2, mac);
					clear_line(ma_win, 5, 9, TRUE);
					mvwattrstr(ma_win, 5, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '#':	/* shifted 3 */
				if ((mac = mac_prompt(ans, param->mac_3)) != NULL) {
					param->mac_3 = str_rep(param->mac_3, mac);
					clear_line(ma_win, 6, 9, TRUE);
					mvwattrstr(ma_win, 6, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '$':	/* shifted 4 */
				if ((mac = mac_prompt(ans, param->mac_4)) != NULL) {
					param->mac_4 = str_rep(param->mac_4, mac);
					clear_line(ma_win, 7, 9, TRUE);
					mvwattrstr(ma_win, 7, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '%':	/* shifted 5 */
				if ((mac = mac_prompt(ans, param->mac_5)) != NULL) {
					param->mac_5 = str_rep(param->mac_5, mac);
					clear_line(ma_win, 8, 9, TRUE);
					mvwattrstr(ma_win, 8, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '^':	/* shifted 6 */
				if ((mac = mac_prompt(ans, param->mac_6)) != NULL) {
					param->mac_6 = str_rep(param->mac_6, mac);
					clear_line(ma_win, 9, 9, TRUE);
					mvwattrstr(ma_win, 9, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '&':	/* shifted 7 */
				if ((mac = mac_prompt(ans, param->mac_7)) != NULL) {
					param->mac_7 = str_rep(param->mac_7, mac);
					clear_line(ma_win, 10, 9, TRUE);
					mvwattrstr(ma_win, 10, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '*':	/* shifted 8 */
				if ((mac = mac_prompt(ans, param->mac_8)) != NULL) {
					param->mac_8 = str_rep(param->mac_8, mac);
					clear_line(ma_win, 11, 9, TRUE);
					mvwattrstr(ma_win, 11, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case '(':	/* shifted 9 */
				if ((mac = mac_prompt(ans, param->mac_9)) != NULL) {
					param->mac_9 = str_rep(param->mac_9, mac);
					clear_line(ma_win, 12, 9, TRUE);
					mvwattrstr(ma_win, 12, 9, A_BOLD, mac);
					changed++;
				}
				break;
			case ')':	/* shifted 0 */
				if ((mac = mac_prompt(ans, param->mac_0)) != NULL) {
					param->mac_0 = str_rep(param->mac_0, mac);
					clear_line(ma_win, 13, 9, TRUE);
					mvwattrstr(ma_win, 13, 9, A_BOLD, mac);
					changed++;
				}
				break;
			default:
				beep();
				break;
		}
		touchwin(ma_win);
		wmove(ma_win, 15, 26);
		wrefresh(ma_win);
	}
					/* if something changed */
	if (changed) {
					/* save to disk? */
		if (yes_prompt(ma_win, 15, 30, A_BOLD, "Save to disk")) {
			if (up_param()) {
				touchwin(ma_win);
				wrefresh(ma_win);
			}
		}
	}
	if (fd == -1) {
		werase(ma_win);
		wrefresh(ma_win);
	}
	delwin(ma_win);
	return;
}

/*
 * Sounds like McDonalds doesn't it?  Actually, it opens a new window
 * and prompts for the new macro.  Returns a pointer to the new string.
 * Since it uses get_str(), the return value points to a static area.
 */

static char *
mac_prompt(key, string)
char key, *string;
{
	extern char *null_ptr;
	WINDOW *mp_win, *newwin();
	char *new, *get_str();

	mp_win = newwin(6, 65, 8, 0);
	mvwprintw(mp_win, 2, 3, "%4.4s-%c  %-50.50s", param->ascii_hot, key, string);
	mvwaddstr(mp_win, 3, 5, "New : ");
	box(mp_win, VERT, HORZ);
	wrefresh(mp_win);

	if ((new = get_str(mp_win, 50, "", "\n")) != NULL) {
					/* if CR, return NULL */
		if (*new == '\0')
			new = NULL;
					/* if space, change to null_ptr */
		else if (!strcmp(new, " "))
			new = null_ptr;
	}

	werase(mp_win);
	wrefresh(mp_win);
	delwin(mp_win);
	return(new);
}