?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Make a branch to make krunner Good Enough For Aaron™.
[kdebase/uwolfer.git] / apps / konsole / tests / main.c
blob8b8618b3b9bf63ea7b16e697bc3ecd6595f646f3
1 /*
2 VTTEST.C
3
4 Written Novemeber 1983 - July 1984 by Per Lindberg,
5 Stockholm University Computer Center (QZ), Sweden.
6
7 THE MAD PROGRAMMER STRIKES AGAIN!
8
9 This software is (c) 1984 by QZ
10 Non-commercial use and copying allowed.
11
12 If you are developing a commercial product, and use this program to do
13 it, and that product is successful, please send a sum of money of your
14 choice to the address below.
15
16 */
17
18 #include "header.h"
19
20 char inchar(), *instr(), *lookup();
21
22 struct table {
23 int key;
24 char *msg;
25 } paritytable[] = {
26 { 1, "NONE" },
27 { 4, "ODD" },
28 { 5, "EVEN" },
29 { -1, "" }
30 },nbitstable[] = {
31 { 1, "8" },
32 { 2, "7" },
33 { -1,"" }
34 },speedtable[] = {
35 { 0, "50" },
36 { 8, "75" },
37 { 16, "110" },
38 { 24, "132.5"},
39 { 32, "150" },
40 { 40, "200" },
41 { 48, "300" },
42 { 56, "600" },
43 { 64, "1200" },
44 { 72, "1800" },
45 { 80, "2000" },
46 { 88, "2400" },
47 { 96, "3600" },
48 { 104, "4800" },
49 { 112, "9600" },
50 { 120, "19200" },
51 { -1, "" }
52 };
53
54 main() {
55
56 int menuchoice;
57
58 static char *mainmenu[] = {
59 "Exit",
60 "Test of cursor movements",
61 "Test of screen features",
62 "Test of character sets",
63 "Test of double-sized characters",
64 "Test of keyboard",
65 "Test of terminal reports",
66 "Test of VT52 mode",
67 "Test of VT102 features (Insert/Delete Char/Line)",
68 "Test of known bugs",
69 "Test of reset and self-test",
70 ""
71 };
72
73 #ifdef UNIX
74 initterminal(setjmp(intrenv));
75 signal(SIGINT, onbrk);
76 signal(SIGTERM, onterm);
77 reading = 0;
78 #else
79 initterminal(0);
80 #endif
81 do {
82 #ifdef SARG20
83 ttybin(1); /* set line to binary mode again. It's reset somehow!! */
84 #endif
85 ed(2);
86 cup(5,10); printf("VT100 test program, version %s", VERSION);
87 cup(7,10); println("Choose test type:");
88 menuchoice = menu(mainmenu);
89 switch (menuchoice) {
90 case 1: tst_movements(); break;
91 case 2: tst_screen(); break;
92 case 3: tst_characters(); break;
93 case 4: tst_doublesize(); break;
94 case 5: tst_keyboard(); break;
95 case 6: tst_reports(); break;
96 case 7: tst_vt52(); break;
97 case 8: tst_insdel(); break;
98 case 9: tst_bugs(); break;
99 case 10: tst_rst(); break;
100 }
101 } while (menuchoice);
102 bye();
103 }
104
105 tst_movements() {
106
107 /* Test of:
108 CUF (Cursor Forward)
109 CUB (Cursor Backward)
110 CUD (Cursor Down) IND (Index) NEL (Next Line)
111 CUU (Cursor Up) RI (Reverse Index)
112 CUP (Cursor Position) HVP (Horizontal and Vertical Position)
113 ED (Erase in Display)
114 EL (Erase in Line)
115 DECALN (Screen Alignment Display)
116 <CR> <BS>
117 Cursor control characters inside CSI sequences
118 */
119
120 int i, row, col, pass, width, hlfxtra;
121 char c, *ctext = "This is a correct sentence";
122
123 for (pass = 0; pass <= 1; pass++) {
124 if (pass == 0) { rm("?3"); width = 80; hlfxtra = 0; }
125 else { sm("?3"); width = 132; hlfxtra = 26; }
126
127 decaln();
128 cup( 9,10+hlfxtra); ed(1);
129 cup(18,60+hlfxtra); ed(0); el(1);
130 cup( 9,71+hlfxtra); el(0);
131 for (row = 10; row <= 16; row++) {
132 cup(row, 10+hlfxtra); el(1);
133 cup(row, 71+hlfxtra); el(0);
134 }
135 cup(17,30); el(2);
136 for (col = 1; col <= width; col++) {
137 hvp(24, col); printf("*");
138 hvp( 1, col); printf("*");
139 }
140 cup(2,2);
141 for (row = 2; row <= 23; row++) {
142 printf("+");
143 cub(1);
144 ind();
145 }
146 cup(23,width-1);
147 for (row = 23; row >=2; row--) {
148 printf("+");
149 cub(1); ri();
150 }
151 cup(2,1);
152 for (row = 2; row <= 23; row++) {
153 printf("*"); cup(row, width);
154 printf("*");
155 cub(10);
156 if (row < 10) nel();
157 else printf("\n");
158 }
159 cup(2,10);
160 cub(42+hlfxtra); cuf(2);
161 for (col = 3; col <= width-2; col++) {
162 printf("+");
163 cuf(0); cub(2); cuf(1);
164 }
165 cup(23,70+hlfxtra);
166 cuf(42+hlfxtra); cub(2);
167 for (col = width-2; col >= 3; col--) {
168 printf("+");
169 cub(1); cuf(1); cub(0); printf("%c", 8);
170 }
171 cup( 1, 1); cuu(10); cuu(1); cuu(0);
172 cup(24,width); cud(10); cud(1); cud(0);
173
174 cup(10,12+hlfxtra);
175 for (row = 10; row <= 15; row++) {
176 for (col = 12+hlfxtra; col <= 69+hlfxtra; col++) printf(" ");
177 cud(1); cub(58);
178 }
179 cuu(5); cuf(1);
180 printf("The screen should be cleared, and have an unbroken bor-");
181 cup(12,13+hlfxtra);
182 printf("der of *'s and +'s around the edge, and exactly in the");
183 cup(13,13+hlfxtra);
184 printf("middle there should be a frame of E's around this text");
185 cup(14,13+hlfxtra);
186 printf("with one (1) free position around it. ");
187 holdit();
188 }
189 rm("?3");
190
191 ed(2);
192 cup(1,1);
193 println("Test of cursor-control characters inside ESC sequences.");
194 println("Below should be two identical lines:");
195 println("");
196 println("A B C D E F G H I J K L M N O P Q R S");
197 for (i = 1; i < 20; i++) {
198 printf("%c", 64 + i);
199 brcstr("2\010", 'C'); /* Two forward, one backspace */
200 }
201 println("");
202 println("");
203 holdit();
204
205 ed(2);
206 cup(1,1);
207 println("Test of leading zeros in ESC sequences.");
208 printf("Two lines below you should see the sentence \"%s\".",ctext);
209 for (col = 1; *ctext; col++)
210 printf("\033[00000000004;00000000%dH%c",col,*ctext++);
211 cup(20,1);
212 holdit();
213 }
214
215 tst_screen() {
216
217 /* Test of:
218 - DECSTBM (Set Top and Bottom Margins)
219 - TBC (Tabulation Clear)
220 - HTS (Horizontal Tabulation Set)
221 - SM RM (Set/Reset mode): - 80/132 chars
222 - Origin: Realtive/absolute
223 - Scroll: Smooth/jump
224 - Wraparound
225 - SGR (Select Graphic Rendition)
226 - SM RM (Set/Reset Mode) - Inverse
227 - DECSC (Save Cursor)
228 - DECRC (Restore Cursor)
229 */
230
231 int i, j, cset, row, col, down, soft, background;
232
233 static char *tststr = "*qx`";
234 static char *attr[5] = { ";0", ";1", ";4", ";5", ";7" };
235
236 cup(1,1);
237 sm("?7"); /* Wrap Around ON */
238 for (col = 1; col <= 160; col++) printf("*");
239 rm("?7"); /* Wrap Around OFF */
240 cup(3,1);
241 for (col = 1; col <= 160; col++) printf("*");
242 sm("?7"); /* Wrap Around ON */
243 cup(5,1);
244 println("This should be three identical lines of *'s completely filling");
245 println("the top of the screen without any empty lines between.");
246 println("(Test of WRAP AROUND mode setting.)");
247 holdit();
248
249 ed(2);
250 tbc(3);
251 cup(1,1);
252 for (col = 1; col <= 78; col += 3) {
253 cuf(3); hts();
254 }
255 cup(1,4);
256 for (col = 4; col <= 78; col += 6) {
257 tbc(0); cuf(6);
258 }
259 cup(1,7); tbc(1); tbc(2); /* no-op */
260 cup(1,1); for (col = 1; col <= 78; col += 6) printf("\t*");
261 cup(2,2); for (col = 2; col <= 78; col += 6) printf(" *");
262 cup(4,1);
263 println("Test of TAB setting/resetting. These two lines");
264 printf("should look the same. ");
265 holdit();
266 for (background = 0; background <= 1; background++) {
267 if (background) rm("?5");
268 else sm("?5");
269 sm("?3"); /* 132 cols */
270 ed(2); /* VT100 clears screen on SM3/RM3, but not obviously, so... */
271 cup(1,1); tbc(3);
272 for (col = 1; col <= 132; col += 8) {
273 cuf(8); hts();
274 }
275 cup(1,1); for (col = 1; col <= 130; col += 10) printf("1234567890");
276 printf("12");
277 for (row = 3; row <= 20; row++) {
278 cup(row,row);
279 printf("This is 132 column mode, %s background.",
280 background ? "dark" : "light");
281 }
282 holdit();
283 rm("?3"); /* 80 cols */
284 ed(2); /* VT100 clears screen on SM3/RM3, but not obviously, so... */
285 cup(1,1); for (col = 1; col <= 80; col += 10) printf("1234567890");
286 for (row = 3; row <= 20; row++) {
287 cup(row,row);
288 printf("This is 80 column mode, %s background.",
289 background ? "dark" : "light");
290 }
291 holdit();
292 }
293 ed(2);
294 sm("?6"); /* Origin mode (relative) */
295 for (soft = -1; soft <= 0; soft++) {
296 if (soft) sm("?4");
297 else rm("?4");
298 for (row = 12; row >= 1; row -= 11) {
299 decstbm(row, 24-row+1);
300 ed(2);
301 for (down = 0; down >= -1; down--) {
302 if (down) cuu(24);
303 else cud(24);
304 for (i = 1; i <= 30; i++) {
305 printf("%s scroll %s region %d Line %d\n",
306 soft ? "Soft" : "Jump",
307 down ? "down" : "up",
308 2*(13-row), i);
309 if (down) { ri(); ri(); }
310 }
311 }
312 holdit();
313 }
314 }
315 ed(2);
316 decstbm(23,24);
317 printf(
318 "\nOrigin mode test. This line should be at the bottom of the screen.");
319 cup(1,1);
320 printf("%s",
321 "This line should be the one above the bottom of the screeen. ");
322 holdit();
323 ed(2);
324 rm("?6"); /* Origin mode (absolute) */
325 cup(24,1);
326 printf(
327 "Origin mode test. This line should be at the bottom of the screen.");
328 cup(1,1);
329 printf("%s", "This line should be at the top if the screen. ");
330 holdit();
331 decstbm(1,24);
332
333 ed(2);
334 cup( 1,20); printf("Graphic rendition test pattern:");
335 cup( 4, 1); sgr("0"); printf("vanilla");
336 cup( 4,40); sgr("0;1"); printf("bold");
337 cup( 6, 6); sgr(";4"); printf("underline");
338 cup( 6,45);sgr(";1");sgr("4");printf("bold underline");
339 cup( 8, 1); sgr("0;5"); printf("blink");
340 cup( 8,40); sgr("0;5;1"); printf("bold blink");
341 cup(10, 6); sgr("0;4;5"); printf("underline blink");
342 cup(10,45); sgr("0;1;4;5"); printf("bold underline blink");
343 cup(12, 1); sgr("1;4;5;0;7"); printf("negative");
344 cup(12,40); sgr("0;1;7"); printf("bold negative");
345 cup(14, 6); sgr("0;4;7"); printf("underline negative");
346 cup(14,45); sgr("0;1;4;7"); printf("bold underline negative");
347 cup(16, 1); sgr("1;4;;5;7"); printf("blink negative");
348 cup(16,40); sgr("0;1;5;7"); printf("bold blink negative");
349 cup(18, 6); sgr("0;4;5;7"); printf("underline blink negative");
350 cup(18,45); sgr("0;1;4;5;7"); printf("bold underline blink negative");
351 sgr("");
352
353 rm("?5"); /* Inverse video off */
354 cup(23,1); el(0); printf("Dark background. "); holdit();
355 sm("?5"); /* Inverse video */
356 cup(23,1); el(0); printf("Light background. "); holdit();
357 rm("?5");
358 ed(2);
359 cup(8,12); printf("normal");
360 cup(8,24); printf("bold");
361 cup(8,36); printf("underscored");
362 cup(8,48); printf("blinking");
363 cup(8,60); printf("reversed");
364 cup(10,1); printf("stars:");
365 cup(12,1); printf("line:");
366 cup(14,1); printf("x'es:");
367 cup(16,1); printf("diamonds:");
368 for (cset = 0; cset <= 3; cset++) {
369 for (i = 0; i <= 4; i++) {
370 cup(10 + 2 * cset, 12 + 12 * i);
371 sgr(attr[i]);
372 if (cset == 0 || cset == 2) scs(0,'B');
373 else scs(0,'0');
374 for (j = 0; j <= 4; j++) {
375 printf("%c", tststr[cset]);
376 }
377 decsc();
378 cup(cset + 1, i + 1); sgr(""); scs(0,'B'); printf("A");
379 decrc();
380 for (j = 0; j <= 4; j++) {
381 printf("%c", tststr[cset]);
382 }
383 }
384 }
385 sgr("0"); scs(0,'B'); cup(21,1);
386 println("Test of the SAVE/RESTORE CURSOR feature. There should");
387 println("be ten characters of each flavour, and a rectangle");
388 println("of 5 x 4 A's filling the top left of the screen.");
389 holdit();
390 }
391
392 tst_characters() {
393 /* Test of:
394 SCS (Select character Set)
395 */
396
397 int i, j, g, cset;
398 char chcode[5], *setmsg[5];
399
400 chcode[0] = 'A';
401 chcode[1] = 'B';
402 chcode[2] = '0';
403 chcode[3] = '1';
404 chcode[4] = '2';
405 setmsg[0] = "UK / national";
406 setmsg[1] = "US ASCII";
407 setmsg[2] = "Special graphics and line drawing";
408 setmsg[3] = "Alternate character ROM standard characters";
409 setmsg[4] = "Alternate character ROM special graphics";
410
411 cup(1,10); printf("Selected as G0 (with SI)");
412 cup(1,48); printf("Selected as G1 (with SO)");
413 for (cset = 0; cset <= 4; cset++) {
414 scs(1,'B');
415 cup(3 + 4 * cset, 1);
416 sgr("1");
417 printf("Character set %c (%s)",chcode[cset], setmsg[cset]);
418 sgr("0");
419 for (g = 0; g <= 1; g++) {
420 scs(g,chcode[cset]);
421 for (i = 1; i <= 3; i++) {
422 cup(3 + 4 * cset + i, 10 + 38 * g);
423 for (j = 0; j <= 31; j++) {
424 printf("%c", i * 32 + j);
425 }
426 }
427 }
428 }
429 scs(1,'B');
430 cup(24,1); printf("These are the installed character sets. ");
431 holdit();
432 }
433
434 tst_doublesize() {
435 /* Test of:
436 DECSWL (Single Width Line)
437 DECDWL (Double Width Line)
438 DECDHL (Double Height Line) (also implicit double width)
439 */
440
441 int col, i, w, w1;
442
443 /* Print the test pattern in both 80 and 132 character width */
444
445 for(w = 0; w <= 1; w++) {
446 w1 = 13 * w;
447
448 ed(2);
449 cup(1, 1);
450 if (w) { sm("?3"); printf("132 column mode"); }
451 else { rm("?3"); printf(" 80 column mode"); }
452
453 cup( 5, 3 + 2 * w1);
454 printf("v------- left margin");
455
456 cup( 7, 3 + 2 * w1);
457 printf("This is a normal-sized line");
458 decdhl(0); decdhl(1); decdwl(); decswl();
459
460 cup( 9, 2 + w1);
461 printf("This is a Double-width line");
462 decswl(); decdhl(0); decdhl(1); decdwl();
463
464 cup(11, 2 + w1);
465 decdwl(); decswl(); decdhl(1); decdhl(0);
466 printf("This is a Double-width-and-height line");
467 cup(12, 2 + w1);
468 decdwl(); decswl(); decdhl(0); decdhl(1);
469 printf("This is a Double-width-and-height line");
470
471 cup(14, 2 + w1);
472 decdwl(); decswl(); decdhl(1); decdhl(0); el(2);
473 printf("This is another such line");
474 cup(15, 2 + w1);
475 decdwl(); decswl(); decdhl(0); decdhl(1);
476 printf("This is another such line");
477
478 cup(17, 3 + 2 * w1);
479 printf("^------- left margin");
480
481 cup(21, 1);
482 printf("This is not a double-width line");
483 for (i = 0; i <= 1; i++) {
484 cup(21,6);
485 if (i) { printf("**is**"); decdwl(); }
486 else { printf("is not"); decswl(); }
487 cup(23,1); holdit();
488 }
489 }
490 /* Set vanilla tabs for next test */
491 cup(1,1); tbc(3); for (col = 1; col <= 132; col += 8) { cuf(8); hts(); }
492 rm("?3");
493 ed(2);
494 scs(0,'0');
495
496 cup( 8,1); decdhl(0); printf("lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
497 cup( 9,1); decdhl(1); printf("lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
498 cup(10,1); decdhl(0); printf("x%c%c%c%c%cx",9,9,9,9,9);
499 cup(11,1); decdhl(1); printf("x%c%c%c%c%cx",9,9,9,9,9);
500 cup(12,1); decdhl(0); printf("x%c%c%c%c%cx",9,9,9,9,9);
501 cup(13,1); decdhl(1); printf("x%c%c%c%c%cx",9,9,9,9,9);
502 cup(14,1); decdhl(0); printf("x x");
503 cup(15,1); decdhl(1); printf("x x");
504 cup(16,1); decdhl(0); printf("mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj");
505 cup(17,1); decdhl(1); printf("mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj");
506 scs(0,'B'); sgr("1;5");
507 cup(12,3);
508 printf("* The mad programmer strikes again * ");
509 cup(13,3); printf("%c",9); cub(6);
510 printf("* The mad programmer strikes again *");
511 sgr("0");
512 cup(22,1);
513 println("Another test pattern... a frame with blinking bold text,");
514 printf("all in double-height double-width size. ");
515 holdit();
516
517 decstbm(8,24); /* Absolute origin mode, so cursor is set at (1,1) */
518 cup(8,1);
519 for (i = 1; i <= 12; i++)
520 ri();
521 decstbm(0,0); /* No scroll region */
522 cup(1,1);
523 printf("%s", "Exactly half of the box should remain. ");
524 holdit();
525 }
526
527 tst_keyboard() {
528
529 /* Test of:
530 - DECLL (Load LEDs)
531 - Keyboard return messages
532 - SM RM (Set/Reset Mode) - Cursor Keys
533 - Auto repeat
534 - DECKPAM (Keypad Application Mode)
535 - DECKPNM (Keypad Numeric Mode)
536
537 The standard VT100 keayboard layout:
538
539 UP DN LE RI
540
541 ESC 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ BS
542
543 TAB* qQ wW eE rR tT yY uU iI oO pP [{ ]} DEL
544
545 ** ** aA sS dD fF gG hH jJ kK lL ;: ," RETN \|
546
547 ** **** zZ xX cC vV bB nN mM ,< .> /? **** LF
548
549 ****************SPACE BAR****************
550
551 PF1 PF2 PF3 PF4
552
553 *7* *8* *9* *-*
554
555 *4* *5* *6* *,*
556
557 *1* *2* *3*
558
559 ***0*** *.* ENT
560 */
561
562 char *ledmsg[6], *ledseq[6];
563
564 int i, j, okflag;
565 int kblayout;
566 int ckeymode;
567 int fkeymode;
568 char kbdc;
569 char kbds[2];
570 char *curkeystr, *fnkeystr, *abmstr;
571 char arptstring[500];
572
573 static struct key {
574 char c;
575 int row;
576 int col;
577 char *symbol;
578 } keytab [] = {
579 { 27, 1, 0, "ESC" },
580 { '1', 1, 6, "1" }, { '!', 1, 7, "!" },
581 { '2', 1, 11, "2" }, { '@', 1, 12, "@" },
582 { '3', 1, 16, "3" }, { '#', 1, 17, "#" },
583 { '4', 1, 21, "4" }, { '$', 1, 22, "$" },
584 { '5', 1, 26, "5" }, { '%', 1, 27, "%" },
585 { '6', 1, 31, "6" }, { '^', 1, 32, "^" },
586 { '7', 1, 36, "7" }, { '&', 1, 37, "&" },
587 { '8', 1, 41, "8" }, { '*', 1, 42, "*" },
588 { '9', 1, 46, "9" }, { '(', 1, 47, "(" },
589 { '0', 1, 51, "0" }, { ')', 1, 52, ")" },
590 { '-', 1, 56, "-" }, { '_', 1, 57, "_" },
591 { '=', 1, 61, "=" }, { '+', 1, 62, "+" },
592 { '`', 1, 66, "`" }, { '~', 1, 67, "~" },
593 { 8, 1, 70, "BS" },
594 { 9, 2, 0, " TAB " },
595 { 'q', 2, 8, "q" }, { 'Q', 2, 9, "Q" },
596 { 'w', 2, 13, "w" }, { 'W', 2, 14, "W" },
597 { 'e', 2, 18, "e" }, { 'E', 2, 19, "E" },
598 { 'r', 2, 23, "r" }, { 'R', 2, 24, "R" },
599 { 't', 2, 28, "t" }, { 'T', 2, 29, "T" },
600 { 'y', 2, 33, "y" }, { 'Y', 2, 34, "Y" },
601 { 'u', 2, 38, "u" }, { 'U', 2, 39, "U" },
602 { 'i', 2, 43, "i" }, { 'I', 2, 44, "I" },
603 { 'o', 2, 48, "o" }, { 'O', 2, 49, "O" },
604 { 'p', 2, 53, "p" }, { 'P', 2, 54, "P" },
605 { '[', 2, 58, "[" }, { '{', 2, 59, "{" },
606 { ']', 2, 63, "]" }, { '}', 2, 64, "}" },
607 { 127, 2, 71, "DEL" },
608 { 'a', 3, 10, "a" }, { 'A', 3, 11, "A" },
609 { 's', 3, 15, "s" }, { 'S', 3, 16, "S" },
610 { 'd', 3, 20, "d" }, { 'D', 3, 21, "D" },
611 { 'f', 3, 25, "f" }, { 'F', 3, 26, "F" },
612 { 'g', 3, 30, "g" }, { 'G', 3, 31, "G" },
613 { 'h', 3, 35, "h" }, { 'H', 3, 36, "H" },
614 { 'j', 3, 40, "j" }, { 'J', 3, 41, "J" },
615 { 'k', 3, 45, "k" }, { 'K', 3, 46, "K" },
616 { 'l', 3, 50, "l" }, { 'L', 3, 51, "L" },
617 { ';', 3, 55, ";" }, { ':', 3, 56, ":" },
618 {'\'', 3, 60, "'" }, { '"', 3, 61,"\"" },
619 { 13, 3, 65, "RETN"},
620 {'\\', 3, 71,"\\" }, { '|', 3, 72, "|" },
621 { 'z', 4, 12, "z" }, { 'Z', 4, 13, "Z" },
622 { 'x', 4, 17, "x" }, { 'X', 4, 18, "X" },
623 { 'c', 4, 22, "c" }, { 'C', 4, 23, "C" },
624 { 'v', 4, 27, "v" }, { 'V', 4, 28, "V" },
625 { 'b', 4, 32, "b" }, { 'B', 4, 33, "B" },
626 { 'n', 4, 37, "n" }, { 'N', 4, 38, "N" },
627 { 'm', 4, 42, "m" }, { 'M', 4, 43, "M" },
628 { ',', 4, 47, "," }, { '<', 4, 48, "<" },
629 { '.', 4, 52, "." }, { '>', 4, 53, ">" },
630 { '/', 4, 57, "/" }, { '?', 4, 58, "?" },
631 { 10, 4, 69, "LF" },
632 { ' ', 5, 13, " SPACE BAR "},
633 {'\0', 0, 0, "" }
634 };
635
636 static struct natkey {
637 char natc;
638 int natrow;
639 int natcol;
640 char *natsymbol;
641 } natkeytab [][29] = {
642 {
643 { '"', 1, 12, "\""},
644 { '&', 1, 32, "&" },
645 { '/', 1, 37, "/" },
646 { '(', 1, 42, "(" },
647 { ')', 1, 47, ")" },
648 { '=', 1, 52, "=" },
649 { '+', 1, 56, "+" }, { '?', 1, 57, "?" },
650 { '`', 1, 61, "`" }, { '@', 1, 62, "@" },
651 { '<', 1, 66, "<" }, { '>', 1, 67, ">" },
652 { '}', 2, 58, "}" }, { ']', 2, 59, "]" },
653 { '^', 2, 63, "^" }, { '~', 2, 64, "~" },
654 { '|', 3, 55, "|" }, {'\\', 3, 56,"\\" },
655 { '{', 3, 60, "{" }, { '[', 3, 61, "[" },
656 {'\'', 3, 71, "'" }, { '*', 3, 72, "*" },
657 { ',', 4, 47, "," }, { ';', 4, 48, ";" },
658 { '.', 4, 52, "." }, { ':', 4, 53, ":" },
659 { '-', 4, 57, "-" }, { '_', 4, 58, "_" },
660 {'\0', 0, 0, "" }
661 },
662 {
663 { '"', 1, 12, "\""},
664 { '&', 1, 32, "&" },
665 { '/', 1, 37, "/" },
666 { '(', 1, 42, "(" },
667 { ')', 1, 47, ")" },
668 { '=', 1, 52, "=" },
669 { '+', 1, 56, "+" }, { '?', 1, 57, "?" },
670 { '`', 1, 61, "`" }, { '@', 1, 62, "@" },
671 { '<', 1, 66, "<" }, { '>', 1, 67, ">" },
672 { '}', 2, 58, "}" }, { ']', 2, 59, "]" },
673 { '~', 2, 63, "~" }, { '^', 2, 64, "^" },
674 { '|', 3, 55, "|" }, {'\\', 3, 56,"\\" },
675 { '{', 3, 60, "{" }, { '[', 3, 61, "[" },
676 {'\'', 3, 71, "'" }, { '*', 3, 72, "*" },
677 { ',', 4, 47, "," }, { ';', 4, 48, ";" },
678 { '.', 4, 52, "." }, { ':', 4, 53, ":" },
679 { '-', 4, 57, "-" }, { '_', 4, 58, "_" },
680 {'\0', 0, 0, "" }
681 }
682 };
683
684 static struct curkey {
685 char *curkeymsg[3];
686 int curkeyrow;
687 int curkeycol;
688 char *curkeysymbol;
689 char *curkeyname;
690 } curkeytab [] = {
691
692 /* A Reset, A Set, VT52 */
693
694 {{"\033[A","\033OA","\033A"}, 0, 56, "UP", "Up arrow" },
695 {{"\033[B","\033OB","\033B"}, 0, 61, "DN", "Down arrow" },
696 {{"\033[D","\033OD","\033D"}, 0, 66, "LT", "Left arrow" },
697 {{"\033[C","\033OC","\033C"}, 0, 71, "RT", "Right arrow"},
698 {{"", "", "" }, 0, 0, "", "" }
699 };
700
701 static struct fnkey {
702 char *fnkeymsg[4];
703 int fnkeyrow;
704 int fnkeycol;
705 char *fnkeysymbol;
706 char *fnkeyname;
707 } fnkeytab [] = {
708
709 /* ANSI-num,ANSI-app,VT52-nu,VT52-ap, r, c, symb name */
710
711 {{"\033OP","\033OP","\033P","\033P" }, 6, 59, "PF1", "PF1" },
712 {{"\033OQ","\033OQ","\033Q","\033Q" }, 6, 63, "PF2", "PF2" },
713 {{"\033OR","\033OR","\033R","\033R" }, 6, 67, "PF3", "PF3" },
714 {{"\033OS","\033OS","\033S","\033S" }, 6, 71, "PF4", "PF4" },
715 {{"7", "\033Ow","7", "\033?w"}, 7, 59, " 7 ", "Numeric 7" },
716 {{"8", "\033Ox","8", "\033?x"}, 7, 63, " 8 ", "Numeric 8" },
717 {{"9", "\033Oy","9", "\033?y"}, 7, 67, " 9 ", "Numeric 9" },
718 {{"-", "\033Om","-", "\033?m"}, 7, 71, " - ", "Minus" },
719 {{"4", "\033Ot","4", "\033?t"}, 8, 59, " 4 ", "Numeric 4" },
720 {{"5", "\033Ou","5", "\033?u"}, 8, 63, " 5 ", "Numeric 5" },
721 {{"6", "\033Ov","6", "\033?v"}, 8, 67, " 6 ", "Numeric 6" },
722 {{",", "\033Ol",",", "\033?l"}, 8, 71, " , ", "Comma" },
723 {{"1", "\033Oq","1", "\033?q"}, 9, 59, " 1 ", "Numeric 1" },
724 {{"2", "\033Or","2", "\033?r"}, 9, 63, " 2 ", "Numeric 2" },
725 {{"3", "\033Os","3", "\033?s"}, 9, 67, " 3 ", "Numeric 3" },
726 {{"0", "\033Op","0", "\033?p"},10, 59," O ","Numeric 0"},
727 {{".", "\033On",".", "\033?n"},10, 67, " . ", "Point" },
728 {{"\015", "\033OM","\015", "\033?M"},10, 71, "ENT", "ENTER" },
729 {{"","","",""}, 0, 0, "", "" }
730 };
731
732 static struct ckey {
733 int ccount;
734 char *csymbol;
735 } ckeytab [] = {
736 { 0, "NUL (CTRL-@ or CTRL-Space)" },
737 { 0, "SOH (CTRL-A)" },
738 { 0, "STX (CTRL-B)" },
739 { 0, "ETX (CTRL-C)" },
740 { 0, "EOT (CTRL-D)" },
741 { 0, "ENQ (CTRL-E)" },
742 { 0, "ACK (CTRL-F)" },
743 { 0, "BEL (CTRL-G)" },
744 { 0, "BS (CTRL-H) (BACK SPACE)" },
745 { 0, "HT (CTRL-I) (TAB)" },
746 { 0, "LF (CTRL-J) (LINE FEED)" },
747 { 0, "VT (CTRL-K)" },
748 { 0, "FF (CTRL-L)" },
749 { 0, "CR (CTRL-M) (RETURN)" },
750 { 0, "SO (CTRL-N)" },
751 { 0, "SI (CTRL-O)" },
752 { 0, "DLE (CTRL-P)" },
753 { 0, "DC1 (CTRL-Q) (X-On)" },
754 { 0, "DC2 (CTRL-R)" },
755 { 0, "DC3 (CTRL-S) (X-Off)" },
756 { 0, "DC4 (CTRL-T)" },
757 { 0, "NAK (CTRL-U)" },
758 { 0, "SYN (CTRL-V)" },
759 { 0, "ETB (CTRL-W)" },
760 { 0, "CAN (CTRL-X)" },
761 { 0, "EM (CTRL-Y)" },
762 { 0, "SUB (CTRL-Z)" },
763 { 0, "ESC (CTRL-[) (ESCAPE)" },
764 { 0, "FS (CTRL-\\ or CTRL-? or CTRL-_)" },
765 { 0, "GS (CTRL-])" },
766 { 0, "RS (CTRL-^ or CTRL-~ or CTRL-`)" },
767 { 0, "US (CTRL-_ or CTRL-?)" }
768 };
769
770 static char *keyboardmenu[] = {
771 "Standard American ASCII layout",
772 "Swedish national layout D47",
773 "Swedish national layout E47",
774 /* add new keyboard layouts here */
775 ""
776 };
777
778 static char *curkeymodes[3] = {
779 "ANSI / Cursor key mode RESET",
780 "ANSI / Cursor key mode SET",
781 "VT52 Mode"
782 };
783
784 static char *fnkeymodes[4] = {
785 "ANSI Numeric mode",
786 "ANSI Application mode",
787 "VT52 Numeric mode",
788 "VT52 Application mode"
789 };
790
791 ledmsg[0] = "L1 L2 L3 L4"; ledseq[0] = "1;2;3;4";
792 ledmsg[1] = " L2 L3 L4"; ledseq[1] = "1;0;4;3;2";
793 ledmsg[2] = " L2 L3"; ledseq[2] = "1;4;;2;3";
794 ledmsg[3] = "L1 L2"; ledseq[3] = ";;2;1";
795 ledmsg[4] = "L1"; ledseq[4] = "1";
796 ledmsg[5] = ""; ledseq[5] = "";
797
798 #ifdef UNIX
799 fflush(stdout);
800 #endif
801
802 ed(2);
803 cup(10,1);
804 println("These LEDs (\"lamps\") on the keyboard should be on:");
805 for (i = 0; i <= 5; i++) {
806 cup(10,52); el(0); printf("%s", ledmsg[i]);
807 decll("0");
808 decll(ledseq[i]);
809 cup(12,1); holdit();
810 }
811
812 ed(2);
813 cup(10,1);
814 println("Test of the AUTO REPEAT feature");
815 println("");
816 println("Hold down an alphanumeric key for a while, then push RETURN.");
817 printf("%s", "Auto Repeat OFF: ");
818 rm("?8");
819 inputline(arptstring);
820 if (strlen(arptstring) == 0) println("No characters read!??");
821 else if (strlen(arptstring) == 1) println("OK.");
822 else println("Too many characters read.");
823 println("");
824 println("Hold down an alphanumeric key for a while, then push RETURN.");
825 printf("%s", "Auto Repeat ON: ");
826 sm("?8");
827 inputline(arptstring);
828 if (strlen(arptstring) == 0) println("No characters read!??");
829 else if (strlen(arptstring) == 1) println("Not enough characters read.");
830 else println("OK.");
831 println("");
832 holdit();
833
834 ed(2);
835 cup(5,10);
836 println("Choose keyboard layout:");
837 kblayout = menu(keyboardmenu);
838 if (kblayout) {
839 kblayout--;
840 for (j = 0; natkeytab[kblayout][j].natc != '\0'; j++) {
841 for (i = 0; keytab[i].c != '\0'; i++) {
842 if (keytab[i].row == natkeytab[kblayout][j].natrow &&
843 keytab[i].col == natkeytab[kblayout][j].natcol) {
844 keytab[i].c = natkeytab[kblayout][j].natc;
845 keytab[i].symbol = natkeytab[kblayout][j].natsymbol;
846 break;
847 }
848 }
849 }
850 }
851
852 ed(2);
853 for (i = 0; keytab[i].c != '\0'; i++) {
854 cup(1 + 2 * keytab[i].row, 1 + keytab[i].col);
855 sgr("7");
856 printf("%s", keytab[i].symbol);
857 sgr("");
858 }
859 cup(22,1);
860 #ifdef UNIX
861 # ifdef TERMIO
862 termioNew.c_iflag &= (~ICRNL);
863 termioNew.c_oflag &= (~ONLCR);
864 termioNew.c_lflag &= (~ECHO & ~ECHOE & ~ECHOK & ~ECHONL);
865 (void) ioctl(0, TCSETAW, &termioNew);
866 # else
867 sgttyNew.sg_flags &= ~CRMOD;
868 sgttyNew.sg_flags &= ~ECHO;
869 stty(0, &sgttyNew);
870 # endif
871 #endif
872 inflush();
873 printf("Press each key, both shifted and unshifted. Finish with RETURN:");
874 do { /* while (kbdc != 13) */
875 cup(23,1); kbdc = inchar();
876 cup(23,1); el(0);
877 sprintf(kbds, "%c", kbdc);
878 chrprint(kbds);
879 for (i = 0; keytab[i].c != '\0'; i++) {
880 if (keytab[i].c == kbdc) {
881 cup(1 + 2 * keytab[i].row, 1 + keytab[i].col);
882 printf("%s", keytab[i].symbol);
883 break;
884 }
885 }
886 } while (kbdc != 13);
887 #ifdef SARG10
888 inchar(); /* Local hack: Read LF that TOPS-10 adds to CR */
889 #endif
890 cup(23,1); el(0);
891
892 for (ckeymode = 0; ckeymode <= 2; ckeymode++) {
893 if (ckeymode) sm("?1");
894 else rm("?1");
895 for (i = 0; curkeytab[i].curkeysymbol[0] != '\0'; i++) {
896 cup(1 + 2 * curkeytab[i].curkeyrow, 1 + curkeytab[i].curkeycol);
897 sgr("7");
898 printf("%s", curkeytab[i].curkeysymbol);
899 sgr("");
900 }
901 cup(20,1); printf("<%s>%20s", curkeymodes[ckeymode], "");
902 cup(22,1); el(0);
903 cup(22,1); printf("%s", "Press each cursor key. Finish with TAB.");
904 for(;;) {
905 cup(23,1);
906 if (ckeymode == 2) rm("?2"); /* VT52 mode */
907 curkeystr = instr();
908 esc("<"); /* ANSI mode */
909 cup(23,1); el(0);
910 cup(23,1); chrprint(curkeystr);
911 if (!strcmp(curkeystr,"\t")) break;
912 for (i = 0; curkeytab[i].curkeysymbol[0] != '\0'; i++) {
913 if (!strcmp(curkeystr,curkeytab[i].curkeymsg[ckeymode])) {
914 sgr("7");
915 printf(" (%s key) ", curkeytab[i].curkeyname);
916 sgr("");
917 cup(1 + 2 * curkeytab[i].curkeyrow,
918 1 + curkeytab[i].curkeycol);
919 printf("%s", curkeytab[i].curkeysymbol);
920 break;
921 }
922 }
923 if (i == sizeof(curkeytab) / sizeof(struct curkey) - 1) {
924 sgr("7");
925 printf("%s", " (Unknown cursor key) ");
926 sgr("");
927 }
928 }
929 }
930
931 for (fkeymode = 0; fkeymode <= 3; fkeymode++) {
932 for (i = 0; fnkeytab[i].fnkeysymbol[0] != '\0'; i++) {
933 cup(1 + 2 * fnkeytab[i].fnkeyrow, 1 + fnkeytab[i].fnkeycol);
934 sgr("7");
935 printf("%s", fnkeytab[i].fnkeysymbol);
936 sgr("");
937 }
938 cup(20,1); printf("<%s>%20s", fnkeymodes[fkeymode], "");
939 cup(22,1); el(0);
940 cup(22,1); printf("%s", "Press each function key. Finish with TAB.");
941 for(;;) {
942 cup(23,1);
943 if (fkeymode >= 2) rm("?2"); /* VT52 mode */
944 if (fkeymode % 2) deckpam(); /* Application mode */
945 else deckpnm(); /* Numeric mode */
946 fnkeystr = instr();
947 esc("<"); /* ANSI mode */
948 cup(23,1); el(0);
949 cup(23,1); chrprint(fnkeystr);
950 if (!strcmp(fnkeystr,"\t")) break;
951 for (i = 0; fnkeytab[i].fnkeysymbol[0] != '\0'; i++) {
952 if (!strcmp(fnkeystr,fnkeytab[i].fnkeymsg[fkeymode])) {
953 sgr("7");
954 printf(" (%s key) ", fnkeytab[i].fnkeyname);
955 sgr("");
956 cup(1 + 2 * fnkeytab[i].fnkeyrow, 1 + fnkeytab[i].fnkeycol);
957 printf("%s", fnkeytab[i].fnkeysymbol);
958 break;
959 }
960 }
961 if (i == sizeof(fnkeytab) / sizeof(struct fnkey) - 1) {
962 sgr("7");
963 printf("%s", " (Unknown function key) ");
964 sgr("");
965 }
966 }
967 }
968
969 #ifdef UNIX
970 # ifdef TERMIO
971 termioNew.c_iflag |= ICRNL;
972 termioNew.c_oflag |= ONLCR;
973 (void) ioctl(0, TCSETAW, &termioNew);
974 # else
975 sgttyNew.sg_flags |= CRMOD;
976 stty(0, &sgttyNew);
977 # endif
978 #endif
979 ed(2);
980 cup(5,1);
981 println("Finally, a check of the ANSWERBACK MESSAGE, which can be sent");
982 println("by pressing CTRL-BREAK. The answerback message can be loaded");
983 println("in SET-UP B by pressing SHIFT-A and typing e.g.");
984 println("");
985 println(" \" H e l l o , w o r l d Return \"");
986 println("");
987 println("(the double-quote characters included). Do that, and then try");
988 println("to send an answerback message with CTRL-BREAK. If it works,");
989 println("the answerback message should be displayed in reverse mode.");
990 println("Finish with a single RETURN.");
991
992 #ifdef UNIX
993 # ifdef TERMIO
994 termioNew.c_iflag &= ~ICRNL;
995 termioNew.c_oflag &= ~ONLCR;
996 (void) ioctl(0, TCSETAW, &termioNew);
997 # else
998 sgttyNew.sg_flags &= ~CRMOD;
999 stty(0, &sgttyNew);
1000 # endif
1001 #endif
1002 do {
1003 cup(17,1);
1004 inflush();
1005 abmstr = instr();
1006 cup(17,1);
1007 el(0);
1008 chrprint(abmstr);
1009 } while (strcmp(abmstr,"\r"));
1010
1011 ed(2);
1012 for (i = 0; i < 32; i++) {
1013 cup(1 + (i % 16), 1 + 40 * (i / 16));
1014 sgr("7");
1015 printf("%s", ckeytab[i].csymbol);
1016 sgr("0");
1017 }
1018 cup(19,1);
1019 #ifdef UNIX
1020 # ifdef TERMIO
1021 termioNew.c_iflag |= ICRNL;
1022 termioNew.c_oflag |= ONLCR;
1023 (void) ioctl(0, TCSETAW, &termioNew);
1024 # else
1025 sgttyNew.sg_flags |= CRMOD;
1026 stty(0, &sgttyNew);
1027 # endif
1028 #endif
1029
1030 println(
1031 "Push each CTRL-key TWICE. Note that you should be able to send *all*");
1032 println(
1033 "CTRL-codes twice, including CTRL-S (X-Off) and CTRL-Q (X-Off)!");
1034 println(
1035 "Finish with DEL (also called DELETE or RUB OUT), or wait 1 minute.");
1036 #ifdef UNIX
1037 # ifdef TERMIO
1038 termioNew.c_iflag &= ~(ICRNL|IXON);
1039 termioNew.c_lflag &= ~(ICANON|ISIG);
1040 termioNew.c_cc[VMIN] = 1;
1041 termioNew.c_cc[VTIME] = 0;
1042 (void) ioctl(0, TCSETAW, &termioNew);
1043 # else
1044 # ifdef SIII
1045 sgttyNew.sg_flags &= ~CBREAK;
1046 stty(0, &sgttyNew);
1047 # endif
1048 sgttyNew.sg_flags |= RAW;
1049 stty(0, &sgttyNew);
1050 # endif
1051 #endif
1052 ttybin(1);
1053 #ifdef SARG20
1054 page(0); /* Turn off all character processing at input */
1055 superbin(1); /* Turn off ^C (among others). Keep your fingers crossed!! */
1056 #endif
1057 do {
1058 cup(23,1); kbdc = inchar();
1059 cup(23,1); el(0);
1060 if (kbdc < 32) printf(" %s", ckeytab[kbdc].csymbol);
1061 else {
1062 sprintf(kbds, "%c", kbdc);
1063 chrprint(kbds);
1064 printf("%s", " -- not a CTRL key");
1065 }
1066 if (kbdc < 32) ckeytab[kbdc].ccount++;
1067 if (ckeytab[kbdc].ccount == 2) {
1068 cup(1 + (kbdc % 16), 1 + 40 * (kbdc / 16));
1069 printf("%s", ckeytab[kbdc].csymbol);
1070 }
1071 } while (kbdc != '\177');
1072 #ifdef UNIX
1073 # ifdef TERMIO
1074 termioNew.c_iflag |= (IGNBRK|BRKINT|ICRNL|IXON);
1075 termioNew.c_lflag |= (ICANON|ECHO|ISIG);
1076 (void) ioctl(0, TCSETAW, &termioNew);
1077 # else
1078 sgttyNew.sg_flags &= ~RAW;
1079 sgttyNew.sg_flags |= ECHO;
1080 stty(0, &sgttyNew);
1081 # ifdef SIII
1082 sgttyNew.sg_flags |= CBREAK;
1083 stty(0, &sgttyNew);
1084 # endif
1085 # endif
1086 #endif
1087 ttybin(0);
1088 #ifdef SARG20
1089 superbin(0); /* Puuuh! We made it!? */
1090 page(1); /* Back to normal input processing */
1091 ttybin(1); /* This must be the mode for DEC20 */
1092 #endif
1093 cup(24,1);
1094 okflag = 1;
1095 for (i = 0; i < 32; i++) if (ckeytab[i].ccount < 2) okflag = 0;
1096 if (okflag) printf("%s", "OK. ");
1097 else printf("%s", "You have not been able to send all CTRL keys! ");
1098 holdit();
1099 }
1100
1101 tst_reports() {
1102 /* Test of:
1103 <ENQ> (AnswerBack Message)
1104 SM RM (Set/Reset Mode) - LineFeed / Newline
1105 DSR (Device Status Report)
1106 DA (Device Attributes)
1107 DECREQTPARM (Request Terminal Parameters)
1108 */
1109
1110 int parity, nbits, xspeed, rspeed, clkmul, flags;
1111 int i, reportpos;
1112 char *report, *report2;
1113 static char *attributes[][2] = {
1114 { "\033[?1;0c", "No options (vanilla VT100)" },
1115 { "\033[?1;1c", "VT100 with STP" },
1116 { "\033[?1;2c", "VT100 with AVO (could be a VT102)" },
1117 { "\033[?1;3c", "VT100 with STP and AVO" },
1118 { "\033[?1;4c", "VT100 with GPO" },
1119 { "\033[?1;5c", "VT100 with STP and GPO" },
1120 { "\033[?1;6c", "VT100 with AVO and GPO" },
1121 { "\033[?1;7c", "VT100 with STP, AVO and GPO" },
1122 { "\033[?1;11c", "VT100 with PP and AVO" },
1123 { "\033[?1;15c", "VT100 with PP, GPO and AVO" },
1124 { "\033[?4;2c", "VT132 with AVO" },
1125 { "\033[?4;3c", "VT132 with AVO and STP" },
1126 { "\033[?4;6c", "VT132 with GPO and AVO" },
1127 { "\033[?4;7c", "VT132 with GPO, AVO, and STP" },
1128 { "\033[?4;11c", "VT132 with PP and AVO" },
1129 { "\033[?4;15c", "VT132 with PP, GPO and AVO" },
1130 { "\033[?7c", "VT131" },
1131 { "\033[?12;5c", "VT125" }, /* VT125 also has ROM version */
1132 { "\033[?12;7c", "VT125 with AVO" }, /* number, so this won't work */
1133 { "\033[?5;0c", "VK100 (GIGI)" },
1134 { "\033[?5c", "VK100 (GIGI)" },
1135 { "", "" }
1136 };
1137
1138 #ifdef UNIX
1139 # ifdef TERMIO
1140 termioNew.c_lflag &= ~ECHO;
1141 (void) ioctl(0, TCSETAW, &termioNew);
1142 # else
1143 sgttyNew.sg_flags &= ~ECHO;
1144 stty(0, &sgttyNew);
1145 # endif
1146 #endif
1147 cup(5,1);
1148 println("This is a test of the ANSWERBACK MESSAGE. (To load the A.B.M.");
1149 println("see the TEST KEYBOARD part of this program). Below here, the");
1150 println("current answerback message in your terminal should be");
1151 println("displayed. Finish this test with RETURN.");
1152 cup(10,1);
1153 inflush();
1154 printf("%c", 5); /* ENQ */
1155 report = instr();
1156 cup(10,1);
1157 chrprint(report);
1158 cup(12,1);
1159 holdit();
1160
1161 ed(2);
1162 cup(1,1);
1163 println("Test of LineFeed/NewLine mode.");
1164 cup(3,1);
1165 sm("20");
1166 #ifdef UNIX
1167 # ifdef TERMIO
1168 termioNew.c_iflag &= ~ICRNL;
1169 termioNew.c_oflag &= ~ONLCR;
1170 (void) ioctl(0, TCSETAW, &termioNew);
1171 # else
1172 sgttyNew.sg_flags &= ~CRMOD;
1173 stty(0, &sgttyNew);
1174 # endif
1175 #endif
1176 printf("NewLine mode set. Push the RETURN key: ");
1177 report = instr();
1178 cup(4,1);
1179 el(0);
1180 chrprint(report);
1181 if (!strcmp(report, "\015\012")) printf(" -- OK");
1182 else printf(" -- Not expected");
1183 cup(6,1);
1184 rm("20");
1185 printf("NewLine mode reset. Push the RETURN key: ");
1186 report = instr();
1187 cup(7,1);
1188 el(0);
1189 chrprint(report);
1190 if (!strcmp(report, "\015")) printf(" -- OK");
1191 else printf(" -- Not expected");
1192 cup(9,1);
1193 #ifdef UNIX
1194 # ifdef TERMIO
1195 termioNew.c_iflag |= ICRNL;
1196 termioNew.c_oflag |= ONLCR;
1197 (void) ioctl(0, TCSETAW, &termioNew);
1198 # else
1199 sgttyNew.sg_flags |= CRMOD;
1200 stty(0, &sgttyNew);
1201 # endif
1202 #endif
1203 holdit();
1204
1205 ed(2);
1206 cup(1,1);
1207 printf("Test of Device Status Report 5 (report terminal status).");
1208 cup(2,1);
1209 dsr(5);
1210 report = instr();
1211 cup(2,1);
1212 el(0);
1213 printf("Report is: ");
1214 chrprint(report);
1215 if (!strcmp(report,"\033[0n")) printf(" -- means \"TERMINAL OK\"");
1216 else if (!strcmp(report,"\033[3n")) printf(" -- means \"TERMINAL OK\"");
1217 else printf(" -- Unknown response!");
1218
1219 cup(4,1);
1220 println("Test of Device Status Report 6 (report cursor position).");
1221 cup(5,1);
1222 dsr(6);
1223 report = instr();
1224 cup(5,1);
1225 el(0);
1226 printf("Report is: ");
1227 chrprint(report);
1228 if (!strcmp(report,"\033[5;1R")) printf(" -- OK");
1229 else printf(" -- Unknown response!");
1230
1231 cup(7,1);
1232 println("Test of Device Attributes report (what are you)");
1233 cup(8,1);
1234 da(0);
1235 report = instr();
1236 cup(8,1);
1237 el(0);
1238 printf("Report is: ");
1239 chrprint(report);
1240 for (i = 0; *attributes[i][0] != '\0'; i++) {
1241 if (!strcmp(report,attributes[i][0])) break;
1242 }
1243 if (*attributes[i][0] == '\0')
1244 printf(" -- Unknown response, refer to the manual");
1245 else {
1246 printf(" -- means %s", attributes[i][1]);
1247 if (i) {
1248 cup(9,1);
1249 println("Legend: STP = Processor Option");
1250 println(" AVO = Advanced Video Option");
1251 println(" GPO = Graphics Processor Option");
1252 println(" PP = Printer Port");
1253 }
1254 }
1255
1256 cup(14,1);
1257 println("Test of the \"Request Terminal Parameters\" feature, argument 0.");
1258 cup(15,1);
1259 decreqtparm(0);
1260 report = instr();
1261 cup(15,1);
1262 el(0);
1263 printf("Report is: ");
1264 chrprint(report);
1265 if (strlen(report) < 16
1266 || report[0] != '\033'
1267 || report[1] != '['
1268 || report[2] != '2'
1269 || report[3] != ';')
1270 println(" -- Bad format");
1271 else {
1272 reportpos = 4;
1273 parity = scanto(report, &reportpos, ';');
1274 nbits = scanto(report, &reportpos, ';');
1275 xspeed = scanto(report, &reportpos, ';');
1276 rspeed = scanto(report, &reportpos, ';');
1277 clkmul = scanto(report, &reportpos, ';');
1278 flags = scanto(report, &reportpos, 'x');
1279 if (parity == 0 || nbits == 0 || clkmul == 0) println(" -- Bad format");
1280 else println(" -- OK");
1281 printf(
1282 "This means: Parity %s, %s bits, xmitspeed %s, recvspeed %s.\n",
1283 lookup(paritytable, parity),
1284 lookup(nbitstable, nbits),
1285 lookup(speedtable, xspeed),
1286 lookup(speedtable, rspeed));
1287 printf("(CLoCk MULtiplier = %d, STP option flags = %d)\n", clkmul, flags);
1288 }
1289
1290 cup(19,1);
1291 println("Test of the \"Request Terminal Parameters\" feature, argument 1.");
1292 cup(20,1);
1293 decreqtparm(1); /* Does the same as decreqtparm(0), reports "3" */
1294 report2 = instr();
1295 cup(20,1);
1296 el(0);
1297 printf("Report is: ");
1298 chrprint(report2);
1299 if (strlen(report2) < 3
1300 || report2[2] != '3')
1301 println(" -- Bad format");
1302 else {
1303 report2[2] = '2';
1304 if (!strcmp(report,report2)) println(" -- OK");
1305 else println(" -- Bad format");
1306 }
1307 cup(24,1);
1308 holdit();
1309 #ifdef UNIX
1310 # ifdef TERMIO
1311 termioNew.c_lflag |= ECHO;
1312 (void) ioctl(0, TCSETAW, &termioNew);
1313 # else
1314 sgttyNew.sg_flags |= ECHO;
1315 stty(0, &sgttyNew);
1316 # endif
1317 #endif
1318 }
1319
1320 tst_vt52() {
1321
1322 static struct rtabl {
1323 char *rcode;
1324 char *rmsg;
1325 } resptable[] = {
1326 { "\033/K", " -- OK (means Standard VT52)" },
1327 { "\033/Z", " -- OK (means VT100 emulating VT52)" },
1328 { "", " -- Unknown response"}
1329 };
1330
1331 int i,j;
1332 char *response;
1333
1334 rm("?2"); /* Reset ANSI (VT100) mode, Set VT52 mode */
1335 esc("H"); /* Cursor home */
1336 esc("J"); /* Erase to end of screen */
1337 esc("H"); /* Cursor home */
1338 for (i = 0; i <= 23; i++) {
1339 for (j = 0; j <= 9; j++)
1340 printf("%s", "FooBar ");
1341 println("Bletch");
1342 }
1343 esc("H"); /* Cursor home */
1344 esc("J"); /* Erase to end of screen */
1345
1346 vt52cup(7,47);
1347 printf("nothing more.");
1348 for (i = 1; i <= 10; i++) printf("THIS SHOULD GO AWAY! ");
1349 for (i = 1; i <= 5; i++) {
1350 vt52cup(1,1);
1351 printf("%s", "Back scroll (this should go away)");
1352 esc("I"); /* Reverse LineFeed (with backscroll!) */
1353 }
1354 vt52cup(12,60);
1355 esc("J"); /* Erase to end of screen */
1356 for (i = 2; i <= 6; i++) {
1357 vt52cup(i,1);
1358 esc("K"); /* Erase to end of line */
1359 }
1360
1361 for (i = 2; i <= 23; i++) {
1362 vt52cup(i,70); printf("%s", "**Foobar");
1363 }
1364 vt52cup(23,10);
1365 for (i = 23; i >= 2; i--) {
1366 printf("%s", "*");
1367 printf("%c", 8); /* BS */
1368 esc("I"); /* Reverse LineFeed (LineStarve) */
1369 }
1370 vt52cup(1,70);
1371 for (i = 70; i >= 10; i--) {
1372 printf("%s", "*");
1373 esc("D"); esc("D"); /* Cursor Left */
1374 }
1375 vt52cup(24,10);
1376 for (i = 10; i <= 70; i++) {
1377 printf("%s", "*");
1378 printf("%c", 8); /* BS */
1379 esc("C"); /* Cursor Right */
1380 }
1381 vt52cup(2,11);
1382 for (i = 2; i <= 23; i++) {
1383 printf("%s", "!");
1384 printf("%c", 8); /* BS */
1385 esc("B"); /* Cursor Down */
1386 }
1387 vt52cup(23,69);
1388 for (i = 23; i >= 2; i--) {
1389 printf("%s", "!");
1390 printf("%c", 8); /* BS */
1391 esc("A"); /* Cursor Up */
1392 }
1393 for (i = 2; i <= 23; i++) {
1394 vt52cup(i,71);
1395 esc("K"); /* Erase to end of line */
1396 }
1397
1398 vt52cup(10,16);
1399 printf("%s", "The screen should be cleared, and have a centered");
1400 vt52cup(11,16);
1401 printf("%s", "rectangle of \"*\"s with \"!\"s on the inside to the");
1402 vt52cup(12,16);
1403 printf("%s", "left and right. Only this, and");
1404 vt52cup(13,16);
1405 holdit();
1406
1407 esc("H"); /* Cursor home */
1408 esc("J"); /* Erase to end of screen */
1409 printf("%s", "This is the normal character set:");
1410 for (j = 0; j <= 1; j++) {
1411 vt52cup(3 + j, 16);
1412 for (i = 0; i <= 47; i++)
1413 printf("%c", 32 + i + 48 * j);
1414 }
1415 vt52cup(6,1);
1416 printf("%s", "This is the special graphics character set:");
1417 esc("F"); /* Select Special Graphics character set */
1418 for (j = 0; j <= 1; j++) {
1419 vt52cup(8 + j, 16);
1420 for (i = 0; i <= 47; i++)
1421 printf("%c", 32 + i + 48 * j);
1422 }
1423 esc("G"); /* Select ASCII character set */
1424 vt52cup(12,1);
1425 holdit();
1426
1427 esc("H"); /* Cursor home */
1428 esc("J"); /* Erase to end of screen */
1429 println("Test of terminal response to IDENTIFY command");
1430 esc("Z"); /* Identify */
1431 response = instr();
1432 println("");
1433 printf("Response was");
1434 esc("<"); /* Enter ANSI mode (VT100 mode) */
1435 chrprint(response);
1436 for(i = 0; resptable[i].rcode[0] != '\0'; i++)
1437 if (!strcmp(response, resptable[i].rcode))
1438 break;
1439 printf("%s", resptable[i].rmsg);
1440 println("");
1441 println("");
1442 holdit();
1443 }
1444
1445 tst_insdel() {
1446
1447 /* Test of:
1448 SM/RM(4) (= IRM (Insertion/replacement mode))
1449 ICH (Insert Character)
1450 DCH (Delete character)
1451 IL (Insert line)
1452 DL (Delete line)
1453 */
1454
1455 int i, row, col, sw, dblchr, scr132;
1456
1457 for(scr132 = 0; scr132 <= 1; scr132++) {
1458 if (scr132) { sm("?3"); sw = 132; }
1459 else { rm("?3"); sw = 80; }
1460 ed(2);
1461 cup(1,1);
1462 for (row=1; row<=24; row++) {
1463 cup(row,1);
1464 for (col=1; col<=sw; col++)
1465 printf("%c", 'A'-1+row);
1466 }
1467 cup(4,1);
1468 printf("Screen accordion test (Insert & Delete Line). "); holdit();
1469 ri(); el(2);
1470 decstbm( 2,23);
1471 sm("?6");
1472 cup(1,1);
1473 for (row=1; row<=24; row++) {
1474 il(row);
1475 dl(row);
1476 }
1477 rm("?6");
1478 decstbm( 0, 0);
1479 cup(2,1);
1480 printf(
1481 "Top line: A's, bottom line: X's, this line, nothing more. ");
1482 holdit();
1483 cup(2,1); ed(0);
1484 cup(1,2);
1485 printf("B");
1486 cub(1);
1487 sm("4");
1488 for (col=2; col<=sw-1; col++)
1489 printf("*");
1490 rm("4");
1491 cup(4,1);
1492 printf("Test of 'Insert Mode'. The top line should be 'A*** ... ***B'. ");
1493 holdit(); ri(); el(2);
1494 cup(1,2);
1495 dch(sw-2);
1496 cup(4,1);
1497 printf("Test of 'Delete Character'. The top line should be 'AB'. ");
1498 holdit();
1499
1500 for(dblchr = 1; dblchr <= 2; dblchr++) {
1501 ed(2);
1502 for (row=1; row<=24; row++) {
1503 cup(row,1);
1504 if (dblchr == 2) decdwl();
1505 for (col=1; col<=sw/dblchr; col++)
1506 printf("%c", 'A'-1+row);
1507 cup(row,sw/dblchr-row);
1508 dch(row);
1509 }
1510 cup(4,1);
1511 println("The right column should be staggered ");
1512 printf("by one. ");
1513 holdit();
1514 }
1515 ed(2);
1516 cup(1,1);
1517 println("If your terminal has the ANSI 'Insert Character' function");
1518 println("(the VT102 does not), then you should see a line like this");
1519 println(" A B C D E F G H I J K L M N O P Q R S T U V W X Y Z");
1520 println("below:");
1521 println("");
1522 for (i = 'Z'; i >= 'A'; i--) {
1523 printf("%c\010",i);
1524 ich(2);
1525 }
1526 cup(10,1);
1527 holdit();
1528
1529 if (sw == 132) rm("?3");
1530 }
1531 }
1532
1533 dch(pn) int pn; { brc(pn, 'P'); } /* Delete character */
1534 ich(pn) int pn; { brc(pn, '@'); } /* Insert character -- not in VT102 */
1535 dl(pn) int pn; { brc(pn, 'M'); } /* Delete line */
1536 il(pn) int pn; { brc(pn, 'L'); } /* Insert line */
1537
1538 /* Test of some known VT100 bugs and misfeatures */
1539
1540 tst_bugs() {
1541
1542 int i, menuchoice;
1543
1544 static char *menutable[] = {
1545 "Exit to main menu",
1546 "Bug A: Smooth scroll to jump scroll",
1547 "Bug B: Scrolling region",
1548 "Bug C: Wide to narrow screen",
1549 "Bug D: Narrow to wide screen",
1550 "Bug E: Cursor move from double- to single-wide line",
1551 "Bug F: Column mode escape sequence",
1552 "Wrap around with cursor addressing",
1553 "Erase right half of double width lines",
1554 "Funny scroll regions",
1555 /* Add more here */
1556 ""
1557 };
1558
1559 static char *hmsg[] = {
1560 "Test of known bugs in the DEC VT100 series. The numbering of some of",
1561 "the bugs (A-F) refers to the article 'VT100 MAGIC' by Sami Tabih in",
1562 "the 'Proceedings of the DEC Users Society' at St. Louis, Missouri, May",
1563 "1983. To understand some of the tests, you have to look at the source",
1564 "code or the article. Of course, a good VT100-compatible terminal",
1565 "should not have these bugs (or have some means of disabling them)! If",
1566 "a bug appears, you might want to RESET the terminal before continuing",
1567 "the test. There is a test of the RESET function in the main menu.",
1568 "" };
1569
1570 do {
1571 ed(2); cup(1,1);
1572 for (i = 0; *hmsg[i]; i++) println(hmsg[i]);
1573 println("");
1574 println(" Choose bug test number:");
1575 menuchoice = menu(menutable);
1576 switch (menuchoice) {
1577 case 1: bug_a(); break;
1578 case 2: bug_b(); break;
1579 case 3: bug_c(); break;
1580 case 4: bug_d(); break;
1581 case 5: bug_e(); break;
1582 case 6: bug_f(); break;
1583 case 7: bug_w(); break;
1584 case 8: bug_l(); break;
1585 case 9: bug_s(); break;
1586 }
1587 } while (menuchoice);
1588 }
1589
1590 /* Bug A: Smooth scroll to jump scroll */
1591
1592 bug_a() {
1593 int i;
1594
1595 cup (10, 1);
1596 println("This is a test of the VT100 'Scroll while toggle softscroll'");
1597 println("bug. The cursor may disappear, or move UP the screen, or");
1598 println("multiple copies of some lines may appear.");
1599 holdit();
1600
1601 /* Invoke the bug */
1602
1603 esc ("[24H"); /* Simplified cursor movement */
1604 rm("?4"); for (i = 1; i <= 20; i++) printf("\n");
1605 sm("?4"); for (i = 1; i <= 10; i++) printf("\n");
1606 rm("?4"); for (i = 1; i <= 5; i++) printf("\n");
1607
1608 /* That should be enough to show the bug. But we'll try another way: */
1609 sm ("?4"); /* Set soft scroll */
1610 nel (); /* "NextLine", move down */
1611 rm ("?4"); /* Reset soft scroll */
1612 nel (); /* "NextLine", move down */
1613 for (i = 1; i <= 10; i++) { /* Show the bug */
1614 printf ("Softscroll bug test, line %d. ", i);
1615 holdit();
1616 }
1617 println("That should have been enough to show the bug, if present.");
1618 holdit();
1619 }
1620
1621 /* Bug B: Scrolling region */
1622
1623 bug_b() {
1624 char c;
1625
1626 decaln();
1627 cup( 1,1); el(0);
1628 printf("Line 11 should be double-wide, line 12 should be cleared.");
1629 cup( 2,1); el(0);
1630 printf("Then, the letters A-P should be written at the beginning");
1631 cup( 3,1); el(0);
1632 printf("of lines 12-24, and the empty line and A-E are scrolled away.");
1633 cup( 4,1); el(0);
1634 printf("If the bug is present, some lines are confused, look at K-P.");
1635 cup(11,1); decdwl();
1636 decstbm(12,24);
1637 cup(12,1); el(0); printf("Here we go... "); holdit();
1638 cup(12,1); ri(); /* Bug comes here */
1639 for (c = 'A'; c <= 'P'; c++) printf("%c\n",c); /* Bug shows here */
1640 holdit();
1641 decstbm(0,0); /* No scr. region */
1642 }
1643
1644 /* Bug C: Wide to narrow screen */
1645
1646 bug_c() {
1647 sm("?3"); /* 132 column mode */
1648 cup(1,81);
1649 rm("?3"); /* 80 column mode */
1650 cup(12,5);
1651 printf("Except for this line, the screen should be blank. ");
1652 holdit();
1653 }
1654
1655 /* Bug D: Narrow to wide screen */
1656
1657 bug_d() {
1658 int i;
1659 char result;
1660 /* Make the bug appear */
1661 do {
1662 cup(14,1);
1663
1664 /* The original code in the article says
1665 * PRINT ESC$; "[13;1H"; CHR$(10%);
1666 * but I guess a cup(14,1); would do.
1667 * (To output a pure LF might be tricky).
1668 */
1669
1670 sm("?3"); /* Make the bug visible */
1671 cup(1,9); decdwl();
1672 println("You should see blinking text at the bottom line.");
1673 cup(3,9); decdwl();
1674 println("Enter 0 to exit, 1 to try to invoke the bug again.");
1675 cup(24,9); decdwl(); sgr("1;5;7");
1676 printf("If you can see this then the bug did not appear."); sgr("");
1677 cup(4,9); decdwl();
1678 result = inchar(); readnl();
1679 rm("?3");
1680 } while (result == '1');
1681 sm("?4"); /* Syrup scroll */
1682 cup(23,1);
1683 for (i = 1; i <= 5; i++)
1684 println("If the bug is present, this should make things much worse!");
1685 holdit();
1686 rm("?4"); /* Jump scroll */
1687 }
1688
1689 /* Bug E: Cursor move from double- to single-wide line */
1690
1691 bug_e() {
1692 int i;
1693 static char *rend[2] = { "\033[m", "\033[7m" };
1694 sm("?3");
1695 cup(1,1); decdwl();
1696 println("This test should put an 'X' at line 3 column 100.");
1697 for (i = 1; i <= 12; i++) printf("1234567890%s",rend[i & 1]);
1698 cup(1,1); /* The bug appears when we jump from a dobule-wide line */
1699 cup(3,100); /* to a single-wide line, column > 66. */
1700 printf("X");
1701 cup(4, 66); printf("! !");
1702 cup(5,1);
1703 printf("--------------------------- The 'X' should NOT be above here -");
1704 printf("---+------------ but above here -----+");
1705 cup(10,1); decdwl(); holdit();
1706 rm("?3");
1707 }
1708
1709 /* Bug F: Column mode escape sequence */
1710
1711 bug_f() {
1712 int i, row, col;
1713
1714 /*
1715 * VT100 "toggle origin mode, forget rest" bug. If you try to set
1716 * (or clear) parameters and one of them is the "origin mode"
1717 * ("?6") parameter, parameters that appear after the "?6"
1718 * remain unaffected. This is also true on CIT-101 terminals.
1719 */
1720 sm ("?5"); /* Set reverse mode */
1721 sm ("?3"); /* Set 132 column mode */
1722 println("Test VT100 'Toggle origin mode, forget rest' bug, part 1.");
1723 println("The screen should be in reverse, 132 column mode.");
1724 holdit();
1725 ed (2);
1726 rm ("?6;5;3"); /* Reset (origin, reverse, 132 col) */
1727 println("Test VT100 'Toggle origin mode, forget rest' bug, part 2.\n");
1728 println("The screen should be in non-reverse, 80 column mode.");
1729 holdit();
1730 }
1731
1732 /* Bug W:
1733 * The dreaded "wraparound" bug! You CUP to col 80, write a char,
1734 * CUP to another line in col 80, write a char. And the brain-damaged
1735 * terminal thinks that "Hokay, so he's written a char in col 80, so
1736 * I stay in col 80 and wait for next character. Let's see now, here
1737 * comes another character, and I'm still in col 80, so I must make
1738 * a NewLine first." -- It doesn't clear that "still in col 80" flag
1739 * on a CUP. Argh!
1740 */
1741
1742 bug_w() {
1743 int row, col;
1744
1745 cup (16,1);
1746 println(" This illustrates the \"wrap around bug\" which exists on a");
1747 println(" standard VT100. At the top of the screen there should be");
1748 println(" a row of +'s, and the rightmost column should be filled");
1749 println(" with *'s. But if the bug is present, some of the *'s may");
1750 println(" be placed in other places, e.g. in the leftmost column,");
1751 println(" and the top line of +'s may be scrolled away.");
1752
1753 cup(1,1);
1754 for (col = 1; col <= 79; col++)
1755 printf ("+");
1756 for (row = 1; row <= 24; row++) {
1757 hvp (row, 80);
1758 printf ("*");
1759 }
1760 cup(24,1);
1761 holdit();
1762 }
1763
1764 /* Bug L:
1765 * Check if the right half of double-width lines comes back
1766 * when a line is first set to single-width, filled with stuff,
1767 * set to double-width, and finally reset to single-width.
1768 *
1769 * A VT100 has this misfeature, and many others. Foo!
1770 */
1771
1772 bug_l() {
1773 cup(15, 1);
1774 printf("This-is-a-long-line-This-is-a-long-line-");
1775 printf("This-is-a-long-line-This-is-a-long-line-");
1776 cup(1, 1);
1777 printf("This is a test of what happens to the right half of double-width");
1778 println(" lines.");
1779 printf("A common misfeature is that the right half does not come back");
1780 println(" when a long");
1781 printf("single-width line is set to double-width and then reset to");
1782 println(" single-width.");
1783
1784 cup(5, 1);
1785 println("Now the line below should contain 80 characters in single width.");
1786 holdit();
1787 cup(15, 1); decdwl();
1788 cup(8, 1);
1789 println("Now the line below should contain 40 characters in double width.");
1790 holdit();
1791 cup(15, 1); decswl();
1792 cup(11, 1);
1793 println("Now the line below should contain 80 characters in single width.");
1794 holdit();
1795
1796 /* ...and in 132 column mode */
1797
1798 sm("?3");
1799 ed(2);
1800 cup(15, 1);
1801 printf("This-is-a-long-line-This-is-a-long-line-");
1802 printf("This-is-a-long-line-This-is-a-long-line-");
1803 printf("This-is-a-long-line-This-is-a-long-line-");
1804 printf("ending-here-");
1805
1806 cup(1, 1);
1807 printf("This is the same test in 132 column mode.");
1808
1809 cup(5, 1);
1810 println("Now the line below should contain 132 characters in single width.");
1811 holdit();
1812 cup(15, 1); decdwl();
1813 cup(8, 1);
1814 println("Now the line below should contain 66 characters in double width.");
1815 holdit();
1816 cup(15, 1); decswl();
1817 cup(11, 1);
1818 println("Now the line below should contain 132 characters in single width.");
1819 holdit();
1820 rm("?3");
1821 }
1822
1823 bug_s() {
1824 int i;
1825 decstbm(20,10); /* 20-10=-10, < 2, so no scroll region. */
1826 cup(1,1);
1827 for (i=1; i<=20; i++)
1828 printf("This is 20 lines of text (line %d), no scroll region.\n", i);
1829 holdit();
1830 ed(2);
1831 decstbm(0,1); /* Should be interpreted as decstbm(1,1) = none */
1832 cup(1,1);
1833 for (i=1; i<=20; i++)
1834 printf("This is 20 lines of text (line %d), no scroll region.\n", i);
1835 holdit();
1836 decstbm(0,0); /* No scroll region (just in case...) */
1837 }
1838
1839 tst_rst() {
1840
1841 /*
1842 * Test of
1843 * - RIS (Reset to Initial State)
1844 * - DECTST (invoke terminal test)
1845 */
1846
1847 cup(10,1);
1848 printf ("The terminal will now be RESET. ");
1849 holdit();
1850 ris();
1851 #ifdef UNIX
1852 fflush(stdout);
1853 #endif
1854 zleep(5000); /* Wait 5.0 seconds */
1855 cup(10,1);
1856 println("The terminal is now RESET. Next, the built-in confidence test");
1857 printf("%s", "will be invoked. ");
1858 holdit();
1859 ed(2);
1860 dectst(1);
1861 #ifdef UNIX
1862 fflush(stdout);
1863 #endif
1864 zleep(5000); /* Wait 5.0 seconds */
1865 cup(10,1);
1866 println("If the built-in confidence test found any errors, a code");
1867 printf("%s", "is visible above. ");
1868 holdit();
1869 }
1870
1871 initterminal(pn) int pn; {
1872
1873
1874 #ifdef UNIX
1875 # ifdef TERMIO
1876 if (pn==0) {
1877 fflush(stdout);
1878 (void) ioctl(0, TCGETA, &termioOrg);
1879 (void) ioctl(0, TCGETA, &termioNew);
1880 termioNew.c_lflag &= ~ICANON;
1881 termioNew.c_cc[VMIN] = 1;
1882 termioNew.c_cc[VTIME] = 0;
1883 (void) ioctl(0, TCSETAW, &termioNew);
1884 }
1885 else {
1886 fflush(stdout);
1887 inflush();
1888 sleep(2);
1889 termioNew.c_lflag = termioOrg.c_lflag & ~ICANON;
1890 termioNew.c_cc[VMIN] = 1;
1891 termioNew.c_cc[VTIME] = 0;
1892 }
1893 (void) ioctl(0, TCSETAW, &termioNew);
1894 # else
1895 if (pn==0) {
1896 fflush(stdout);
1897 gtty(0,&sgttyOrg);
1898 gtty(0,&sgttyNew);
1899 sgttyNew.sg_flags |= CBREAK;
1900 }
1901 else {
1902 fflush(stdout);
1903 inflush();
1904 sleep(2);
1905 sgttyNew.sg_flags = sgttyOrg.sg_flags | CBREAK;
1906 }
1907 stty(0,&sgttyNew);
1908 # endif
1909 #ifdef SIII
1910 close(2);
1911 open("/dev/tty",O_RDWR|O_NDELAY);
1912 #endif
1913 #endif
1914
1915 #ifdef SARG10
1916 /* Set up necessary TOPS-10 terminal parameters */
1917
1918 trmop(02041, `VT100`); /* tty type vt100 */
1919 trmop(02002, 0); /* tty no tape */
1920 trmop(02003, 0); /* tty lc */
1921 trmop(02005, 1); /* tty tab */
1922 trmop(02010, 1); /* tty no crlf */
1923 trmop(02020, 0); /* tty no tape */
1924 trmop(02021, 1); /* tty page */
1925 trmop(02025, 0); /* tty blanks */
1926 trmop(02026, 1); /* tty no alt */
1927 trmop(02040, 1); /* tty defer */
1928 #endif
1929 #ifdef SARG20
1930 ttybin(1); /* set line to binary mode */
1931 #endif
1932 /* Set up my personal prejudices */
1933
1934 esc("<"); /* Enter ANSI mode (if in VT52 mode) */
1935 rm("?1"); /* cursor keys normal */
1936 rm("?3"); /* 80 col mode */
1937 rm("?4"); /* Jump scroll */
1938 rm("?5"); /* Normal screen */
1939 rm("?6"); /* Absolute origin mode */
1940 sm("?7"); /* Wrap around on */
1941 rm("?8"); /* Auto repeat off */
1942 decstbm(0,0); /* No scroll region */
1943 sgr("0"); /* Normal character attributes */
1944
1945 }
1946
1947 bye () {
1948 /* Force my personal prejudices upon the poor luser */
1949
1950 esc("<"); /* Enter ANSI mode (if in VT52 mode) */
1951 rm("?1"); /* cursor keys normal */
1952 rm("?3"); /* 80 col mode */
1953 rm("?5"); /* Normal screen */
1954 rm("?6"); /* Absolute origin mode */
1955 sm("?7"); /* Wrap around on */
1956 sm("?8"); /* Auto repeat on */
1957 decstbm(0,0); /* No scroll region */
1958 sgr("0"); /* Normal character attributes */
1959
1960 /* Say goodbye */
1961
1962 ed(2);
1963 cup(12,30);
1964 printf("That's all, folks!\n");
1965 printf("\n\n\n");
1966 inflush();
1967 #ifdef SARG20
1968 ttybin(0); /* reset line to normal mode */
1969 #endif
1970 #ifdef UNIX
1971 #ifdef TERMIO
1972 (void) ioctl(0, TCSETAW, &termioOrg);
1973 #else
1974 stty(0,&sgttyOrg);
1975 #endif
1976 #endif
1977 exit(0);
1978 }
1979
1980 #ifdef UNIX
1981 onbrk() {
1982 signal(SIGINT, onbrk);
1983 if (reading)
1984 brkrd = 1;
1985 else
1986 longjmp(intrenv, 1);
1987 }
1988
1989 onterm() {
1990 signal(SIGTERM, onterm);
1991 longjmp(intrenv, 1);
1992 }
1993 #endif
1994
1995 holdit() {
1996 inflush();
1997 printf("Push <RETURN>");
1998 readnl();
1999 }
2000
2001 readnl() {
2002 #ifdef UNIX
2003 char ch;
2004 fflush(stdout);
2005 brkrd = 0;
2006 reading = 1;
2007 do { read(0,&ch,1); } while(ch != '\n' && !brkrd);
2008 if (brkrd)
2009 kill(getpid(), SIGTERM);
2010 reading = 0;
2011 #endif
2012 #ifdef SARG10
2013 while (getchar() != '\n')
2014 ;
2015 #endif
2016 #ifdef SARG20
2017 while (getchar() != '\n')
2018 ;
2019 #endif
2020 }
2021
2022 scanto(str, pos, toc) char *str; int *pos; char toc; {
2023 char c;
2024 int result = 0;
2025
2026 while (toc != (c = str[(*pos)++])) {
2027 if (isdigit(c)) result = result * 10 + c - '0';
2028 else break;
2029 }
2030 if (c == toc) return(result);
2031 else return(0);
2032 }
2033
2034 char *lookup(t, k) struct table t[]; int k; {
2035
2036 int i;
2037 for (i = 0; t[i].key != -1; i++) {
2038 if (t[i].key == k) return(t[i].msg);
2039 }
2040 return("BAD VALUE");
2041 }
2042
2043 menu(table) char *table[]; {
2044
2045 int i, tablesize, choice;
2046 char c;
2047 char storage[80];
2048 char *s = storage;
2049 println("");
2050 tablesize = 0;
2051 for (i = 0; *table[i] != '\0'; i++) {
2052 printf(" %d. %s\n", i, table[i]);
2053 tablesize++;
2054 }
2055 tablesize--;
2056
2057 printf("\n Enter choice number (0 - %d): ", tablesize);
2058 for(;;) {
2059 inputline(s);
2060 choice = 0;
2061 while (c = *s++) choice = 10 * choice + c - '0';
2062 if (choice >= 0 && choice <= tablesize) {
2063 ed(2);
2064 return (choice);
2065 }
2066 printf(" Bad choice, try again: ");
2067 }
2068 }
2069
2070 chrprint (s) char *s; {
2071
2072 int i;
2073
2074 printf(" ");
2075 sgr("7");
2076 printf(" ");
2077 for (i = 0; s[i] != '\0'; i++) {
2078 if (s[i] <= ' ' || s[i] == '\177')
2079 printf("<%d> ", s[i]);
2080 else printf("%c ", s[i]);
2081 }
2082 sgr("");
2083 }
working branch for uwolfer