![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pad.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jtools / src / pads / host|
Return to pad.c CVS log | Up to [Research Unix] / researchv9 / jtools / src / pads / host |
1.1 ! root 1: #include <pads.pri> ! 2: SRCFILE("pad.c") ! 3: #include <ctype.h> ! 4: ! 5: void Pad::makecurrent() { termop(P_MAKECURRENT); } ! 6: void Pad::clear() { termop(P_CLEAR); } ! 7: ! 8: void Pad::alarm(short n) ! 9: { ! 10: R->pktstart(P_ALARM); ! 11: R->sendobj( _object ); ! 12: R->sendshort( n ); ! 13: R->pktend(); ! 14: } ! 15: ! 16: Pad::~Pad() { trace("%d.~Pad()", this); VOK; termop(P_DELETE); } ! 17: int Pad::ok() { return this!=0; } ! 18: int Line::ok() { return this!=0; } ! 19: ! 20: Attrib Implicits(PadRcv *obj) /* can't inline - C++ bug */ ! 21: { ! 22: Attrib accum = 0; ! 23: PadRcv padrcv; ! 24: ! 25: if( !obj ) return 0; ! 26: if( &obj->kbd != &padrcv.kbd ) accum |= ACCEPT_KBD; // warning ! 27: if( &obj->userclose != &padrcv.userclose ) accum |= USERCLOSE; // warning ! 28: trace( "Implicits(%d,0x%X)", obj, accum ); ! 29: return accum; ! 30: } ! 31: ! 32: Pad::Pad(PadRcv *o) ! 33: { ! 34: trace( "%d.Pad(%d)", this, o ); VOK; ! 35: if( o && !o->isvalid() ) ! 36: PadsWarn( "Pad::Pad: object is not a PadRcv" ); ! 37: _name = "<name>"; ! 38: _banner = "<banner>"; ! 39: _object = o; ! 40: _attributes = 0; ! 41: R->pktstart( P_PADDEF ); ! 42: R->sendobj( _object ); ! 43: R->pktend(); ! 44: options( Implicits(_object) ); ! 45: } ! 46: ! 47: void Pad::nameorbanner(Protocol p, PRINTF_ARGS) ! 48: { ! 49: char *t, **_born = (p==P_BANNER ? &_banner : &_name); ! 50: trace( "%d.nameorbanner(0x%X,%s) %s", this, p, fmt, *_born ); VOK; ! 51: t = sf( PRINTF_COPY ); ! 52: if( strcmp( t, *_born ) ){ ! 53: R->pktstart( p ); ! 54: R->sendobj( _object ); ! 55: R->sendstring( *_born = t ); ! 56: R->pktend(); ! 57: } ! 58: } ! 59: ! 60: void Pad::banner(PRINTF_ARGS) { nameorbanner(P_BANNER, PRINTF_COPY); } ! 61: ! 62: void Pad::name(PRINTF_ARGS) { nameorbanner(P_NAME, PRINTF_COPY); } ! 63: ! 64: void Pad::tabs(short n) ! 65: { ! 66: short lo = 1, hi = 127; ! 67: ! 68: trace( "%d.tabs(%d)", this, n ); VOK; ! 69: if( n<lo || n>hi ) ! 70: PadsWarn( "tabs(%d) should be >=%d and <=%d", n, lo, hi ); ! 71: else { ! 72: R->pktstart( P_TABS ); ! 73: R->sendobj( _object ); ! 74: R->sendshort( n ); ! 75: R->pktend(); ! 76: } ! 77: } ! 78: ! 79: void Pad::removeline(long k) ! 80: { ! 81: trace( "%d.removeline(%d)", this, n ); VOK; ! 82: R->pktstart( P_REMOVELINE ); ! 83: R->sendobj( _object ); ! 84: R->sendlong( k ); ! 85: R->pktend(); ! 86: } ! 87: ! 88: void Pad::createline(long lo, long hi) ! 89: { ! 90: trace( "%d.createline(%d,%d)", this, lo, hi ); VOK; ! 91: if( lo>hi ) return; ! 92: R->pktstart( P_CREATELINE ); ! 93: R->sendobj( _object ); ! 94: R->sendlong( lo ); ! 95: R->sendlong( hi ); ! 96: R->pktend(); ! 97: } ! 98: ! 99: void Pad::createline(long k) ! 100: { ! 101: createline(k, k); ! 102: } ! 103: ! 104: void Pad::menu(Index ix) ! 105: { ! 106: trace( "%d.menu(0x%X)", this, ix.sht() ); VOK; ! 107: IF_LIVE( !_object ) return; ! 108: R->pktstart( P_CARTE ); ! 109: R->sendobj( _object ); ! 110: R->sendshort( ix.sht() ); ! 111: R->pktend(); ! 112: } ! 113: ! 114: void Pad::menu(Menu &m) ! 115: { ! 116: trace( "%d.menu(%d)", this, &m ); VOK; ! 117: IF_LIVE( !&m ) return; ! 118: menu(m.index()); ! 119: } ! 120: ! 121: void Pad::options(Attrib on, Attrib off) ! 122: { ! 123: trace( "%d.options(0x%X,0x%X)", this, on, off ); VOK; ! 124: _attributes |= on; ! 125: _attributes &= ~off; ! 126: R->pktstart( P_ATTRIBUTE ); ! 127: R->sendobj( _object ); ! 128: R->sendshort( _attributes ); ! 129: R->pktend(); ! 130: } ! 131: ! 132: void Pad::lines(long l) ! 133: { ! 134: trace( "%d.lines(%d)", this, l ); VOK; ! 135: IF_LIVE( l<0 ) return; ! 136: R->pktstart( P_LINES ); ! 137: R->sendobj( _object ); ! 138: R->sendlong( _lines = l ); ! 139: R->pktend(); ! 140: } ! 141: ! 142: void Pad::termop(Protocol p) ! 143: { ! 144: trace( "%d.termop(%d)", this, p ); VOK; ! 145: R->pktstart( p ); ! 146: R->sendobj( _object ); ! 147: R->pktend(); ! 148: } ! 149: ! 150: void Pad::insert(long k, PRINTF_ARGS) ! 151: { insert(k, (Attrib)0, (PadRcv*)0, *(Menu*)0, PRINTF_COPY); } ! 152: ! 153: void Pad::insert(long k, Attrib a, PRINTF_ARGS) ! 154: { insert(k, a, (PadRcv*)0, *(Menu*)0, PRINTF_COPY); } ! 155: ! 156: void Pad::insert(long k, Attrib a, PadRcv *o, Menu &m, PRINTF_ARGS) ! 157: { insert(k, a, o, &m ? m.index() : ZIndex, PRINTF_COPY); } ! 158: ! 159: void Pad::insert(long k, Attrib a, PadRcv *o, Index ix, PRINTF_ARGS) ! 160: { ! 161: Line l; ! 162: char t[1024]; ! 163: ! 164: trace( "%d.insert(%d,0x%X,%d,0x%X,%s)", this, k, a, o, ix.sht(), fmt ); VOK; ! 165: sprintf( l.text = t, PRINTF_COPY ); ! 166: l.key = k ? k : UniqueKey(); ! 167: if( !o ) a &= ~ACCEPT_KBD; ! 168: l.attributes = a; ! 169: l.object = o; ! 170: l.carte = o ? ix : ZIndex; ! 171: insert(l); ! 172: } ! 173: ! 174: static Line prev; /* = { 0, 0, 0, 0, {0,0} } - cfront bug */ ! 175: void Pad::insert(Line &l) ! 176: { ! 177: char buf[256]; ! 178: register char *from; ! 179: register int to; ! 180: static Pad *prevpad; ! 181: ! 182: trace("%d.insert(%d,%s,%d,%X)",this,l.key,l.text,l.object,l.attributes);VOK; ! 183: if( l.object && !l.object->isvalid() ) ! 184: PadsWarn("Pad::insert: object is not a PadRcv"); ! 185: if( _lines>0 && (l.key<1 || l.key>_lines) ){ ! 186: PadsWarn("Pad::insert: key out of range: %d %s", l.key, l.text); ! 187: return; ! 188: } ! 189: if( l.attributes&FLUSHLINE || l.key==prev.key ) ! 190: R->writesize = 0; ! 191: for( from = l.text, to = 0; *from && to<250; ++from ) ! 192: buf[to++] = isprint(*from) || *from=='\t' ? *from : ' '; ! 193: buf[to] = '\0'; ! 194: if( this == prevpad ! 195: && l.key == prev.key+1 ! 196: && l.carte.sht() == prev.carte.sht() ! 197: && l.attributes == prev.attributes ){ ! 198: trace( "P_NEXTLINE %d", l.key ); ! 199: R->pktstart( P_NEXTLINE ); ! 200: R->sendobj( l.object ); ! 201: } else { ! 202: R->pktstart( P_LINE ); ! 203: R->sendobj( _object ); ! 204: R->sendobj( l.object ); ! 205: R->sendlong( l.key ); ! 206: R->sendshort( l.carte.sht() ); ! 207: R->sendshort( l.attributes ); ! 208: } ! 209: R->sendstring( buf ); ! 210: R->pktend(); ! 211: prev = l; ! 212: prevpad = this; ! 213: } ! 214: ! 215: Line::Line() ! 216: { ! 217: trace( "%d.Line()", this ); VOK; ! 218: object = 0; ! 219: text = ""; ! 220: key = 0; ! 221: attributes = 0; ! 222: carte = 0; ! 223: } ! 224: ! 225: long UniqueKey() { static long u; return u += 1024; } ! 226: ! 227: void Pad::error( PRINTF_ARGS ) ! 228: { ! 229: trace( "%d.error(%s)", this, fmt ); VOK; ! 230: if( errorkey ) removeline( errorkey ); ! 231: errorkey = 0; ! 232: if( !fmt || !*fmt ) return; ! 233: insert(errorkey = UniqueKey(), SELECTLINE, PRINTF_COPY); ! 234: } ! 235: ! 236: void Pad::makegap(long k, long gap) ! 237: { ! 238: trace( "%d.makegap(%d,%d)", this, k, gap ); VOK; ! 239: R->pktstart( P_MAKEGAP ); ! 240: R->sendobj( _object ); ! 241: R->sendlong( k ); ! 242: R->sendlong( gap ); ! 243: R->pktend(); ! 244: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.