![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to test.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 test.c CVS log | Up to [Research Unix] / researchv9 / jtools / src / pads / host |
1.1 ! root 1: #include <pads.pub> ! 2: ! 3: class Creator : public PadRcv { ! 4: void linereq(long,Attrib=0); ! 5: public: ! 6: Pad *pad; ! 7: Creator(); ! 8: char *kbd(char*); ! 9: }; ! 10: ! 11: class Journal : public PadRcv { ! 12: void linereq(long,Attrib=0); ! 13: void create(long); ! 14: public: ! 15: Pad *pad; ! 16: void cycle(); ! 17: Journal(); ! 18: }; ! 19: ! 20: class Test : public PadRcv { ! 21: void linereq(long,Attrib=0); ! 22: public: ! 23: Pad *pad; ! 24: Test(); ! 25: void err(long); ! 26: void lines(long); ! 27: void exit(); ! 28: void cycle(); ! 29: void tabs(long t) { pad->tabs(t); } ! 30: void remove(long k) { pad->removeline(k); } ! 31: char *kbd(char*); ! 32: char *help(); ! 33: void usercut(); ! 34: }; ! 35: ! 36: void Test::usercut() {} ! 37: ! 38: int sscanf(char*,char* ...); ! 39: ! 40: char *Test::kbd(char *s) ! 41: { ! 42: int i; ! 43: if( !sscanf(s,"%d",&i) || i<=0 || i>=1000 ) ! 44: return "out of range"; ! 45: linereq(i,SELECTLINE); ! 46: return 0; ! 47: } ! 48: ! 49: char *Creator::kbd(char *s) ! 50: { ! 51: int lo, hi; ! 52: if( 2 == sscanf(s, "%d %d", &lo, &hi) ) ! 53: pad->createline(lo, hi ); ! 54: return 0; ! 55: } ! 56: ! 57: char *Test::help() ! 58: { ! 59: static int i; ! 60: switch( i++%3 ){ ! 61: case 0: return 0; ! 62: case 1: return ""; ! 63: case 2: return "Test::help"; ! 64: } ! 65: } ! 66: ! 67: void Test::exit() { ::exit(); } ! 68: ! 69: void Test::cycle() ! 70: { ! 71: static i; ! 72: char *ctime(long*); ! 73: long time(long*), t; ! 74: ! 75: pad->alarm(i++/10); ! 76: time(&t); ! 77: pad->insert( 1, "%s", ctime(&t) ); ! 78: } ! 79: ! 80: Test::Test() ! 81: { ! 82: Menu m( "first 1", (Action) &Test::linereq, 1 ); ! 83: Menu sub; ! 84: Menu subsub; ! 85: pad = new Pad( (PadRcv*) this ); ! 86: pad->lines(1000); ! 87: pad->insert(1001, "one thouseand and one"); ! 88: pad->banner( "%s=%s", "Banner", "Test" ); ! 89: pad->name( "%s=%s", "name", "test" ); ! 90: pad->options(DONT_CLOSE|NO_TILDE); ! 91: pad->makecurrent(); ! 92: subsub.sort( "B", (Action) &Test::linereq, 101 ); ! 93: subsub.sort( "A", (Action) &Test::linereq, 102 ); ! 94: subsub.sort( "D", (Action) &Test::linereq, 103 ); ! 95: subsub.sort( "C", (Action) &Test::linereq, 104 ); ! 96: sub.first( subsub.index("subsub") ); ! 97: sub.last( "b", (Action) &Test::linereq, 110 ); ! 98: sub.last( "a", (Action) &Test::linereq, 120 ); ! 99: sub.last( "d", (Action) &Test::linereq, 130 ); ! 100: sub.last( "c", (Action) &Test::linereq, 140 ); ! 101: m.first( sub.index("sub") ); ! 102: m.first( "cycle", (Action) &Test::cycle ); ! 103: m.first( "tabs=1", (Action) &Test::tabs, 1 ); ! 104: m.first( "tabs=3", (Action) &Test::tabs, 3 ); ! 105: m.last( "tabs=5", (Action) &Test::tabs, 5 ); ! 106: m.last( "tabs=7", (Action) &Test::tabs, 7 ); ! 107: m.last( "tabs=0", (Action) &Test::tabs, 0 ); ! 108: m.last( "tabs=128", (Action) &Test::tabs, 128 ); ! 109: m.last( "remove 100", (Action) &Test::remove, 100 ); ! 110: m.last( NumericRange(1,10) ); ! 111: pad->menu(m.index()); ! 112: pad->alarm(); ! 113: } ! 114: ! 115: Creator::Creator() ! 116: { ! 117: pad = new Pad( (PadRcv*) this ); ! 118: pad->banner( "%s=%s", "Banner", "Creator" ); ! 119: pad->name( "%s=%s", "name", "creator" ); ! 120: pad->makecurrent(); ! 121: for( long i = 1; i <= 100; i += 10 ){ ! 122: pad->createline(i); ! 123: pad->createline(i+3, i+7); ! 124: } ! 125: } ! 126: ! 127: void Creator::linereq(long i, Attrib a) ! 128: { ! 129: pad->insert(i, a, "line\t%d\t[]", i); ! 130: } ! 131: ! 132: Journal::Journal() ! 133: { ! 134: pad = new Pad( (PadRcv*) this ); ! 135: pad->banner( "%s", "Journal" ); ! 136: pad->name( "%s", "Journal" ); ! 137: pad->makecurrent(); ! 138: pad->alarm(); ! 139: Menu m; ! 140: m.last("create one", (Action)&Journal::create, 1); ! 141: m.last("create two", (Action)&Journal::create, 2); ! 142: pad->menu(m); ! 143: } ! 144: ! 145: void Journal::create(long i) ! 146: { ! 147: while(i--) ! 148: pad->createline(10); ! 149: } ! 150: ! 151: void Journal::linereq(long i, Attrib a) ! 152: { ! 153: pad->insert(i, a, "journal %d", i); ! 154: } ! 155: ! 156: void Journal::cycle() ! 157: { ! 158: static k; ! 159: ! 160: pad->createline(++k); ! 161: if( k-20 >= 1 ) pad->removeline(k-20); ! 162: pad->alarm(); ! 163: } ! 164: ! 165: void Test::linereq(long i, Attrib a) ! 166: { ! 167: Menu m; ! 168: ! 169: switch( i%5 ){ ! 170: case 0: ! 171: pad->insert( i, a, "line\t%d\t[]", i ); ! 172: pad->banner( "banner=%d", i ); ! 173: break; ! 174: case 1: ! 175: m.last( "150", (Action)&Test::linereq, 150 ); ! 176: pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i ); ! 177: pad->name( "name=%d", i ); ! 178: break; ! 179: case 2: ! 180: m.last("250", (Action)&Test::linereq, 250 ); ! 181: pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i ); ! 182: break; ! 183: case 3: ! 184: m.last("exit?", (Action)&Test::exit, 0 ); ! 185: pad->insert( i, a|USERCUT, (PadRcv*) this, m, "line\t%d", i ); ! 186: break; ! 187: case 4: ! 188: pad->insert( i, a|USERCUT, "" ); ! 189: break; ! 190: } ! 191: ! 192: } ! 193: ! 194: void main(int, char **argv) ! 195: { ! 196: new long; ! 197: if( argv[1] ) ! 198: PadsInit( argv[1] ); ! 199: else ! 200: PadsInit(); ! 201: extern char *TapTo; ! 202: TapTo = ".tapto"; ! 203: new Test; ! 204: new Creator; ! 205: new Journal; ! 206: NewPadStats(); ! 207: NewHelp(); ! 208: PadsServe(); ! 209: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.