projects / unix-history / blame
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add spl's around queue manipulation
[unix-history] / usr / src / bin / stty / stty.c
CommitLineData
ba3dc8b4 1#ifndef lint
a6461b5b 2static char *sccsid ="@(#)stty.c 4.14 (Berkeley) %G%";
ba3dc8b4 3#endif
16b6b22b
BJ		 4/*
5 * set teletype modes
6 */
7
8#include <stdio.h>
9#include <sgtty.h>
10
ba3dc8b4
SL		 11struct
12{
16b6b22b
BJ		 13 char *string;
14 int speed;
15} speeds[] = {
ba3dc8b4
SL		 16 "0", B0,
17 "50", B50,
18 "75", B75,
19 "110", B110,
20 "134", B134,
21 "134.5",B134,
22 "150", B150,
23 "200", B200,
24 "300", B300,
25 "600", B600,
26 "1200", B1200,
27 "1800", B1800,
28 "2400", B2400,
29 "4800", B4800,
30 "9600", B9600,
31 "exta", EXTA,
32 "19200", EXTA,
33 "extb", EXTB,
34 "38400", EXTB,
35 0,
16b6b22b 36};
ba3dc8b4
SL		 37struct
38{
16b6b22b 39 char *string;
ba3dc8b4
SL		 40 int set;
41 int reset;
42 int lset;
43 int lreset;
16b6b22b 44} modes[] = {
ba3dc8b4
SL		 45 "even", EVENP, 0, 0, 0,
46 "-even", 0, EVENP, 0, 0,
47 "odd", ODDP, 0, 0, 0,
48 "-odd", 0, ODDP, 0, 0,
49 "raw", RAW, 0, 0, 0,
50 "-raw", 0, RAW, 0, 0,
51 "cooked", 0, RAW, 0, 0,
52 "-nl", CRMOD, 0, 0, 0,
53 "nl", 0, CRMOD, 0, 0,
54 "echo", ECHO, 0, 0, 0,
55 "-echo", 0, ECHO, 0, 0,
56 "LCASE", LCASE, 0, 0, 0,
57 "lcase", LCASE, 0, 0, 0,
58 "-LCASE", 0, LCASE, 0, 0,
59 "-lcase", 0, LCASE, 0, 0,
60 "-tabs", XTABS, 0, 0, 0,
61 "tabs", 0, XTABS, 0, 0,
62 "tandem", TANDEM, 0, 0, 0,
63 "-tandem", 0, TANDEM, 0, 0,
64 "cbreak", CBREAK, 0, 0, 0,
65 "-cbreak", 0, CBREAK, 0, 0,
66 "cr0", CR0, CR3, 0, 0,
67 "cr1", CR1, CR3, 0, 0,
68 "cr2", CR2, CR3, 0, 0,
69 "cr3", CR3, CR3, 0, 0,
70 "tab0", TAB0, XTABS, 0, 0,
71 "tab1", TAB1, XTABS, 0, 0,
72 "tab2", TAB2, XTABS, 0, 0,
73 "nl0", NL0, NL3, 0, 0,
74 "nl1", NL1, NL3, 0, 0,
75 "nl2", NL2, NL3, 0, 0,
76 "nl3", NL3, NL3, 0, 0,
77 "ff0", FF0, FF1, 0, 0,
78 "ff1", FF1, FF1, 0, 0,
79 "bs0", BS0, BS1, 0, 0,
80 "bs1", BS1, BS1, 0, 0,
81 "33", CR1, ALLDELAY, 0, 0,
82 "tty33", CR1, ALLDELAY, 0, 0,
83 "37", FF1+CR2+TAB1+NL1, ALLDELAY, 0, 0,
84 "tty37", FF1+CR2+TAB1+NL1, ALLDELAY, 0, 0,
85 "05", NL2, ALLDELAY, 0, 0,
86 "vt05", NL2, ALLDELAY, 0, 0,
87 "tn", CR1, ALLDELAY, 0, 0,
88 "tn300", CR1, ALLDELAY, 0, 0,
89 "ti", CR2, ALLDELAY, 0, 0,
90 "ti700", CR2, ALLDELAY, 0, 0,
91 "tek", FF1, ALLDELAY, 0, 0,
92 "crtbs", 0, 0, LCRTBS, LPRTERA,
93 "-crtbs", 0, 0, 0, LCRTBS,
94 "prterase", 0, 0, LPRTERA, LCRTBS+LCRTKIL+LCRTERA,
95 "-prterase", 0, 0, 0, LPRTERA,
96 "crterase", 0, 0, LCRTERA, LPRTERA,
97 "-crterase", 0, 0, 0, LCRTERA,
98 "crtkill", 0, 0, LCRTKIL, LPRTERA,
99 "-crtkill", 0, 0, 0, LCRTKIL,
100 "tilde", 0, 0, LTILDE, 0,
101 "-tilde", 0, 0, 0, LTILDE,
102 "mdmbuf", 0, 0, LMDMBUF, 0,
103 "-mdmbuf", 0, 0, 0, LMDMBUF,
104 "litout", 0, 0, LLITOUT, 0,
105 "-litout", 0, 0, 0, LLITOUT,
106 "tostop", 0, 0, LTOSTOP, 0,
107 "-tostop", 0, 0, 0, LTOSTOP,
108 "flusho", 0, 0, LFLUSHO, 0,
109 "-flusho", 0, 0, 0, LFLUSHO,
110 "nohang", 0, 0, LNOHANG, 0,
111 "-nohang", 0, 0, 0, LNOHANG,
2be6f1d1 112#ifdef notdef
ba3dc8b4
SL		 113 "etxack", 0, 0, LETXACK, 0,
114 "-etxack", 0, 0, 0, LETXACK,
2be6f1d1 115#endif
ba3dc8b4
SL		 116 "ctlecho", 0, 0, LCTLECH, 0,
117 "-ctlecho", 0, 0, 0, LCTLECH,
118 "pendin", 0, 0, LPENDIN, 0,
119 "-pendin", 0, 0, 0, LPENDIN,
120 "decctlq", 0, 0, LDECCTQ, 0,
121 "-decctlq", 0, 0, 0, LDECCTQ,
122 "noflsh", 0, 0, LNOFLSH, 0,
123 "-noflsh", 0, 0, 0, LNOFLSH,
124 0,
16b6b22b
BJ		 125};
126
ba3dc8b4
SL		 127struct tchars tc;
128struct ltchars ltc;
129struct sgttyb mode;
130int lmode;
16b6b22b
BJ		 131int oldisc, ldisc;
132
16b6b22b
BJ		 133struct special {
134 char *name;
135 char *cp;
136 char def;
137} special[] = {
ba3dc8b4
SL		 138 "erase", &mode.sg_erase, CERASE,
139 "kill", &mode.sg_kill, CKILL,
140 "intr", &tc.t_intrc, CINTR,
141 "quit", &tc.t_quitc, CQUIT,
142 "start", &tc.t_startc, CSTART,
143 "stop", &tc.t_stopc, CSTOP,
144 "eof", &tc.t_eofc, CEOF,
145 "brk", &tc.t_brkc, CBRK,
146 "susp", &ltc.t_suspc, CSUSP,
147 "dsusp", &ltc.t_dsuspc, CDSUSP,
148 "rprnt", &ltc.t_rprntc, CRPRNT,
149 "flush", &ltc.t_flushc, CFLUSH,
150 "werase", &ltc.t_werasc, CWERASE,
151 "lnext", &ltc.t_lnextc, CLNEXT,
16b6b22b
BJ		 152 0
153};
154char *arg;
155
156int argc;
157char **argv;
158main(iargc, iargv)
ba3dc8b4 159char **iargv;
16b6b22b
BJ		 160{
161 int i;
162 register struct special *sp;
163 char obuf[BUFSIZ];
164
165 setbuf(stderr, obuf);
166 argc = iargc;
167 argv = iargv;
ba3dc8b4 168 ioctl(1, TIOCGETP, &mode);
16b6b22b
BJ		 169 ioctl(1, TIOCGETD, &ldisc);
170 oldisc = ldisc;
ba3dc8b4
SL		 171 ioctl(1, TIOCGETC, &tc);
172 ioctl(1, TIOCLGET, &lmode);
173 ioctl(1, TIOCGLTC, &ltc);
174 if(argc == 1) {
16b6b22b
BJ		 175 prmodes(0);
176 exit(0);
177 }
178 if (argc == 2 && !strcmp(argv[1], "all")) {
179 prmodes(1);
180 exit(0);
181 }
182 if (argc == 2 && !strcmp(argv[1], "everything")) {
183 prmodes(2);
184 exit(0);
185 }
ba3dc8b4
SL		 186/*
187 if (argc == 2 && !strcmp(argv[1], "all")) {
188 prmodes(2);
189 exit(0);
190 }
191*/
192 while(--argc > 0) {
16b6b22b 193 arg = *++argv;
ba3dc8b4
SL		 194 if (eq("ek")){
195 mode.sg_erase = '#';
196 mode.sg_kill = '@';
16b6b22b
BJ		 197 continue;
198 }
ba3dc8b4 199 if (eq("new")){
16b6b22b 200 ldisc = NTTYDISC;
ba3dc8b4 201 if (ioctl(1, TIOCSETD, &ldisc)<0)
16b6b22b
BJ		 202 perror("ioctl");
203 continue;
204 }
ba3dc8b4 205 if (eq("newcrt")){
16b6b22b 206 ldisc = NTTYDISC;
ba3dc8b4
SL		 207 lmode &= ~LPRTERA;
208 lmode |= LCRTBS|LCTLECH;
209 if (mode.sg_ospeed >= B1200)
210 lmode |= LCRTERA|LCRTKIL;
211 if (ioctl(1, TIOCSETD, &ldisc)<0)
16b6b22b
BJ		 212 perror("ioctl");
213 continue;
214 }
ba3dc8b4
SL		 215 if (eq("crt")){
216 lmode &= ~LPRTERA;
217 lmode |= LCRTBS|LCTLECH;
218 if (mode.sg_ospeed >= B1200)
219 lmode |= LCRTERA|LCRTKIL;
16b6b22b
BJ		 220 continue;
221 }
ba3dc8b4
SL		 222 if (eq("old")){
223 ldisc = 0;
224 if (ioctl(1, TIOCSETD, &ldisc)<0)
16b6b22b
BJ		 225 perror("ioctl");
226 continue;
227 }
ba3dc8b4
SL		 228 if (eq("dec")){
229 mode.sg_erase = 0177;
230 mode.sg_kill = CTRL(u);
231 tc.t_intrc = CTRL(c);
5e9810bc 232 ldisc = NTTYDISC;
ba3dc8b4
SL		 233 lmode &= ~LPRTERA;
234 lmode |= LCRTBS|LCTLECH|LDECCTQ;
235 if (mode.sg_ospeed >= B1200)
236 lmode |= LCRTERA|LCRTKIL;
237 if (ioctl(1, TIOCSETD, &ldisc)<0)
5e9810bc
BJ		 238 perror("ioctl");
239 continue;
240 }
16b6b22b
BJ		 241 for (sp = special; sp->name; sp++)
242 if (eq(sp->name)) {
243 if (--argc == 0)
244 goto done;
245 if (**++argv == 'u')
246 *sp->cp = 0377;
247 else if (**argv == '^')
49d29e41 248 *sp->cp = ((*argv)[1] == '?') ?
16b6b22b
BJ		 249 0177 : (*argv)[1] & 037;
250 else
251 *sp->cp = **argv;
252 goto cont;
253 }
254 if (eq("gspeed")) {
ba3dc8b4
SL		 255 mode.sg_ispeed = B300;
256 mode.sg_ospeed = B9600;
16b6b22b
BJ		 257 continue;
258 }
259 if (eq("hup")) {
ba3dc8b4 260 ioctl(1, TIOCHPCL, NULL);
16b6b22b
BJ		 261 continue;
262 }
ba3dc8b4
SL		 263 for(i=0; speeds[i].string; i++)
264 if(eq(speeds[i].string)) {
265 mode.sg_ispeed = mode.sg_ospeed = speeds[i].speed;
16b6b22b
BJ		 266 goto cont;
267 }
268 if (eq("speed")) {
ba3dc8b4
SL		 269 ioctl(open("/dev/tty", 0), TIOCGETP, &mode);
270 for(i=0; speeds[i].string; i++)
271 if (mode.sg_ospeed == speeds[i].speed) {
16b6b22b
BJ		 272 printf("%s\n", speeds[i].string);
273 exit(0);
274 }
275 printf("unknown\n");
276 exit(1);
277 }
ba3dc8b4
SL		 278 for(i=0; modes[i].string; i++)
279 if(eq(modes[i].string)) {
280 mode.sg_flags &= ~modes[i].reset;
281 mode.sg_flags |= modes[i].set;
282 lmode &= ~modes[i].lreset;
283 lmode |= modes[i].lset;
16b6b22b 284 }
ba3dc8b4 285 if(arg)
16b6b22b
BJ		 286 fprintf(stderr,"unknown mode: %s\n", arg);
287cont:
288 ;
289 }
290done:
ba3dc8b4
SL		 291 ioctl(1, TIOCSETN, &mode);
292 ioctl(1, TIOCSETC, &tc);
293 ioctl(1, TIOCSLTC, &ltc);
294 ioctl(1, TIOCLSET, &lmode);
16b6b22b
BJ		 295}
296
297eq(string)
ba3dc8b4 298char *string;
16b6b22b
BJ		 299{
300 int i;
301
ba3dc8b4
SL		 302 if(!arg)
303 return(0);
16b6b22b
BJ		 304 i = 0;
305loop:
ba3dc8b4 306 if(arg[i] != string[i])
16b6b22b 307 return(0);
ba3dc8b4 308 if(arg[i++] != '\0')
16b6b22b
BJ		 309 goto loop;
310 arg = 0;
ba3dc8b4 311 return(1);
16b6b22b
BJ		 312}
313
314prmodes(all)
315{
316 register m;
317 int any;
318
ba3dc8b4 319 if(ldisc==NETLDISC)
16b6b22b 320 fprintf(stderr, "net discipline, ");
ba3dc8b4 321 else if(ldisc==NTTYDISC)
16b6b22b 322 fprintf(stderr, "new tty, ");
ba3dc8b4 323 else if(all==2)
16b6b22b 324 fprintf(stderr, "old tty, ");
ba3dc8b4
SL		 325 if(mode.sg_ispeed != mode.sg_ospeed) {
326 prspeed("input speed ", mode.sg_ispeed);
327 prspeed("output speed ", mode.sg_ospeed);
16b6b22b 328 } else
ba3dc8b4
SL		 329 prspeed("speed ", mode.sg_ispeed);
330 fprintf(stderr, all==2 ? "\n" : "; ");
331 m = mode.sg_flags;
332 if(all==2 || (m&(EVENP|ODDP))!=(EVENP|ODDP)) {
333 if(m & EVENP) fprintf(stderr,"even ");
334 if(m & ODDP) fprintf(stderr,"odd ");
16b6b22b 335 }
ba3dc8b4
SL		 336 if(all==2 || m&RAW)
337 fprintf(stderr,"-raw "+((m&RAW)!=0));
338 if(all==2 || (m&CRMOD)==0)
339 fprintf(stderr,"-nl "+((m&CRMOD)==0));
340 if(all==2 || (m&ECHO)==0)
341 fprintf(stderr,"-echo "+((m&ECHO)!=0));
342 if(all==2 || (m&LCASE))
343 fprintf(stderr,"-lcase "+((m&LCASE)!=0));
344 if(all==2 || (m&TANDEM))
345 fprintf(stderr,"-tandem "+((m&TANDEM)!=0));
346 fprintf(stderr,"-tabs "+((m&XTABS)!=XTABS));
347 if(all==2 || (m&CBREAK))
348 fprintf(stderr,"-cbreak "+((m&CBREAK)!=0));
349 if(all==2 || (m&NLDELAY))
350 delay((m&NLDELAY)/NL1, "nl");
351 if ((m&TBDELAY)!=XTABS)
352 delay((m&TBDELAY)/TAB1, "tab");
353 if(all==2 || (m&CRDELAY))
354 delay((m&CRDELAY)/CR1, "cr");
355 if(all==2 || (m&VTDELAY))
356 delay((m&VTDELAY)/FF1, "ff");
357 if(all==2 || (m&BSDELAY))
358 delay((m&BSDELAY)/BS1, "bs");
16b6b22b
BJ		 359 if (all)
360 fprintf(stderr,"\n");
361#define lpit(what,str) \
ba3dc8b4
SL		 362 if (all==2||(lmode&what)) { \
363 fprintf(stderr,str+((lmode&what)!=0)); any++; \
16b6b22b
BJ		 364 }
365 if (ldisc == NTTYDISC) {
ba3dc8b4
SL		 366 int newcrt = (lmode&(LCTLECH|LCRTBS)) == (LCTLECH|LCRTBS) &&
367 (lmode&(LCRTERA|LCRTKIL)) ==
368 ((mode.sg_ospeed > B300) ? LCRTERA|LCRTKIL : 0);
74a327ac 369 int nothing = 1;
16b6b22b 370 if (newcrt) {
ba3dc8b4
SL		 371 if (all==2)
372 fprintf(stderr, "crt: (crtbs crterase crtkill ctlecho) ");
373 else
374 fprintf(stderr, "crt ");
16b6b22b
BJ		 375 any++;
376 } else {
ba3dc8b4
SL		 377 lpit(LCRTBS, "-crtbs ");
378 lpit(LCRTERA, "-crterase ");
379 lpit(LCRTKIL, "-crtkill ");
380 lpit(LCTLECH, "-ctlecho ");
381 lpit(LPRTERA, "-prterase ");
16b6b22b 382 }
ba3dc8b4
SL		 383 lpit(LTOSTOP, "-tostop ");
384 if (all==2) {
16b6b22b
BJ		 385 fprintf(stderr, "\n");
386 any = 0;
74a327ac 387 nothing = 0;
16b6b22b 388 }
ba3dc8b4
SL		 389 lpit(LTILDE, "-tilde ");
390 lpit(LFLUSHO, "-flusho ");
391 lpit(LMDMBUF, "-mdmbuf ");
392 lpit(LLITOUT, "-litout ");
393 lpit(LNOHANG, "-nohang ");
7ef182e7
BJ		 394 if (any) {
395 fprintf(stderr,"\n");
396 any = 0;
74a327ac 397 nothing = 0;
7ef182e7 398 }
2be6f1d1 399#ifdef notdef
ba3dc8b4 400 lpit(LETXACK, "-etxack ");
2be6f1d1 401#endif
ba3dc8b4
SL		 402 lpit(LPENDIN, "-pendin ");
403 lpit(LDECCTQ, "-decctlq ");
404 lpit(LNOFLSH, "-noflsh ");
74a327ac 405 if (any || nothing)
16b6b22b
BJ		 406 fprintf(stderr,"\n");
407 } else if (!all)
408 fprintf(stderr,"\n");
409 if (all) {
410 switch (ldisc) {
411
412 case 0:
413 fprintf(stderr,"\
414erase kill intr quit stop eof\
415\n");
ba3dc8b4
SL		 416 pcol(mode.sg_erase, -1);
417 pcol(mode.sg_kill, -1);
418 pcol(tc.t_intrc, -1);
419 pcol(tc.t_quitc, -1);
420 pcol(tc.t_stopc, tc.t_startc);
421 pcol(tc.t_eofc, tc.t_brkc);
16b6b22b
BJ		 422 fprintf(stderr,"\n");
423 break;
424
425 case NTTYDISC:
426 fprintf(stderr,"\
427erase kill werase rprnt flush lnext susp intr quit stop eof\
428\n");
ba3dc8b4
SL		 429 pcol(mode.sg_erase, -1);
430 pcol(mode.sg_kill, -1);
431 pcol(ltc.t_werasc, -1);
432 pcol(ltc.t_rprntc, -1);
433 pcol(ltc.t_flushc, -1);
434 pcol(ltc.t_lnextc, -1);
435 pcol(ltc.t_suspc, ltc.t_dsuspc);
436 pcol(tc.t_intrc, -1);
437 pcol(tc.t_quitc, -1);
438 pcol(tc.t_stopc, tc.t_startc);
439 pcol(tc.t_eofc, tc.t_brkc);
16b6b22b
BJ		 440 fprintf(stderr,"\n");
441 break;
442 }
443 } else if (ldisc != NETLDISC) {
444 register struct special *sp;
445 int first = 1;
74a327ac 446
16b6b22b
BJ		 447 for (sp = special; sp->name; sp++) {
448 if ((*sp->cp&0377) != (sp->def&0377)) {
449 pit(*sp->cp, sp->name, first ? "" : ", ");
450 first = 0;
451 };
ba3dc8b4 452 if (sp->cp == &tc.t_brkc && ldisc == 0)
16b6b22b
BJ		 453 break;
454 }
74a327ac 455 if (!first)
ba3dc8b4 456 fprintf(stderr, "\n");
16b6b22b
BJ		 457 }
458}
459
460pcol(ch1, ch2)
461 int ch1, ch2;
462{
463 int nout = 0;
464
465 ch1 &= 0377;
466 ch2 &= 0377;
467 if (ch1 == ch2)
468 ch2 = 0377;
469 for (; ch1 != 0377 || ch2 != 0377; ch1 = ch2, ch2 = 0377) {
470 if (ch1 == 0377)
471 continue;
472 if (ch1 & 0200) {
473 fprintf(stderr, "M-");
474 nout += 2;
475 ch1 &= ~ 0200;
476 }
477 if (ch1 == 0177) {
478 fprintf(stderr, "^");
479 nout++;
480 ch1 = '?';
481 } else if (ch1 < ' ') {
482 fprintf(stderr, "^");
483 nout++;
484 ch1 += '@';
485 }
486 fprintf(stderr, "%c", ch1);
487 nout++;
488 if (ch2 != 0377) {
489 fprintf(stderr, "/");
490 nout++;
491 }
492 }
493 while (nout < 7) {
494 fprintf(stderr, " ");
495 nout++;
496 }
497}
498
499pit(what, itsname, sep)
500 unsigned what;
501 char *itsname, *sep;
502{
503
504 what &= 0377;
505 fprintf(stderr, "%s%s", sep, itsname);
506 if (what == 0377) {
507 fprintf(stderr, " <undef>");
508 return;
509 }
510 fprintf(stderr, " = ");
511 if (what & 0200) {
512 fprintf(stderr, "M-");
513 what &= ~ 0200;
514 }
515 if (what == 0177) {
516 fprintf(stderr, "^");
517 what = '?';
518 } else if (what < ' ') {
519 fprintf(stderr, "^");
520 what += '@';
521 }
522 fprintf(stderr, "%c", what);
523}
524
525delay(m, s)
ba3dc8b4 526char *s;
16b6b22b
BJ		 527{
528
ba3dc8b4 529 if(m)
16b6b22b
BJ		 530 fprintf(stderr,"%s%d ", s, m);
531}
532
533int speed[] = {
6bf7d5d9 534 0,50,75,110,134,150,200,300,600,1200,1800,2400,4800,9600,19200,38400
16b6b22b
BJ		 535};
536
537prspeed(c, s)
538char *c;
539{
540
541 fprintf(stderr,"%s%d baud", c, speed[s]);
542}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.