141 for (np = gettynums; np->field; np++) 142 if (!np->set) 143 np->value = np->defalt; 144 for (fp = gettyflags; fp->field; fp++) 145 if (!fp->set) 146 fp->value = fp->defalt; 147} 148 149static char ** 150charnames[] = { 151 &ER, &KL, &IN, &QU, &XN, &XF, &ET, &BK, 152 &SU, &DS, &RP, &FL, &WE, &LN, 0 153}; 154 155static char * 156charvars[] = { 157 &tmode.c_cc[VERASE], &tmode.c_cc[VKILL], &tmode.c_cc[VINTR], 158 &tmode.c_cc[VQUIT], &tmode.c_cc[VSTART], &tmode.c_cc[VSTOP], 159 &tmode.c_cc[VEOF], &tmode.c_cc[VEOL], &tmode.c_cc[VSUSP], 160 &tmode.c_cc[VDSUSP], &tmode.c_cc[VREPRINT], &tmode.c_cc[VDISCARD], 161 &tmode.c_cc[VWERASE], &tmode.c_cc[VLNEXT], 0 162}; 163 164void 165setchars() 166{ 167 register int i; 168 register const char *p; 169 170 for (i = 0; charnames[i]; i++) { 171 p = *charnames[i]; 172 if (p && *p) 173 *charvars[i] = *p; 174 else 175 *charvars[i] = _POSIX_VDISABLE; 176 } 177} 178 179/* Macros to clear/set/test flags. */ 180#define SET(t, f) (t) |= (f) 181#define CLR(t, f) (t) &= ~(f) 182#define ISSET(t, f) ((t) & (f)) 183 184void 185setflags(n) 186 int n; 187{ 188 register tcflag_t iflag, oflag, cflag, lflag; 189 190#ifdef COMPAT_43 191 switch (n) { 192 case 0: 193 if (F0set) { 194 compatflags(F0); 195 return; 196 } 197 break; 198 case 1: 199 if (F1set) { 200 compatflags(F1); 201 return; 202 } 203 break; 204 default: 205 if (F2set) { 206 compatflags(F2); 207 return; 208 } 209 break; 210 } 211#endif 212 213 switch (n) { 214 case 0: 215 if (C0set && I0set && L0set && O0set) { 216 tmode.c_cflag = C0; 217 tmode.c_iflag = I0; 218 tmode.c_lflag = L0; 219 tmode.c_oflag = O0; 220 return; 221 } 222 break; 223 case 1: 224 if (C1set && I1set && L1set && O1set) { 225 tmode.c_cflag = C1; 226 tmode.c_iflag = I1; 227 tmode.c_lflag = L1; 228 tmode.c_oflag = O1; 229 return; 230 } 231 break; 232 default: 233 if (C2set && I2set && L2set && O2set) { 234 tmode.c_cflag = C2; 235 tmode.c_iflag = I2; 236 tmode.c_lflag = L2; 237 tmode.c_oflag = O2; 238 return; 239 } 240 break; 241 } 242 243 iflag = omode.c_iflag; 244 oflag = omode.c_oflag; 245 cflag = omode.c_cflag; 246 lflag = omode.c_lflag; 247 248 if (NP) { 249 CLR(cflag, CSIZE|PARENB); 250 SET(cflag, CS8); 251 CLR(iflag, ISTRIP|INPCK|IGNPAR); 252 } else if (AP || EP || OP) { 253 CLR(cflag, CSIZE); 254 SET(cflag, CS7|PARENB); 255 SET(iflag, ISTRIP); 256 if (OP && !EP) { 257 SET(iflag, INPCK|IGNPAR); 258 SET(cflag, PARODD); 259 if (AP) 260 CLR(iflag, INPCK); 261 } else if (EP && !OP) { 262 SET(iflag, INPCK|IGNPAR); 263 CLR(cflag, PARODD); 264 if (AP) 265 CLR(iflag, INPCK); 266 } else if (AP || (EP && OP)) { 267 CLR(iflag, INPCK|IGNPAR); 268 CLR(cflag, PARODD); 269 } 270 } /* else, leave as is */ 271 272#if 0 273 if (UC) 274 f |= LCASE; 275#endif 276 277 if (HC) 278 SET(cflag, HUPCL); 279 else 280 CLR(cflag, HUPCL); 281 282 if (MB) 283 SET(cflag, MDMBUF); 284 else 285 CLR(cflag, MDMBUF); 286 287 if (HW) 288 SET(cflag, CRTSCTS); 289 else 290 CLR(cflag, CRTSCTS); 291 292 if (NL) { 293 SET(iflag, ICRNL); 294 SET(oflag, ONLCR|OPOST); 295 } else { 296 CLR(iflag, ICRNL); 297 CLR(oflag, ONLCR); 298 } 299 300 if (!HT) 301 SET(oflag, OXTABS|OPOST); 302 else 303 CLR(oflag, OXTABS); 304 305#ifdef XXX_DELAY 306 SET(f, delaybits()); 307#endif 308 309 if (n == 1) { /* read mode flags */ 310 if (RW) { 311 iflag = 0; 312 CLR(oflag, OPOST); 313 CLR(cflag, CSIZE|PARENB); 314 SET(cflag, CS8); 315 lflag = 0; 316 } else { 317 CLR(lflag, ICANON); 318 } 319 goto out; 320 } 321 322 if (n == 0) 323 goto out; 324 325#if 0 326 if (CB) 327 SET(f, CRTBS); 328#endif 329 330 if (CE) 331 SET(lflag, ECHOE); 332 else 333 CLR(lflag, ECHOE); 334 335 if (CK) 336 SET(lflag, ECHOKE); 337 else 338 CLR(lflag, ECHOKE); 339 340 if (PE) 341 SET(lflag, ECHOPRT); 342 else 343 CLR(lflag, ECHOPRT); 344 345 if (EC) 346 SET(lflag, ECHO); 347 else 348 CLR(lflag, ECHO); 349 350 if (XC) 351 SET(lflag, ECHOCTL); 352 else 353 CLR(lflag, ECHOCTL); 354 355 if (DX) 356 SET(lflag, IXANY); 357 else 358 CLR(lflag, IXANY); 359 360out: 361 tmode.c_iflag = iflag; 362 tmode.c_oflag = oflag; 363 tmode.c_cflag = cflag; 364 tmode.c_lflag = lflag; 365} 366 367#ifdef COMPAT_43 368/* 369 * Old TTY => termios, snatched from <sys/kern/tty_compat.c> 370 */ 371void 372compatflags(flags) 373register long flags; 374{ 375 register tcflag_t iflag, oflag, cflag, lflag; 376 377 iflag = BRKINT|ICRNL|IMAXBEL|IXON|IXANY; 378 oflag = OPOST|ONLCR|OXTABS; 379 cflag = CREAD; 380 lflag = ICANON|ISIG|IEXTEN; 381 382 if (ISSET(flags, TANDEM)) 383 SET(iflag, IXOFF); 384 else 385 CLR(iflag, IXOFF); 386 if (ISSET(flags, ECHO)) 387 SET(lflag, ECHO); 388 else 389 CLR(lflag, ECHO); 390 if (ISSET(flags, CRMOD)) { 391 SET(iflag, ICRNL); 392 SET(oflag, ONLCR); 393 } else { 394 CLR(iflag, ICRNL); 395 CLR(oflag, ONLCR); 396 } 397 if (ISSET(flags, XTABS)) 398 SET(oflag, OXTABS); 399 else 400 CLR(oflag, OXTABS); 401 402 403 if (ISSET(flags, RAW)) { 404 iflag &= IXOFF; 405 CLR(lflag, ISIG|ICANON|IEXTEN); 406 CLR(cflag, PARENB); 407 } else { 408 SET(iflag, BRKINT|IXON|IMAXBEL); 409 SET(lflag, ISIG|IEXTEN); 410 if (ISSET(flags, CBREAK)) 411 CLR(lflag, ICANON); 412 else 413 SET(lflag, ICANON); 414 switch (ISSET(flags, ANYP)) { 415 case 0: 416 CLR(cflag, PARENB); 417 break; 418 case ANYP: 419 SET(cflag, PARENB); 420 CLR(iflag, INPCK); 421 break; 422 case EVENP: 423 SET(cflag, PARENB); 424 SET(iflag, INPCK); 425 CLR(cflag, PARODD); 426 break; 427 case ODDP: 428 SET(cflag, PARENB); 429 SET(iflag, INPCK); 430 SET(cflag, PARODD); 431 break; 432 } 433 } 434 435 /* Nothing we can do with CRTBS. */ 436 if (ISSET(flags, PRTERA)) 437 SET(lflag, ECHOPRT); 438 else 439 CLR(lflag, ECHOPRT); 440 if (ISSET(flags, CRTERA)) 441 SET(lflag, ECHOE); 442 else 443 CLR(lflag, ECHOE); 444 /* Nothing we can do with TILDE. */ 445 if (ISSET(flags, MDMBUF)) 446 SET(cflag, MDMBUF); 447 else 448 CLR(cflag, MDMBUF); 449 if (ISSET(flags, NOHANG)) 450 CLR(cflag, HUPCL); 451 else 452 SET(cflag, HUPCL); 453 if (ISSET(flags, CRTKIL)) 454 SET(lflag, ECHOKE); 455 else 456 CLR(lflag, ECHOKE); 457 if (ISSET(flags, CTLECH)) 458 SET(lflag, ECHOCTL); 459 else 460 CLR(lflag, ECHOCTL); 461 if (!ISSET(flags, DECCTQ)) 462 SET(iflag, IXANY); 463 else 464 CLR(iflag, IXANY); 465 CLR(lflag, TOSTOP|FLUSHO|PENDIN|NOFLSH); 466 SET(lflag, ISSET(flags, TOSTOP|FLUSHO|PENDIN|NOFLSH)); 467 468 if (ISSET(flags, RAW|LITOUT|PASS8)) { 469 CLR(cflag, CSIZE); 470 SET(cflag, CS8); 471 if (!ISSET(flags, RAW|PASS8)) 472 SET(iflag, ISTRIP); 473 else 474 CLR(iflag, ISTRIP); 475 if (!ISSET(flags, RAW|LITOUT)) 476 SET(oflag, OPOST); 477 else 478 CLR(oflag, OPOST); 479 } else { 480 CLR(cflag, CSIZE); 481 SET(cflag, CS7); 482 SET(iflag, ISTRIP); 483 SET(oflag, OPOST); 484 } 485 486 tmode.c_iflag = iflag; 487 tmode.c_oflag = oflag; 488 tmode.c_cflag = cflag; 489 tmode.c_lflag = lflag; 490} 491#endif 492 493#ifdef XXX_DELAY 494struct delayval { 495 unsigned delay; /* delay in ms */ 496 int bits; 497}; 498 499/* 500 * below are random guesses, I can't be bothered checking 501 */ 502 503struct delayval crdelay[] = { 504 { 1, CR1 }, 505 { 2, CR2 }, 506 { 3, CR3 }, 507 { 83, CR1 }, 508 { 166, CR2 }, 509 { 0, CR3 }, 510}; 511 512struct delayval nldelay[] = { 513 { 1, NL1 }, /* special, calculated */ 514 { 2, NL2 }, 515 { 3, NL3 }, 516 { 100, NL2 }, 517 { 0, NL3 }, 518}; 519 520struct delayval bsdelay[] = { 521 { 1, BS1 }, 522 { 0, 0 }, 523}; 524 525struct delayval ffdelay[] = { 526 { 1, FF1 }, 527 { 1750, FF1 }, 528 { 0, FF1 }, 529}; 530 531struct delayval tbdelay[] = { 532 { 1, TAB1 }, 533 { 2, TAB2 }, 534 { 3, XTABS }, /* this is expand tabs */ 535 { 100, TAB1 }, 536 { 0, TAB2 }, 537}; 538 539int 540delaybits() 541{ 542 register int f; 543 544 f = adelay(CD, crdelay); 545 f |= adelay(ND, nldelay); 546 f |= adelay(FD, ffdelay); 547 f |= adelay(TD, tbdelay); 548 f |= adelay(BD, bsdelay); 549 return (f); 550} 551 552int 553adelay(ms, dp) 554 register ms; 555 register struct delayval *dp; 556{ 557 if (ms == 0) 558 return (0); 559 while (dp->delay && ms > dp->delay) 560 dp++; 561 return (dp->bits); 562} 563#endif 564 565char editedhost[MAXHOSTNAMELEN]; 566 567void 568edithost(pat) 569 register const char *pat; 570{ 571 register const char *host = HN; 572 register char *res = editedhost; 573 574 if (!pat) 575 pat = ""; 576 while (*pat) { 577 switch (*pat) { 578 579 case '#': 580 if (*host) 581 host++; 582 break; 583 584 case '@': 585 if (*host) 586 *res++ = *host++; 587 break; 588 589 default: 590 *res++ = *pat; 591 break; 592 593 } 594 if (res == &editedhost[sizeof editedhost - 1]) { 595 *res = '\0'; 596 return; 597 } 598 pat++; 599 } 600 if (*host) 601 strncpy(res, host, sizeof editedhost - (res - editedhost) - 1); 602 else 603 *res = '\0'; 604 editedhost[sizeof editedhost - 1] = '\0'; 605} 606 607static struct speedtab { 608 int speed; 609 int uxname; 610} speedtab[] = { 611 { 50, B50 }, 612 { 75, B75 }, 613 { 110, B110 }, 614 { 134, B134 }, 615 { 150, B150 }, 616 { 200, B200 }, 617 { 300, B300 }, 618 { 600, B600 }, 619 { 1200, B1200 }, 620 { 1800, B1800 }, 621 { 2400, B2400 }, 622 { 4800, B4800 }, 623 { 9600, B9600 }, 624 { 19200, EXTA }, 625 { 19, EXTA }, /* for people who say 19.2K */ 626 { 38400, EXTB }, 627 { 38, EXTB }, 628 { 7200, EXTB }, /* alternative */ 629 { 57600, B57600 }, 630 { 115200, B115200 }, 631 { 0 } 632}; 633 634int 635speed(val) 636 int val; 637{ 638 register struct speedtab *sp; 639 640 if (val <= B115200) 641 return (val); 642 643 for (sp = speedtab; sp->speed; sp++) 644 if (sp->speed == val) 645 return (sp->uxname); 646 647 return (B300); /* default in impossible cases */ 648} 649 650void 651makeenv(env) 652 char *env[]; 653{ 654 static char termbuf[128] = "TERM="; 655 register char *p, *q; 656 register char **ep; 657 658 ep = env; 659 if (TT && *TT) { 660 strcat(termbuf, TT); 661 *ep++ = termbuf; 662 } 663 if ((p = EV)) { 664 q = p; 665 while ((q = strchr(q, ','))) { 666 *q++ = '\0'; 667 *ep++ = p; 668 p = q; 669 } 670 if (*p) 671 *ep++ = p; 672 } 673 *ep = (char *)0; 674} 675 676/* 677 * This speed select mechanism is written for the Develcon DATASWITCH. 678 * The Develcon sends a string of the form "B{speed}\n" at a predefined 679 * baud rate. This string indicates the user's actual speed. 680 * The routine below returns the terminal type mapped from derived speed. 681 */ 682struct portselect { 683 const char *ps_baud; 684 const char *ps_type; 685} portspeeds[] = { 686 { "B110", "std.110" }, 687 { "B134", "std.134" }, 688 { "B150", "std.150" }, 689 { "B300", "std.300" }, 690 { "B600", "std.600" }, 691 { "B1200", "std.1200" }, 692 { "B2400", "std.2400" }, 693 { "B4800", "std.4800" }, 694 { "B9600", "std.9600" }, 695 { "B19200", "std.19200" }, 696 { 0 } 697}; 698 699const char * 700portselector() 701{ 702 char c, baud[20]; 703 const char *type = "default"; 704 register struct portselect *ps; 705 int len; 706 707 alarm(5*60); 708 for (len = 0; len < sizeof (baud) - 1; len++) { 709 if (read(STDIN_FILENO, &c, 1) <= 0) 710 break; 711 c &= 0177; 712 if (c == '\n' || c == '\r') 713 break; 714 if (c == 'B') 715 len = 0; /* in case of leading garbage */ 716 baud[len] = c; 717 } 718 baud[len] = '\0'; 719 for (ps = portspeeds; ps->ps_baud; ps++) 720 if (strcmp(ps->ps_baud, baud) == 0) { 721 type = ps->ps_type; 722 break; 723 } 724 sleep(2); /* wait for connection to complete */ 725 return (type); 726} 727 728/* 729 * This auto-baud speed select mechanism is written for the Micom 600 730 * portselector. Selection is done by looking at how the character '\r' 731 * is garbled at the different speeds. 732 */ 733#include <sys/time.h> 734 735const char * 736autobaud() 737{ 738 int rfds; 739 struct timeval timeout; 740 char c; 741 const char *type = "9600-baud"; 742 743 (void)tcflush(0, TCIOFLUSH); 744 rfds = 1 << 0; 745 timeout.tv_sec = 5; 746 timeout.tv_usec = 0; 747 if (select(32, (fd_set *)&rfds, (fd_set *)NULL, 748 (fd_set *)NULL, &timeout) <= 0) 749 return (type); 750 if (read(STDIN_FILENO, &c, sizeof(char)) != sizeof(char)) 751 return (type); 752 timeout.tv_sec = 0; 753 timeout.tv_usec = 20; 754 (void) select(32, (fd_set *)NULL, (fd_set *)NULL, 755 (fd_set *)NULL, &timeout); 756 (void)tcflush(0, TCIOFLUSH); 757 switch (c & 0377) { 758 759 case 0200: /* 300-baud */ 760 type = "300-baud"; 761 break; 762 763 case 0346: /* 1200-baud */ 764 type = "1200-baud"; 765 break; 766 767 case 015: /* 2400-baud */ 768 case 0215: 769 type = "2400-baud"; 770 break; 771 772 default: /* 4800-baud */ 773 type = "4800-baud"; 774 break; 775 776 case 0377: /* 9600-baud */ 777 type = "9600-baud"; 778 break; 779 } 780 return (type); 781}
| 213 for (np = gettynums; np->field; np++) 214 if (!np->set) 215 np->value = np->defalt; 216 for (fp = gettyflags; fp->field; fp++) 217 if (!fp->set) 218 fp->value = fp->defalt; 219} 220 221static char ** 222charnames[] = { 223 &ER, &KL, &IN, &QU, &XN, &XF, &ET, &BK, 224 &SU, &DS, &RP, &FL, &WE, &LN, 0 225}; 226 227static char * 228charvars[] = { 229 &tmode.c_cc[VERASE], &tmode.c_cc[VKILL], &tmode.c_cc[VINTR], 230 &tmode.c_cc[VQUIT], &tmode.c_cc[VSTART], &tmode.c_cc[VSTOP], 231 &tmode.c_cc[VEOF], &tmode.c_cc[VEOL], &tmode.c_cc[VSUSP], 232 &tmode.c_cc[VDSUSP], &tmode.c_cc[VREPRINT], &tmode.c_cc[VDISCARD], 233 &tmode.c_cc[VWERASE], &tmode.c_cc[VLNEXT], 0 234}; 235 236void 237setchars() 238{ 239 register int i; 240 register const char *p; 241 242 for (i = 0; charnames[i]; i++) { 243 p = *charnames[i]; 244 if (p && *p) 245 *charvars[i] = *p; 246 else 247 *charvars[i] = _POSIX_VDISABLE; 248 } 249} 250 251/* Macros to clear/set/test flags. */ 252#define SET(t, f) (t) |= (f) 253#define CLR(t, f) (t) &= ~(f) 254#define ISSET(t, f) ((t) & (f)) 255 256void 257setflags(n) 258 int n; 259{ 260 register tcflag_t iflag, oflag, cflag, lflag; 261 262#ifdef COMPAT_43 263 switch (n) { 264 case 0: 265 if (F0set) { 266 compatflags(F0); 267 return; 268 } 269 break; 270 case 1: 271 if (F1set) { 272 compatflags(F1); 273 return; 274 } 275 break; 276 default: 277 if (F2set) { 278 compatflags(F2); 279 return; 280 } 281 break; 282 } 283#endif 284 285 switch (n) { 286 case 0: 287 if (C0set && I0set && L0set && O0set) { 288 tmode.c_cflag = C0; 289 tmode.c_iflag = I0; 290 tmode.c_lflag = L0; 291 tmode.c_oflag = O0; 292 return; 293 } 294 break; 295 case 1: 296 if (C1set && I1set && L1set && O1set) { 297 tmode.c_cflag = C1; 298 tmode.c_iflag = I1; 299 tmode.c_lflag = L1; 300 tmode.c_oflag = O1; 301 return; 302 } 303 break; 304 default: 305 if (C2set && I2set && L2set && O2set) { 306 tmode.c_cflag = C2; 307 tmode.c_iflag = I2; 308 tmode.c_lflag = L2; 309 tmode.c_oflag = O2; 310 return; 311 } 312 break; 313 } 314 315 iflag = omode.c_iflag; 316 oflag = omode.c_oflag; 317 cflag = omode.c_cflag; 318 lflag = omode.c_lflag; 319 320 if (NP) { 321 CLR(cflag, CSIZE|PARENB); 322 SET(cflag, CS8); 323 CLR(iflag, ISTRIP|INPCK|IGNPAR); 324 } else if (AP || EP || OP) { 325 CLR(cflag, CSIZE); 326 SET(cflag, CS7|PARENB); 327 SET(iflag, ISTRIP); 328 if (OP && !EP) { 329 SET(iflag, INPCK|IGNPAR); 330 SET(cflag, PARODD); 331 if (AP) 332 CLR(iflag, INPCK); 333 } else if (EP && !OP) { 334 SET(iflag, INPCK|IGNPAR); 335 CLR(cflag, PARODD); 336 if (AP) 337 CLR(iflag, INPCK); 338 } else if (AP || (EP && OP)) { 339 CLR(iflag, INPCK|IGNPAR); 340 CLR(cflag, PARODD); 341 } 342 } /* else, leave as is */ 343 344#if 0 345 if (UC) 346 f |= LCASE; 347#endif 348 349 if (HC) 350 SET(cflag, HUPCL); 351 else 352 CLR(cflag, HUPCL); 353 354 if (MB) 355 SET(cflag, MDMBUF); 356 else 357 CLR(cflag, MDMBUF); 358 359 if (HW) 360 SET(cflag, CRTSCTS); 361 else 362 CLR(cflag, CRTSCTS); 363 364 if (NL) { 365 SET(iflag, ICRNL); 366 SET(oflag, ONLCR|OPOST); 367 } else { 368 CLR(iflag, ICRNL); 369 CLR(oflag, ONLCR); 370 } 371 372 if (!HT) 373 SET(oflag, OXTABS|OPOST); 374 else 375 CLR(oflag, OXTABS); 376 377#ifdef XXX_DELAY 378 SET(f, delaybits()); 379#endif 380 381 if (n == 1) { /* read mode flags */ 382 if (RW) { 383 iflag = 0; 384 CLR(oflag, OPOST); 385 CLR(cflag, CSIZE|PARENB); 386 SET(cflag, CS8); 387 lflag = 0; 388 } else { 389 CLR(lflag, ICANON); 390 } 391 goto out; 392 } 393 394 if (n == 0) 395 goto out; 396 397#if 0 398 if (CB) 399 SET(f, CRTBS); 400#endif 401 402 if (CE) 403 SET(lflag, ECHOE); 404 else 405 CLR(lflag, ECHOE); 406 407 if (CK) 408 SET(lflag, ECHOKE); 409 else 410 CLR(lflag, ECHOKE); 411 412 if (PE) 413 SET(lflag, ECHOPRT); 414 else 415 CLR(lflag, ECHOPRT); 416 417 if (EC) 418 SET(lflag, ECHO); 419 else 420 CLR(lflag, ECHO); 421 422 if (XC) 423 SET(lflag, ECHOCTL); 424 else 425 CLR(lflag, ECHOCTL); 426 427 if (DX) 428 SET(lflag, IXANY); 429 else 430 CLR(lflag, IXANY); 431 432out: 433 tmode.c_iflag = iflag; 434 tmode.c_oflag = oflag; 435 tmode.c_cflag = cflag; 436 tmode.c_lflag = lflag; 437} 438 439#ifdef COMPAT_43 440/* 441 * Old TTY => termios, snatched from <sys/kern/tty_compat.c> 442 */ 443void 444compatflags(flags) 445register long flags; 446{ 447 register tcflag_t iflag, oflag, cflag, lflag; 448 449 iflag = BRKINT|ICRNL|IMAXBEL|IXON|IXANY; 450 oflag = OPOST|ONLCR|OXTABS; 451 cflag = CREAD; 452 lflag = ICANON|ISIG|IEXTEN; 453 454 if (ISSET(flags, TANDEM)) 455 SET(iflag, IXOFF); 456 else 457 CLR(iflag, IXOFF); 458 if (ISSET(flags, ECHO)) 459 SET(lflag, ECHO); 460 else 461 CLR(lflag, ECHO); 462 if (ISSET(flags, CRMOD)) { 463 SET(iflag, ICRNL); 464 SET(oflag, ONLCR); 465 } else { 466 CLR(iflag, ICRNL); 467 CLR(oflag, ONLCR); 468 } 469 if (ISSET(flags, XTABS)) 470 SET(oflag, OXTABS); 471 else 472 CLR(oflag, OXTABS); 473 474 475 if (ISSET(flags, RAW)) { 476 iflag &= IXOFF; 477 CLR(lflag, ISIG|ICANON|IEXTEN); 478 CLR(cflag, PARENB); 479 } else { 480 SET(iflag, BRKINT|IXON|IMAXBEL); 481 SET(lflag, ISIG|IEXTEN); 482 if (ISSET(flags, CBREAK)) 483 CLR(lflag, ICANON); 484 else 485 SET(lflag, ICANON); 486 switch (ISSET(flags, ANYP)) { 487 case 0: 488 CLR(cflag, PARENB); 489 break; 490 case ANYP: 491 SET(cflag, PARENB); 492 CLR(iflag, INPCK); 493 break; 494 case EVENP: 495 SET(cflag, PARENB); 496 SET(iflag, INPCK); 497 CLR(cflag, PARODD); 498 break; 499 case ODDP: 500 SET(cflag, PARENB); 501 SET(iflag, INPCK); 502 SET(cflag, PARODD); 503 break; 504 } 505 } 506 507 /* Nothing we can do with CRTBS. */ 508 if (ISSET(flags, PRTERA)) 509 SET(lflag, ECHOPRT); 510 else 511 CLR(lflag, ECHOPRT); 512 if (ISSET(flags, CRTERA)) 513 SET(lflag, ECHOE); 514 else 515 CLR(lflag, ECHOE); 516 /* Nothing we can do with TILDE. */ 517 if (ISSET(flags, MDMBUF)) 518 SET(cflag, MDMBUF); 519 else 520 CLR(cflag, MDMBUF); 521 if (ISSET(flags, NOHANG)) 522 CLR(cflag, HUPCL); 523 else 524 SET(cflag, HUPCL); 525 if (ISSET(flags, CRTKIL)) 526 SET(lflag, ECHOKE); 527 else 528 CLR(lflag, ECHOKE); 529 if (ISSET(flags, CTLECH)) 530 SET(lflag, ECHOCTL); 531 else 532 CLR(lflag, ECHOCTL); 533 if (!ISSET(flags, DECCTQ)) 534 SET(iflag, IXANY); 535 else 536 CLR(iflag, IXANY); 537 CLR(lflag, TOSTOP|FLUSHO|PENDIN|NOFLSH); 538 SET(lflag, ISSET(flags, TOSTOP|FLUSHO|PENDIN|NOFLSH)); 539 540 if (ISSET(flags, RAW|LITOUT|PASS8)) { 541 CLR(cflag, CSIZE); 542 SET(cflag, CS8); 543 if (!ISSET(flags, RAW|PASS8)) 544 SET(iflag, ISTRIP); 545 else 546 CLR(iflag, ISTRIP); 547 if (!ISSET(flags, RAW|LITOUT)) 548 SET(oflag, OPOST); 549 else 550 CLR(oflag, OPOST); 551 } else { 552 CLR(cflag, CSIZE); 553 SET(cflag, CS7); 554 SET(iflag, ISTRIP); 555 SET(oflag, OPOST); 556 } 557 558 tmode.c_iflag = iflag; 559 tmode.c_oflag = oflag; 560 tmode.c_cflag = cflag; 561 tmode.c_lflag = lflag; 562} 563#endif 564 565#ifdef XXX_DELAY 566struct delayval { 567 unsigned delay; /* delay in ms */ 568 int bits; 569}; 570 571/* 572 * below are random guesses, I can't be bothered checking 573 */ 574 575struct delayval crdelay[] = { 576 { 1, CR1 }, 577 { 2, CR2 }, 578 { 3, CR3 }, 579 { 83, CR1 }, 580 { 166, CR2 }, 581 { 0, CR3 }, 582}; 583 584struct delayval nldelay[] = { 585 { 1, NL1 }, /* special, calculated */ 586 { 2, NL2 }, 587 { 3, NL3 }, 588 { 100, NL2 }, 589 { 0, NL3 }, 590}; 591 592struct delayval bsdelay[] = { 593 { 1, BS1 }, 594 { 0, 0 }, 595}; 596 597struct delayval ffdelay[] = { 598 { 1, FF1 }, 599 { 1750, FF1 }, 600 { 0, FF1 }, 601}; 602 603struct delayval tbdelay[] = { 604 { 1, TAB1 }, 605 { 2, TAB2 }, 606 { 3, XTABS }, /* this is expand tabs */ 607 { 100, TAB1 }, 608 { 0, TAB2 }, 609}; 610 611int 612delaybits() 613{ 614 register int f; 615 616 f = adelay(CD, crdelay); 617 f |= adelay(ND, nldelay); 618 f |= adelay(FD, ffdelay); 619 f |= adelay(TD, tbdelay); 620 f |= adelay(BD, bsdelay); 621 return (f); 622} 623 624int 625adelay(ms, dp) 626 register ms; 627 register struct delayval *dp; 628{ 629 if (ms == 0) 630 return (0); 631 while (dp->delay && ms > dp->delay) 632 dp++; 633 return (dp->bits); 634} 635#endif 636 637char editedhost[MAXHOSTNAMELEN]; 638 639void 640edithost(pat) 641 register const char *pat; 642{ 643 register const char *host = HN; 644 register char *res = editedhost; 645 646 if (!pat) 647 pat = ""; 648 while (*pat) { 649 switch (*pat) { 650 651 case '#': 652 if (*host) 653 host++; 654 break; 655 656 case '@': 657 if (*host) 658 *res++ = *host++; 659 break; 660 661 default: 662 *res++ = *pat; 663 break; 664 665 } 666 if (res == &editedhost[sizeof editedhost - 1]) { 667 *res = '\0'; 668 return; 669 } 670 pat++; 671 } 672 if (*host) 673 strncpy(res, host, sizeof editedhost - (res - editedhost) - 1); 674 else 675 *res = '\0'; 676 editedhost[sizeof editedhost - 1] = '\0'; 677} 678 679static struct speedtab { 680 int speed; 681 int uxname; 682} speedtab[] = { 683 { 50, B50 }, 684 { 75, B75 }, 685 { 110, B110 }, 686 { 134, B134 }, 687 { 150, B150 }, 688 { 200, B200 }, 689 { 300, B300 }, 690 { 600, B600 }, 691 { 1200, B1200 }, 692 { 1800, B1800 }, 693 { 2400, B2400 }, 694 { 4800, B4800 }, 695 { 9600, B9600 }, 696 { 19200, EXTA }, 697 { 19, EXTA }, /* for people who say 19.2K */ 698 { 38400, EXTB }, 699 { 38, EXTB }, 700 { 7200, EXTB }, /* alternative */ 701 { 57600, B57600 }, 702 { 115200, B115200 }, 703 { 0 } 704}; 705 706int 707speed(val) 708 int val; 709{ 710 register struct speedtab *sp; 711 712 if (val <= B115200) 713 return (val); 714 715 for (sp = speedtab; sp->speed; sp++) 716 if (sp->speed == val) 717 return (sp->uxname); 718 719 return (B300); /* default in impossible cases */ 720} 721 722void 723makeenv(env) 724 char *env[]; 725{ 726 static char termbuf[128] = "TERM="; 727 register char *p, *q; 728 register char **ep; 729 730 ep = env; 731 if (TT && *TT) { 732 strcat(termbuf, TT); 733 *ep++ = termbuf; 734 } 735 if ((p = EV)) { 736 q = p; 737 while ((q = strchr(q, ','))) { 738 *q++ = '\0'; 739 *ep++ = p; 740 p = q; 741 } 742 if (*p) 743 *ep++ = p; 744 } 745 *ep = (char *)0; 746} 747 748/* 749 * This speed select mechanism is written for the Develcon DATASWITCH. 750 * The Develcon sends a string of the form "B{speed}\n" at a predefined 751 * baud rate. This string indicates the user's actual speed. 752 * The routine below returns the terminal type mapped from derived speed. 753 */ 754struct portselect { 755 const char *ps_baud; 756 const char *ps_type; 757} portspeeds[] = { 758 { "B110", "std.110" }, 759 { "B134", "std.134" }, 760 { "B150", "std.150" }, 761 { "B300", "std.300" }, 762 { "B600", "std.600" }, 763 { "B1200", "std.1200" }, 764 { "B2400", "std.2400" }, 765 { "B4800", "std.4800" }, 766 { "B9600", "std.9600" }, 767 { "B19200", "std.19200" }, 768 { 0 } 769}; 770 771const char * 772portselector() 773{ 774 char c, baud[20]; 775 const char *type = "default"; 776 register struct portselect *ps; 777 int len; 778 779 alarm(5*60); 780 for (len = 0; len < sizeof (baud) - 1; len++) { 781 if (read(STDIN_FILENO, &c, 1) <= 0) 782 break; 783 c &= 0177; 784 if (c == '\n' || c == '\r') 785 break; 786 if (c == 'B') 787 len = 0; /* in case of leading garbage */ 788 baud[len] = c; 789 } 790 baud[len] = '\0'; 791 for (ps = portspeeds; ps->ps_baud; ps++) 792 if (strcmp(ps->ps_baud, baud) == 0) { 793 type = ps->ps_type; 794 break; 795 } 796 sleep(2); /* wait for connection to complete */ 797 return (type); 798} 799 800/* 801 * This auto-baud speed select mechanism is written for the Micom 600 802 * portselector. Selection is done by looking at how the character '\r' 803 * is garbled at the different speeds. 804 */ 805#include <sys/time.h> 806 807const char * 808autobaud() 809{ 810 int rfds; 811 struct timeval timeout; 812 char c; 813 const char *type = "9600-baud"; 814 815 (void)tcflush(0, TCIOFLUSH); 816 rfds = 1 << 0; 817 timeout.tv_sec = 5; 818 timeout.tv_usec = 0; 819 if (select(32, (fd_set *)&rfds, (fd_set *)NULL, 820 (fd_set *)NULL, &timeout) <= 0) 821 return (type); 822 if (read(STDIN_FILENO, &c, sizeof(char)) != sizeof(char)) 823 return (type); 824 timeout.tv_sec = 0; 825 timeout.tv_usec = 20; 826 (void) select(32, (fd_set *)NULL, (fd_set *)NULL, 827 (fd_set *)NULL, &timeout); 828 (void)tcflush(0, TCIOFLUSH); 829 switch (c & 0377) { 830 831 case 0200: /* 300-baud */ 832 type = "300-baud"; 833 break; 834 835 case 0346: /* 1200-baud */ 836 type = "1200-baud"; 837 break; 838 839 case 015: /* 2400-baud */ 840 case 0215: 841 type = "2400-baud"; 842 break; 843 844 default: /* 4800-baud */ 845 type = "4800-baud"; 846 break; 847 848 case 0377: /* 9600-baud */ 849 type = "9600-baud"; 850 break; 851 } 852 return (type); 853}
|