X-Git-Url: https://git.distorted.org.uk/~mdw/mup/blobdiff_plain/cdb3c0882392596f814cf939cbfbd38adc6f2bfe..ddf6330b56bcfb657e0186b24b9b1422c51d3424:/mup/mupdisp/do_cmd.c

diff --git a/mup/mupdisp/do_cmd.c b/mup/mupdisp/do_cmd.c
new file mode 100644
index 0000000..deca4c6
--- /dev/null
+++ b/mup/mupdisp/do_cmd.c
@@ -0,0 +1,222 @@
+
+/* 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"
+
+
+/* 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');
+}