Merge branch 'arkkra' into shiny

[mup] / mup / mupdisp / do_cmd.c

/* Copyright (c) 1995 by Arkkra Enterprises */
/* All rights reserved */

/* command processing function for Mup/Ghostscript display program.
 * Given a input input character, does the appropriate command */


/* The user interface commands are:
 *	+ or <space> or ^e or ^f	scroll forwards 1/8"
 *	- or <backsp> or ^y or ^b	scroll backwards 1/8"
 *	f or <enter> or ^d		scroll forwards 1"
 *	b or ^u				scroll backwards 1"
 *	h or ?		help
 *	m		toggle between full page and scrolled mode
 *	n		go to top of next page
 *	p		go to top of previous page
 *	q		quit
 *	r		repaint current page
 *	Num\n		go to page Num
 * Upper case versions work too.
 *	ZZ is synonym for quit
 */

#include "mupdisp.h"

/* bitmap for the help screen. Have to manually make sure this is smaller
 * than the minimum screen/window size */
#include "help.bm"
\f

/* command processing function for Mup/Ghostscript display program.
 * Given a input input character, does the appropriate command */

void
do_cmd(c)

int c;		/* character read from user */

{
	static int line = 0;	/* current line on page that
				 * is at top of screen */
	static int got1z = 0;	/* if got one Z for vi-like ZZ exit */
	static int pgnum = -1;	/* page number */
	static int count = 0;	/* how many times called */
	static int lasterr = 0;	/* value of count for last error */
	static int goofs = 0;	/* how many consecutive user errors */


	/* count of times called, to implement auto-help if user goofs too
	 * many times in a row */
	count++;

	c = tolower(c);

	switch(c) {

	case '0': case '1':
	case '2': case '3':
	case '4': case '5':
	case '6': case '7':
	case '8': case '9':
		/* gathering page number for specific page */
		if (pgnum < 0) {
			/* first digit, so initialize page number */
			pgnum = 0;
		}
		pgnum = (pgnum * 10) + c - '0';
		break;

	case '+':
	case ' ':
	case '\5':	/* control-E for vi users */
	case '\6':	/* control-F for emacs users */
		/* scroll forward a little bit */
		if (Fullpgmode) {
			( *(Conf_info_p->error) ) ("command invalid in full page mode");
		}
		else {
			line = scroll(line, 9);
		}
		break;

	case '-':
	case '\b':
	case '\31':	/* control-Y for vi users */
	case '\2':	/* control-B for emacs users */
		/* backward a little bit */
		if (Fullpgmode) {
			( *(Conf_info_p->error) ) ("command invalid in full page mode");
		}
		else {
			line = scroll(line, -9);
		}
		break;

	case '\n':
	case '\r':
		if (pgnum >= 0) {
			/* ending page number command */
			if (getpginfo(pgnum) == YES) {
				( *(Conf_info_p->draw) )  (0, Fullpgmode);
				line = 0;
			}
			else {
				( *(Conf_info_p->error) ) ("invalid page number");
			}
			pgnum = -1;
			break;
		}
		/* else fall through to moving forward on page*/
		/*FALLTHRU*/

	case 'f':
	case '\4':	/* control-D */
	case '\16':	/* control-N */
		/* forward an inch */
		if (Fullpgmode) {
			( *(Conf_info_p->error) ) ("command invalid in full page mode");
		}
		else {
			line = scroll(line, 72);
		}
		break;

	case 'b':
	case '\25':	/* control-U */
	case '\20':	/* control-P */
		/* back an inch */
		if (Fullpgmode) {
			( *(Conf_info_p->error) ) ("command invalid in full page mode");
		}
		else {
			line = scroll(line, -72);
		}
		break;

	case 'h':
	case '?':
		/* display help screen */
		( *(Conf_info_p->bitmap) ) (Help_bitmap, Help_width, Help_height);
		break;

	case 'n':
		/* go to next page */
		if (Currpage_p->next != (struct Pginfo *) 0) {
			Currpage_p = Currpage_p->next;
			line = 0;
			( *(Conf_info_p->draw) ) (line, Fullpgmode);
		}
		else {
			( *(Conf_info_p->error) ) ("already at last page");
		}
		break;

	case 'p':
		/* go to previous page */
		if (Currpage_p->prev != (struct Pginfo *) 0) {
			Currpage_p = Currpage_p->prev;
			line = 0;
			( *(Conf_info_p->draw) ) (line, Fullpgmode);
		}
		else {
			( *(Conf_info_p->error) ) ("already at first page");
		}
		break;

	case 'q':
		/* quit */
		( *(Conf_info_p->cleanup) )  (0);
		break;

	case 'r':
		/* repaint current screen */
		/* if redraw is because window was resized, make sure we don't
		 * run off the bottom */
		if (line + Conf_info_p->vlines > LINES_PER_PAGE * Conf_info_p->adjust) {
			line = LINES_PER_PAGE * Conf_info_p->adjust - Conf_info_p->vlines;
		}
		( *(Conf_info_p->draw) ) (line, Fullpgmode);
		break;
		
	case 'z':
		/* 2 Z's is symonym for quit, to match with common
		 * way to exit vi */
		if (got1z) {
			( *(Conf_info_p->cleanup) )  (0);
		}
		break;

	case 'm':
		/* switch between full page and scrolled modes */
		Fullpgmode = (Fullpgmode == YES ? NO : YES);
		line = 0;
		( *(Conf_info_p->draw) ) (line, Fullpgmode);
		break;

	default:
		( *(Conf_info_p->error) ) ("unknown command");
		/* auto-help feature:
		 * if user puts in something illegal too many times in a row,
		 * figure they're confused and desperate, so give them the
		 * help screen */
		if (lasterr == count - 1) {
			goofs++;
			if (goofs > 9) {
				( *(Conf_info_p->bitmap) ) (Help_bitmap,
						Help_width, Help_height);
				goofs = 0;
			}
		}
		else {
			goofs = 1;
		}
		lasterr = count;
		break;
	}

	/* set flag if got Z, so can check for Z consecutive Z's for
	 * vi-style exit */
	got1z = (c == 'Z' || c == 'z');
}