![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tth19.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / ucb / window|
Return to tth19.c CVS log | Up to [CSRG BSD Unix] / 43BSD / ucb / window |
1.1 ! root 1: #ifndef lint ! 2: static char sccsid[] = "@(#)tth19.c 3.17 5/2/86"; ! 3: #endif ! 4: ! 5: /* ! 6: * Copyright (c) 1983 Regents of the University of California, ! 7: * All rights reserved. Redistribution permitted subject to ! 8: * the terms of the Berkeley Software License Agreement. ! 9: */ ! 10: ! 11: #include "ww.h" ! 12: #include "tt.h" ! 13: ! 14: /* ! 15: kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith: ! 16: cr=^M:nl=^J:bl=^G:al=1*\EL:am:le=^H:bs:cd=\EJ:ce=\EK: ! 17: cl=\EE:cm=\EY%+ %+ :co#80:dc=\EN:dl=1*\EM:do=\EB: ! 18: ei=\EO:ho=\EH:im=\E@:li#24:mi:nd=\EC:as=\EF:ae=\EG:ms: ! 19: ta=^I:pt:sr=\EI:se=\Eq:so=\Ep:up=\EA:vs=\Ex4:ve=\Ey4: ! 20: kb=^h:ku=\EA:kd=\EB:kl=\ED:kr=\EC:kh=\EH: ! 21: kn#8:k1=\ES:k2=\ET:k3=\EU:k4=\EV:k5=\EW: ! 22: l6=blue:l7=red:l8=white:k6=\EP:k7=\EQ:k8=\ER: ! 23: es:hs:ts=\Ej\Ex5\Ex1\EY8%+ \Eo:fs=\Ek\Ey5:ds=\Ey1: ! 24: */ ! 25: ! 26: #define NCOL 80 ! 27: #define NROW 24 ! 28: ! 29: #define G (WWM_GRP << WWC_MSHIFT) ! 30: short h19_frame[16] = { ! 31: ' ', '`'|G, 'a'|G, 'e'|G, ! 32: '`'|G, '`'|G, 'f'|G, 'v'|G, ! 33: 'a'|G, 'd'|G, 'a'|G, 'u'|G, ! 34: 'c'|G, 't'|G, 's'|G, 'b'|G ! 35: }; ! 36: ! 37: extern struct tt_str *gen_VS; ! 38: extern struct tt_str *gen_VE; ! 39: extern struct tt_str *gen_XS; ! 40: extern struct tt_str *gen_XE; ! 41: ! 42: int h19_msp10c; ! 43: ! 44: #define pc(c) ttputc('c') ! 45: #define esc() pc(\033) ! 46: #define PAD(ms10) { \ ! 47: register i; \ ! 48: for (i = ((ms10) + 5) / h19_msp10c; --i >= 0;) \ ! 49: pc(\0); \ ! 50: } ! 51: #define ICPAD() PAD((NCOL - tt.tt_col) * 1) /* 0.1 ms per char */ ! 52: #define ILPAD() PAD((NROW - tt.tt_row) * 10) /* 1 ms per char */ ! 53: ! 54: #define H19_SETINSERT(m) (esc(), (tt.tt_insert = (m)) ? pc(@) : pc(O)) ! 55: ! 56: h19_setinsert(new) ! 57: { ! 58: H19_SETINSERT(new); ! 59: } ! 60: ! 61: h19_setmodes(new) ! 62: register new; ! 63: { ! 64: register diff; ! 65: ! 66: diff = new ^ tt.tt_modes; ! 67: if (diff & WWM_REV) { ! 68: esc(); ! 69: if (new & WWM_REV) ! 70: pc(p); ! 71: else ! 72: pc(q); ! 73: } ! 74: if (diff & WWM_GRP) { ! 75: esc(); ! 76: if (new & WWM_GRP) ! 77: pc(F); ! 78: else ! 79: pc(G); ! 80: } ! 81: if (diff & WWM_USR) { ! 82: if (new & WWM_USR) { ! 83: if (gen_XS) ! 84: ttxputs(gen_XS); ! 85: } else ! 86: if (gen_XE) ! 87: ttxputs(gen_XE); ! 88: } ! 89: tt.tt_modes = new; ! 90: } ! 91: ! 92: h19_insline() ! 93: { ! 94: esc(); ! 95: pc(L); ! 96: ILPAD(); ! 97: } ! 98: ! 99: h19_delline() ! 100: { ! 101: esc(); ! 102: pc(M); ! 103: ILPAD(); ! 104: } ! 105: ! 106: h19_putc(c) ! 107: register char c; ! 108: { ! 109: if (tt.tt_nmodes != tt.tt_modes) ! 110: (*tt.tt_setmodes)(tt.tt_nmodes); ! 111: if (tt.tt_ninsert != tt.tt_insert) ! 112: H19_SETINSERT(tt.tt_ninsert); ! 113: ttputc(c); ! 114: if (tt.tt_insert) ! 115: ICPAD(); ! 116: if (++tt.tt_col == NCOL) ! 117: tt.tt_col = NCOL - 1; ! 118: } ! 119: ! 120: h19_write(p, n) ! 121: register char *p; ! 122: register n; ! 123: { ! 124: if (tt.tt_nmodes != tt.tt_modes) ! 125: (*tt.tt_setmodes)(tt.tt_nmodes); ! 126: if (tt.tt_ninsert != tt.tt_insert) ! 127: H19_SETINSERT(tt.tt_ninsert); ! 128: if (tt.tt_insert) { ! 129: while (--n >= 0) { ! 130: ttputc(*p++); ! 131: ICPAD(); ! 132: tt.tt_col++; ! 133: } ! 134: } else { ! 135: tt.tt_col += n; ! 136: ttwrite(p, n); ! 137: } ! 138: if (tt.tt_col == NCOL) ! 139: tt.tt_col = NCOL - 1; ! 140: } ! 141: ! 142: h19_move(row, col) ! 143: register char row, col; ! 144: { ! 145: if (tt.tt_row == row) { ! 146: if (tt.tt_col == col) ! 147: return; ! 148: if (tt.tt_col == col - 1) { ! 149: esc(); ! 150: pc(C); ! 151: goto out; ! 152: } else if (tt.tt_col == col + 1) { ! 153: pc(\b); ! 154: goto out; ! 155: } ! 156: } ! 157: if (tt.tt_col == col) { ! 158: if (tt.tt_row == row + 1) { ! 159: esc(); ! 160: pc(A); ! 161: goto out; ! 162: } else if (tt.tt_row == row - 1) { ! 163: pc(\n); ! 164: goto out; ! 165: } ! 166: } ! 167: if (col == 0 && row == 0) { ! 168: esc(); ! 169: pc(H); ! 170: goto out; ! 171: } ! 172: esc(); ! 173: pc(Y); ! 174: ttputc(' ' + row); ! 175: ttputc(' ' + col); ! 176: out: ! 177: tt.tt_col = col; ! 178: tt.tt_row = row; ! 179: } ! 180: ! 181: h19_init() ! 182: { ! 183: if (gen_VS) ! 184: ttxputs(gen_VS); ! 185: esc(); ! 186: pc(w); ! 187: esc(); ! 188: pc(E); ! 189: tt.tt_col = tt.tt_row = 0; ! 190: tt.tt_ninsert = tt.tt_insert = 0; ! 191: tt.tt_nmodes = tt.tt_modes = 0; ! 192: } ! 193: ! 194: h19_end() ! 195: { ! 196: if (gen_VE) ! 197: ttxputs(gen_VE); ! 198: esc(); ! 199: pc(v); ! 200: } ! 201: ! 202: h19_clreol() ! 203: { ! 204: esc(); ! 205: pc(K); ! 206: } ! 207: ! 208: h19_clreos() ! 209: { ! 210: esc(); ! 211: pc(J); ! 212: } ! 213: ! 214: h19_clear() ! 215: { ! 216: esc(); ! 217: pc(E); ! 218: } ! 219: ! 220: h19_delchar() ! 221: { ! 222: esc(); ! 223: pc(N); ! 224: } ! 225: ! 226: tt_h19() ! 227: { ! 228: float cpms = (float) wwbaud / 10000; /* char per ms */ ! 229: ! 230: h19_msp10c = 10 / cpms; /* ms per 10 char */ ! 231: gen_VS = ttxgetstr("vs"); ! 232: gen_VE = ttxgetstr("ve"); ! 233: gen_XS = ttxgetstr("XS"); ! 234: gen_XE = ttxgetstr("XE"); ! 235: ! 236: tt.tt_init = h19_init; ! 237: tt.tt_end = h19_end; ! 238: ! 239: tt.tt_insline = h19_insline; ! 240: tt.tt_delline = h19_delline; ! 241: tt.tt_delchar = h19_delchar; ! 242: tt.tt_clreol = h19_clreol; ! 243: tt.tt_clreos = h19_clreos; ! 244: tt.tt_clear = h19_clear; ! 245: tt.tt_move = h19_move; ! 246: tt.tt_write = h19_write; ! 247: tt.tt_putc = h19_putc; ! 248: tt.tt_setinsert = h19_setinsert; ! 249: tt.tt_setmodes = h19_setmodes; ! 250: ! 251: tt.tt_ncol = NCOL; ! 252: tt.tt_nrow = NROW; ! 253: tt.tt_hasinsert = 1; ! 254: tt.tt_availmodes = WWM_REV|WWM_GRP; ! 255: if (gen_XS) ! 256: tt.tt_availmodes |= WWM_USR; ! 257: tt.tt_frame = h19_frame; ! 258: return 0; ! 259: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.