![[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] / 43BSDReno / usr.bin / window|
Return to tth19.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / window |
1.1 ! root 1: /* ! 2: * Copyright (c) 1983 Regents of the University of California. ! 3: * All rights reserved. ! 4: * ! 5: * This code is derived from software contributed to Berkeley by ! 6: * Edward Wang at The University of California, Berkeley. ! 7: * ! 8: * Redistribution and use in source and binary forms are permitted provided ! 9: * that: (1) source distributions retain this entire copyright notice and ! 10: * comment, and (2) distributions including binaries display the following ! 11: * acknowledgement: ``This product includes software developed by the ! 12: * University of California, Berkeley and its contributors'' in the ! 13: * documentation or other materials provided with the distribution and in ! 14: * all advertising materials mentioning features or use of this software. ! 15: * Neither the name of the University nor the names of its contributors may ! 16: * be used to endorse or promote products derived from this software without ! 17: * specific prior written permission. ! 18: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED ! 19: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF ! 20: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 21: */ ! 22: ! 23: #ifndef lint ! 24: static char sccsid[] = "@(#)tth19.c 3.25 (Berkeley) 6/6/90"; ! 25: #endif /* not lint */ ! 26: ! 27: #include "ww.h" ! 28: #include "tt.h" ! 29: #include "char.h" ! 30: ! 31: /* ! 32: kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith: ! 33: cr=^M:nl=^J:bl=^G:al=1*\EL:am:le=^H:bs:cd=\EJ:ce=\EK: ! 34: cl=\EE:cm=\EY%+ %+ :co#80:dc=\EN:dl=1*\EM:do=\EB: ! 35: ei=\EO:ho=\EH:im=\E@:li#24:mi:nd=\EC:as=\EF:ae=\EG:ms: ! 36: ta=^I:pt:sr=\EI:se=\Eq:so=\Ep:up=\EA:vs=\Ex4:ve=\Ey4: ! 37: kb=^h:ku=\EA:kd=\EB:kl=\ED:kr=\EC:kh=\EH: ! 38: kn#8:k1=\ES:k2=\ET:k3=\EU:k4=\EV:k5=\EW: ! 39: l6=blue:l7=red:l8=white:k6=\EP:k7=\EQ:k8=\ER: ! 40: es:hs:ts=\Ej\Ex5\Ex1\EY8%+ \Eo:fs=\Ek\Ey5:ds=\Ey1: ! 41: */ ! 42: ! 43: #define NCOL 80 ! 44: #define NROW 24 ! 45: ! 46: #define G (WWM_GRP << WWC_MSHIFT) ! 47: short h19_frame[16] = { ! 48: ' ', '`'|G, 'a'|G, 'e'|G, ! 49: '`'|G, '`'|G, 'f'|G, 'v'|G, ! 50: 'a'|G, 'd'|G, 'a'|G, 'u'|G, ! 51: 'c'|G, 't'|G, 's'|G, 'b'|G ! 52: }; ! 53: ! 54: extern struct tt_str *gen_VS; ! 55: extern struct tt_str *gen_VE; ! 56: ! 57: int h19_msp10c; ! 58: ! 59: #define PAD(ms10) { \ ! 60: register i; \ ! 61: for (i = ((ms10) + 5) / h19_msp10c; --i >= 0;) \ ! 62: ttputc('\0'); \ ! 63: } ! 64: #define ICPAD() PAD((NCOL - tt.tt_col) * 1) /* 0.1 ms per char */ ! 65: #define ILPAD() PAD((NROW - tt.tt_row) * 10) /* 1 ms per char */ ! 66: ! 67: #define H19_SETINSERT(m) ttesc((tt.tt_insert = (m)) ? '@' : 'O') ! 68: ! 69: h19_setmodes(new) ! 70: register new; ! 71: { ! 72: register diff; ! 73: ! 74: diff = new ^ tt.tt_modes; ! 75: if (diff & WWM_REV) ! 76: ttesc(new & WWM_REV ? 'p' : 'q'); ! 77: if (diff & WWM_GRP) ! 78: ttesc(new & WWM_REV ? 'F' : 'G'); ! 79: tt.tt_modes = new; ! 80: } ! 81: ! 82: h19_insline(n) ! 83: { ! 84: while (--n >= 0) { ! 85: ttesc('L'); ! 86: ILPAD(); ! 87: } ! 88: } ! 89: ! 90: h19_delline(n) ! 91: { ! 92: while (--n >= 0) { ! 93: ttesc('M'); ! 94: ILPAD(); ! 95: } ! 96: } ! 97: ! 98: h19_putc(c) ! 99: register char c; ! 100: { ! 101: if (tt.tt_nmodes != tt.tt_modes) ! 102: (*tt.tt_setmodes)(tt.tt_nmodes); ! 103: if (tt.tt_insert) ! 104: H19_SETINSERT(0); ! 105: ttputc(c); ! 106: if (++tt.tt_col == NCOL) ! 107: tt.tt_col = NCOL - 1; ! 108: } ! 109: ! 110: h19_write(p, n) ! 111: register char *p; ! 112: register n; ! 113: { ! 114: if (tt.tt_nmodes != tt.tt_modes) ! 115: (*tt.tt_setmodes)(tt.tt_nmodes); ! 116: if (tt.tt_insert) ! 117: H19_SETINSERT(0); ! 118: ttwrite(p, n); ! 119: tt.tt_col += n; ! 120: if (tt.tt_col == NCOL) ! 121: tt.tt_col = NCOL - 1; ! 122: } ! 123: ! 124: h19_move(row, col) ! 125: register char row, col; ! 126: { ! 127: if (tt.tt_row == row) { ! 128: if (tt.tt_col == col) ! 129: return; ! 130: if (col == 0) { ! 131: ttctrl('m'); ! 132: goto out; ! 133: } ! 134: if (tt.tt_col == col - 1) { ! 135: ttesc('C'); ! 136: goto out; ! 137: } ! 138: if (tt.tt_col == col + 1) { ! 139: ttctrl('h'); ! 140: goto out; ! 141: } ! 142: } ! 143: if (tt.tt_col == col) { ! 144: if (tt.tt_row == row + 1) { ! 145: ttesc('A'); ! 146: goto out; ! 147: } ! 148: if (tt.tt_row == row - 1) { ! 149: ttctrl('j'); ! 150: goto out; ! 151: } ! 152: } ! 153: if (col == 0 && row == 0) { ! 154: ttesc('H'); ! 155: goto out; ! 156: } ! 157: ttesc('Y'); ! 158: ttputc(' ' + row); ! 159: ttputc(' ' + col); ! 160: out: ! 161: tt.tt_col = col; ! 162: tt.tt_row = row; ! 163: } ! 164: ! 165: h19_start() ! 166: { ! 167: if (gen_VS) ! 168: ttxputs(gen_VS); ! 169: ttesc('w'); ! 170: ttesc('E'); ! 171: tt.tt_col = tt.tt_row = 0; ! 172: tt.tt_insert = 0; ! 173: tt.tt_nmodes = tt.tt_modes = 0; ! 174: } ! 175: ! 176: h19_end() ! 177: { ! 178: if (tt.tt_insert) ! 179: H19_SETINSERT(0); ! 180: if (gen_VE) ! 181: ttxputs(gen_VE); ! 182: ttesc('v'); ! 183: } ! 184: ! 185: h19_clreol() ! 186: { ! 187: ttesc('K'); ! 188: } ! 189: ! 190: h19_clreos() ! 191: { ! 192: ttesc('J'); ! 193: } ! 194: ! 195: h19_clear() ! 196: { ! 197: ttesc('E'); ! 198: } ! 199: ! 200: h19_inschar(c) ! 201: register char c; ! 202: { ! 203: if (tt.tt_nmodes != tt.tt_modes) ! 204: (*tt.tt_setmodes)(tt.tt_nmodes); ! 205: if (!tt.tt_insert) ! 206: H19_SETINSERT(1); ! 207: ttputc(c); ! 208: if (tt.tt_insert) ! 209: ICPAD(); ! 210: if (++tt.tt_col == NCOL) ! 211: tt.tt_col = NCOL - 1; ! 212: } ! 213: ! 214: h19_delchar(n) ! 215: { ! 216: while (--n >= 0) ! 217: ttesc('N'); ! 218: } ! 219: ! 220: h19_scroll_down(n) ! 221: { ! 222: h19_move(NROW - 1, 0); ! 223: while (--n >= 0) ! 224: ttctrl('j'); ! 225: } ! 226: ! 227: h19_scroll_up(n) ! 228: { ! 229: h19_move(0, 0); ! 230: while (--n >= 0) ! 231: ttesc('I'); ! 232: } ! 233: ! 234: tt_h19() ! 235: { ! 236: float cpms = (float) wwbaud / 10000; /* char per ms */ ! 237: ! 238: h19_msp10c = 10 / cpms; /* ms per 10 char */ ! 239: gen_VS = ttxgetstr("vs"); ! 240: gen_VE = ttxgetstr("ve"); ! 241: ! 242: tt.tt_start = h19_start; ! 243: tt.tt_end = h19_end; ! 244: ! 245: tt.tt_insline = h19_insline; ! 246: tt.tt_delline = h19_delline; ! 247: tt.tt_inschar = h19_inschar; ! 248: tt.tt_delchar = h19_delchar; ! 249: tt.tt_clreol = h19_clreol; ! 250: tt.tt_clreos = h19_clreos; ! 251: tt.tt_clear = h19_clear; ! 252: tt.tt_move = h19_move; ! 253: tt.tt_write = h19_write; ! 254: tt.tt_putc = h19_putc; ! 255: tt.tt_scroll_down = h19_scroll_down; ! 256: tt.tt_scroll_up = h19_scroll_up; ! 257: tt.tt_setmodes = h19_setmodes; ! 258: ! 259: tt.tt_ncol = NCOL; ! 260: tt.tt_nrow = NROW; ! 261: tt.tt_availmodes = WWM_REV|WWM_GRP; ! 262: tt.tt_frame = h19_frame; ! 263: return 0; ! 264: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.