|
|
1.1 ! root 1: #ifndef lint ! 2: static char sccsid[] = "@(#)tth29.c 3.4 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: kC|h29|heath-29|z29|zenith-29:\ ! 16: :am:bc=\ED:bt=\E-:cr=^M:do=^J:nl=^J:bl=^G:\ ! 17: :al=\EL:le=^H:bs:cd=\EJ:ce=\EK:cl=\EE:cm=\EY%+ %+ :co#80:dc=\EN:\ ! 18: :dl=1*\EM:do=\EB:ei=\EO:ho=\EH:im=\E@:li#24:mi:nd=\EC:as=\EF:ae=\EG:\ ! 19: :ms: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:kn#1:k0=\E~:l0=HOME:\ ! 21: :k1=\ES:k2=\ET:k3=\EU:k4=\EV:k5=\EW:k6=\EP:k7=\EQ:k8=\ER:k9=\E01:\ ! 22: :es:hs:ts=\Ej\Ex5\Ex1\EY8%+ \Eo:fs=\Ek\Ey5:ds=\Ey1:us=\Es8:ue=\Es0: ! 23: */ ! 24: ! 25: extern struct tt_str *gen_XS; ! 26: extern struct tt_str *gen_XE; ! 27: ! 28: #define pc(c) ttputc('c') ! 29: #define esc() pc(\033) ! 30: ! 31: h29_setmodes(new) ! 32: register new; ! 33: { ! 34: register modes = '0'; ! 35: ! 36: if (new & WWM_REV) ! 37: modes |= 1; ! 38: if (new & WWM_BLK) ! 39: modes |= 2; ! 40: if (new & WWM_UL) ! 41: modes |= 8; ! 42: esc(); ! 43: pc(s); ! 44: ttputc(modes); ! 45: if (new & WWM_GRP) { ! 46: if ((tt.tt_modes & WWM_GRP) == 0) ! 47: esc(), pc(F); ! 48: } else ! 49: if (tt.tt_modes & WWM_GRP) ! 50: esc(), pc(G); ! 51: if (new & WWM_USR) { ! 52: if ((tt.tt_modes & WWM_USR) == 0 && gen_XS) ! 53: ttxputs(gen_XS); ! 54: } else ! 55: if (tt.tt_modes & WWM_USR && gen_XE) ! 56: ttxputs(gen_XE); ! 57: tt.tt_modes = new; ! 58: } ! 59: ! 60: tt_h29() ! 61: { ! 62: if (tt_h19() < 0) ! 63: return -1; ! 64: tt.tt_setmodes = h29_setmodes; ! 65: tt.tt_availmodes |= WWM_BLK|WWM_UL; ! 66: return 0; ! 67: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.