[dragonfly.git] / usr.bin / window / ttgeneric.c

/*	@(#)ttgeneric.c	8.1 (Berkeley) 6/6/93	*/
/*	$NetBSD: ttgeneric.c,v 1.10 2009/04/14 08:50:06 lukem Exp $	*/

/*
 * Copyright (c) 1983, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Edward Wang at The University of California, Berkeley.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <stdlib.h>
#include <string.h>
#include <termcap.h>
#include "ww.h"
#include "tt.h"

char PC, *BC, *UP;
short ospeed;

	/* normal frame */
short gen_frame[16] = {
	' ', '|', '-', '+',
	'|', '|', '+', '+',
	'-', '+', '-', '+',
	'+', '+', '+', '+'
};

	/* ANSI graphics frame */
#define G (WWM_GRP << WWC_MSHIFT)
short ansi_frame[16] = {
	' ',	'x'|G,	'Q'|G,	'm'|G,
	'x'|G,	'x'|G,	'l'|G,	't'|G,
	'q'|G,	'j'|G,	'q'|G,	'v'|G,
	'k'|G,	'u'|G,	'w'|G,	'n'|G
};
struct tt_str ansi_AS = {
	"\033(0", 3
};

struct tt_str *gen_PC;
struct tt_str *gen_CM;
struct tt_str *gen_IM;
struct tt_str *gen_IC;
struct tt_str *gen_ICn;
struct tt_str *gen_IP;
struct tt_str *gen_EI;
struct tt_str *gen_DC;
struct tt_str *gen_DCn;
struct tt_str *gen_AL;
struct tt_str *gen_ALn;
struct tt_str *gen_DL;
struct tt_str *gen_DLn;
struct tt_str *gen_CE;
struct tt_str *gen_CD;
struct tt_str *gen_CL;
struct tt_str *gen_VS;
struct tt_str *gen_VE;
struct tt_str *gen_TI;
struct tt_str *gen_TE;
struct tt_str *gen_SO;
struct tt_str *gen_SE;
struct tt_str *gen_US;
struct tt_str *gen_UE;
struct tt_str *gen_LE;
struct tt_str *gen_ND;
struct tt_str *gen_UP;
struct tt_str *gen_DO;
struct tt_str *gen_BC;
struct tt_str *gen_NL;
struct tt_str *gen_CR;
struct tt_str *gen_HO;
struct tt_str *gen_AS;
struct tt_str *gen_AE;
struct tt_str *gen_XS;
struct tt_str *gen_XE;
struct tt_str *gen_SF;
struct tt_str *gen_SFn;
struct tt_str *gen_SR;
struct tt_str *gen_SRn;
struct tt_str *gen_CS;
char gen_MI;
char gen_MS;
char gen_AM;
char gen_OS;
char gen_BS;
char gen_DA;
char gen_DB;
char gen_NS;
char gen_XN;
int gen_CO;
int gen_LI;
int gen_UG;
int gen_SG;

void	gen_clear(void);
void	gen_clreol(void);
void	gen_clreos(void);
void	gen_delchar(int);
void	gen_delline(int);
void	gen_end(void);
void	gen_inschar(char);
void	gen_insline(int);
void	gen_insspace(int);
void	gen_move(int, int);
void	gen_putc(char);
void	gen_scroll_down(int);
void	gen_scroll_up(int);
void	gen_setinsert(char);
void	gen_setmodes(int);
void	gen_setscroll(int, int);
void	gen_start(void);
void	gen_write(const char *, int);

void
gen_setinsert(char new)
{
	if (new) {
		if (gen_IM)
			ttxputs(gen_IM);
	} else
		if (gen_EI)
			ttxputs(gen_EI);
	tt.tt_insert = new;
}

void
gen_setmodes(int new)
{
	int diff;

	diff = new ^ tt.tt_modes;
	if (diff & WWM_REV) {
		if (new & WWM_REV) {
			if (gen_SO)
				ttxputs(gen_SO);
		} else
			if (gen_SE) {
				ttxputs(gen_SE);
				if (!strcmp(gen_SE->ts_str, gen_UE->ts_str) &&
				    gen_UE && gen_US && new & WWM_UL)
					ttxputs(gen_US);
			}
	}
	if (diff & WWM_UL) {
		if (new & WWM_UL) {
			if (gen_US)
				ttxputs(gen_US);
		} else
			if (gen_UE) {
				ttxputs(gen_UE);
				if (!strcmp(gen_UE->ts_str, gen_SE->ts_str) &&
				    gen_SE && gen_SO && new & WWM_REV)
					ttxputs(gen_SO);
			}
	}
	if (diff & WWM_GRP) {
		if (new & WWM_GRP) {
			if (gen_AS)
				ttxputs(gen_AS);
		} else
			if (gen_AE)
				ttxputs(gen_AE);
	}
	if (diff & WWM_USR) {
		if (new & WWM_USR) {
			if (gen_XS)
				ttxputs(gen_XS);
		} else
			if (gen_XE)
				ttxputs(gen_XE);
	}
	tt.tt_modes = new;
}

void
gen_insline(int n)
{
	if (tt.tt_modes)			/* for concept 100 */
		gen_setmodes(0);
	if (gen_ALn)
		ttpgoto(gen_ALn, 0, n, gen_LI - tt.tt_row);
	else
		while (--n >= 0)
			tttputs(gen_AL, gen_LI - tt.tt_row);
}

void
gen_delline(int n)
{
	if (tt.tt_modes)			/* for concept 100 */
		gen_setmodes(0);
	if (gen_DLn)
		ttpgoto(gen_DLn, 0, n, gen_LI - tt.tt_row);
	else
		while (--n >= 0)
			tttputs(gen_DL, gen_LI - tt.tt_row);
}

void
gen_putc(char c)
{
	if (tt.tt_insert)
		gen_setinsert(0);
	if (tt.tt_nmodes != tt.tt_modes)
		gen_setmodes(tt.tt_nmodes);
	ttputc(c);
	if (++tt.tt_col == gen_CO) {
		if (gen_XN)
			tt.tt_col = tt.tt_row = -10;
		else if (gen_AM)
			tt.tt_col = 0, tt.tt_row++;
		else
			tt.tt_col--;
	}
}

void
gen_write(const char *p, int n)
{
	if (tt.tt_insert)
		gen_setinsert(0);
	if (tt.tt_nmodes != tt.tt_modes)
		gen_setmodes(tt.tt_nmodes);
	ttwrite(p, n);
	tt.tt_col += n;
	if (tt.tt_col == gen_CO) {
		if (gen_XN)
			tt.tt_col = tt.tt_row = -10;
		else if (gen_AM)
			tt.tt_col = 0, tt.tt_row++;
		else
			tt.tt_col--;
	}
}

void
gen_move(int row, int col)
{
	if (tt.tt_row == row && tt.tt_col == col)
		return;
	if (!gen_MI && tt.tt_insert)
		gen_setinsert(0);
	if (!gen_MS && tt.tt_modes)
		gen_setmodes(0);
	if (row < tt.tt_scroll_top || row > tt.tt_scroll_bot)
		gen_setscroll(0, tt.tt_nrow - 1);
	if (tt.tt_row == row) {
		if (col == 0) {
			ttxputs(gen_CR);
			goto out;
		}
		if (tt.tt_col == col - 1) {
			if (gen_ND) {
				ttxputs(gen_ND);
				goto out;
			}
		} else if (tt.tt_col == col + 1) {
			if (gen_LE) {
				ttxputs(gen_LE);
				goto out;
			}
		}
	}
	if (tt.tt_col == col) {
		if (tt.tt_row == row + 1) {
			if (gen_UP) {
				ttxputs(gen_UP);
				goto out;
			}
		} else if (tt.tt_row == row - 1) {
			ttxputs(gen_DO);
			goto out;
		}
	}
	if (gen_HO && col == 0 && row == 0) {
		ttxputs(gen_HO);
		goto out;
	}
	tttgoto(gen_CM, col, row);
out:
	tt.tt_col = col;
	tt.tt_row = row;
}

void
gen_start(void)
{
	if (gen_VS)
		ttxputs(gen_VS);
	if (gen_TI)
		ttxputs(gen_TI);
	ttxputs(gen_CL);
	tt.tt_col = tt.tt_row = 0;
	tt.tt_insert = 0;
	tt.tt_nmodes = tt.tt_modes = 0;
}

void
gen_end(void)
{
	if (tt.tt_insert)
		gen_setinsert(0);
	if (gen_TE)
		ttxputs(gen_TE);
	if (gen_VE)
		ttxputs(gen_VE);
}

void
gen_clreol(void)
{
	if (tt.tt_modes)			/* for concept 100 */
		gen_setmodes(0);
	tttputs(gen_CE, gen_CO - tt.tt_col);
}

void
gen_clreos(void)
{
	if (tt.tt_modes)			/* for concept 100 */
		gen_setmodes(0);
	tttputs(gen_CD, gen_LI - tt.tt_row);
}

void
gen_clear(void)
{
	if (tt.tt_modes)			/* for concept 100 */
		gen_setmodes(0);
	ttxputs(gen_CL);
}

void
gen_inschar(char c)
{
	if (!tt.tt_insert)
		gen_setinsert(1);
	if (tt.tt_nmodes != tt.tt_modes)
		gen_setmodes(tt.tt_nmodes);
	if (gen_IC)
		tttputs(gen_IC, gen_CO - tt.tt_col);
	ttputc(c);
	if (gen_IP)
		tttputs(gen_IP, gen_CO - tt.tt_col);
	if (++tt.tt_col == gen_CO) {
		if (gen_XN)
			tt.tt_col = tt.tt_row = -10;
		else if (gen_AM)
			tt.tt_col = 0, tt.tt_row++;
		else
			tt.tt_col--;
	}
}

void
gen_insspace(int n)
{
	if (gen_ICn)
		ttpgoto(gen_ICn, 0, n, gen_CO - tt.tt_col);
	else
		while (--n >= 0)
			tttputs(gen_IC, gen_CO - tt.tt_col);
}

void
gen_delchar(int n)
{
	if (gen_DCn)
		ttpgoto(gen_DCn, 0, n, gen_CO - tt.tt_col);
	else
		while (--n >= 0)
			tttputs(gen_DC, gen_CO - tt.tt_col);
}

void
gen_scroll_down(int n)
{
	gen_move(tt.tt_scroll_bot, 0);
	if (gen_SFn)
		ttpgoto(gen_SFn, 0, n, n);
	else
		while (--n >= 0)
			ttxputs(gen_SF);
}

void
gen_scroll_up(int n)
{
	gen_move(tt.tt_scroll_top, 0);
	if (gen_SRn)
		ttpgoto(gen_SRn, 0, n, n);
	else
		while (--n >= 0)
			ttxputs(gen_SR);
}

void
gen_setscroll(int top, int bot)
{
	tttgoto(gen_CS, bot, top);
	tt.tt_scroll_top = top;
	tt.tt_scroll_bot = bot;
	tt.tt_row = tt.tt_col = -10;
}

int
tt_generic(void)
{
	gen_PC = tttgetstr("pc");
	PC = gen_PC ? *gen_PC->ts_str : 0;
	ospeed = wwospeed;

	gen_CM = ttxgetstr("cm");		/* may not work */
	gen_IM = ttxgetstr("im");
	gen_IC = tttgetstr("ic");
	gen_ICn = tttgetstr("IC");
	gen_IP = tttgetstr("ip");
	gen_EI = ttxgetstr("ei");
	gen_DC = tttgetstr("dc");
	gen_DCn = tttgetstr("DC");
	gen_AL = tttgetstr("al");
	gen_ALn = tttgetstr("AL");
	gen_DL = tttgetstr("dl");
	gen_DLn = tttgetstr("DL");
	gen_CE = tttgetstr("ce");
	gen_CD = tttgetstr("cd");
	gen_CL = ttxgetstr("cl");
	gen_VS = ttxgetstr("vs");
	gen_VE = ttxgetstr("ve");
	gen_TI = ttxgetstr("ti");
	gen_TE = ttxgetstr("te");
	gen_SO = ttxgetstr("so");
	gen_SE = ttxgetstr("se");
	gen_US = ttxgetstr("us");
	gen_UE = ttxgetstr("ue");
	gen_LE = ttxgetstr("le");
	gen_ND = ttxgetstr("nd");
	gen_UP = ttxgetstr("up");
	gen_DO = ttxgetstr("do");
	gen_BC = ttxgetstr("bc");
	gen_NL = ttxgetstr("nl");
	gen_CR = ttxgetstr("cr");
	gen_HO = ttxgetstr("ho");
	gen_AS = ttxgetstr("as");
	gen_AE = ttxgetstr("ae");
	gen_XS = ttxgetstr("XS");
	gen_XE = ttxgetstr("XE");
	gen_SF = ttxgetstr("sf");
	gen_SFn = ttxgetstr("SF");
	gen_SR = ttxgetstr("sr");
	gen_SRn = ttxgetstr("SR");
	gen_CS = ttxgetstr("cs");
	gen_MI = tgetflag("mi");
	gen_MS = tgetflag("ms");
	gen_AM = tgetflag("am");
	gen_OS = tgetflag("os");
	gen_BS = tgetflag("bs");
	gen_DA = tgetflag("da");
	gen_DB = tgetflag("db");
	gen_NS = tgetflag("ns");
	gen_XN = tgetflag("xn");
	gen_CO = tgetnum("co");
	gen_LI = tgetnum("li");
	gen_UG = tgetnum("ug");
	gen_SG = tgetnum("sg");
	if (gen_CL == 0 || gen_OS || gen_CM == 0)
		return -1;

	/*
	 * Deal with obsolete termcap fields.
	 */
	if (gen_LE == 0) {
		if (gen_BC)
			gen_LE = gen_BC;
		else if (gen_BS) {
			static struct tt_str bc = { "\b", 1 };
			gen_BC = &bc;
		}
	}
	if (gen_NL == 0) {
		static struct tt_str nl = { "\n", 1 };
		gen_NL = &nl;
	}
	if (gen_DO == 0)
		gen_DO = gen_NL;
	if (gen_CR == 0) {
		static struct tt_str cr = { "\r", 1 };
		gen_CR = &cr;
	}
	/*
	 * Most terminal will scroll with "nl", but very few specify "sf".
	 * We shouldn't use "do" here.
	 */
	if (gen_SF == 0 && !gen_NS)
		gen_SF = gen_NL;
	BC = gen_LE ? __DECONST(char *, gen_LE->ts_str) : 0;
	UP = gen_UP ? __DECONST(char *, gen_UP->ts_str) : 0;
	/*
	 * Fix up display attributes that we can't handle, or don't
	 * really exist.
	 */
	if (gen_SG > 0)
		gen_SO = 0;
	if (gen_UG > 0 || (gen_US && gen_SO && ttstrcmp(gen_US, gen_SO) == 0))
		gen_US = 0;

	if (gen_IM && gen_IM->ts_n == 0) {
		free((char *) gen_IM);
		gen_IM = 0;
	}
	if (gen_EI && gen_EI->ts_n == 0) {
		free((char *) gen_EI);
		gen_EI = 0;
	}
	if (gen_IC && gen_IC->ts_n == 0) {
		free((char *) gen_IC);
		gen_IC = 0;
	}
	if (gen_IM)
		tt.tt_inschar = gen_inschar;
	else if (gen_IC)
		tt.tt_insspace = gen_insspace;
	if (gen_DC)
		tt.tt_delchar = gen_delchar;
	if (gen_AL)
		tt.tt_insline = gen_insline;
	if (gen_DL)
		tt.tt_delline = gen_delline;
	if (gen_CE)
		tt.tt_clreol = gen_clreol;
	if (gen_CD)
		tt.tt_clreos = gen_clreos;
	if (gen_SF)
		tt.tt_scroll_down = gen_scroll_down;
	/*
	 * Don't allow scroll_up if da or db but not cs.
	 * See comment in wwscroll.c.
	 */
	if (gen_SR && (gen_CS || (!gen_DA && !gen_DB)))
		tt.tt_scroll_up = gen_scroll_up;
	if (gen_CS)
		tt.tt_setscroll = gen_setscroll;
	if (gen_SO)
		tt.tt_availmodes |= WWM_REV;
	if (gen_US)
		tt.tt_availmodes |= WWM_UL;
	if (gen_AS)
		tt.tt_availmodes |= WWM_GRP;
	if (gen_XS)
		tt.tt_availmodes |= WWM_USR;
	tt.tt_wrap = gen_AM;
	tt.tt_retain = gen_DB;
	tt.tt_ncol = gen_CO;
	tt.tt_nrow = gen_LI;
	tt.tt_start = gen_start;
	tt.tt_end = gen_end;
	tt.tt_write = gen_write;
	tt.tt_putc = gen_putc;
	tt.tt_move = gen_move;
	tt.tt_clear = gen_clear;
	tt.tt_setmodes = gen_setmodes;
	tt.tt_frame = gen_AS && ttstrcmp(gen_AS, &ansi_AS) == 0 ?
		ansi_frame : gen_frame;
	return 0;
}
Commit	Line	Data
2c872e05	1	/* @(#)ttgeneric.c 8.1 (Berkeley) 6/6/93 */
abecab39 SW	2	/* $NetBSD: ttgeneric.c,v 1.10 2009/04/14 08:50:06 lukem Exp $ */
abecab39 SW	3
984263bc MD	4	/*
	5	* Copyright (c) 1983, 1993
	6	* The Regents of the University of California. All rights reserved.
	7	*
	8	* This code is derived from software contributed to Berkeley by
	9	* Edward Wang at The University of California, Berkeley.
	10	*
	11	* Redistribution and use in source and binary forms, with or without
	12	* modification, are permitted provided that the following conditions
	13	* are met:
	14	* 1. Redistributions of source code must retain the above copyright
	15	* notice, this list of conditions and the following disclaimer.
	16	* 2. Redistributions in binary form must reproduce the above copyright
	17	* notice, this list of conditions and the following disclaimer in the
	18	* documentation and/or other materials provided with the distribution.
abecab39	19	* 3. Neither the name of the University nor the names of its contributors
984263bc MD	20	* may be used to endorse or promote products derived from this software
	21	* without specific prior written permission.
	22	*
	23	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	24	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	25	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	26	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	27	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	28	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	29	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	30	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	31	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	32	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	33	* SUCH DAMAGE.
	34	*/
	35
abecab39 SW	36	#include <stdlib.h>
	37	#include <string.h>
	38	#include <termcap.h>
984263bc MD	39	#include "ww.h"
	40	#include "tt.h"
	41
	42	char PC, BC, UP;
abecab39	43	short ospeed;
984263bc MD	44
	45	/* normal frame */
	46	short gen_frame[16] = {
	47	' ', '\|', '-', '+',
	48	'\|', '\|', '+', '+',
	49	'-', '+', '-', '+',
	50	'+', '+', '+', '+'
	51	};
	52
	53	/* ANSI graphics frame */
	54	#define G (WWM_GRP << WWC_MSHIFT)
	55	short ansi_frame[16] = {
	56	' ', 'x'\|G, 'Q'\|G, 'm'\|G,
	57	'x'\|G, 'x'\|G, 'l'\|G, 't'\|G,
	58	'q'\|G, 'j'\|G, 'q'\|G, 'v'\|G,
	59	'k'\|G, 'u'\|G, 'w'\|G, 'n'\|G
	60	};
	61	struct tt_str ansi_AS = {
	62	"\033(0", 3
	63	};
	64
	65	struct tt_str *gen_PC;
	66	struct tt_str *gen_CM;
	67	struct tt_str *gen_IM;
	68	struct tt_str *gen_IC;
	69	struct tt_str *gen_ICn;
	70	struct tt_str *gen_IP;
	71	struct tt_str *gen_EI;
	72	struct tt_str *gen_DC;
	73	struct tt_str *gen_DCn;
	74	struct tt_str *gen_AL;
	75	struct tt_str *gen_ALn;
	76	struct tt_str *gen_DL;
	77	struct tt_str *gen_DLn;
	78	struct tt_str *gen_CE;
	79	struct tt_str *gen_CD;
	80	struct tt_str *gen_CL;
	81	struct tt_str *gen_VS;
	82	struct tt_str *gen_VE;
	83	struct tt_str *gen_TI;
	84	struct tt_str *gen_TE;
	85	struct tt_str *gen_SO;
	86	struct tt_str *gen_SE;
	87	struct tt_str *gen_US;
	88	struct tt_str *gen_UE;
	89	struct tt_str *gen_LE;
	90	struct tt_str *gen_ND;
	91	struct tt_str *gen_UP;
	92	struct tt_str *gen_DO;
	93	struct tt_str *gen_BC;
	94	struct tt_str *gen_NL;
	95	struct tt_str *gen_CR;
	96	struct tt_str *gen_HO;
	97	struct tt_str *gen_AS;
	98	struct tt_str *gen_AE;
	99	struct tt_str *gen_XS;
	100	struct tt_str *gen_XE;
	101	struct tt_str *gen_SF;
	102	struct tt_str *gen_SFn;
	103	struct tt_str *gen_SR;
	104	struct tt_str *gen_SRn;
	105	struct tt_str *gen_CS;
	106	char gen_MI;
	107	char gen_MS;
108	char gen_AM;
109	char gen_OS;
110	char gen_BS;
111	char gen_DA;
112	char gen_DB;
113	char gen_NS;
114	char gen_XN;
115	int gen_CO;
116	int gen_LI;
117	int gen_UG;
118	int gen_SG;
119
abecab39 SW	120	void gen_clear(void);
	121	void gen_clreol(void);
	122	void gen_clreos(void);
	123	void gen_delchar(int);
	124	void gen_delline(int);
	125	void gen_end(void);
	126	void gen_inschar(char);
	127	void gen_insline(int);
	128	void gen_insspace(int);
	129	void gen_move(int, int);
	130	void gen_putc(char);
	131	void gen_scroll_down(int);
	132	void gen_scroll_up(int);
	133	void gen_setinsert(char);
	134	void gen_setmodes(int);
	135	void gen_setscroll(int, int);
	136	void gen_start(void);
	137	void gen_write(const char *, int);
	138
	139	void
	140	gen_setinsert(char new)
984263bc MD	141	{
	142	if (new) {
	143	if (gen_IM)
	144	ttxputs(gen_IM);
	145	} else
	146	if (gen_EI)
	147	ttxputs(gen_EI);
	148	tt.tt_insert = new;
	149	}
	150
abecab39 SW	151	void
abecab39 SW	152	gen_setmodes(int new)
984263bc	153	{
abecab39	154	int diff;
984263bc MD	155
	156	diff = new ^ tt.tt_modes;
	157	if (diff & WWM_REV) {
	158	if (new & WWM_REV) {
	159	if (gen_SO)
	160	ttxputs(gen_SO);
	161	} else
abecab39	162	if (gen_SE) {
984263bc	163	ttxputs(gen_SE);
abecab39 SW	164	if (!strcmp(gen_SE->ts_str, gen_UE->ts_str) &&
	165	gen_UE && gen_US && new & WWM_UL)
	166	ttxputs(gen_US);
	167	}
984263bc MD	168	}
	169	if (diff & WWM_UL) {
	170	if (new & WWM_UL) {
	171	if (gen_US)
	172	ttxputs(gen_US);
	173	} else
abecab39	174	if (gen_UE) {
984263bc	175	ttxputs(gen_UE);
abecab39 SW	176	if (!strcmp(gen_UE->ts_str, gen_SE->ts_str) &&
	177	gen_SE && gen_SO && new & WWM_REV)
	178	ttxputs(gen_SO);
	179	}
984263bc MD	180	}
	181	if (diff & WWM_GRP) {
	182	if (new & WWM_GRP) {
	183	if (gen_AS)
	184	ttxputs(gen_AS);
	185	} else
	186	if (gen_AE)
	187	ttxputs(gen_AE);
	188	}
	189	if (diff & WWM_USR) {
	190	if (new & WWM_USR) {
	191	if (gen_XS)
	192	ttxputs(gen_XS);
	193	} else
	194	if (gen_XE)
	195	ttxputs(gen_XE);
	196	}
	197	tt.tt_modes = new;
	198	}
	199
abecab39 SW	200	void
abecab39 SW	201	gen_insline(int n)
984263bc MD	202	{
	203	if (tt.tt_modes) /* for concept 100 */
	204	gen_setmodes(0);
	205	if (gen_ALn)
	206	ttpgoto(gen_ALn, 0, n, gen_LI - tt.tt_row);
	207	else
	208	while (--n >= 0)
	209	tttputs(gen_AL, gen_LI - tt.tt_row);
	210	}
	211
abecab39 SW	212	void
abecab39 SW	213	gen_delline(int n)
984263bc MD	214	{
	215	if (tt.tt_modes) /* for concept 100 */
	216	gen_setmodes(0);
	217	if (gen_DLn)
	218	ttpgoto(gen_DLn, 0, n, gen_LI - tt.tt_row);
	219	else
	220	while (--n >= 0)
	221	tttputs(gen_DL, gen_LI - tt.tt_row);
	222	}
	223
abecab39 SW	224	void
abecab39 SW	225	gen_putc(char c)
984263bc MD	226	{
	227	if (tt.tt_insert)
	228	gen_setinsert(0);
	229	if (tt.tt_nmodes != tt.tt_modes)
	230	gen_setmodes(tt.tt_nmodes);
	231	ttputc(c);
abecab39	232	if (++tt.tt_col == gen_CO) {
984263bc MD	233	if (gen_XN)
	234	tt.tt_col = tt.tt_row = -10;
	235	else if (gen_AM)
	236	tt.tt_col = 0, tt.tt_row++;
	237	else
	238	tt.tt_col--;
abecab39	239	}
984263bc MD	240	}
984263bc MD	241
abecab39 SW	242	void
abecab39 SW	243	gen_write(const char *p, int n)
984263bc MD	244	{
	245	if (tt.tt_insert)
	246	gen_setinsert(0);
	247	if (tt.tt_nmodes != tt.tt_modes)
	248	gen_setmodes(tt.tt_nmodes);
	249	ttwrite(p, n);
	250	tt.tt_col += n;
abecab39	251	if (tt.tt_col == gen_CO) {
984263bc MD	252	if (gen_XN)
	253	tt.tt_col = tt.tt_row = -10;
	254	else if (gen_AM)
	255	tt.tt_col = 0, tt.tt_row++;
	256	else
	257	tt.tt_col--;
abecab39	258	}
984263bc MD	259	}
984263bc MD	260
abecab39 SW	261	void
abecab39 SW	262	gen_move(int row, int col)
984263bc MD	263	{
	264	if (tt.tt_row == row && tt.tt_col == col)
	265	return;
	266	if (!gen_MI && tt.tt_insert)
	267	gen_setinsert(0);
	268	if (!gen_MS && tt.tt_modes)
	269	gen_setmodes(0);
	270	if (row < tt.tt_scroll_top \|\| row > tt.tt_scroll_bot)
	271	gen_setscroll(0, tt.tt_nrow - 1);
	272	if (tt.tt_row == row) {
	273	if (col == 0) {
	274	ttxputs(gen_CR);
	275	goto out;
	276	}
	277	if (tt.tt_col == col - 1) {
	278	if (gen_ND) {
	279	ttxputs(gen_ND);
	280	goto out;
	281	}
	282	} else if (tt.tt_col == col + 1) {
	283	if (gen_LE) {
	284	ttxputs(gen_LE);
	285	goto out;
	286	}
	287	}
	288	}
	289	if (tt.tt_col == col) {
	290	if (tt.tt_row == row + 1) {
	291	if (gen_UP) {
	292	ttxputs(gen_UP);
	293	goto out;
	294	}
	295	} else if (tt.tt_row == row - 1) {
	296	ttxputs(gen_DO);
	297	goto out;
	298	}
	299	}
	300	if (gen_HO && col == 0 && row == 0) {
	301	ttxputs(gen_HO);
	302	goto out;
	303	}
	304	tttgoto(gen_CM, col, row);
	305	out:
	306	tt.tt_col = col;
	307	tt.tt_row = row;
	308	}
	309
abecab39 SW	310	void
abecab39 SW	311	gen_start(void)
984263bc MD	312	{
	313	if (gen_VS)
	314	ttxputs(gen_VS);
	315	if (gen_TI)
	316	ttxputs(gen_TI);
	317	ttxputs(gen_CL);
	318	tt.tt_col = tt.tt_row = 0;
	319	tt.tt_insert = 0;
	320	tt.tt_nmodes = tt.tt_modes = 0;
	321	}
	322
abecab39 SW	323	void
abecab39 SW	324	gen_end(void)
984263bc MD	325	{
	326	if (tt.tt_insert)
	327	gen_setinsert(0);
	328	if (gen_TE)
	329	ttxputs(gen_TE);
	330	if (gen_VE)
	331	ttxputs(gen_VE);
	332	}
	333
abecab39 SW	334	void
abecab39 SW	335	gen_clreol(void)
984263bc MD	336	{
	337	if (tt.tt_modes) /* for concept 100 */
	338	gen_setmodes(0);
	339	tttputs(gen_CE, gen_CO - tt.tt_col);
	340	}
	341
abecab39 SW	342	void
abecab39 SW	343	gen_clreos(void)
984263bc MD	344	{
	345	if (tt.tt_modes) /* for concept 100 */
	346	gen_setmodes(0);
	347	tttputs(gen_CD, gen_LI - tt.tt_row);
	348	}
	349
abecab39 SW	350	void
abecab39 SW	351	gen_clear(void)
984263bc MD	352	{
	353	if (tt.tt_modes) /* for concept 100 */
	354	gen_setmodes(0);
	355	ttxputs(gen_CL);
	356	}
	357
abecab39 SW	358	void
abecab39 SW	359	gen_inschar(char c)
984263bc MD	360	{
	361	if (!tt.tt_insert)
	362	gen_setinsert(1);
	363	if (tt.tt_nmodes != tt.tt_modes)
	364	gen_setmodes(tt.tt_nmodes);
	365	if (gen_IC)
	366	tttputs(gen_IC, gen_CO - tt.tt_col);
	367	ttputc(c);
	368	if (gen_IP)
	369	tttputs(gen_IP, gen_CO - tt.tt_col);
abecab39	370	if (++tt.tt_col == gen_CO) {
984263bc MD	371	if (gen_XN)
	372	tt.tt_col = tt.tt_row = -10;
	373	else if (gen_AM)
	374	tt.tt_col = 0, tt.tt_row++;
	375	else
	376	tt.tt_col--;
abecab39	377	}
984263bc MD	378	}
984263bc MD	379
abecab39 SW	380	void
abecab39 SW	381	gen_insspace(int n)
984263bc MD	382	{
	383	if (gen_ICn)
	384	ttpgoto(gen_ICn, 0, n, gen_CO - tt.tt_col);
	385	else
	386	while (--n >= 0)
	387	tttputs(gen_IC, gen_CO - tt.tt_col);
	388	}
	389
abecab39 SW	390	void
abecab39 SW	391	gen_delchar(int n)
984263bc MD	392	{
	393	if (gen_DCn)
	394	ttpgoto(gen_DCn, 0, n, gen_CO - tt.tt_col);
	395	else
	396	while (--n >= 0)
	397	tttputs(gen_DC, gen_CO - tt.tt_col);
	398	}
	399
abecab39 SW	400	void
abecab39 SW	401	gen_scroll_down(int n)
984263bc MD	402	{
	403	gen_move(tt.tt_scroll_bot, 0);
	404	if (gen_SFn)
	405	ttpgoto(gen_SFn, 0, n, n);
	406	else
	407	while (--n >= 0)
	408	ttxputs(gen_SF);
	409	}
	410
abecab39 SW	411	void
abecab39 SW	412	gen_scroll_up(int n)
984263bc MD	413	{
	414	gen_move(tt.tt_scroll_top, 0);
	415	if (gen_SRn)
	416	ttpgoto(gen_SRn, 0, n, n);
	417	else
	418	while (--n >= 0)
	419	ttxputs(gen_SR);
	420	}
	421
abecab39 SW	422	void
abecab39 SW	423	gen_setscroll(int top, int bot)
984263bc MD	424	{
	425	tttgoto(gen_CS, bot, top);
	426	tt.tt_scroll_top = top;
	427	tt.tt_scroll_bot = bot;
	428	tt.tt_row = tt.tt_col = -10;
	429	}
	430
abecab39 SW	431	int
abecab39 SW	432	tt_generic(void)
984263bc MD	433	{
	434	gen_PC = tttgetstr("pc");
	435	PC = gen_PC ? *gen_PC->ts_str : 0;
abecab39	436	ospeed = wwospeed;
984263bc MD	437
	438	gen_CM = ttxgetstr("cm"); /* may not work */
	439	gen_IM = ttxgetstr("im");
	440	gen_IC = tttgetstr("ic");
	441	gen_ICn = tttgetstr("IC");
	442	gen_IP = tttgetstr("ip");
	443	gen_EI = ttxgetstr("ei");
	444	gen_DC = tttgetstr("dc");
	445	gen_DCn = tttgetstr("DC");
	446	gen_AL = tttgetstr("al");
	447	gen_ALn = tttgetstr("AL");
	448	gen_DL = tttgetstr("dl");
	449	gen_DLn = tttgetstr("DL");
	450	gen_CE = tttgetstr("ce");
	451	gen_CD = tttgetstr("cd");
	452	gen_CL = ttxgetstr("cl");
	453	gen_VS = ttxgetstr("vs");
	454	gen_VE = ttxgetstr("ve");
	455	gen_TI = ttxgetstr("ti");
	456	gen_TE = ttxgetstr("te");
	457	gen_SO = ttxgetstr("so");
	458	gen_SE = ttxgetstr("se");
	459	gen_US = ttxgetstr("us");
	460	gen_UE = ttxgetstr("ue");
	461	gen_LE = ttxgetstr("le");
	462	gen_ND = ttxgetstr("nd");
	463	gen_UP = ttxgetstr("up");
	464	gen_DO = ttxgetstr("do");
	465	gen_BC = ttxgetstr("bc");
	466	gen_NL = ttxgetstr("nl");
	467	gen_CR = ttxgetstr("cr");
	468	gen_HO = ttxgetstr("ho");
	469	gen_AS = ttxgetstr("as");
	470	gen_AE = ttxgetstr("ae");
	471	gen_XS = ttxgetstr("XS");
	472	gen_XE = ttxgetstr("XE");
	473	gen_SF = ttxgetstr("sf");
	474	gen_SFn = ttxgetstr("SF");
	475	gen_SR = ttxgetstr("sr");
	476	gen_SRn = ttxgetstr("SR");
	477	gen_CS = ttxgetstr("cs");
	478	gen_MI = tgetflag("mi");
	479	gen_MS = tgetflag("ms");
	480	gen_AM = tgetflag("am");
	481	gen_OS = tgetflag("os");
	482	gen_BS = tgetflag("bs");
	483	gen_DA = tgetflag("da");
	484	gen_DB = tgetflag("db");
	485	gen_NS = tgetflag("ns");
	486	gen_XN = tgetflag("xn");
	487	gen_CO = tgetnum("co");
	488	gen_LI = tgetnum("li");
	489	gen_UG = tgetnum("ug");
	490	gen_SG = tgetnum("sg");
	491	if (gen_CL == 0 \|\| gen_OS \|\| gen_CM == 0)
	492	return -1;
	493
	494	/*
	495	* Deal with obsolete termcap fields.
	496	*/
abecab39	497	if (gen_LE == 0) {
984263bc MD	498	if (gen_BC)
	499	gen_LE = gen_BC;
	500	else if (gen_BS) {
	501	static struct tt_str bc = { "\b", 1 };
	502	gen_BC = &bc;
	503	}
abecab39	504	}
984263bc MD	505	if (gen_NL == 0) {
	506	static struct tt_str nl = { "\n", 1 };
	507	gen_NL = &nl;
	508	}
	509	if (gen_DO == 0)
	510	gen_DO = gen_NL;
	511	if (gen_CR == 0) {
	512	static struct tt_str cr = { "\r", 1 };
	513	gen_CR = &cr;
	514	}
	515	/*
	516	* Most terminal will scroll with "nl", but very few specify "sf".
	517	* We shouldn't use "do" here.
	518	*/
	519	if (gen_SF == 0 && !gen_NS)
	520	gen_SF = gen_NL;
abecab39 SW	521	BC = gen_LE ? __DECONST(char *, gen_LE->ts_str) : 0;
abecab39 SW	522	UP = gen_UP ? __DECONST(char *, gen_UP->ts_str) : 0;
984263bc MD	523	/*
	524	* Fix up display attributes that we can't handle, or don't
	525	* really exist.
	526	*/
	527	if (gen_SG > 0)
	528	gen_SO = 0;
abecab39	529	if (gen_UG > 0 \|\| (gen_US && gen_SO && ttstrcmp(gen_US, gen_SO) == 0))
984263bc MD	530	gen_US = 0;
	531
	532	if (gen_IM && gen_IM->ts_n == 0) {
	533	free((char *) gen_IM);
	534	gen_IM = 0;
	535	}
	536	if (gen_EI && gen_EI->ts_n == 0) {
	537	free((char *) gen_EI);
	538	gen_EI = 0;
	539	}
	540	if (gen_IC && gen_IC->ts_n == 0) {
	541	free((char *) gen_IC);
	542	gen_IC = 0;
	543	}
	544	if (gen_IM)
	545	tt.tt_inschar = gen_inschar;
	546	else if (gen_IC)
	547	tt.tt_insspace = gen_insspace;
	548	if (gen_DC)
	549	tt.tt_delchar = gen_delchar;
	550	if (gen_AL)
	551	tt.tt_insline = gen_insline;
	552	if (gen_DL)
	553	tt.tt_delline = gen_delline;
	554	if (gen_CE)
	555	tt.tt_clreol = gen_clreol;
	556	if (gen_CD)
	557	tt.tt_clreos = gen_clreos;
	558	if (gen_SF)
	559	tt.tt_scroll_down = gen_scroll_down;
	560	/*
	561	* Don't allow scroll_up if da or db but not cs.
	562	* See comment in wwscroll.c.
	563	*/
abecab39	564	if (gen_SR && (gen_CS \|\| (!gen_DA && !gen_DB)))
984263bc MD	565	tt.tt_scroll_up = gen_scroll_up;
	566	if (gen_CS)
	567	tt.tt_setscroll = gen_setscroll;
	568	if (gen_SO)
	569	tt.tt_availmodes \|= WWM_REV;
	570	if (gen_US)
	571	tt.tt_availmodes \|= WWM_UL;
	572	if (gen_AS)
	573	tt.tt_availmodes \|= WWM_GRP;
	574	if (gen_XS)
	575	tt.tt_availmodes \|= WWM_USR;
	576	tt.tt_wrap = gen_AM;
	577	tt.tt_retain = gen_DB;
	578	tt.tt_ncol = gen_CO;
	579	tt.tt_nrow = gen_LI;
	580	tt.tt_start = gen_start;
	581	tt.tt_end = gen_end;
	582	tt.tt_write = gen_write;
	583	tt.tt_putc = gen_putc;
	584	tt.tt_move = gen_move;
	585	tt.tt_clear = gen_clear;
	586	tt.tt_setmodes = gen_setmodes;
	587	tt.tt_frame = gen_AS && ttstrcmp(gen_AS, &ansi_AS) == 0 ?
	588	ansi_frame : gen_frame;
	589	return 0;
	590	}