commands/simple/stty.c

   1 /* stty - set terminal mode             Author: Andy Tanenbaum */
   2
   3 /*
   4         Adapted to POSIX 1003.2 by Philip Homburg.
   5  */
   6
   7 #ifdef __minix_vmd
   8 #define _MINIX_SOURCE
   9 #endif
  10
  11 #include <assert.h>
  12 #include <ctype.h>
  13 #include <errno.h>
  14 #include <stdio.h>
  15 #include <stdlib.h>
  16 #include <string.h>
  17 #include <termios.h>
  18 #ifdef __minix
  19 #include <sys/types.h>
  20 #include <sys/ioctl.h>
  21 #endif
  22
  23 /* Default settings, the Minix ones are defined in <termios.h> */
  24
  25 #ifndef TCTRL_DEF
  26 #define TCTRL_DEF       (PARENB | CREAD | CS7)
  27 #endif
  28
  29 #ifndef TSPEED_DEF
  30 #define TSPEED_DEF      B1200
  31 #endif
  32
  33 #ifndef TINPUT_DEF
  34 #define TINPUT_DEF      (BRKINT | IGNPAR | ISTRIP | ICRNL)
  35 #endif
  36
  37 #ifndef TOUTPUT_DEF
  38 #define TOUTPUT_DEF     OPOST
  39 #endif
  40
  41 #ifndef TLOCAL_DEF
  42 #define TLOCAL_DEF      (ISIG | IEXTEN | ICANON | ECHO | ECHOE)
  43 #endif
  44
  45 #ifndef TEOF_DEF
  46 #define TEOF_DEF        '\4'    /* ^D */
  47 #endif
  48 #ifndef TEOL_DEF
  49 #ifdef _POSIX_VDISABLE
  50 #define TEOL_DEF        _POSIX_VDISABLE
  51 #else
  52 #define TEOL_DEF        '\n'
  53 #endif
  54 #endif
  55 #ifndef TERASE_DEF
  56 #define TERASE_DEF      '\10'   /* ^H */
  57 #endif
  58 #ifndef TINTR_DEF
  59 #define TINTR_DEF       '\177'  /* ^? */
  60 #endif
  61 #ifndef TKILL_DEF
  62 #define TKILL_DEF       '\25'   /* ^U */
  63 #endif
  64 #ifndef TQUIT_DEF
  65 #define TQUIT_DEF       '\34'   /* ^\ */
  66 #endif
  67 #ifndef TSUSP_DEF
  68 #define TSUSP_DEF       '\32'   /* ^Z */
  69 #endif
  70 #ifndef TSTART_DEF
  71 #define TSTART_DEF      '\21'   /* ^Q */
  72 #endif
  73 #ifndef TSTOP_DEF
  74 #define TSTOP_DEF       '\23'   /* ^S */
  75 #endif
  76 #ifndef TMIN_DEF
  77 #define TMIN_DEF        1
  78 #endif
  79 #ifndef TTIME_DEF
  80 #define TTIME_DEF       0
  81 #endif
  82
  83
  84
  85 char *prog_name;
  86 struct termios termios;
  87 int column= 0, max_column=80;           /* Assume 80 character terminals. */
  88 #ifdef __minix
  89 struct winsize winsize;
  90 #endif
  91
  92 #if __minix
  93 #define PROTO(a) _ARGS(a)
  94 #else
  95 #define PROTO(a) ()
  96 #endif
  97
  98 void main PROTO(( int argc, char **argv ));
  99 void report PROTO(( int flags ));
 100 int option PROTO(( char *opt, char *next ));
 101 int match PROTO(( char *s1, char *s2 ));
 102 void prctl PROTO(( int c ));
 103 speed_t long2speed PROTO(( long num ));
 104 long speed2long PROTO(( unsigned long speed ));
 105 void print_flags PROTO(( unsigned long flags, unsigned long flag,
 106                                 unsigned long def, char *string, int all ));
 107 void output PROTO(( char *s ));
 108 void do_print_char PROTO(( unsigned chr, unsigned def, char *name, int all ));
 109 void do_print_num PROTO(( unsigned num, unsigned def, char *name, int all ));
 110 void set_saved_settings PROTO(( char *opt ));
 111 void set_control PROTO(( int option, char *value ));
 112 void set_min_tim PROTO(( int option, char *value ));
 113
 114 #define print_char(c,d,n,a) (do_print_char((unsigned)(c),(unsigned)(d),(n),(a)))
 115 #define print_num(m,d,n,a) (do_print_num((unsigned)(m),(unsigned)(d),(n),(a)))
 116
 117 void main(argc, argv)
 118 int argc;
 119 char *argv[];
 120 {
 121   int flags, k;
 122
 123   prog_name= argv[0];
 124   flags= 0;
 125
 126   /* Stty with no arguments just reports on current status. */
 127   if (tcgetattr(0, &termios) == -1)
 128   {
 129         fprintf(stderr, "%s: can't read ioctl parameters from stdin: %s\n",
 130                 prog_name, strerror(errno));
 131         exit(1);
 132   }
 133 #ifdef __minix
 134   if (ioctl(0, TIOCGWINSZ, &winsize) == -1)
 135   {
 136         fprintf(stderr, "%s: can't get screen size from stdin: %s\n",
 137                 prog_name, strerror(errno));
 138         exit(1);
 139   }
 140   if (winsize.ws_col != 0)
 141         max_column= winsize.ws_col;
 142 #endif
 143
 144   if (argc == 2)
 145   {
 146         if (!strcmp(argv[1], "-a"))
 147                 flags |= 1;
 148         else if (!strcmp(argv[1], "-g"))
 149                 flags |= 2;
 150   }
 151   if (argc == 1 || flags) {
 152         report(flags);
 153         exit(0);
 154   }
 155
 156   /* Process the options specified. */
 157   for (k= 1; k < argc; k++)
 158         k += option(argv[k], k+1 < argc ? argv[k+1] : "");
 159
 160 #ifdef __minix
 161   if (ioctl(0, TIOCSWINSZ, &winsize) == -1)
 162   {
 163         fprintf(stderr, "%s: can't set screen size to stdin: %s\n",
 164                 prog_name, strerror(errno));
 165         exit(1);
 166   }
 167 #endif
 168   if (tcsetattr(0, TCSANOW, &termios) == -1)
 169   {
 170         fprintf(stderr, "%s: can't set terminal parameters to stdin: %s\n",
 171                 prog_name, strerror(errno));
 172         exit(1);
 173   }
 174   exit(0);
 175 }
 176
 177
 178
 179 void report(flags)
 180 int flags;
 181 {
 182         int i, all;
 183         tcflag_t c_cflag, c_iflag, c_oflag, c_lflag;
 184         char line[80];
 185         speed_t ispeed, ospeed;
 186
 187         if (flags & 2)
 188         {       /* We have to write the termios structure in a encoded form
 189                  * to stdout.
 190                  */
 191                 printf(":%x:%x:%x:%x:%x:%x", termios.c_iflag, termios.c_oflag,
 192                         termios.c_cflag, termios.c_lflag, cfgetispeed(&termios),
 193                         cfgetospeed(&termios));
 194                 for (i= 0; i<NCCS; i++)
 195                         printf(":%x", termios.c_cc[i]);
 196                 printf(":\n");
 197                 return;
 198         }
 199
 200         all= !!flags;
 201
 202         /* Start with the baud rate. */
 203         ispeed= cfgetispeed(&termios);
 204         ospeed= cfgetospeed(&termios);
 205         if (ispeed != ospeed)
 206         {
 207                 sprintf(line, "ispeed %lu baud; ospeed %lu baud;",
 208                         speed2long(ispeed), speed2long(ospeed));
 209                 output(line);
 210         }
 211         else if (all || ospeed != TSPEED_DEF)
 212         {
 213                 sprintf(line, "speed %lu baud;", speed2long(ospeed));
 214                 output(line);
 215         }
 216
 217         /* The control modes. */
 218
 219         c_cflag= termios.c_cflag;
 220         if (all || (c_cflag & CSIZE) != (TCTRL_DEF & CSIZE))
 221         {
 222                 switch (c_cflag & CSIZE)
 223                 {
 224                 case CS5: output("cs5"); break;
 225                 case CS6: output("cs6"); break;
 226                 case CS7: output("cs7"); break;
 227                 case CS8: output("cs8"); break;
 228                 default: output("cs??"); break;
 229                 }
 230         }
 231         print_flags(c_cflag, PARENB, TCTRL_DEF, "-parenb", all);
 232         print_flags(c_cflag, PARODD, TCTRL_DEF, "-parodd", all);
 233         print_flags(c_cflag, HUPCL, TCTRL_DEF, "-hupcl", all);
 234         print_flags(c_cflag, CSTOPB, TCTRL_DEF, "-cstopb", all);
 235         print_flags(c_cflag, CREAD, TCTRL_DEF, "-cread", all);
 236         print_flags(c_cflag, CLOCAL, TCTRL_DEF, "-clocal", all);
 237
 238         if (all)
 239         {
 240                 printf("\n");
 241                 column= 0;
 242         }
 243
 244         /* The input flags. */
 245
 246         c_iflag= termios.c_iflag;
 247
 248         print_flags(c_iflag, IGNBRK, TINPUT_DEF, "-ignbrk", all);
 249         print_flags(c_iflag, BRKINT, TINPUT_DEF, "-brkint", all);
 250         print_flags(c_iflag, IGNPAR, TINPUT_DEF, "-ignpar", all);
 251         print_flags(c_iflag, PARMRK, TINPUT_DEF, "-parmrk", all);
 252         print_flags(c_iflag, INPCK, TINPUT_DEF, "-inpck", all);
 253         print_flags(c_iflag, ISTRIP, TINPUT_DEF, "-istrip", all);
 254         print_flags(c_iflag, INLCR, TINPUT_DEF, "-inlcr", all);
 255         print_flags(c_iflag, IGNCR, TINPUT_DEF, "-igncr", all);
 256         print_flags(c_iflag, ICRNL, TINPUT_DEF, "-icrnl", all);
 257         print_flags(c_iflag, IXON, TINPUT_DEF, "-ixon", all);
 258         print_flags(c_iflag, IXOFF, TINPUT_DEF, "-ixoff", all);
 259         print_flags(c_iflag, IXANY, TINPUT_DEF, "-ixany", all);
 260
 261         if (all)
 262         {
 263                 printf("\n");
 264                 column= 0;
 265         }
 266
 267         /* The output flags. */
 268
 269         c_oflag= termios.c_oflag;
 270
 271         print_flags(c_oflag, OPOST, TOUTPUT_DEF, "-opost", all);
 272 #ifdef __minix
 273         print_flags(c_oflag, ONLCR, TOUTPUT_DEF, "-onlcr", all);
 274         print_flags(c_oflag, XTABS, TOUTPUT_DEF, "-xtabs", all);
 275         print_flags(c_oflag, ONOEOT, TOUTPUT_DEF, "-onoeot", all);
 276 #endif
 277         if (all)
 278         {
 279                 printf("\n");
 280                 column= 0;
 281         }
 282
 283         /* The local flags. */
 284
 285         c_lflag= termios.c_lflag;
 286
 287         print_flags(c_lflag, ISIG, TLOCAL_DEF, "-isig", all);
 288         print_flags(c_lflag, ICANON, TLOCAL_DEF, "-icanon", all);
 289         print_flags(c_lflag, IEXTEN, TLOCAL_DEF, "-iexten", all);
 290         print_flags(c_lflag, ECHO, TLOCAL_DEF, "-echo", all);
 291         print_flags(c_lflag, ECHOE, TLOCAL_DEF, "-echoe", all);
 292         print_flags(c_lflag, ECHOK, TLOCAL_DEF, "-echok", all);
 293         print_flags(c_lflag, ECHONL, TLOCAL_DEF, "-echonl", all);
 294         print_flags(c_lflag, NOFLSH, TLOCAL_DEF, "-noflsh", all);
 295 #ifdef TOSTOP
 296         print_flags(c_lflag, TOSTOP, TLOCAL_DEF, "-tostop", all);
 297 #endif
 298 #ifdef __minix
 299         print_flags(c_lflag, LFLUSHO, TLOCAL_DEF, "-lflusho", all);
 300 #endif
 301
 302         if (all)
 303         {
 304                 printf("\n");
 305                 column= 0;
 306         }
 307
 308         /* The special control characters. */
 309
 310         print_char(termios.c_cc[VEOF], TEOF_DEF, "eof", all);
 311         print_char(termios.c_cc[VEOL], TEOL_DEF, "eol", all);
 312         print_char(termios.c_cc[VERASE], TERASE_DEF, "erase", all);
 313         print_char(termios.c_cc[VINTR], TINTR_DEF, "intr", all);
 314         print_char(termios.c_cc[VKILL], TKILL_DEF, "kill", all);
 315         print_char(termios.c_cc[VQUIT], TQUIT_DEF, "quit", all);
 316         print_char(termios.c_cc[VSUSP], TSUSP_DEF, "susp", all);
 317         print_char(termios.c_cc[VSTART], TSTART_DEF, "start", all);
 318         print_char(termios.c_cc[VSTOP], TSTOP_DEF, "stop", all);
 319 #ifdef __minix
 320         print_char(termios.c_cc[VREPRINT], TREPRINT_DEF, "rprnt", all);
 321         print_char(termios.c_cc[VLNEXT], TLNEXT_DEF, "lnext", all);
 322         print_char(termios.c_cc[VDISCARD], TDISCARD_DEF, "flush", all);
 323 #endif
 324         print_num(termios.c_cc[VMIN], TMIN_DEF, "min", all);
 325         print_num(termios.c_cc[VTIME], TTIME_DEF, "time", all);
 326         if (all)
 327         {
 328                 printf("\n");
 329                 column= 0;
 330         }
 331
 332 #ifdef __minix
 333         /* Screen size */
 334         if (all || winsize.ws_row != 0 || winsize.ws_col != 0)
 335         {
 336                 sprintf(line, "%d rows %d columns", winsize.ws_row,
 337                         winsize.ws_col);
 338                 output(line);
 339         }
 340
 341         if (all || winsize.ws_ypixel != 0 || winsize.ws_xpixel != 0)
 342         {
 343                 sprintf(line, "%d ypixels %d xpixels", winsize.ws_ypixel,
 344                         winsize.ws_xpixel);
 345                 output(line);
 346         }
 347
 348         if (all)
 349         {
 350                 printf("\n");
 351                 column= 0;
 352         }
 353 #endif
 354
 355         if (column != 0)
 356         {
 357                 printf("\n");
 358                 column= 0;
 359         }
 360 }
 361
 362 int option(opt, next)
 363 char *opt, *next;
 364 {
 365   char *check;
 366   speed_t speed;
 367   long num;
 368
 369   /* The control options. */
 370
 371   if (match(opt, "clocal")) {
 372         termios.c_cflag |= CLOCAL;
 373         return 0;
 374   }
 375   if (match(opt, "-clocal")) {
 376         termios.c_cflag &= ~CLOCAL;
 377         return 0;
 378   }
 379
 380   if (match(opt, "cread")) {
 381         termios.c_cflag |= CREAD;
 382         return 0;
 383   }
 384   if (match(opt, "-cread")) {
 385         termios.c_cflag &= ~CREAD;
 386         return 0;
 387   }
 388
 389   if (match(opt, "cs5")) {
 390         termios.c_cflag &= ~CSIZE;
 391         termios.c_cflag |= CS5;
 392         return 0;
 393   }
 394   if (match(opt, "cs6")) {
 395         termios.c_cflag &= ~CSIZE;
 396         termios.c_cflag |= CS6;
 397         return 0;
 398   }
 399   if (match(opt, "cs7")) {
 400         termios.c_cflag &= ~CSIZE;
 401         termios.c_cflag |= CS7;
 402         return 0;
 403   }
 404   if (match(opt, "cs8")) {
 405         termios.c_cflag &= ~CSIZE;
 406         termios.c_cflag |= CS8;
 407         return 0;
 408   }
 409
 410   if (match(opt, "cstopb")) {
 411         termios.c_cflag |= CSTOPB;
 412         return 0;
 413   }
 414   if (match(opt, "-cstopb")) {
 415         termios.c_cflag &= ~CSTOPB;
 416         return 0;
 417   }
 418
 419   if (match(opt, "hupcl") || match(opt, "hup")) {
 420         termios.c_cflag |= HUPCL;
 421         return 0;
 422   }
 423   if (match(opt, "-hupcl") || match(opt, "-hup")) {
 424         termios.c_cflag &= ~HUPCL;
 425         return 0;
 426   }
 427
 428   if (match(opt, "parenb")) {
 429         termios.c_cflag |= PARENB;
 430         return 0;
 431   }
 432   if (match(opt, "-parenb")) {
 433         termios.c_cflag &= ~PARENB;
 434         return 0;
 435   }
 436
 437   if (match(opt, "parodd")) {
 438         termios.c_cflag |= PARODD;
 439         return 0;
 440   }
 441   if (match(opt, "-parodd")) {
 442         termios.c_cflag &= ~PARODD;
 443         return 0;
 444   }
 445
 446   num= strtol(opt, &check, 10);
 447   if (check[0] == '\0')
 448   {
 449         speed= long2speed(num);
 450         if (speed == (speed_t)-1)
 451         {
 452                 fprintf(stderr, "%s: illegal speed: '%s'\n", prog_name, opt);
 453                 return 0;
 454         }
 455         /* Speed OK */
 456         cfsetispeed(&termios, speed);
 457         cfsetospeed(&termios, speed);
 458         return 0;
 459   }
 460
 461   if (match(opt, "ispeed")) {
 462         num= strtol(next, &check, 10);
 463         if (check != '\0')
 464         {
 465                 speed= long2speed(num);
 466                 if (speed == (speed_t)-1)
 467                 {
 468                         fprintf(stderr, "%s: illegal speed: '%s'\n", prog_name,
 469                                                                         opt);
 470                         return 1;
 471                 }
 472                 cfsetispeed(&termios, speed);
 473                 return 1;
 474         }
 475         else
 476         {
 477                 fprintf(stderr, "%s: invalid argument to ispeed: '%s'\n",
 478                         prog_name, next);
 479                 return 1;
 480         }
 481   }
 482
 483   if (match(opt, "ospeed")) {
 484         num= strtol(next, &check, 10);
 485         if (check != '\0')
 486         {
 487                 speed= long2speed(num);
 488                 if (speed == (speed_t)-1)
 489                 {
 490                         fprintf(stderr, "%s: illegal speed: '%s'\n", prog_name,
 491                                                                         opt);
 492                         return 1;
 493                 }
 494                 cfsetospeed(&termios, speed);
 495                 return 1;
 496         }
 497         else
 498         {
 499                 fprintf(stderr, "%s: invalid argument to ospeed: %s\n",
 500                         prog_name, next);
 501                 return 1;
 502         }
 503   }
 504
 505   /* Input modes. */
 506
 507   if (match(opt, "brkint")) {
 508         termios.c_iflag |= BRKINT;
 509         return 0;
 510   }
 511   if (match(opt, "-brkint")) {
 512         termios.c_iflag &= ~BRKINT;
 513         return 0;
 514   }
 515
 516   if (match(opt, "icrnl")) {
 517         termios.c_iflag |= ICRNL;
 518         return 0;
 519   }
 520   if (match(opt, "-icrnl")) {
 521         termios.c_iflag &= ~ICRNL;
 522         return 0;
 523   }
 524
 525   if (match(opt, "ignbrk")) {
 526         termios.c_iflag |= IGNBRK;
 527         return 0;
 528   }
 529   if (match(opt, "-ignbrk")) {
 530         termios.c_iflag &= ~IGNBRK;
 531         return 0;
 532   }
 533
 534   if (match(opt, "igncr")) {
 535         termios.c_iflag |= IGNCR;
 536         return 0;
 537   }
 538   if (match(opt, "-igncr")) {
 539         termios.c_iflag &= ~IGNCR;
 540         return 0;
 541   }
 542
 543   if (match(opt, "ignpar")) {
 544         termios.c_iflag |= IGNPAR;
 545         return 0;
 546   }
 547   if (match(opt, "-ignpar")) {
 548         termios.c_iflag &= ~IGNPAR;
 549         return 0;
 550   }
 551
 552   if (match(opt, "inlcr")) {
 553         termios.c_iflag |= INLCR;
 554         return 0;
 555   }
 556   if (match(opt, "-inlcr")) {
 557         termios.c_iflag &= ~INLCR;
 558         return 0;
 559   }
 560
 561   if (match(opt, "inpck")) {
 562         termios.c_iflag |= INPCK;
 563         return 0;
 564   }
 565   if (match(opt, "-inpck")) {
 566         termios.c_iflag &= ~INPCK;
 567         return 0;
 568   }
 569
 570   if (match(opt, "istrip")) {
 571         termios.c_iflag |= ISTRIP;
 572         return 0;
 573   }
 574   if (match(opt, "-istrip")) {
 575         termios.c_iflag &= ~ISTRIP;
 576         return 0;
 577   }
 578
 579   if (match(opt, "ixoff")) {
 580         termios.c_iflag |= IXOFF;
 581         return 0;
 582   }
 583   if (match(opt, "-ixoff")) {
 584         termios.c_iflag &= ~IXOFF;
 585         return 0;
 586   }
 587
 588   if (match(opt, "ixon")) {
 589         termios.c_iflag |= IXON;
 590         return 0;
 591   }
 592   if (match(opt, "-ixon")) {
 593         termios.c_iflag &= ~IXON;
 594         return 0;
 595   }
 596
 597   if (match(opt, "parmrk")) {
 598         termios.c_iflag |= PARMRK;
 599         return 0;
 600   }
 601   if (match(opt, "-parmrk")) {
 602         termios.c_iflag &= ~PARMRK;
 603         return 0;
 604   }
 605
 606   if (match(opt, "ixany")) {
 607         termios.c_iflag |= IXANY;
 608         return 0;
 609   }
 610   if (match(opt, "-ixany")) {
 611         termios.c_iflag &= ~IXANY;
 612         return 0;
 613   }
 614
 615   /* Output modes. */
 616
 617   if (match(opt, "opost")) {
 618         termios.c_oflag |= OPOST;
 619         return 0;
 620   }
 621   if (match(opt, "-opost")) {
 622         termios.c_oflag &= ~OPOST;
 623         return 0;
 624   }
 625 #ifdef __minix
 626   if (match(opt, "onlcr")) {
 627         termios.c_oflag |= ONLCR;
 628         return 0;
 629   }
 630   if (match(opt, "-onlcr")) {
 631         termios.c_oflag &= ~ONLCR;
 632         return 0;
 633   }
 634
 635   if (match(opt, "xtabs")) {
 636         termios.c_oflag |= XTABS;
 637         return 0;
 638   }
 639   if (match(opt, "-xtabs")) {
 640         termios.c_oflag &= ~XTABS;
 641         return 0;
 642   }
 643
 644   if (match(opt, "onoeot")) {
 645         termios.c_oflag |= ONOEOT;
 646         return 0;
 647   }
 648   if (match(opt, "-onoeot")) {
 649         termios.c_oflag &= ~ONOEOT;
 650         return 0;
 651   }
 652 #endif
 653
 654   /* Local modes. */
 655
 656   if (match(opt, "echo")) {
 657         termios.c_lflag |= ECHO;
 658         return 0;
 659   }
 660   if (match(opt, "-echo")) {
 661         termios.c_lflag &= ~ECHO;
 662         return 0;
 663   }
 664
 665   if (match(opt, "echoe")) {
 666         termios.c_lflag |= ECHOE;
 667         return 0;
 668   }
 669   if (match(opt, "-echoe")) {
 670         termios.c_lflag &= ~ECHOE;
 671         return 0;
 672   }
 673
 674   if (match(opt, "echok")) {
 675         termios.c_lflag |= ECHOK;
 676         return 0;
 677   }
 678   if (match(opt, "-echok")) {
 679         termios.c_lflag &= ~ECHOK;
 680         return 0;
 681   }
 682
 683   if (match(opt, "echonl")) {
 684         termios.c_lflag |= ECHONL;
 685         return 0;
 686   }
 687   if (match(opt, "-echonl")) {
 688         termios.c_lflag &= ~ECHONL;
 689         return 0;
 690   }
 691
 692   if (match(opt, "icanon")) {
 693         termios.c_lflag |= ICANON;
 694         return 0;
 695   }
 696   if (match(opt, "-icanon")) {
 697         termios.c_lflag &= ~ICANON;
 698         return 0;
 699   }
 700
 701   if (match(opt, "iexten")) {
 702         termios.c_lflag |= IEXTEN;
 703         return 0;
 704   }
 705   if (match(opt, "-iexten")) {
 706         termios.c_lflag &= ~IEXTEN;
 707         return 0;
 708   }
 709
 710   if (match(opt, "isig")) {
 711         termios.c_lflag |= ISIG;
 712         return 0;
 713   }
 714   if (match(opt, "-isig")) {
 715         termios.c_lflag &= ~ISIG;
 716         return 0;
 717   }
 718
 719   if (match(opt, "noflsh")) {
 720         termios.c_lflag |= NOFLSH;
 721         return 0;
 722   }
 723   if (match(opt, "-noflsh")) {
 724         termios.c_lflag &= ~NOFLSH;
 725         return 0;
 726   }
 727
 728   if (match(opt, "tostop")) {
 729         termios.c_lflag |= TOSTOP;
 730         return 0;
 731   }
 732   if (match(opt, "-tostop")) {
 733         termios.c_lflag &= ~TOSTOP;
 734         return 0;
 735   }
 736
 737 #ifdef __minix
 738   if (match(opt, "lflusho")) {
 739         termios.c_lflag |= LFLUSHO;
 740         return 0;
 741   }
 742   if (match(opt, "-lflusho")) {
 743         termios.c_lflag &= ~LFLUSHO;
 744         return 0;
 745   }
 746 #endif
 747
 748   /* The special control characters. */
 749   if (match(opt, "eof")) {
 750         set_control(VEOF, next);
 751         return 1;
 752   }
 753
 754   if (match(opt, "eol")) {
 755         set_control(VEOL, next);
 756         return 1;
 757   }
 758
 759   if (match(opt, "erase")) {
 760         set_control(VERASE, next);
 761         return 1;
 762   }
 763
 764   if (match(opt, "intr")) {
 765         set_control(VINTR, next);
 766         return 1;
 767   }
 768
 769   if (match(opt, "kill")) {
 770         set_control(VKILL, next);
 771         return 1;
 772   }
 773
 774   if (match(opt, "quit")) {
 775         set_control(VQUIT, next);
 776         return 1;
 777   }
 778
 779   if (match(opt, "susp")) {
 780         set_control(VSUSP, next);
 781         return 1;
 782   }
 783
 784   if (match(opt, "start")) {
 785         set_control(VSTART, next);
 786         return 1;
 787   }
 788
 789   if (match(opt, "stop")) {
 790         set_control(VSTOP, next);
 791         return 1;
 792   }
 793 #ifdef __minix
 794   if (match(opt, "rprnt")) {
 795         set_control(VREPRINT, next);
 796         return 1;
 797   }
 798
 799   if (match(opt, "lnext")) {
 800         set_control(VLNEXT, next);
 801         return 1;
 802   }
 803
 804   if (match(opt, "flush")) {
 805         set_control(VDISCARD, next);
 806         return 1;
 807   }
 808 #endif
 809
 810   if (match(opt, "min")) {
 811         set_min_tim(VMIN, next);
 812         return 1;
 813   }
 814
 815   if (match(opt, "time")) {
 816         set_min_tim(VTIME, next);
 817         return 1;
 818   }
 819
 820   /* Special modes. */
 821   if (opt[0] == ':')
 822   {
 823         set_saved_settings(opt);
 824         return 0;
 825   }
 826
 827   if (match(opt, "cooked") || match(opt, "raw")) {
 828         int x = opt[0] == 'c' ? 1 : 0;
 829
 830         option(x + "-icrnl", "");       /* off in raw mode, on in cooked mode */
 831         option(x + "-ixon", "");
 832         option(x + "-opost", "");
 833         option(x + "-onlcr", "");
 834         option(x + "-isig", "");
 835         option(x + "-icanon", "");
 836         option(x + "-iexten", "");
 837         option(x + "-echo", "");
 838         return 0;
 839   }
 840
 841   if (match(opt, "evenp") || match(opt, "parity")) {
 842         option("parenb", "");
 843         option("cs7", "");
 844         option("-parodd", "");
 845         return 0;
 846   }
 847
 848   if (match(opt, "oddp")) {
 849         option("parenb", "");
 850         option("cs7", "");
 851         option("parodd", "");
 852         return 0;
 853   }
 854
 855   if (match(opt, "-parity") || match(opt, "-evenp") || match(opt, "-oddp")) {
 856         option("-parenb", "");
 857         option("cs8", "");
 858         return 0;
 859   }
 860
 861   if (match(opt, "nl")) {
 862         option("icrnl", "");
 863         return 0;
 864   }
 865
 866   if (match(opt, "-nl")) {
 867         option("-icrnl", "");
 868         option("-inlcr", "");
 869         option("-igncr", "");
 870         return 0;
 871   }
 872
 873   if (match(opt, "ek")) {
 874         termios.c_cc[VERASE]= TERASE_DEF;;
 875         termios.c_cc[VKILL]= TKILL_DEF;;
 876         return 0;
 877   }
 878
 879   if (match(opt, "sane"))
 880   {
 881         /* Reset all terminal attributes to a sane state, except things like
 882          * line speed and parity, because it can't be known what their sane
 883          * values are.
 884          */
 885         termios.c_iflag= (TINPUT_DEF & ~(IGNPAR|ISTRIP|INPCK))
 886                 | (termios.c_iflag & (IGNPAR|ISTRIP|INPCK));
 887         termios.c_oflag= (TOUTPUT_DEF & ~(XTABS))
 888                 | (termios.c_oflag & (XTABS));
 889         termios.c_cflag= (TCTRL_DEF & ~(CLOCAL|CSIZE|CSTOPB|PARENB|PARODD))
 890                 | (termios.c_cflag & (CLOCAL|CSIZE|CSTOPB|PARENB|PARODD));
 891         termios.c_lflag= (TLOCAL_DEF & ~(ECHOE|ECHOK))
 892                 | (termios.c_lflag & (ECHOE|ECHOK));
 893         if (termios.c_lflag & ICANON) {
 894                 termios.c_cc[VMIN]= TMIN_DEF;
 895                 termios.c_cc[VTIME]= TTIME_DEF;
 896         }
 897         termios.c_cc[VEOF]= TEOF_DEF;
 898         termios.c_cc[VEOL]= TEOL_DEF;
 899         termios.c_cc[VERASE]= TERASE_DEF;
 900         termios.c_cc[VINTR]= TINTR_DEF;
 901         termios.c_cc[VKILL]= TKILL_DEF;
 902         termios.c_cc[VQUIT]= TQUIT_DEF;
 903         termios.c_cc[VSUSP]= TSUSP_DEF;
 904 #ifdef __minix
 905         termios.c_cc[VREPRINT]= TREPRINT_DEF;
 906         termios.c_cc[VLNEXT]= TLNEXT_DEF;
 907         termios.c_cc[VDISCARD]= TDISCARD_DEF;
 908 #endif
 909         termios.c_cc[VSTART]= TSTART_DEF;
 910         termios.c_cc[VSTOP]= TSTOP_DEF;
 911         if (!(termios.c_lflag & ICANON)) {
 912                 termios.c_cc[VMIN]= TMIN_DEF;
 913                 termios.c_cc[VTIME]= TTIME_DEF;
 914         }
 915         return 0;
 916   }
 917
 918 #ifdef __minix
 919   if (match(opt, "cols"))
 920   {
 921         num= strtol(next, &check, 0);
 922         if (check[0] != '\0')
 923         {
 924                 fprintf(stderr, "%s: illegal parameter to cols: '%s'\n",
 925                                                         prog_name, next);
 926                 return 1;
 927         }
 928         winsize.ws_col= num;
 929         return 1;
 930   }
 931
 932   if (match(opt, "rows"))
 933   {
 934         num= strtol(next, &check, 0);
 935         if (check[0] != '\0')
 936         {
 937                 fprintf(stderr, "%s: illegal parameter to rows: '%s'\n",
 938                                                         prog_name, next);
 939                 return 1;
 940         }
 941         winsize.ws_row= num;
 942         return 1;
 943   }
 944
 945   if (match(opt, "xpixels"))
 946   {
 947         num= strtol(next, &check, 0);
 948         if (check[0] != '\0')
 949         {
 950                 fprintf(stderr, "%s: illegal parameter to xpixels: '%s'\n",
 951                                                         prog_name, next);
 952                 return 1;
 953         }
 954         winsize.ws_xpixel= num;
 955         return 1;
 956   }
 957
 958   if (match(opt, "ypixels"))
 959   {
 960         num= strtol(next, &check, 0);
 961         if (check[0] != '\0')
 962         {
 963                 fprintf(stderr, "%s: illegal parameter to ypixels: '%s'\n",
 964                                                         prog_name, next);
 965                 return 1;
 966         }
 967         winsize.ws_ypixel= num;
 968         return 1;
 969   }
 970 #endif /* __minix */
 971
 972   fprintf(stderr, "%s: unknown mode: %s\n", prog_name, opt);
 973   return 0;
 974 }
 975
 976 int match(s1, s2)
 977 char *s1, *s2;
 978 {
 979
 980   while (1) {
 981         if (*s1 == 0 && *s2 == 0) return(1);
 982         if (*s1 == 0 || *s2 == 0) return (0);
 983         if (*s1 != *s2) return (0);
 984         s1++;
 985         s2++;
 986   }
 987 }
 988
 989 void prctl(c)
 990 char c;
 991 {
 992   if (c < ' ')
 993         printf("^%c", 'A' + c - 1);
 994   else if (c == 0177)
 995         printf("^?");
 996   else
 997         printf("%c", c);
 998 }
 999
1000 struct s2s {
1001         speed_t ts;
1002         long ns;
1003 } s2s[] = {
1004         { B0,                0 },
1005         { B50,              50 },
1006         { B75,              75 },
1007         { B110,            110 },
1008         { B134,            134 },
1009         { B150,            150 },
1010         { B200,            200 },
1011         { B300,            300 },
1012         { B600,            600 },
1013         { B1200,          1200 },
1014         { B1800,          1800 },
1015         { B2400,          2400 },
1016         { B4800,          4800 },
1017         { B9600,          9600 },
1018         { B19200,        19200 },
1019         { B38400,        38400 },
1020 #ifdef __minix
1021         { B57600,        57600 },
1022         { B115200,      115200 },
1023 #ifdef B230400
1024         { B230400,      230400 },
1025 #endif
1026 #ifdef B460800
1027         { B460800,      460800 },
1028 #endif
1029 #ifdef B921600
1030         { B921600,      921600 },
1031 #endif
1032 #endif
1033 };
1034
1035 speed_t long2speed(num)
1036 long num;
1037 {
1038         struct s2s *sp;
1039
1040         for (sp = s2s; sp < s2s + (sizeof(s2s) / sizeof(s2s[0])); sp++) {
1041                 if (sp->ns == num) return sp->ts;
1042         }
1043         return -1;
1044 }
1045
1046 long speed2long(speed)
1047 unsigned long speed;
1048 {
1049         struct s2s *sp;
1050
1051         for (sp = s2s; sp < s2s + (sizeof(s2s) / sizeof(s2s[0])); sp++) {
1052                 if (sp->ts == speed) return sp->ns;
1053         }
1054         return -1;
1055 }
1056
1057 void print_flags(flags, flag, def, string, all)
1058 unsigned long flags;
1059 unsigned long flag;
1060 unsigned long def;
1061 char *string;
1062 int all;
1063 {
1064         if (!(flags & flag))
1065         {
1066                 if (all || (def & flag))
1067                         output(string);
1068                 return;
1069         }
1070         string++;
1071         if (all || !(def & flag))
1072                 output(string);
1073 }
1074
1075 void output(s)
1076 char *s;
1077 {
1078         int len;
1079
1080         len= strlen(s);
1081         if (column + len + 3 >= max_column)
1082         {
1083                 printf("\n");
1084                 column= 0;
1085         }
1086         if (column)
1087         {
1088                 putchar(' ');
1089                 column++;
1090         }
1091         fputs(s, stdout);
1092         column += len;
1093 }
1094
1095 void do_print_char(chr, def, name, all)
1096 unsigned chr;
1097 unsigned def;
1098 char *name;
1099 int all;
1100 {
1101         char line[20];
1102
1103         if (!all && chr == def)
1104                 return;
1105
1106 #ifdef _POSIX_VDISABLE
1107         if (chr == _POSIX_VDISABLE)
1108                 sprintf(line, "%s = <undef>", name);
1109         else
1110 #endif
1111         if (chr < ' ')
1112                 sprintf(line, "%s = ^%c", name, chr + '@');
1113         else if (chr == 127)
1114                 sprintf(line, "%s = ^?", name);
1115         else
1116                 sprintf(line, "%s = %c", name, chr);
1117         output(line);
1118 }
1119
1120 void do_print_num(num, def, name, all)
1121 unsigned num;
1122 unsigned def;
1123 char *name;
1124 int all;
1125 {
1126         char line[20];
1127
1128         if (!all && num == def)
1129                 return;
1130         sprintf(line, "%s = %u", name, num);
1131         output(line);
1132 }
1133
1134 void set_saved_settings(opt)
1135 char *opt;
1136 {
1137         long num;
1138         char *check;
1139         tcflag_t c_oflag, c_cflag, c_lflag, c_iflag;
1140         cc_t c_cc[NCCS];
1141         speed_t ispeed, ospeed;
1142         int i;
1143
1144         check= opt;
1145         num= strtol(check+1, &check, 16);
1146         if (check[0] != ':')
1147         {
1148                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1149                 return;
1150         }
1151         c_iflag= num;
1152
1153         num= strtol(check+1, &check, 16);
1154         if (check[0] != ':')
1155         {
1156                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1157                 return;
1158         }
1159         c_oflag= num;
1160
1161         num= strtol(check+1, &check, 16);
1162         if (check[0] != ':')
1163         {
1164                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1165                 return;
1166         }
1167         c_cflag= num;
1168
1169         num= strtol(check+1, &check, 16);
1170         if (check[0] != ':')
1171         {
1172                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1173                 return;
1174         }
1175         c_lflag= num;
1176
1177         num= strtol(check+1, &check, 16);
1178         if (check[0] != ':')
1179         {
1180                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1181                 return;
1182         }
1183         ispeed= num;
1184
1185         num= strtol(check+1, &check, 16);
1186         if (check[0] != ':')
1187         {
1188                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1189                 return;
1190         }
1191         ospeed= num;
1192
1193         for(i=0; i<NCCS; i++)
1194         {
1195                 num= strtol(check+1, &check, 16);
1196                 if (check[0] != ':')
1197                 {
1198                         fprintf(stderr, "error in saved settings '%s'\n", opt);
1199                         return;
1200                 }
1201                 c_cc[i]= num;
1202         }
1203         if (check[1] != '\0')
1204         {
1205                 fprintf(stderr, "error in saved settings '%s'\n", opt);
1206                 return;
1207         }
1208         termios.c_iflag= c_iflag;
1209         termios.c_oflag= c_oflag;
1210         termios.c_cflag= c_cflag;
1211         termios.c_lflag= c_lflag;
1212
1213         cfsetispeed(&termios, ispeed);
1214         cfsetospeed(&termios, ospeed);
1215
1216         for(i=0; i<NCCS; i++)
1217                 termios.c_cc[i]= c_cc[i];
1218 }
1219
1220 void set_control(option, value)
1221 int option;
1222 char *value;
1223 {
1224         int chr;
1225
1226         if (match(value, "undef") || match(value, "^-")) {
1227 #ifdef _POSIX_VDISABLE
1228                 chr= _POSIX_VDISABLE;
1229 #else
1230                 fprintf(stderr,
1231                         "stty: unable to set option to _POSIX_VDISABLE\n");
1232                 return;
1233 #endif
1234         } else if (match(value, "^?"))
1235                 chr= '\177';
1236         else if (strlen(value) == 2 && value[0] == '^') {
1237                 chr= toupper(value[1]) - '@';
1238                 if (chr < 0 || chr >= 32) {
1239                         fprintf(stderr, "stty: illegal option value: '%s'\n",
1240                                 value);
1241                         return;
1242                 }
1243         } else if (strlen(value) == 1)
1244                 chr= value[0];
1245         else {
1246                 fprintf(stderr, "stty: illegal option value: '%s'\n", value);
1247                 return;
1248         }
1249
1250         assert(option >= 0 && option < NCCS);
1251         termios.c_cc[option]= chr;
1252 }
1253
1254 void set_min_tim(option, value)
1255 int option;
1256 char *value;
1257 {
1258         long num;
1259         char *check;
1260
1261         num= strtol(value, &check, 0);
1262         if (check[0] != '\0') {
1263                 fprintf(stderr, "stty: illegal option value: '%s'\n", value);
1264                 return;
1265         }
1266
1267         if ((cc_t)num != num) {
1268                 fprintf(stderr, "stty: illegal option value: '%s'\n", value);
1269                 return;
1270         }
1271         assert(option >= 0 && option < NCCS);
1272         termios.c_cc[option]= num;
1273 }
1274
1275 /*
1276  * $PchId: stty.c,v 1.7 2001/05/02 15:04:42 philip Exp $
1277  */