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

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char sccsid[] = "@(#)ttgeneric.c	3.35 (Berkeley) %G%";
#endif /* not lint */

#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_CM;
struct tt_str *gen_IM;
struct tt_str *gen_IC;
struct tt_str *gen_IP;
struct tt_str *gen_EI;
struct tt_str *gen_DC;
struct tt_str *gen_AL;
struct tt_str *gen_DL;
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_UP;
struct tt_str *gen_PC;
struct tt_str *gen_BC;
struct tt_str *gen_ND;
struct tt_str *gen_HO;
struct tt_str *gen_NL;
struct tt_str *gen_CR;
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_SR;
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;

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

gen_setmodes(new)
register new;
{
	register 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 (diff & WWM_UL) {
		if (new & WWM_UL) {
			if (gen_US)
				ttxputs(gen_US);
		} else
			if (gen_UE)
				ttxputs(gen_UE);
	}
	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;
}

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

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

gen_putc(c)
register char c;
{
	if (tt.tt_ninsert != tt.tt_insert)
		gen_setinsert(tt.tt_ninsert);
	if (tt.tt_nmodes != tt.tt_modes)
		gen_setmodes(tt.tt_nmodes);
	if (tt.tt_insert) {
		if (gen_IC)
			tttputs(gen_IC, gen_CO - tt.tt_col);
		ttputc(c);
		if (gen_IP)
			tttputs(gen_IP, gen_CO - tt.tt_col);
	} else
		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--;
}

gen_write(p, n)
	register char *p;
	register n;
{
	if (tt.tt_ninsert != tt.tt_insert)
		gen_setinsert(tt.tt_ninsert);
	if (tt.tt_nmodes != tt.tt_modes)
		gen_setmodes(tt.tt_nmodes);
	if (tt.tt_insert && (gen_IC || gen_IP)) {
		while (--n >= 0) {
			if (gen_IC)
				tttputs(gen_IC, gen_CO - tt.tt_col);
			ttputc(*p++);
			if (gen_IP)
				tttputs(gen_IP, gen_CO - tt.tt_col);
			tt.tt_col++;
		}
	} else {
		tt.tt_col += n;
		ttwrite(p, 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--;
}

gen_move(row, col)
register int row, 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(tt.tt_nrow - 1, 0);
	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_BC) {
				ttxputs(gen_BC);
				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_NL);
			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;
}

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

gen_end()
{
	if (gen_TE)
		ttxputs(gen_TE);
	if (gen_VE)
		ttxputs(gen_VE);
}

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

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

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

gen_delchar()
{
	tttputs(gen_DC, gen_CO - tt.tt_col);
}

gen_scroll_down()
{
	gen_move(tt.tt_scroll_bot, 0);
	ttxputs(gen_SF);
}

gen_scroll_up()
{
	gen_move(tt.tt_scroll_top, 0);
	ttxputs(gen_SR);
}

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

tt_generic()
{
	gen_PC = tttgetstr("pc");
	PC = gen_PC ? *gen_PC->ts_str : 0;
	ospeed = wwoldtty.ww_sgttyb.sg_ospeed;

	gen_CM = ttxgetstr("cm");		/* may not work */
	gen_IM = ttxgetstr("im");
	gen_IC = tttgetstr("ic");
	gen_IP = tttgetstr("ip");
	gen_EI = ttxgetstr("ei");
	gen_DC = tttgetstr("dc");
	gen_AL = tttgetstr("al");
	gen_DL = 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_UP = ttxgetstr("up");
	gen_BC = ttxgetstr("bc");
	gen_ND = ttxgetstr("nd");
	gen_HO = ttxgetstr("ho");
	gen_NL = ttxgetstr("nl");
	gen_CR = ttxgetstr("cr");
	gen_AS = ttxgetstr("as");
	gen_AE = ttxgetstr("ae");
	gen_XS = ttxgetstr("XS");
	gen_XE = ttxgetstr("XE");
	gen_SF = ttxgetstr("sf");
	gen_SR = 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;

	if (gen_NL == 0) {
		static struct tt_str nl = { "\n", 1 };
		gen_NL = &nl;
	}
	if (gen_CR == 0) {
		static struct tt_str cr = { "\r", 1 };
		gen_CR = &cr;
	}
	if (gen_BC == 0 && gen_BS) {
		static struct tt_str bc = { "\b", 1 };
		gen_BC = &bc;
	}
	if (gen_SF == 0 && !gen_NS)
		gen_SF = gen_NL;
	BC = gen_BC ? gen_BC->ts_str : 0;
	UP = gen_UP ? gen_UP->ts_str : 0;

	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_SG > 0)
		gen_SO = 0;
	if (gen_UG > 0 || gen_US && gen_SO && ttstrcmp(gen_US, gen_SO) == 0)
		gen_US = 0;
	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_hasinsert = gen_IM != 0;
	tt.tt_wrap = gen_AM;
	tt.tt_retain = gen_DB;
	tt.tt_ncol = gen_CO;
	tt.tt_nrow = gen_LI;
	tt.tt_init = gen_init;
	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_setinsert = gen_setinsert;
	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
60de5df9	1	/*
46e9ea25 KB	2	* Copyright (c) 1983 Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms are permitted
5e8b0e60 KB	6	* provided that the above copyright notice and this paragraph are
	7	* duplicated in all such forms and that any documentation,
	8	* advertising materials, and other materials related to such
	9	* distribution and use acknowledge that the software was developed
	10	* by the University of California, Berkeley. The name of the
	11	* University may not be used to endorse or promote products derived
	12	* from this software without specific prior written permission.
	13	* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
	14	* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
	15	* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
60de5df9 EW	16	*/
60de5df9 EW	17
46e9ea25	18	#ifndef lint
5e8b0e60	19	static char sccsid[] = "@(#)ttgeneric.c 3.35 (Berkeley) %G%";
46e9ea25 KB	20	#endif /* not lint */
46e9ea25 KB	21
73f690a1	22	#include "ww.h"
fff1d01b	23	#include "tt.h"
73f690a1	24
769cbf09 EW	25	char PC, BC, UP;
769cbf09 EW	26	short ospeed;
94c16993	27
a6a7cd35	28	/* normal frame */
a830e8bb	29	short gen_frame[16] = {
73f690a1 EW	30	' ', '\|', '-', '+',
73f690a1 EW	31	'\|', '\|', '+', '+',
fff1d01b	32	'-', '+', '-', '+',
73f690a1 EW	33	'+', '+', '+', '+'
	34	};
	35
a6a7cd35 EW	36	/* ANSI graphics frame */
	37	#define G (WWM_GRP << WWC_MSHIFT)
	38	short ansi_frame[16] = {
	39	' ', 'x'\|G, 'Q'\|G, 'm'\|G,
	40	'x'\|G, 'x'\|G, 'l'\|G, 't'\|G,
	41	'q'\|G, 'j'\|G, 'q'\|G, 'v'\|G,
	42	'k'\|G, 'u'\|G, 'w'\|G, 'n'\|G
	43	};
b16d80c6 EW	44	struct tt_str ansi_AS = {
	45	"\033(0", 3
	46	};
a6a7cd35	47
e1daf7d6 EW	48	struct tt_str *gen_CM;
	49	struct tt_str *gen_IM;
	50	struct tt_str *gen_IC;
	51	struct tt_str *gen_IP;
	52	struct tt_str *gen_EI;
	53	struct tt_str *gen_DC;
	54	struct tt_str *gen_AL;
	55	struct tt_str *gen_DL;
	56	struct tt_str *gen_CE;
	57	struct tt_str *gen_CD;
	58	struct tt_str *gen_CL;
	59	struct tt_str *gen_VS;
	60	struct tt_str *gen_VE;
	61	struct tt_str *gen_TI;
	62	struct tt_str *gen_TE;
	63	struct tt_str *gen_SO;
	64	struct tt_str *gen_SE;
	65	struct tt_str *gen_US;
	66	struct tt_str *gen_UE;
	67	struct tt_str *gen_UP;
	68	struct tt_str *gen_PC;
	69	struct tt_str *gen_BC;
	70	struct tt_str *gen_ND;
	71	struct tt_str *gen_HO;
	72	struct tt_str *gen_NL;
16ea9636	73	struct tt_str *gen_CR;
e1daf7d6 EW	74	struct tt_str *gen_AS;
e1daf7d6 EW	75	struct tt_str *gen_AE;
a6833679 EW	76	struct tt_str *gen_XS;
a6833679 EW	77	struct tt_str *gen_XE;
16ea9636 EW	78	struct tt_str *gen_SF;
	79	struct tt_str *gen_SR;
	80	struct tt_str *gen_CS;
745d1a08 EW	81	char gen_MI;
	82	char gen_MS;
	83	char gen_AM;
	84	char gen_OS;
	85	char gen_BS;
16ea9636	86	char gen_DA;
377a2410	87	char gen_DB;
df7b254b	88	char gen_NS;
b16d80c6	89	char gen_XN;
745d1a08 EW	90	int gen_CO;
745d1a08 EW	91	int gen_LI;
3babdf29 EW	92	int gen_UG;
3babdf29 EW	93	int gen_SG;
745d1a08	94
73f690a1 EW	95	gen_setinsert(new)
	96	char new;
	97	{
745d1a08 EW	98	if (new) {
745d1a08 EW	99	if (gen_IM)
e1daf7d6	100	ttxputs(gen_IM);
745d1a08 EW	101	} else
745d1a08 EW	102	if (gen_EI)
e1daf7d6	103	ttxputs(gen_EI);
3130283e	104	tt.tt_insert = new;
73f690a1 EW	105	}
	106
	107	gen_setmodes(new)
745d1a08	108	register new;
73f690a1	109	{
745d1a08 EW	110	register diff;
745d1a08 EW	111
3130283e	112	diff = new ^ tt.tt_modes;
745d1a08 EW	113	if (diff & WWM_REV) {
	114	if (new & WWM_REV) {
	115	if (gen_SO)
e1daf7d6	116	ttxputs(gen_SO);
745d1a08 EW	117	} else
745d1a08 EW	118	if (gen_SE)
e1daf7d6	119	ttxputs(gen_SE);
745d1a08 EW	120	}
	121	if (diff & WWM_UL) {
	122	if (new & WWM_UL) {
	123	if (gen_US)
e1daf7d6	124	ttxputs(gen_US);
745d1a08 EW	125	} else
745d1a08 EW	126	if (gen_UE)
e1daf7d6	127	ttxputs(gen_UE);
745d1a08	128	}
a830e8bb EW	129	if (diff & WWM_GRP) {
a830e8bb EW	130	if (new & WWM_GRP) {
a64e9887	131	if (gen_AS)
e1daf7d6	132	ttxputs(gen_AS);
a830e8bb	133	} else
a64e9887	134	if (gen_AE)
e1daf7d6	135	ttxputs(gen_AE);
a830e8bb	136	}
a6833679 EW	137	if (diff & WWM_USR) {
	138	if (new & WWM_USR) {
	139	if (gen_XS)
	140	ttxputs(gen_XS);
	141	} else
	142	if (gen_XE)
	143	ttxputs(gen_XE);
	144	}
3130283e	145	tt.tt_modes = new;
73f690a1 EW	146	}
	147
	148	gen_insline()
	149	{
3130283e EW	150	if (tt.tt_modes) /* for concept 100 */
3130283e EW	151	gen_setmodes(0);
745d1a08	152	if (gen_AL)
b1189050	153	tttputs(gen_AL, gen_LI - tt.tt_row);
73f690a1 EW	154	}
	155
	156	gen_delline()
	157	{
3130283e EW	158	if (tt.tt_modes) /* for concept 100 */
3130283e EW	159	gen_setmodes(0);
745d1a08	160	if (gen_DL)
b1189050	161	tttputs(gen_DL, gen_LI - tt.tt_row);
73f690a1 EW	162	}
	163
	164	gen_putc(c)
	165	register char c;
	166	{
3130283e EW	167	if (tt.tt_ninsert != tt.tt_insert)
	168	gen_setinsert(tt.tt_ninsert);
	169	if (tt.tt_nmodes != tt.tt_modes)
	170	gen_setmodes(tt.tt_nmodes);
	171	if (tt.tt_insert) {
745d1a08	172	if (gen_IC)
b1189050 EW	173	tttputs(gen_IC, gen_CO - tt.tt_col);
b1189050 EW	174	ttputc(c);
745d1a08	175	if (gen_IP)
b1189050	176	tttputs(gen_IP, gen_CO - tt.tt_col);
745d1a08	177	} else
b1189050	178	ttputc(c);
3130283e	179	if (++tt.tt_col == gen_CO)
b16d80c6 EW	180	if (gen_XN)
	181	tt.tt_col = tt.tt_row = -10;
	182	else if (gen_AM)
3130283e	183	tt.tt_col = 0, tt.tt_row++;
5e785082	184	else
3130283e	185	tt.tt_col--;
73f690a1 EW	186	}
73f690a1 EW	187
3130283e	188	gen_write(p, n)
e1daf7d6 EW	189	register char *p;
e1daf7d6 EW	190	register n;
73f690a1	191	{
3130283e EW	192	if (tt.tt_ninsert != tt.tt_insert)
	193	gen_setinsert(tt.tt_ninsert);
	194	if (tt.tt_nmodes != tt.tt_modes)
	195	gen_setmodes(tt.tt_nmodes);
e1daf7d6	196	if (tt.tt_insert && (gen_IC \|\| gen_IP)) {
73f690a1	197	while (--n >= 0) {
745d1a08	198	if (gen_IC)
b1189050 EW	199	tttputs(gen_IC, gen_CO - tt.tt_col);
b1189050 EW	200	ttputc(*p++);
745d1a08	201	if (gen_IP)
b1189050	202	tttputs(gen_IP, gen_CO - tt.tt_col);
3130283e	203	tt.tt_col++;
73f690a1 EW	204	}
73f690a1 EW	205	} else {
3130283e	206	tt.tt_col += n;
e1daf7d6	207	ttwrite(p, n);
73f690a1	208	}
3130283e	209	if (tt.tt_col == gen_CO)
b16d80c6 EW	210	if (gen_XN)
	211	tt.tt_col = tt.tt_row = -10;
	212	else if (gen_AM)
3130283e	213	tt.tt_col = 0, tt.tt_row++;
5e785082	214	else
3130283e	215	tt.tt_col--;
73f690a1 EW	216	}
	217
	218	gen_move(row, col)
1306887c	219	register int row, col;
73f690a1	220	{
3130283e	221	if (tt.tt_row == row && tt.tt_col == col)
745d1a08	222	return;
3130283e EW	223	if (!gen_MI && tt.tt_insert)
	224	gen_setinsert(0);
	225	if (!gen_MS && tt.tt_modes)
	226	gen_setmodes(0);
16ea9636 EW	227	if (row < tt.tt_scroll_top \|\| row > tt.tt_scroll_bot)
16ea9636 EW	228	gen_setscroll(tt.tt_nrow - 1, 0);
3130283e	229	if (tt.tt_row == row) {
16ea9636 EW	230	if (col == 0) {
	231	ttxputs(gen_CR);
	232	goto out;
	233	}
3130283e	234	if (tt.tt_col == col - 1) {
745d1a08	235	if (gen_ND) {
e1daf7d6	236	ttxputs(gen_ND);
745d1a08 EW	237	goto out;
745d1a08 EW	238	}
3130283e	239	} else if (tt.tt_col == col + 1) {
745d1a08	240	if (gen_BC) {
e1daf7d6	241	ttxputs(gen_BC);
745d1a08 EW	242	goto out;
745d1a08 EW	243	}
73f690a1 EW	244	}
73f690a1 EW	245	}
3130283e EW	246	if (tt.tt_col == col) {
3130283e EW	247	if (tt.tt_row == row + 1) {
745d1a08	248	if (gen_UP) {
e1daf7d6	249	ttxputs(gen_UP);
745d1a08 EW	250	goto out;
745d1a08 EW	251	}
3130283e	252	} else if (tt.tt_row == row + 1) {
e1daf7d6 EW	253	ttxputs(gen_NL);
e1daf7d6 EW	254	goto out;
73f690a1 EW	255	}
73f690a1 EW	256	}
745d1a08	257	if (gen_HO && col == 0 && row == 0) {
e1daf7d6	258	ttxputs(gen_HO);
73f690a1 EW	259	goto out;
73f690a1 EW	260	}
e1daf7d6	261	tttgoto(gen_CM, col, row);
73f690a1	262	out:
3130283e EW	263	tt.tt_col = col;
3130283e EW	264	tt.tt_row = row;
73f690a1 EW	265	}
	266
	267	gen_init()
73f690a1	268	{
745d1a08	269	if (gen_VS)
e1daf7d6	270	ttxputs(gen_VS);
7d9e29c8	271	if (gen_TI)
e1daf7d6 EW	272	ttxputs(gen_TI);
e1daf7d6 EW	273	ttxputs(gen_CL);
3130283e EW	274	tt.tt_col = tt.tt_row = 0;
	275	tt.tt_ninsert = tt.tt_insert = 0;
	276	tt.tt_nmodes = tt.tt_modes = 0;
73f690a1 EW	277	}
73f690a1 EW	278
fff1d01b	279	gen_end()
73f690a1	280	{
7d9e29c8	281	if (gen_TE)
e1daf7d6	282	ttxputs(gen_TE);
745d1a08	283	if (gen_VE)
e1daf7d6	284	ttxputs(gen_VE);
73f690a1 EW	285	}
	286
	287	gen_clreol()
	288	{
3130283e EW	289	if (tt.tt_modes) /* for concept 100 */
3130283e EW	290	gen_setmodes(0);
e1daf7d6	291	tttputs(gen_CE, gen_CO - tt.tt_col);
73f690a1 EW	292	}
	293
	294	gen_clreos()
	295	{
3130283e EW	296	if (tt.tt_modes) /* for concept 100 */
3130283e EW	297	gen_setmodes(0);
e1daf7d6	298	tttputs(gen_CD, gen_LI - tt.tt_row);
73f690a1 EW	299	}
	300
	301	gen_clear()
	302	{
3130283e EW	303	if (tt.tt_modes) /* for concept 100 */
3130283e EW	304	gen_setmodes(0);
e1daf7d6	305	ttxputs(gen_CL);
73f690a1 EW	306	}
	307
	308	gen_delchar()
	309	{
e1daf7d6	310	tttputs(gen_DC, gen_CO - tt.tt_col);
73f690a1 EW	311	}
73f690a1 EW	312
16ea9636 EW	313	gen_scroll_down()
	314	{
	315	gen_move(tt.tt_scroll_bot, 0);
	316	ttxputs(gen_SF);
	317	}
	318
	319	gen_scroll_up()
	320	{
	321	gen_move(tt.tt_scroll_top, 0);
	322	ttxputs(gen_SR);
	323	}
	324
	325	gen_setscroll(top, bot)
	326	{
	327	tttgoto(gen_CS, bot, top);
	328	tt.tt_scroll_top = top;
	329	tt.tt_scroll_bot = bot;
	330	tt.tt_row = tt.tt_col = -10;
	331	}
	332
73f690a1 EW	333	tt_generic()
73f690a1 EW	334	{
e1daf7d6 EW	335	gen_PC = tttgetstr("pc");
	336	PC = gen_PC ? *gen_PC->ts_str : 0;
	337	ospeed = wwoldtty.ww_sgttyb.sg_ospeed;
	338
b1189050 EW	339	gen_CM = ttxgetstr("cm"); /* may not work */
	340	gen_IM = ttxgetstr("im");
	341	gen_IC = tttgetstr("ic");
	342	gen_IP = tttgetstr("ip");
	343	gen_EI = ttxgetstr("ei");
	344	gen_DC = tttgetstr("dc");
	345	gen_AL = tttgetstr("al");
	346	gen_DL = tttgetstr("dl");
	347	gen_CE = tttgetstr("ce");
	348	gen_CD = tttgetstr("cd");
	349	gen_CL = ttxgetstr("cl");
	350	gen_VS = ttxgetstr("vs");
	351	gen_VE = ttxgetstr("ve");
	352	gen_TI = ttxgetstr("ti");
	353	gen_TE = ttxgetstr("te");
	354	gen_SO = ttxgetstr("so");
	355	gen_SE = ttxgetstr("se");
	356	gen_US = ttxgetstr("us");
	357	gen_UE = ttxgetstr("ue");
	358	gen_UP = ttxgetstr("up");
b1189050 EW	359	gen_BC = ttxgetstr("bc");
	360	gen_ND = ttxgetstr("nd");
	361	gen_HO = ttxgetstr("ho");
	362	gen_NL = ttxgetstr("nl");
16ea9636	363	gen_CR = ttxgetstr("cr");
b1189050 EW	364	gen_AS = ttxgetstr("as");
b1189050 EW	365	gen_AE = ttxgetstr("ae");
a6833679 EW	366	gen_XS = ttxgetstr("XS");
a6833679 EW	367	gen_XE = ttxgetstr("XE");
16ea9636 EW	368	gen_SF = ttxgetstr("sf");
	369	gen_SR = ttxgetstr("sr");
	370	gen_CS = ttxgetstr("cs");
745d1a08 EW	371	gen_MI = tgetflag("mi");
	372	gen_MS = tgetflag("ms");
	373	gen_AM = tgetflag("am");
	374	gen_OS = tgetflag("os");
	375	gen_BS = tgetflag("bs");
16ea9636	376	gen_DA = tgetflag("da");
377a2410	377	gen_DB = tgetflag("db");
df7b254b	378	gen_NS = tgetflag("ns");
b16d80c6	379	gen_XN = tgetflag("xn");
745d1a08 EW	380	gen_CO = tgetnum("co");
745d1a08 EW	381	gen_LI = tgetnum("li");
3babdf29 EW	382	gen_UG = tgetnum("ug");
3babdf29 EW	383	gen_SG = tgetnum("sg");
16ea9636 EW	384	if (gen_CL == 0 \|\| gen_OS \|\| gen_CM == 0)
16ea9636 EW	385	return -1;
745d1a08	386
e1daf7d6 EW	387	if (gen_NL == 0) {
	388	static struct tt_str nl = { "\n", 1 };
	389	gen_NL = &nl;
	390	}
16ea9636 EW	391	if (gen_CR == 0) {
	392	static struct tt_str cr = { "\r", 1 };
	393	gen_CR = &cr;
	394	}
e1daf7d6 EW	395	if (gen_BC == 0 && gen_BS) {
	396	static struct tt_str bc = { "\b", 1 };
	397	gen_BC = &bc;
	398	}
16ea9636 EW	399	if (gen_SF == 0 && !gen_NS)
16ea9636 EW	400	gen_SF = gen_NL;
e1daf7d6 EW	401	BC = gen_BC ? gen_BC->ts_str : 0;
e1daf7d6 EW	402	UP = gen_UP ? gen_UP->ts_str : 0;
745d1a08	403
745d1a08 EW	404	if (gen_DC)
	405	tt.tt_delchar = gen_delchar;
	406	if (gen_AL)
	407	tt.tt_insline = gen_insline;
	408	if (gen_DL)
	409	tt.tt_delline = gen_delline;
	410	if (gen_CE)
	411	tt.tt_clreol = gen_clreol;
	412	if (gen_CD)
	413	tt.tt_clreos = gen_clreos;
16ea9636 EW	414	if (gen_SF)
	415	tt.tt_scroll_down = gen_scroll_down;
	416	/*
	417	* Don't allow scroll_up if da or db but not cs.
	418	* See comment in wwscroll.c.
	419	*/
	420	if (gen_SR && (gen_CS \|\| !gen_DA && !gen_DB))
	421	tt.tt_scroll_up = gen_scroll_up;
	422	if (gen_CS)
	423	tt.tt_setscroll = gen_setscroll;
3babdf29 EW	424	if (gen_SG > 0)
3babdf29 EW	425	gen_SO = 0;
b16d80c6	426	if (gen_UG > 0 \|\| gen_US && gen_SO && ttstrcmp(gen_US, gen_SO) == 0)
3babdf29	427	gen_US = 0;
5e785082 EW	428	if (gen_SO)
	429	tt.tt_availmodes \|= WWM_REV;
	430	if (gen_US)
	431	tt.tt_availmodes \|= WWM_UL;
a64e9887 EW	432	if (gen_AS)
a64e9887 EW	433	tt.tt_availmodes \|= WWM_GRP;
a6833679 EW	434	if (gen_XS)
a6833679 EW	435	tt.tt_availmodes \|= WWM_USR;
3130283e	436	tt.tt_hasinsert = gen_IM != 0;
5e785082	437	tt.tt_wrap = gen_AM;
377a2410	438	tt.tt_retain = gen_DB;
745d1a08	439	tt.tt_ncol = gen_CO;
745d1a08	440	tt.tt_nrow = gen_LI;
73f690a1	441	tt.tt_init = gen_init;
fff1d01b	442	tt.tt_end = gen_end;
73f690a1 EW	443	tt.tt_write = gen_write;
73f690a1 EW	444	tt.tt_putc = gen_putc;
745d1a08	445	tt.tt_move = gen_move;
e1daf7d6	446	tt.tt_clear = gen_clear;
c1a57462 EW	447	tt.tt_setinsert = gen_setinsert;
c1a57462 EW	448	tt.tt_setmodes = gen_setmodes;
b16d80c6 EW	449	tt.tt_frame = gen_AS && ttstrcmp(gen_AS, &ansi_AS) == 0 ?
b16d80c6 EW	450	ansi_frame : gen_frame;
73f690a1 EW	451	return 0;
73f690a1 EW	452	}