![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ttest.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / emacs|
Return to ttest.c CVS log | Up to [Research Unix] / researchv9 / cmd / emacs |
1.1 ! root 1: #include <stdio.h> ! 2: ! 3: /* EMACS_MODES: c, !fill */ ! 4: ! 5: /* terminal type tester. exercises terminal capabilities to dest ! 6: * their definition and use. */ ! 7: ! 8: extern char *UP; /* cursor up line */ ! 9: extern char *DOWN; ! 10: extern char *BACK; ! 11: extern char *FORWARD; ! 12: extern char *HOME; ! 13: extern char *CLEAR; ! 14: extern char *CLREST; ! 15: extern char *CLINE; ! 16: extern char *BELL; ! 17: extern char *CURAD; ! 18: extern char *TMAP; ! 19: extern char *NOP; ! 20: extern char *LOPEN; ! 21: extern char *LDEL; ! 22: extern char *INSERTC; ! 23: extern char *INSERTM; ! 24: extern char *OSERTC; ! 25: extern char *INSERTP; ! 26: extern char *DELC; ! 27: extern char *SSCROLL; ! 28: extern char *RSCROLL; ! 29: extern char *CR; ! 30: extern char *SCREG; ! 31: extern char *ULINE; ! 32: extern int EOVER; ! 33: extern char *SCINIT; ! 34: extern char *VEXIT; ! 35: extern int XBASE; ! 36: extern int YBASE; ! 37: extern int SCRWID; ! 38: extern int SCRNLIN; ! 39: extern int SCRWRAP; ! 40: extern int VCOST; ! 41: extern int SRCADD; ! 42: extern int MI; ! 43: extern int IN; ! 44: extern int DELMODE; ! 45: extern char *RELUP; ! 46: extern char *RELDOWN; ! 47: extern char *RELFORW; ! 48: extern char *RELBACK; ! 49: ! 50: extern int scrlin,scrcol; ! 51: ! 52: pause() ! 53: { ! 54: mgetchar(); ! 55: } ! 56: ! 57: main() ! 58: { ! 59: int i; ! 60: ! 61: ttystart(); /* start terminal processing */ ! 62: ! 63: /* Clear screen test */ ! 64: ! 65: xprintf ("\n\n Clear Screen Test"); ! 66: pause(); ! 67: clear(); ! 68: xprintf ( ! 69: "*\n Screen was cleared, astrick @ upper left of screen"); ! 70: pause(); ! 71: ! 72: /* Cursor addressing: */ ! 73: ! 74: clear(); ! 75: ! 76: if (CURAD) { ! 77: for (i = 0; i <= SCRWID; i++) { ! 78: scrlin = -100; /* make sure we do cursor movement */ ! 79: mgo(10,i); ! 80: putchar((i&07)+'0'); ! 81: } ! 82: mgo(12,10); ! 83: xprintf ("Above line should count accross the screen 0-7"); ! 84: pause(); ! 85: clear(); ! 86: for (i = 0; i < SCRNLIN; i++) { ! 87: scrlin = -100; ! 88: mgo(i,SCRWID/2); ! 89: xprintf ("%d",i); ! 90: } ! 91: mgo(0,0); ! 92: xprintf ("Screen should"); ! 93: mgo(1,0); ! 94: xprintf ("have a line"); ! 95: mgo(2,0); ! 96: xprintf ("counting down"); ! 97: mgo(3,0); ! 98: xprintf ("the middle"); ! 99: pause(); ! 100: clear(); ! 101: } ! 102: if (!CURAD) { ! 103: switch ((RELUP!=0)+ ! 104: (RELDOWN!=0)+ ! 105: (RELFORW!=0)+ ! 106: (RELBACK!=0)) { ! 107: ! 108: default: ! 109: xprintf("ru, rd, rr and rl must all be defined"); ! 110: pause(); ! 111: clear(); ! 112: die(0); ! 113: ! 114: case 4 : ; ! 115: /* Need some relative addressing tests here */ ! 116: ! 117: case 0: ; ! 118: } ! 119: } ! 120: if ((!CURAD)&&(!RELUP)&&((!UP)||(!DOWN)||((!CR)&&(!BACK)))) { ! 121: xprintf( ! 122: "Must have cursor addressing, or up, do & (cr or bc)"); ! 123: pause(); ! 124: clear(); ! 125: die(0); ! 126: } ! 127: /* RELATIVE SCREEN MOTION */ ! 128: ! 129: if (BACK) { ! 130: mgo(5,0); ! 131: xprintf ("Drawing backwards from 10,20 to 10,0"); ! 132: mgo(10,20); ! 133: for (i = 0; i < 20; i++) { ! 134: putchar('x'); ! 135: eprintf(BACK); ! 136: eprintf(BACK); ! 137: } ! 138: putchar('x'); ! 139: eprintf(BACK); ! 140: pause(); ! 141: clear(); ! 142: } ! 143: if (FORWARD) { ! 144: mgo(5,0); ! 145: xprintf ("Drawing Forwards from 10,0 to 10,20"); ! 146: if (BACK==0) { ! 147: mgo(6,0); ! 148: xprintf("Skipping everyother character"); ! 149: } ! 150: mgo(10,0); ! 151: for (i = 0; i < 20; i++) { ! 152: putchar('x'); ! 153: if (BACK) eprintf(BACK); ! 154: else i++; ! 155: eprintf(FORWARD); ! 156: } ! 157: putchar('x'); ! 158: eprintf(BACK); ! 159: pause(); ! 160: clear(); ! 161: } ! 162: if (DOWN) { ! 163: mgo(0,5); ! 164: if (BACK) xprintf ("Drawing down from 1,20 to 21,20"); ! 165: else xprintf("Drawing down diagonal from 1,20 to 21,40"); ! 166: mgo(1,20); ! 167: for (i = 0; i < 20; i++) { ! 168: putchar('x'); ! 169: eprintf(BACK); ! 170: eprintf(DOWN); ! 171: } ! 172: putchar('x'); ! 173: eprintf(BACK); ! 174: pause(); ! 175: clear(); ! 176: } ! 177: if (UP) { ! 178: mgo(0,5); ! 179: if (BACK) xprintf ("Drawing UP from 21,20 to 1,20"); ! 180: else xprintf("Drawing up diagonal from 21,20 to 1,40"); ! 181: mgo(21,20); ! 182: for (i = 0; i < 20; i++) { ! 183: putchar('x'); ! 184: eprintf(BACK); ! 185: eprintf(UP); ! 186: } ! 187: putchar('x'); ! 188: eprintf(BACK); ! 189: pause(); ! 190: clear(); ! 191: } ! 192: /* Carriage Return */ ! 193: ! 194: if (CR) { ! 195: mgo(10,25); ! 196: xprintf ("Carriage"); ! 197: mgo(10,0); ! 198: xprintf ("Return"); ! 199: pause(); ! 200: clear(); ! 201: } ! 202: ! 203: /* HOME */ ! 204: ! 205: if (HOME) { ! 206: mgo(10,25); ! 207: xprintf ("Going"); ! 208: eprintf (HOME); ! 209: printf("Home"); ! 210: pause(); ! 211: clear(); ! 212: } ! 213: ! 214: /* Wrapping */ ! 215: ! 216: if (SCRWRAP) { ! 217: mgo(5,SCRWID-6); ! 218: printf("cursor wraps"); ! 219: if (CURAD) { ! 220: scrlin = -100; ! 221: mgo(7,0); ! 222: } else { ! 223: printf("\r\n"); /* PUNT for terminal with no CM */ ! 224: } ! 225: printf("wraps under wraps"); ! 226: pause(); ! 227: clear(); ! 228: } ! 229: ! 230: if (CLINE) { ! 231: mgo(10,0); ! 232: xprintf ("clearing everything after clear"); ! 233: mgo(11,0); ! 234: xprintf ("clearing everything after clear"); ! 235: mgo(10,5); ! 236: clrl(); ! 237: pause(); ! 238: clear(); ! 239: } ! 240: /* BELL */ ! 241: ! 242: if (BELL) { ! 243: xprintf ("beep beep beep"); ! 244: beep(); ! 245: sdelay(1000); ! 246: beep(); ! 247: sdelay(1000); ! 248: beep(); ! 249: clear(); ! 250: } ! 251: if (SSCROLL){ ! 252: mgo(SCRNLIN-1,0); ! 253: printf ("scrolling"); ! 254: eprintf(SSCROLL); ! 255: mgo(SCRNLIN-1,0); ! 256: printf("up"); ! 257: eprintf(SSCROLL); ! 258: mgo(SCRNLIN-1,0); ! 259: printf("the"); ! 260: eprintf(SSCROLL); ! 261: mgo(SCRNLIN-1,0); ! 262: printf("screen"); ! 263: pause(); ! 264: clear(); ! 265: } ! 266: if (INSERTC||INSERTM) { ! 267: ! 268: mgo(10,0); ! 269: xprintf("Testing insert character."); ! 270: if (IN) { ! 271: xprintf (" These won't move unless pushed\n"); ! 272: xprintf("These move when you push them\n"); ! 273: } ! 274: else xprintf (" These move too\n"); ! 275: xprintf(" all characters except ^G insert after test"); ! 276: mgo(10,4); ! 277: if (INSERTM) { ! 278: eprintf(INSERTM); ! 279: } ! 280: while ((i = mgetchar()) != '') { ! 281: if (INSERTC) eprintf(INSERTC); ! 282: putchar(i); ! 283: if (INSERTP) eprintf(INSERTP); ! 284: } ! 285: if (OSERTC) eprintf(OSERTC); ! 286: clear(); ! 287: } ! 288: if (DELC) { ! 289: mgo(10,0); ! 290: xprintf("Testing delete character."); ! 291: if (IN) { ! 292: xprintf(" All of these characters, including the wrap to the new line, should move"); ! 293: xprintf (" These won't move\n"); ! 294: } ! 295: else xprintf (" These move too\n"); ! 296: xprintf(" all characters except ^G delete after test"); ! 297: mgo(10,4); ! 298: if (DELMODE) { ! 299: eprintf(INSERTM); ! 300: } ! 301: while ((i = mgetchar()) != '') { ! 302: eprintf(DELC); ! 303: } ! 304: if (DELMODE) eprintf(OSERTC); ! 305: clear(); ! 306: } ! 307: if ((SCREG)&&((!SSCROLL)||(!RSCROLL)||(!CURAD))) { ! 308: mgo(1,1); ! 309: xprintf("Region scrolling requires sf, sr and cm"); ! 310: pause(); ! 311: clear(); ! 312: goto skipscroll; ! 313: } ! 314: if (LOPEN) { ! 315: for (i = 0; i < SCRNLIN; i++) { ! 316: mgo(i,0); ! 317: xprintf ("Line %d",i); ! 318: } ! 319: mgo(0,10); ! 320: xprintf("u to scroll lines %d through %d up",2,SCRNLIN-2); ! 321: mgo(1,10); ! 322: xprintf("d to scroll down"); ! 323: again: i = mgetchar(); ! 324: if (i == 'u') { ! 325: vadjust(2,SCRNLIN-2,-1); ! 326: goto again; ! 327: } ! 328: if (i == 'd') { ! 329: vadjust(2,SCRNLIN-2,1); ! 330: goto again; ! 331: } ! 332: clear(); ! 333: } ! 334: skipscroll: ! 335: if (ULINE) { ! 336: ! 337: if (EOVER) { ! 338: mgo(4,0); ! 339: uprint("Underlined_Characters"); ! 340: mgo(6,0); ! 341: uprint("These won't wind up underlined"); ! 342: mgo(6,0); ! 343: xprintf("These won't wind up underlined"); ! 344: } else { ! 345: mgo(6,0); ! 346: EOVER = 1; ! 347: uprint("..............................."); ! 348: EOVER = 0; ! 349: mgo(6,0); ! 350: xprintf("These characters are underlined"); ! 351: } ! 352: pause(); ! 353: clear(); ! 354: } ! 355: die(0); ! 356: ! 357: } ! 358: ! 359: uprint(sp) ! 360: register char *sp; ! 361: { ! 362: int lie = 0; ! 363: if (!EOVER) { ! 364: /* terminal does not overwrite underscores! */ ! 365: /* What a mess, tell handler it will */ ! 366: lie = 1; ! 367: EOVER = 0; ! 368: } ! 369: while (*sp) { ! 370: xputc('_'); ! 371: xputc('\b'); ! 372: xputc(*sp++); ! 373: } ! 374: if (lie) EOVER=1; ! 375: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.