terse mode and some new commands.

[unix-history] / usr / src / usr.bin / window / cmd1.c

#ifndef lint
static	char *sccsid = "@(#)cmd1.c	1.6 83/07/28";
#endif

#include "defs.h"

struct ww *doopen();

dowindow()
{
	int col, row, xcol, xrow;
	int id;

	if ((id = findid()) < 0) {
		if (terse)
			Ding();
		else
			wwputs("Too many windows.  ", cmdwin);
		return;
	}
	if (!terse)
		wwputs("Upper left corner: ", cmdwin);
	col = 0;
	row = 1;
	for (;;) {
		wwsetcursor(row, col);
		while (bpeekc() < 0)
			bread();
		switch (getpos(&row, &col, 0, 0)) {
		case -1:
			WBoxActive = 0;
			if (!terse)
				wwputs("\r\nCancelled.  ", cmdwin);
			return;
		case 1:
			break;
		case 0:
			continue;
		}
		break;
	}
	if (!terse)
		wwputs("\r\nLower right corner: ", cmdwin);
	xcol = col + 1;
	xrow = row + 1;
	for (;;) {
		Wbox(col, row, xcol - col + 1, xrow - row + 1);
		wwsetcursor(xrow, xcol);
		wwflush();
		while (bpeekc() < 0)
			bread();
		switch (getpos(&xrow, &xcol, row + 1, col + 1)) {
		case -1:
			WBoxActive = 0;
			if (!terse)
				wwputs("\r\nCancelled.  ", cmdwin);
			return;
		case 1:
			break;
		case 0:
			continue;
		}
		break;
	}
	WBoxActive = 0;
	if (!terse)
		wwputs("\r\n", cmdwin);
	wwsetcursor(WCurRow(cmdwin->ww_win), WCurCol(cmdwin->ww_win));
	if (doopen(id, xrow-row+1, xcol-col+1, row, col) == 0)
		if (terse)
			Ding();
		else
			wwputs("Can't open window.  ", cmdwin);
}

findid()
{
	register id;
	char ids[10];
	register struct ww *w;

	for (id = 1; id <= NWINDOW; id++)
		ids[id] = 0;
	for (w = wwhead; w; w = w->ww_next) {
		if (w->ww_ident < 1 || w->ww_ident > NWINDOW)
			continue;
		ids[w->ww_ident]++;
	}
	for (id = 1; id <= NWINDOW && ids[id]; id++)
		;
	return id < 10 ? id : -1;
}

getpos(row, col, minrow, mincol)
register int *row, *col, minrow, mincol;
{
	static int scount = 0;
	int count;
	char c;

	while ((c = bgetc()) >= 0) {
		switch (c) {
		case '0': case '1': case '2': case '3': case '4':
		case '5': case '6': case '7': case '8': case '9':
			scount = scount * 10 + c - '0';
			continue;
		}
		count = scount ? scount : 1;
		scount = 0;
		switch (c) {
		case 'h':
			if ((*col -= count) < mincol)
				*col = mincol;
			break;
		case 'H':
			*col = mincol;
			break;
		case 'l':
			if ((*col += count) >= wwncol)
				*col = wwncol - 1;
			break;
		case 'L':
			*col = wwncol - 1;
			break;
		case 'j':
			if ((*row += count) >= wwnrow)
				*row = wwnrow - 1;
			break;
		case 'J':
			*row = wwnrow - 1;
			break;
		case 'k':
			if ((*row -= count) < minrow)
				*row = minrow;
			break;
		case 'K':
			*row = minrow;
			break;
		case CTRL([):
			return -1;
		case '\r':
			return 1;
		default:
			if (!terse)
				wwputs("\r\nType [hjklHJKL] to move, return to enter position, escape to cancel.", cmdwin);
			Ding();
		}
	}
	return 0;
}

struct ww *
doopen(id, nrow, ncol, row, col)
int id, nrow, ncol, row, col;
{
	register struct ww *w;

	if (id < 0 && (id = findid()) < 0)
		return 0;
	if ((w = wwopen(WW_PTY, id, nrow, ncol, row, col)) == 0)
		return 0;
	reframe();
	if (selwin == 0)
		setselwin(w);
	else
		wwsetcurwin(cmdwin);
	wwflush();
	switch (wwfork(w)) {
	case -1:
		doclose(w);
		return 0;
	case 0:
		execl("/bin/csh", "csh", 0);
		perror("exec(csh)");
		exit(1);
	}
	return w;
}

reframe()
{
	register struct ww *w;

	for (w = wwhead; w; w = w->ww_next) {
		if (w == cmdwin)
			continue;
		wwunframe(w);
		wwframe(w);
		labelwin(w);
	}
}