[apple/shell_cmds.git] / window / ttzapple.c

/*	$NetBSD: ttzapple.c,v 1.4 1997/11/21 08:36:42 lukem Exp $	*/

/*
 * Copyright (c) 1989, 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. 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 <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)ttzapple.c	8.1 (Berkeley) 6/6/93";
#else
__RCSID("$NetBSD: ttzapple.c,v 1.4 1997/11/21 08:36:42 lukem Exp $");
#endif
#endif /* not lint */

#include <stdio.h>
#include "ww.h"
#include "tt.h"
#include "char.h"

/*
zz|zapple|perfect apple:\
	:am:pt:co#80:li#24:le=^H:nd=^F:up=^K:do=^J:\
	:ho=\E0:ll=\E1:cm=\E=%+ %+ :ch=\E<%+ :cv=\E>%+ :\
	:cl=\E4:ce=\E2:cd=\E3:rp=\E@%.%+ :\
	:so=\E+:se=\E-:\
	:dc=\Ec:DC=\EC%+ :ic=\Ei:IC=\EI%+ :\
	:al=\Ea:AL=\EA%+ :dl=\Ed:DL=\ED%+ :\
	:sf=\Ef:SF=\EF%+ :sr=\Er:SR=\ER%+ :cs=\E?%+ %+ :\
	:is=\E-\ET :
*/

#define NCOL		80
#define NROW		24
#define TOKEN_MAX	32

extern short gen_frame[];

	/* for error correction */
int zz_ecc;
int zz_lastc;

	/* for checkpointing */
int zz_sum;

void	zz_checkpoint __P((void));
void	zz_checksum __P((char *, int));
void	zz_clear __P((void));
void	zz_clreol __P((void));
void	zz_clreos __P((void));
void	zz_compress __P((int));
void	zz_delchar __P((int));
void	zz_delline __P((int));
void	zz_end __P((void));
void	zz_insline __P((int));
void	zz_insspace __P((int));
void	zz_move __P((int, int));
void	zz_put_token __P((int, char *, int));
void	zz_putc __P((char));
void	zz_reset __P((void));
int	zz_rint __P((char *, int));
void	zz_scroll_down __P((int));
void	zz_scroll_up __P((int));
void	zz_setmodes __P((int));
void	zz_setscroll __P((int, int));
void	zz_set_token __P((int, char *, int));
void	zz_start __P((void));
void	zz_write __P((char *, int));

void
zz_setmodes(new)
	int new;
{
	if (new & WWM_REV) {
		if ((tt.tt_modes & WWM_REV) == 0)
			ttesc('+');
	} else
		if (tt.tt_modes & WWM_REV)
			ttesc('-');
	tt.tt_modes = new;
}

void
zz_insline(n)
	int n;
{
	if (n == 1)
		ttesc('a');
	else {
		ttesc('A');
		ttputc(n + ' ');
	}
}

void
zz_delline(n)
	int n;
{
	if (n == 1)
		ttesc('d');
	else {
		ttesc('D');
		ttputc(n + ' ');
	}
}

void
zz_putc(c)
	char c;
{
	if (tt.tt_nmodes != tt.tt_modes)
		zz_setmodes(tt.tt_nmodes);
	ttputc(c);
	if (++tt.tt_col == NCOL)
		tt.tt_col = 0, tt.tt_row++;
}

void
zz_write(p, n)
	char *p;
	int n;
{
	if (tt.tt_nmodes != tt.tt_modes)
		zz_setmodes(tt.tt_nmodes);
	ttwrite(p, n);
	tt.tt_col += n;
	if (tt.tt_col == NCOL)
		tt.tt_col = 0, tt.tt_row++;
}

void
zz_move(row, col)
	int row, col;
{
	int x;

	if (tt.tt_row == row) {
same_row:
		if ((x = col - tt.tt_col) == 0)
			return;
		if (col == 0) {
			ttctrl('m');
			goto out;
		}
		switch (x) {
		case 2:
			ttctrl('f');
		case 1:
			ttctrl('f');
			goto out;
		case -2:
			ttctrl('h');
		case -1:
			ttctrl('h');
			goto out;
		}
		if ((col & 7) == 0 && x > 0 && x <= 16) {
			ttctrl('i');
			if (x > 8)
				ttctrl('i');
			goto out;
		}
		ttesc('<');
		ttputc(col + ' ');
		goto out;
	}
	if (tt.tt_col == col) {
		switch (row - tt.tt_row) {
		case 2:
			ttctrl('j');
		case 1:
			ttctrl('j');
			goto out;
		case -2:
			ttctrl('k');
		case -1:
			ttctrl('k');
			goto out;
		}
		if (col == 0) {
			if (row == 0)
				goto home;
			if (row == NROW - 1)
				goto ll;
		}
		ttesc('>');
		ttputc(row + ' ');
		goto out;
	}
	if (col == 0) {
		if (row == 0) {
home:
			ttesc('0');
			goto out;
		}
		if (row == tt.tt_row + 1) {
			/*
			 * Do newline first to match the sequence
			 * for scroll down and return
			 */
			ttctrl('j');
			ttctrl('m');
			goto out;
		}
		if (row == NROW - 1) {
ll:
			ttesc('1');
			goto out;
		}
	}
	/* favor local motion for better compression */
	if (row == tt.tt_row + 1) {
		ttctrl('j');
		goto same_row;
	}
	if (row == tt.tt_row - 1) {
		ttctrl('k');
		goto same_row;
	}
	ttesc('=');
	ttputc(' ' + row);
	ttputc(' ' + col);
out:
	tt.tt_col = col;
	tt.tt_row = row;
}

void
zz_start()
{
	ttesc('T');
	ttputc(TOKEN_MAX + ' ');
	ttesc('U');
	ttputc('!');
	zz_ecc = 1;
	zz_lastc = -1;
	ttesc('v');
	ttflush();
	zz_sum = 0;
	zz_setscroll(0, NROW - 1);
	zz_clear();
	zz_setmodes(0);
}

void
zz_reset()
{
	zz_setscroll(0, NROW - 1);
	tt.tt_modes = WWM_REV;
	zz_setmodes(0);
	tt.tt_col = tt.tt_row = -10;
}

void
zz_end()
{
	ttesc('T');
	ttputc(' ');
	ttesc('U');
	ttputc(' ');
	zz_ecc = 0;
}

void
zz_clreol()
{
	ttesc('2');
}

void
zz_clreos()
{
	ttesc('3');
}

void
zz_clear()
{
	ttesc('4');
	tt.tt_col = tt.tt_row = 0;
}

void
zz_insspace(n)
	int n;
{
	if (n == 1)
		ttesc('i');
	else {
		ttesc('I');
		ttputc(n + ' ');
	}
}

void
zz_delchar(n)
	int n;
{
	if (n == 1)
		ttesc('c');
	else {
		ttesc('C');
		ttputc(n + ' ');
	}
}

void
zz_scroll_down(n)
	int n;
{
	if (n == 1)
		if (tt.tt_row == NROW - 1)
			ttctrl('j');
		else
			ttesc('f');
	else {
		ttesc('F');
		ttputc(n + ' ');
	}
}

void
zz_scroll_up(n)
	int n;
{
	if (n == 1)
		ttesc('r');
	else {
		ttesc('R');
		ttputc(n + ' ');
	}
}

void
zz_setscroll(top, bot)
	int top, bot;
{
	ttesc('?');
	ttputc(top + ' ');
	ttputc(bot + ' ');
	tt.tt_scroll_top = top;
	tt.tt_scroll_bot = bot;
}

int zz_debug = 0;

void
zz_set_token(t, s, n)
	int t;
	char *s;
	int n;
{
	if (tt.tt_nmodes != tt.tt_modes)
		zz_setmodes(tt.tt_nmodes);
	if (zz_debug) {
		char buf[100];
		zz_setmodes(WWM_REV);
		(void) sprintf(buf, "%02x=", t);
		ttputs(buf);
		tt.tt_col += 3;
	}
	ttputc(0x80);
	ttputc(t + 1);
	s[n - 1] |= 0x80;
	ttwrite(s, n);
	s[n - 1] &= ~0x80;
}

void
zz_put_token(t, s, n)
	int t;
	char *s;
	int n;
{
	if (tt.tt_nmodes != tt.tt_modes)
		zz_setmodes(tt.tt_nmodes);
	if (zz_debug) {
		char buf[100];
		zz_setmodes(WWM_REV);
		(void) sprintf(buf, "%02x>", t);
		ttputs(buf);
		tt.tt_col += 3;
	}
	ttputc(t + 0x81);
}

int
zz_rint(p, n)
	char *p;
	int n;
{
	int i;
	char *q;

	if (!zz_ecc)
		return n;
	for (i = n, q = p; --i >= 0;) {
		int c = (unsigned char) *p++;

		if (zz_lastc == 0) {
			switch (c) {
			case 0:
				*q++ = 0;
				zz_lastc = -1;
				break;
			case 1:		/* start input ecc */
				zz_ecc = 2;
				zz_lastc = -1;
				wwnreadstat++;
				break;
			case 2:		/* ack checkpoint */
				tt.tt_ack = 1;
				zz_lastc = -1;
				wwnreadack++;
				break;
			case 3:		/* nack checkpoint */
				tt.tt_ack = -1;
				zz_lastc = -1;
				wwnreadnack++;
				break;
			default:
				zz_lastc = c;
				wwnreadec++;
			}
		} else if (zz_ecc == 1) {
			if (c)
				*q++ = c;
			else
				zz_lastc = 0;
		} else {
			if (zz_lastc < 0) {
				zz_lastc = c;
			} else if (zz_lastc == c) {
				*q++ = zz_lastc;
				zz_lastc = -1;
			} else {
				wwnreadec++;
				zz_lastc = c;
			}
		}
	}
	return q - (p - n);
}

void
zz_checksum(p, n)
	char *p;
	int n;
{
	while (--n >= 0) {
		int c = *p++ & 0x7f;
		c ^= zz_sum;
		zz_sum = c << 1 | (c >> 11 & 1);
	}
}

void
zz_compress(flag)
	int flag;
{
	if (flag)
		tt.tt_checksum = 0;
	else
		tt.tt_checksum = zz_checksum;
}

void
zz_checkpoint()
{
	static char x[] = { ctrl('['), 'V', 0, 0 };

	zz_checksum(x, sizeof x);
	ttesc('V');
	ttputc(' ' + (zz_sum & 0x3f));
	ttputc(' ' + (zz_sum >> 6 & 0x3f));
	ttflush();
	zz_sum = 0;
}

int
tt_zapple()
{
	tt.tt_insspace = zz_insspace;
	tt.tt_delchar = zz_delchar;
	tt.tt_insline = zz_insline;
	tt.tt_delline = zz_delline;
	tt.tt_clreol = zz_clreol;
	tt.tt_clreos = zz_clreos;
	tt.tt_scroll_down = zz_scroll_down;
	tt.tt_scroll_up = zz_scroll_up;
	tt.tt_setscroll = zz_setscroll;
	tt.tt_availmodes = WWM_REV;
	tt.tt_wrap = 1;
	tt.tt_retain = 0;
	tt.tt_ncol = NCOL;
	tt.tt_nrow = NROW;
	tt.tt_start = zz_start;
	tt.tt_reset = zz_reset;
	tt.tt_end = zz_end;
	tt.tt_write = zz_write;
	tt.tt_putc = zz_putc;
	tt.tt_move = zz_move;
	tt.tt_clear = zz_clear;
	tt.tt_setmodes = zz_setmodes;
	tt.tt_frame = gen_frame;
	tt.tt_padc = TT_PADC_NONE;
	tt.tt_ntoken = 127;
	tt.tt_set_token = zz_set_token;
	tt.tt_put_token = zz_put_token;
	tt.tt_token_min = 1;
	tt.tt_token_max = TOKEN_MAX;
	tt.tt_set_token_cost = 2;
	tt.tt_put_token_cost = 1;
	tt.tt_compress = zz_compress;
	tt.tt_checksum = zz_checksum;
	tt.tt_checkpoint = zz_checkpoint;
	tt.tt_reset = zz_reset;
	tt.tt_rint = zz_rint;
	return 0;
}
Commit	Line	Data
44bd5ea7 A	1	/* $NetBSD: ttzapple.c,v 1.4 1997/11/21 08:36:42 lukem Exp $ */
	2
	3	/*
	4	* Copyright (c) 1989, 1993
	5	* The Regents of the University of California. All rights reserved.
	6	*
	7	* This code is derived from software contributed to Berkeley by
	8	* Edward Wang at The University of California, Berkeley.
	9	*
	10	* Redistribution and use in source and binary forms, with or without
	11	* modification, are permitted provided that the following conditions
	12	* are met:
	13	* 1. Redistributions of source code must retain the above copyright
	14	* notice, this list of conditions and the following disclaimer.
	15	* 2. Redistributions in binary form must reproduce the above copyright
	16	* notice, this list of conditions and the following disclaimer in the
	17	* documentation and/or other materials provided with the distribution.
	18	* 3. All advertising materials mentioning features or use of this software
	19	* must display the following acknowledgement:
	20	* This product includes software developed by the University of
	21	* California, Berkeley and its contributors.
	22	* 4. Neither the name of the University nor the names of its contributors
	23	* may be used to endorse or promote products derived from this software
	24	* without specific prior written permission.
	25	*
	26	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	27	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	28	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	29	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	30	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	31	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	32	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	33	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	34	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	35	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	36	* SUCH DAMAGE.
	37	*/
	38
	39	#include <sys/cdefs.h>
	40	#ifndef lint
	41	#if 0
	42	static char sccsid[] = "@(#)ttzapple.c 8.1 (Berkeley) 6/6/93";
	43	#else
	44	__RCSID("$NetBSD: ttzapple.c,v 1.4 1997/11/21 08:36:42 lukem Exp $");
	45	#endif
	46	#endif /* not lint */
	47
	48	#include <stdio.h>
	49	#include "ww.h"
	50	#include "tt.h"
	51	#include "char.h"
	52
	53	/*
	54	zz\|zapple\|perfect apple:\
	55	:am:pt:co#80:li#24:le=^H:nd=^F:up=^K:do=^J:\
	56	:ho=\E0:ll=\E1:cm=\E=%+ %+ :ch=\E<%+ :cv=\E>%+ :\
	57	:cl=\E4:ce=\E2:cd=\E3:rp=\E@%.%+ :\
	58	:so=\E+:se=\E-:\
	59	:dc=\Ec:DC=\EC%+ :ic=\Ei:IC=\EI%+ :\
	60	:al=\Ea:AL=\EA%+ :dl=\Ed:DL=\ED%+ :\
	61	:sf=\Ef:SF=\EF%+ :sr=\Er:SR=\ER%+ :cs=\E?%+ %+ :\
	62	:is=\E-\ET :
	63	*/
	64
65	#define NCOL 80
66	#define NROW 24
67	#define TOKEN_MAX 32
68
69	extern short gen_frame[];
70
71	/* for error correction */
72	int zz_ecc;
73	int zz_lastc;
74
75	/* for checkpointing */
76	int zz_sum;
77
78	void zz_checkpoint __P((void));
79	void zz_checksum __P((char *, int));
80	void zz_clear __P((void));
81	void zz_clreol __P((void));
82	void zz_clreos __P((void));
83	void zz_compress __P((int));
84	void zz_delchar __P((int));
85	void zz_delline __P((int));
86	void zz_end __P((void));
87	void zz_insline __P((int));
88	void zz_insspace __P((int));
89	void zz_move __P((int, int));
90	void zz_put_token __P((int, char *, int));
91	void zz_putc __P((char));
92	void zz_reset __P((void));
93	int zz_rint __P((char *, int));
94	void zz_scroll_down __P((int));
95	void zz_scroll_up __P((int));
96	void zz_setmodes __P((int));
97	void zz_setscroll __P((int, int));
98	void zz_set_token __P((int, char *, int));
99	void zz_start __P((void));
100	void zz_write __P((char *, int));
101
102	void
103	zz_setmodes(new)
104	int new;
105	{
106	if (new & WWM_REV) {
107	if ((tt.tt_modes & WWM_REV) == 0)
108	ttesc('+');
109	} else
110	if (tt.tt_modes & WWM_REV)
111	ttesc('-');
112	tt.tt_modes = new;
113	}
114
115	void
116	zz_insline(n)
117	int n;
118	{
119	if (n == 1)
120	ttesc('a');
121	else {
122	ttesc('A');
123	ttputc(n + ' ');
124	}
125	}
126
127	void
128	zz_delline(n)
129	int n;
130	{
131	if (n == 1)
132	ttesc('d');
133	else {
134	ttesc('D');
135	ttputc(n + ' ');
136	}
137	}
138
139	void
140	zz_putc(c)
141	char c;
142	{
143	if (tt.tt_nmodes != tt.tt_modes)
144	zz_setmodes(tt.tt_nmodes);
145	ttputc(c);
146	if (++tt.tt_col == NCOL)
147	tt.tt_col = 0, tt.tt_row++;
148	}
149
150	void
151	zz_write(p, n)
152	char *p;
153	int n;
154	{
155	if (tt.tt_nmodes != tt.tt_modes)
156	zz_setmodes(tt.tt_nmodes);
157	ttwrite(p, n);
158	tt.tt_col += n;
159	if (tt.tt_col == NCOL)
160	tt.tt_col = 0, tt.tt_row++;
161	}
162
163	void
164	zz_move(row, col)
165	int row, col;
166	{
167	int x;
168
169	if (tt.tt_row == row) {
170	same_row:
171	if ((x = col - tt.tt_col) == 0)
172	return;
173	if (col == 0) {
174	ttctrl('m');
175	goto out;
176	}
177	switch (x) {
178	case 2:
179	ttctrl('f');
180	case 1:
181	ttctrl('f');
182	goto out;
183	case -2:
184	ttctrl('h');
185	case -1:
186	ttctrl('h');
187	goto out;
188	}
189	if ((col & 7) == 0 && x > 0 && x <= 16) {
190	ttctrl('i');
191	if (x > 8)
192	ttctrl('i');
193	goto out;
194	}
195	ttesc('<');
196	ttputc(col + ' ');
197	goto out;
198	}
199	if (tt.tt_col == col) {
200	switch (row - tt.tt_row) {
201	case 2:
202	ttctrl('j');
203	case 1:
204	ttctrl('j');
205	goto out;
206	case -2:
207	ttctrl('k');
208	case -1:
209	ttctrl('k');
210	goto out;
211	}
212	if (col == 0) {
213	if (row == 0)
214	goto home;
215	if (row == NROW - 1)
216	goto ll;
217	}
218	ttesc('>');
219	ttputc(row + ' ');
220	goto out;
221	}
222	if (col == 0) {
223	if (row == 0) {
224	home:
225	ttesc('0');
226	goto out;
227	}
228	if (row == tt.tt_row + 1) {
229	/*
230	* Do newline first to match the sequence
231	* for scroll down and return
232	*/
233	ttctrl('j');
234	ttctrl('m');
235	goto out;
236	}
237	if (row == NROW - 1) {
238	ll:
239	ttesc('1');
240	goto out;
241	}
242	}
243	/* favor local motion for better compression */
244	if (row == tt.tt_row + 1) {
245	ttctrl('j');
246	goto same_row;
247	}
248	if (row == tt.tt_row - 1) {
249	ttctrl('k');
250	goto same_row;
251	}
252	ttesc('=');
253	ttputc(' ' + row);
254	ttputc(' ' + col);
255	out:
256	tt.tt_col = col;
257	tt.tt_row = row;
258	}
259
260	void
261	zz_start()
262	{
263	ttesc('T');
264	ttputc(TOKEN_MAX + ' ');
265	ttesc('U');
266	ttputc('!');
267	zz_ecc = 1;
268	zz_lastc = -1;
269	ttesc('v');
270	ttflush();
271	zz_sum = 0;
272	zz_setscroll(0, NROW - 1);
273	zz_clear();
274	zz_setmodes(0);
275	}
276
277	void
278	zz_reset()
279	{
280	zz_setscroll(0, NROW - 1);
281	tt.tt_modes = WWM_REV;
282	zz_setmodes(0);
283	tt.tt_col = tt.tt_row = -10;
284	}
285
286	void
287	zz_end()
288	{
289	ttesc('T');
290	ttputc(' ');
291	ttesc('U');
292	ttputc(' ');
293	zz_ecc = 0;
294	}
295
296	void
297	zz_clreol()
298	{
299	ttesc('2');
300	}
301
302	void
303	zz_clreos()
304	{
305	ttesc('3');
306	}
307
308	void
309	zz_clear()
310	{
311	ttesc('4');
312	tt.tt_col = tt.tt_row = 0;
313	}
314
315	void
316	zz_insspace(n)
317	int n;
318	{
319	if (n == 1)
320	ttesc('i');
321	else {
322	ttesc('I');
323	ttputc(n + ' ');
324	}
325	}
326
327	void
328	zz_delchar(n)
329	int n;
330	{
331	if (n == 1)
332	ttesc('c');
333	else {
334	ttesc('C');
335	ttputc(n + ' ');
336	}
337	}
338
339	void
340	zz_scroll_down(n)
341	int n;
342	{
343	if (n == 1)
344	if (tt.tt_row == NROW - 1)
345	ttctrl('j');
346	else
347	ttesc('f');
348	else {
349	ttesc('F');
350	ttputc(n + ' ');
351	}
352	}
353
354	void
355	zz_scroll_up(n)
356	int n;
357	{
358	if (n == 1)
359	ttesc('r');
360	else {
361	ttesc('R');
362	ttputc(n + ' ');
363	}
364	}
365
366	void
367	zz_setscroll(top, bot)
368	int top, bot;
369	{
370	ttesc('?');
371	ttputc(top + ' ');
372	ttputc(bot + ' ');
373	tt.tt_scroll_top = top;
374	tt.tt_scroll_bot = bot;
375	}
376
377	int zz_debug = 0;
378
379	void
380	zz_set_token(t, s, n)
381	int t;
382	char *s;
383	int n;
384	{
385	if (tt.tt_nmodes != tt.tt_modes)
386	zz_setmodes(tt.tt_nmodes);
387	if (zz_debug) {
388	char buf[100];
389	zz_setmodes(WWM_REV);
390	(void) sprintf(buf, "%02x=", t);
391	ttputs(buf);
392	tt.tt_col += 3;
393	}
394	ttputc(0x80);
395	ttputc(t + 1);
396	s[n - 1] \|= 0x80;
397	ttwrite(s, n);
398	s[n - 1] &= ~0x80;
399	}
400
401	void
402	zz_put_token(t, s, n)
403	int t;
404	char *s;
405	int n;
406	{
407	if (tt.tt_nmodes != tt.tt_modes)
408	zz_setmodes(tt.tt_nmodes);
409	if (zz_debug) {
410	char buf[100];
411	zz_setmodes(WWM_REV);
412	(void) sprintf(buf, "%02x>", t);
413	ttputs(buf);
414	tt.tt_col += 3;
415	}
416	ttputc(t + 0x81);
417	}
418
419	int
420	zz_rint(p, n)
421	char *p;
422	int n;
423	{
424	int i;
425	char *q;
426
427	if (!zz_ecc)
428	return n;
429	for (i = n, q = p; --i >= 0;) {
430	int c = (unsigned char) *p++;
431
432	if (zz_lastc == 0) {
433	switch (c) {
434	case 0:
435	*q++ = 0;
436	zz_lastc = -1;
437	break;
438	case 1: /* start input ecc */
439	zz_ecc = 2;
440	zz_lastc = -1;
441	wwnreadstat++;
442	break;
443	case 2: /* ack checkpoint */
444	tt.tt_ack = 1;
445	zz_lastc = -1;
446	wwnreadack++;
447	break;
448	case 3: /* nack checkpoint */
449	tt.tt_ack = -1;
450	zz_lastc = -1;
451	wwnreadnack++;
452	break;
453	default:
454	zz_lastc = c;
455	wwnreadec++;
456	}
457	} else if (zz_ecc == 1) {
458	if (c)
459	*q++ = c;
460	else
461	zz_lastc = 0;
462	} else {
463	if (zz_lastc < 0) {
464	zz_lastc = c;
465	} else if (zz_lastc == c) {
466	*q++ = zz_lastc;
467	zz_lastc = -1;
468	} else {
469	wwnreadec++;
470	zz_lastc = c;
471	}
472	}
473	}
474	return q - (p - n);
475	}
476
477	void
478	zz_checksum(p, n)
479	char *p;
480	int n;
481	{
482	while (--n >= 0) {
483	int c = *p++ & 0x7f;
484	c ^= zz_sum;
485	zz_sum = c << 1 \| (c >> 11 & 1);
486	}
487	}
488
489	void
490	zz_compress(flag)
491	int flag;
492	{
493	if (flag)
494	tt.tt_checksum = 0;
495	else
496	tt.tt_checksum = zz_checksum;
497	}
498
499	void
500	zz_checkpoint()
501	{
502	static char x[] = { ctrl('['), 'V', 0, 0 };
503
504	zz_checksum(x, sizeof x);
505	ttesc('V');
506	ttputc(' ' + (zz_sum & 0x3f));
507	ttputc(' ' + (zz_sum >> 6 & 0x3f));
508	ttflush();
509	zz_sum = 0;
510	}
511
512	int
513	tt_zapple()
514	{
515	tt.tt_insspace = zz_insspace;
516	tt.tt_delchar = zz_delchar;
517	tt.tt_insline = zz_insline;
518	tt.tt_delline = zz_delline;
519	tt.tt_clreol = zz_clreol;
520	tt.tt_clreos = zz_clreos;
521	tt.tt_scroll_down = zz_scroll_down;
522	tt.tt_scroll_up = zz_scroll_up;
523	tt.tt_setscroll = zz_setscroll;
524	tt.tt_availmodes = WWM_REV;
525	tt.tt_wrap = 1;
526	tt.tt_retain = 0;
527	tt.tt_ncol = NCOL;
528	tt.tt_nrow = NROW;
529	tt.tt_start = zz_start;
530	tt.tt_reset = zz_reset;
531	tt.tt_end = zz_end;
532	tt.tt_write = zz_write;
533	tt.tt_putc = zz_putc;
534	tt.tt_move = zz_move;
535	tt.tt_clear = zz_clear;
536	tt.tt_setmodes = zz_setmodes;
537	tt.tt_frame = gen_frame;
538	tt.tt_padc = TT_PADC_NONE;
539	tt.tt_ntoken = 127;
540	tt.tt_set_token = zz_set_token;
541	tt.tt_put_token = zz_put_token;
542	tt.tt_token_min = 1;
543	tt.tt_token_max = TOKEN_MAX;
544	tt.tt_set_token_cost = 2;
545	tt.tt_put_token_cost = 1;
546	tt.tt_compress = zz_compress;
547	tt.tt_checksum = zz_checksum;
548	tt.tt_checkpoint = zz_checkpoint;
549	tt.tt_reset = zz_reset;
550	tt.tt_rint = zz_rint;
551	return 0;
552	}