Annotation of src/usr.bin/window/ttzapple.c, Revision 1.1
1.1 ! deraadt 1: /* $NetBSD: ttzapple.c,v 1.3 1995/09/28 10:34:57 tls 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: #ifndef lint
! 40: #if 0
! 41: static char sccsid[] = "@(#)ttzapple.c 8.1 (Berkeley) 6/6/93";
! 42: #else
! 43: static char rcsid[] = "$NetBSD: ttzapple.c,v 1.3 1995/09/28 10:34:57 tls Exp $";
! 44: #endif
! 45: #endif /* not lint */
! 46:
! 47: #include "ww.h"
! 48: #include "tt.h"
! 49: #include "char.h"
! 50:
! 51: /*
! 52: zz|zapple|perfect apple:\
! 53: :am:pt:co#80:li#24:le=^H:nd=^F:up=^K:do=^J:\
! 54: :ho=\E0:ll=\E1:cm=\E=%+ %+ :ch=\E<%+ :cv=\E>%+ :\
! 55: :cl=\E4:ce=\E2:cd=\E3:rp=\E@%.%+ :\
! 56: :so=\E+:se=\E-:\
! 57: :dc=\Ec:DC=\EC%+ :ic=\Ei:IC=\EI%+ :\
! 58: :al=\Ea:AL=\EA%+ :dl=\Ed:DL=\ED%+ :\
! 59: :sf=\Ef:SF=\EF%+ :sr=\Er:SR=\ER%+ :cs=\E?%+ %+ :\
! 60: :is=\E-\ET :
! 61: */
! 62:
! 63: #define NCOL 80
! 64: #define NROW 24
! 65: #define TOKEN_MAX 32
! 66:
! 67: extern short gen_frame[];
! 68:
! 69: /* for error correction */
! 70: int zz_ecc;
! 71: int zz_lastc;
! 72:
! 73: /* for checkpointing */
! 74: int zz_sum;
! 75:
! 76: zz_setmodes(new)
! 77: {
! 78: if (new & WWM_REV) {
! 79: if ((tt.tt_modes & WWM_REV) == 0)
! 80: ttesc('+');
! 81: } else
! 82: if (tt.tt_modes & WWM_REV)
! 83: ttesc('-');
! 84: tt.tt_modes = new;
! 85: }
! 86:
! 87: zz_insline(n)
! 88: {
! 89: if (n == 1)
! 90: ttesc('a');
! 91: else {
! 92: ttesc('A');
! 93: ttputc(n + ' ');
! 94: }
! 95: }
! 96:
! 97: zz_delline(n)
! 98: {
! 99: if (n == 1)
! 100: ttesc('d');
! 101: else {
! 102: ttesc('D');
! 103: ttputc(n + ' ');
! 104: }
! 105: }
! 106:
! 107: zz_putc(c)
! 108: char c;
! 109: {
! 110: if (tt.tt_nmodes != tt.tt_modes)
! 111: zz_setmodes(tt.tt_nmodes);
! 112: ttputc(c);
! 113: if (++tt.tt_col == NCOL)
! 114: tt.tt_col = 0, tt.tt_row++;
! 115: }
! 116:
! 117: zz_write(p, n)
! 118: register char *p;
! 119: register n;
! 120: {
! 121: if (tt.tt_nmodes != tt.tt_modes)
! 122: zz_setmodes(tt.tt_nmodes);
! 123: ttwrite(p, n);
! 124: tt.tt_col += n;
! 125: if (tt.tt_col == NCOL)
! 126: tt.tt_col = 0, tt.tt_row++;
! 127: }
! 128:
! 129: zz_move(row, col)
! 130: register row, col;
! 131: {
! 132: register x;
! 133:
! 134: if (tt.tt_row == row) {
! 135: same_row:
! 136: if ((x = col - tt.tt_col) == 0)
! 137: return;
! 138: if (col == 0) {
! 139: ttctrl('m');
! 140: goto out;
! 141: }
! 142: switch (x) {
! 143: case 2:
! 144: ttctrl('f');
! 145: case 1:
! 146: ttctrl('f');
! 147: goto out;
! 148: case -2:
! 149: ttctrl('h');
! 150: case -1:
! 151: ttctrl('h');
! 152: goto out;
! 153: }
! 154: if ((col & 7) == 0 && x > 0 && x <= 16) {
! 155: ttctrl('i');
! 156: if (x > 8)
! 157: ttctrl('i');
! 158: goto out;
! 159: }
! 160: ttesc('<');
! 161: ttputc(col + ' ');
! 162: goto out;
! 163: }
! 164: if (tt.tt_col == col) {
! 165: switch (row - tt.tt_row) {
! 166: case 2:
! 167: ttctrl('j');
! 168: case 1:
! 169: ttctrl('j');
! 170: goto out;
! 171: case -2:
! 172: ttctrl('k');
! 173: case -1:
! 174: ttctrl('k');
! 175: goto out;
! 176: }
! 177: if (col == 0) {
! 178: if (row == 0)
! 179: goto home;
! 180: if (row == NROW - 1)
! 181: goto ll;
! 182: }
! 183: ttesc('>');
! 184: ttputc(row + ' ');
! 185: goto out;
! 186: }
! 187: if (col == 0) {
! 188: if (row == 0) {
! 189: home:
! 190: ttesc('0');
! 191: goto out;
! 192: }
! 193: if (row == tt.tt_row + 1) {
! 194: /*
! 195: * Do newline first to match the sequence
! 196: * for scroll down and return
! 197: */
! 198: ttctrl('j');
! 199: ttctrl('m');
! 200: goto out;
! 201: }
! 202: if (row == NROW - 1) {
! 203: ll:
! 204: ttesc('1');
! 205: goto out;
! 206: }
! 207: }
! 208: /* favor local motion for better compression */
! 209: if (row == tt.tt_row + 1) {
! 210: ttctrl('j');
! 211: goto same_row;
! 212: }
! 213: if (row == tt.tt_row - 1) {
! 214: ttctrl('k');
! 215: goto same_row;
! 216: }
! 217: ttesc('=');
! 218: ttputc(' ' + row);
! 219: ttputc(' ' + col);
! 220: out:
! 221: tt.tt_col = col;
! 222: tt.tt_row = row;
! 223: }
! 224:
! 225: zz_start()
! 226: {
! 227: ttesc('T');
! 228: ttputc(TOKEN_MAX + ' ');
! 229: ttesc('U');
! 230: ttputc('!');
! 231: zz_ecc = 1;
! 232: zz_lastc = -1;
! 233: ttesc('v');
! 234: ttflush();
! 235: zz_sum = 0;
! 236: zz_setscroll(0, NROW - 1);
! 237: zz_clear();
! 238: zz_setmodes(0);
! 239: }
! 240:
! 241: zz_reset()
! 242: {
! 243: zz_setscroll(0, NROW - 1);
! 244: tt.tt_modes = WWM_REV;
! 245: zz_setmodes(0);
! 246: tt.tt_col = tt.tt_row = -10;
! 247: }
! 248:
! 249: zz_end()
! 250: {
! 251: ttesc('T');
! 252: ttputc(' ');
! 253: ttesc('U');
! 254: ttputc(' ');
! 255: zz_ecc = 0;
! 256: }
! 257:
! 258: zz_clreol()
! 259: {
! 260: ttesc('2');
! 261: }
! 262:
! 263: zz_clreos()
! 264: {
! 265: ttesc('3');
! 266: }
! 267:
! 268: zz_clear()
! 269: {
! 270: ttesc('4');
! 271: tt.tt_col = tt.tt_row = 0;
! 272: }
! 273:
! 274: zz_insspace(n)
! 275: {
! 276: if (n == 1)
! 277: ttesc('i');
! 278: else {
! 279: ttesc('I');
! 280: ttputc(n + ' ');
! 281: }
! 282: }
! 283:
! 284: zz_delchar(n)
! 285: {
! 286: if (n == 1)
! 287: ttesc('c');
! 288: else {
! 289: ttesc('C');
! 290: ttputc(n + ' ');
! 291: }
! 292: }
! 293:
! 294: zz_scroll_down(n)
! 295: {
! 296: if (n == 1)
! 297: if (tt.tt_row == NROW - 1)
! 298: ttctrl('j');
! 299: else
! 300: ttesc('f');
! 301: else {
! 302: ttesc('F');
! 303: ttputc(n + ' ');
! 304: }
! 305: }
! 306:
! 307: zz_scroll_up(n)
! 308: {
! 309: if (n == 1)
! 310: ttesc('r');
! 311: else {
! 312: ttesc('R');
! 313: ttputc(n + ' ');
! 314: }
! 315: }
! 316:
! 317: zz_setscroll(top, bot)
! 318: {
! 319: ttesc('?');
! 320: ttputc(top + ' ');
! 321: ttputc(bot + ' ');
! 322: tt.tt_scroll_top = top;
! 323: tt.tt_scroll_bot = bot;
! 324: }
! 325:
! 326: int zz_debug = 0;
! 327:
! 328: zz_set_token(t, s, n)
! 329: char *s;
! 330: {
! 331: if (tt.tt_nmodes != tt.tt_modes)
! 332: zz_setmodes(tt.tt_nmodes);
! 333: if (zz_debug) {
! 334: char buf[100];
! 335: zz_setmodes(WWM_REV);
! 336: (void) sprintf(buf, "%02x=", t);
! 337: ttputs(buf);
! 338: tt.tt_col += 3;
! 339: }
! 340: ttputc(0x80);
! 341: ttputc(t + 1);
! 342: s[n - 1] |= 0x80;
! 343: ttwrite(s, n);
! 344: s[n - 1] &= ~0x80;
! 345: }
! 346:
! 347: /*ARGSUSED*/
! 348: zz_put_token(t, s, n)
! 349: char *s;
! 350: {
! 351: if (tt.tt_nmodes != tt.tt_modes)
! 352: zz_setmodes(tt.tt_nmodes);
! 353: if (zz_debug) {
! 354: char buf[100];
! 355: zz_setmodes(WWM_REV);
! 356: (void) sprintf(buf, "%02x>", t);
! 357: ttputs(buf);
! 358: tt.tt_col += 3;
! 359: }
! 360: ttputc(t + 0x81);
! 361: }
! 362:
! 363: zz_rint(p, n)
! 364: char *p;
! 365: {
! 366: register i;
! 367: register char *q;
! 368:
! 369: if (!zz_ecc)
! 370: return n;
! 371: for (i = n, q = p; --i >= 0;) {
! 372: register c = (unsigned char) *p++;
! 373:
! 374: if (zz_lastc == 0) {
! 375: switch (c) {
! 376: case 0:
! 377: *q++ = 0;
! 378: zz_lastc = -1;
! 379: break;
! 380: case 1: /* start input ecc */
! 381: zz_ecc = 2;
! 382: zz_lastc = -1;
! 383: wwnreadstat++;
! 384: break;
! 385: case 2: /* ack checkpoint */
! 386: tt.tt_ack = 1;
! 387: zz_lastc = -1;
! 388: wwnreadack++;
! 389: break;
! 390: case 3: /* nack checkpoint */
! 391: tt.tt_ack = -1;
! 392: zz_lastc = -1;
! 393: wwnreadnack++;
! 394: break;
! 395: default:
! 396: zz_lastc = c;
! 397: wwnreadec++;
! 398: }
! 399: } else if (zz_ecc == 1) {
! 400: if (c)
! 401: *q++ = c;
! 402: else
! 403: zz_lastc = 0;
! 404: } else {
! 405: if (zz_lastc < 0) {
! 406: zz_lastc = c;
! 407: } else if (zz_lastc == c) {
! 408: *q++ = zz_lastc;
! 409: zz_lastc = -1;
! 410: } else {
! 411: wwnreadec++;
! 412: zz_lastc = c;
! 413: }
! 414: }
! 415: }
! 416: return q - (p - n);
! 417: }
! 418:
! 419: zz_checksum(p, n)
! 420: register char *p;
! 421: register n;
! 422: {
! 423: while (--n >= 0) {
! 424: register c = *p++ & 0x7f;
! 425: c ^= zz_sum;
! 426: zz_sum = c << 1 | c >> 11 & 1;
! 427: }
! 428: }
! 429:
! 430: zz_compress(flag)
! 431: {
! 432: if (flag)
! 433: tt.tt_checksum = 0;
! 434: else
! 435: tt.tt_checksum = zz_checksum;
! 436: }
! 437:
! 438: zz_checkpoint()
! 439: {
! 440: static char x[] = { ctrl('['), 'V', 0, 0 };
! 441:
! 442: zz_checksum(x, sizeof x);
! 443: ttesc('V');
! 444: ttputc(' ' + (zz_sum & 0x3f));
! 445: ttputc(' ' + (zz_sum >> 6 & 0x3f));
! 446: ttflush();
! 447: zz_sum = 0;
! 448: }
! 449:
! 450: tt_zapple()
! 451: {
! 452: tt.tt_insspace = zz_insspace;
! 453: tt.tt_delchar = zz_delchar;
! 454: tt.tt_insline = zz_insline;
! 455: tt.tt_delline = zz_delline;
! 456: tt.tt_clreol = zz_clreol;
! 457: tt.tt_clreos = zz_clreos;
! 458: tt.tt_scroll_down = zz_scroll_down;
! 459: tt.tt_scroll_up = zz_scroll_up;
! 460: tt.tt_setscroll = zz_setscroll;
! 461: tt.tt_availmodes = WWM_REV;
! 462: tt.tt_wrap = 1;
! 463: tt.tt_retain = 0;
! 464: tt.tt_ncol = NCOL;
! 465: tt.tt_nrow = NROW;
! 466: tt.tt_start = zz_start;
! 467: tt.tt_reset = zz_reset;
! 468: tt.tt_end = zz_end;
! 469: tt.tt_write = zz_write;
! 470: tt.tt_putc = zz_putc;
! 471: tt.tt_move = zz_move;
! 472: tt.tt_clear = zz_clear;
! 473: tt.tt_setmodes = zz_setmodes;
! 474: tt.tt_frame = gen_frame;
! 475: tt.tt_padc = TT_PADC_NONE;
! 476: tt.tt_ntoken = 127;
! 477: tt.tt_set_token = zz_set_token;
! 478: tt.tt_put_token = zz_put_token;
! 479: tt.tt_token_min = 1;
! 480: tt.tt_token_max = TOKEN_MAX;
! 481: tt.tt_set_token_cost = 2;
! 482: tt.tt_put_token_cost = 1;
! 483: tt.tt_compress = zz_compress;
! 484: tt.tt_checksum = zz_checksum;
! 485: tt.tt_checkpoint = zz_checkpoint;
! 486: tt.tt_reset = zz_reset;
! 487: tt.tt_rint = zz_rint;
! 488: return 0;
! 489: }