/* ansi.c     (MicroEmacs) */

/*
 * The routines in this file provide support for ANSI style terminals
 * over a serial  ine. The serial I/O services are provided by routines in
 * "termio.c". It compiles into nothing if not an ANSI device.
 */

#include	<stdio.h>
#include        "ed.h"

#ifdef	ANSI

#define	NROW	23			/* Screen size.			*/
#define	NCOL	80			/* Edit	if you want to.		*/
#define	BEL	0x07			/* BEL character.		*/
#define	ESC	0x1B			/* ESC character.		*/

extern	int	ttopen();		/* Forward references.		*/
extern	int	ttgetc();
extern	int	ttputc();
extern	int	ttflush();
extern	int	ttclose();
extern	int	ansimove();
extern	int	ansiel();
extern	int	ansieop();
extern	int	ansibeep();
extern	int	ansiopen();

/*
 * Standard terminal interface dispatch	table. Most of the fields point	into
 * "termio" code.
 */
TERM	term	= {
	NROW-1,
	NCOL,
	&ansiopen,
	&ttclose,
	&ttgetc,
	&ttputc,
	&ttflush,
	&ansimove,
	&ansiel,
	&ansieop,
	&ansibeep
};

ansimove(row, col)
{
	ttputc(ESC);
	ttputc('[');
	ansiparm(row);
	ttputc(';');
	ansiparm(col);
	ttputc('H');
}

ansiel()
{
	ttputc(ESC);
	ttputc('[');
	ttputc('K');
}

ansieop()
{
	ttputc(ESC);
	ttputc('[');
	ttputc('J');
}

ansibeep()
{
	ttputc(BEL);
	ttflush();
}

ansiparm(n)
register int n;
{
	register int q;

	if (n++) {
		if (q = n/10)
			ttputc((q) + '0');
		ttputc((n%10) + '0');
	}
}

#endif

ansiopen()
{
#ifdef	V7
	register char *cp;
	char *getenv();

	if ((cp	= getenv("TERM")) == NULL) {
		puts("Shell variable TERM not defined!");
		exit(1);
	}
	if (strcmp(cp, "vt100")) {
		puts("Terminal type not 'vt100'!");
		exit(1);
	}
#endif
	ttopen();
#ifdef	RSX
	if (!isansi()) {
	  printf("Terminal not ansi.\n");
	  ttrest();
	  exit(-1);
	}
#endif
}