Subversion Repositories planix.SVN

/*

 * Copyright (c) 1980 Regents of the University of California.

 * All rights reserved.  The Berkeley software License Agreement

 * specifies the terms and conditions for redistribution.

 */

#if	!defined(lint) && defined(DOSCCS)

static char *sccsid = "@(#)ex_get.c	7.6 (Berkeley) 6/7/85";

#endif

#include "ex.h"

#include "ex_tty.h"

/*

 * Input routines for command mode.

 * Since we translate the end of reads into the implied ^D's

 * we have different flavors of routines which do/don't return such.

 */

static	bool junkbs;

short	lastc = '\n';

ignchar()

{

	ignore(getchar());

}

getchar()

{

	register int c;

	do

		c = getcd();

	while (!globp && c == CTRL('d'));

	return (c);

}

getcd()

{

	register int c;

again:

	c = getach();

	if (c == EOF)

		return (c);

#ifdef	ISO

	if (niso(c))

#endif

	c &= TRIM;

	if (!inopen)

		if (!globp && c == CTRL('d'))

			setlastchar('\n');

		else if (junk(c)) {

			checkjunk(c);

			goto again;

		}

	return (c);

}

peekchar()

{

	if (peekc == 0)

		peekc = getchar();

	return (peekc);

}

peekcd()

{

	if (peekc == 0)

		peekc = getcd();

	return (peekc);

}

getach()

{

	register int c;

	static char in_line[BUFSIZ];

	struct stat statb;

	c = peekc;

	if (c != 0) {

		peekc = 0;

		return (c);

	}

	if (globp) {

		if (*globp)

			return (*globp++);

		globp = 0;

		return (lastc = EOF);

	}

top:

	if (input) {

		if (c = *input++) {

#ifndef	ISO

			if (c &= TRIM)

#else

			if (niso(c))

				c &= TRIM;

			if (c)

#endif

				return (lastc = c);

			goto top;

		}

		input = 0;

	}

	flush();

	if (intty) {

		c = read(0, in_line, sizeof in_line - 4);

		if (c < 0)

			return (lastc = EOF);

		if (c == 0 || in_line[c-1] != '\n')

			in_line[c++] = CTRL('d');

		if (in_line[c-1] == '\n')

			noteinp();

		in_line[c] = 0;

		for (c--; c >= 0; c--)

			if (in_line[c] == 0)

#ifndef	BIT8

				in_line[c] = QUOTE;

#else

				in_line[c] = '_';

#endif

		input = in_line;

		goto top;

	}

	c = read(0, in_line, sizeof in_line - 1);

	if(c <= 0)

		return(lastc = EOF);

	in_line[c] = '\0';

	input = in_line;

	goto top;

}

/*

 * Input routine for insert/append/change in command mode.

 * Most work here is in handling autoindent.

 */

static	short	lastin;

gettty()

{

	register int c = 0;

	register char *cp = genbuf;

	char hadup = 0;

	int numbline();

	extern int (*Pline)();

	int offset = Pline == numbline ? 8 : 0;

	int ch;

	if (intty && !inglobal) {

		if (offset) {

			holdcm = 1;

			printf("  %4d  ", lineDOT() + 1);

			flush();

			holdcm = 0;

		}

		if (value(AUTOINDENT) ^ aiflag) {

			holdcm = 1;

#ifdef LISPCODE

			if (value(LISP))

				lastin = lindent(dot + 1);

#endif

			tab(lastin + offset);

			while ((c = getcd()) == CTRL('d')) {

				if (lastin == 0 && isatty(0) == -1) {

					holdcm = 0;

					return (EOF);

				}

				lastin = backtab(lastin);

				tab(lastin + offset);

			}

			switch (c) {

			case '^':

			case '0':

				ch = getcd();

				if (ch == CTRL('d')) {

					if (c == '0')

						lastin = 0;

					if (!OS) {

						putchar('\b' | QUOTE);

						putchar(' ' | QUOTE);

						putchar('\b' | QUOTE);

					}

					tab(offset);

					hadup = 1;

					c = getchar();

				} else

					ungetchar(ch);

				break;

			case '.':

				if (peekchar() == '\n') {

					ignchar();

					noteinp();

					holdcm = 0;

					return (EOF);

				}

				break;

			case '\n':

				hadup = 1;

				break;

			}

		}

		flush();

		holdcm = 0;

	}

	if (c == 0)

		c = getchar();

	while (c != EOF && c != '\n') {

		if (cp > &genbuf[LBSIZE - 2])

			error("Input line too long");

		*cp++ = c;

		c = getchar();

	}

	if (c == EOF) {

		if (inglobal)

			ungetchar(EOF);

		return (EOF);

	}

	*cp = 0;

	cp = linebuf;

	if ((value(AUTOINDENT) ^ aiflag) && hadup == 0 && intty && !inglobal) {

		lastin = c = smunch(lastin, genbuf);

		for (c = lastin; c >= value(TABSTOP); c -= value(TABSTOP))

			*cp++ = '\t';

		for (; c > 0; c--)

			*cp++ = ' ';

	}

	CP(cp, genbuf);

	if (linebuf[0] == '.' && linebuf[1] == 0)

		return (EOF);

	return (0);

}

/*

 * Crunch the indent.

 * Hard thing here is that in command mode some of the indent

 * is only implicit, so we must seed the column counter.

 * This should really be done differently so as to use the whitecnt routine

 * and also to hack indenting for LISP.

 */

smunch(col, ocp)

	register int col;

	char *ocp;

{

	register char *cp;

	cp = ocp;

	for (;;)

		switch (*cp++) {

		case ' ':

			col++;

			continue;

		case '\t':

			col += value(TABSTOP) - (col % value(TABSTOP));

			continue;

		default:

			cp--;

			CP(ocp, cp);

			return (col);

		}

}

char	*cntrlhm =	"^H discarded\n";

checkjunk(c)

	char c;

{

	if (junkbs == 0 && c == '\b') {

		write(2, cntrlhm, 13);

		junkbs = 1;

	}

}

line *

setin(addr)

	line *addr;

{

	if (addr == zero)

		lastin = 0;

	else

		getline(*addr), lastin = smunch(0, linebuf);

}