?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge commit '37e84ab74e939caf52150fc3352081786ecc0c29' into merges
[unleashed.git] / usr / src / uts / common / io / tty_pts.c
blob7b45c6299045b8707e1227760ea5399053a7d19e
1 /*
2 * Copyright (c) 2011 Bayard G. Bell. All rights reserved.
3 * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
4 * Use is subject to license terms.
5 */
6
7 /*
8 * Copyright (c) 1983 Regents of the University of California.
9 * All rights reserved. The Berkeley software License Agreement
10 * specifies the terms and conditions for redistribution.
11 */
12
13 /*
14 * PTY - Stream "pseudo-tty" device.
15 * This is the "slave" side.
16 */
17
18
19 #include <sys/param.h>
20 #include <sys/systm.h>
21 #include <sys/filio.h>
22 #include <sys/ioccom.h>
23 #include <sys/termios.h>
24 #include <sys/termio.h>
25 #include <sys/ttold.h>
26 #include <sys/stropts.h>
27 #include <sys/stream.h>
28 #include <sys/strsun.h>
29 #include <sys/tty.h>
30 #include <sys/user.h>
31 #include <sys/conf.h>
32 #include <sys/file.h>
33 #include <sys/vnode.h> /* 1/0 on the vomit meter */
34 #include <sys/proc.h>
35 #include <sys/uio.h>
36 #include <sys/errno.h>
37 #include <sys/strsubr.h>
38 #include <sys/poll.h>
39 #include <sys/sysmacros.h>
40 #include <sys/debug.h>
41 #include <sys/procset.h>
42 #include <sys/cred.h>
43 #include <sys/ptyvar.h>
44 #include <sys/suntty.h>
45 #include <sys/stat.h>
46 #include <sys/policy.h>
47
48 #include <sys/conf.h>
49 #include <sys/ddi.h>
50 #include <sys/sunddi.h>
51
52 extern void gsignal(int pid, int sig);
53
54 extern int npty; /* number of pseudo-ttys configured in */
55 extern struct pty *pty_softc;
56
57 extern struct pollhead ptcph; /* poll head for ptcpoll() use */
58
59 #define IFLAGS (CS7|CREAD|PARENB)
60
61
62 /*
63 * Most of these should be "void", but the people who defined the "streams"
64 * data structure for S5 didn't understand data types.
65 */
66
67 /*
68 * Slave side. This is a streams device.
69 */
70 static int ptslopen(queue_t *, dev_t *, int flag, int, cred_t *);
71 static int ptslclose(queue_t *, int, cred_t *);
72 static int ptslrserv(queue_t *);
73
74 /*
75 * To save instructions, since STREAMS ignores the return value
76 * from this function, it is defined as void here. Kind of icky, but...
77 */
78
79 static void ptslwput(queue_t *q, mblk_t *mp);
80
81 static struct module_info ptslm_info = {
82 0,
83 "ptys",
84 0,
85 INFPSZ,
86 2048,
87 200
88 };
89
90 static struct qinit ptslrinit = {
91 putq,
92 ptslrserv,
93 ptslopen,
94 ptslclose,
95 NULL,
96 &ptslm_info,
97 NULL
98 };
99
100 static struct qinit ptslwinit = {
101 (int (*)())ptslwput,
102 NULL,
103 NULL,
104 NULL,
105 NULL,
106 &ptslm_info,
107 NULL
108 };
109
110 struct streamtab ptysinfo = {
111 &ptslrinit,
112 &ptslwinit,
113 NULL,
114 NULL
115 };
116
117 static void ptslreioctl(void *);
118 static void ptslioctl(struct pty *, queue_t *, mblk_t *);
119 static void pt_sendstop(struct pty *);
120 static void ptcpollwakeup(struct pty *, int);
121
122
123 static int ptsl_info(dev_info_t *, ddi_info_cmd_t, void *, void **);
124 static int ptsl_attach(dev_info_t *, ddi_attach_cmd_t);
125 static dev_info_t *ptsl_dip; /* for dev-to-dip conversions */
126
127 DDI_DEFINE_STREAM_OPS(ptsl_ops, nulldev, nulldev,
128 ptsl_attach, nodev, nodev, ptsl_info, D_MP, &ptysinfo,
129 ddi_quiesce_not_supported);
130
131 #include <sys/types.h>
132 #include <sys/conf.h>
133 #include <sys/param.h>
134 #include <sys/systm.h>
135 #include <sys/errno.h>
136 #include <sys/modctl.h>
137
138 /*
139 * Module linkage information for the kernel.
140 */
141
142 static struct modldrv modldrv = {
143 &mod_driverops, /* Type of module. This one is a pseudo driver */
144 "tty pseudo driver slave 'ptsl'",
145 &ptsl_ops, /* driver ops */
146 };
147
148 static struct modlinkage modlinkage = {
149 MODREV_1,
150 &modldrv,
151 NULL
152 };
153
154 int
155 _init(void)
156 {
157 return (mod_install(&modlinkage));
158 }
159
160 int
161 _fini(void)
162 {
163 return (mod_remove(&modlinkage));
164 }
165
166 int
167 _info(struct modinfo *modinfop)
168 {
169 return (mod_info(&modlinkage, modinfop));
170 }
171
172 static char *tty_banks = PTY_BANKS;
173 static char *tty_digits = PTY_DIGITS;
174
175 /* ARGSUSED */
176 static int
177 ptsl_attach(dev_info_t *devi, ddi_attach_cmd_t cmd)
178 {
179 char name[8];
180 int tty_num;
181 char *tty_digit = tty_digits;
182 char *tty_bank = tty_banks;
183
184 for (tty_num = 0; tty_num < npty; tty_num++) {
185 (void) sprintf(name, "tty%c%c", *tty_bank, *tty_digit);
186 if (ddi_create_minor_node(devi, name, S_IFCHR,
187 tty_num, DDI_PSEUDO, 0) == DDI_FAILURE) {
188 ddi_remove_minor_node(devi, NULL);
189 return (-1);
190 }
191 if (*(++tty_digit) == '\0') {
192 tty_digit = tty_digits;
193 if (*(++tty_bank) == '\0')
194 break;
195 }
196 }
197 ptsl_dip = devi;
198 return (DDI_SUCCESS);
199 }
200
201 /* ARGSUSED */
202 static int
203 ptsl_info(dev_info_t *dip, ddi_info_cmd_t infocmd, void *arg,
204 void **result)
205 {
206 int error;
207
208 switch (infocmd) {
209 case DDI_INFO_DEVT2DEVINFO:
210 if (ptsl_dip == NULL) {
211 error = DDI_FAILURE;
212 } else {
213 *result = (void *)ptsl_dip;
214 error = DDI_SUCCESS;
215 }
216 break;
217 case DDI_INFO_DEVT2INSTANCE:
218 *result = NULL;
219 error = DDI_SUCCESS;
220 break;
221 default:
222 error = DDI_FAILURE;
223 }
224 return (error);
225 }
226
227
228 /*
229 * Open the slave side of a pty.
230 */
231 /*ARGSUSED*/
232 static int
233 ptslopen(queue_t *q, dev_t *devp, int flag, int sflag, cred_t *cred)
234 {
235 minor_t unit;
236 dev_t dev = *devp;
237 struct pty *pty;
238
239 unit = getminor(dev);
240 if (unit >= npty)
241 return (ENXIO);
242
243 pty = &pty_softc[unit];
244
245 mutex_enter(&pty->ptc_lock);
246 /*
247 * Block waiting for controller to open, unless this is a no-delay
248 * open.
249 */
250 again:
251 if (pty->pt_ttycommon.t_writeq == NULL) {
252 pty->pt_ttycommon.t_iflag = 0;
253 pty->pt_ttycommon.t_cflag = (B38400 << IBSHIFT)|B38400|IFLAGS;
254 pty->pt_ttycommon.t_iocpending = NULL;
255 pty->pt_wbufcid = 0;
256 pty->pt_ttycommon.t_size.ws_row = 0;
257 pty->pt_ttycommon.t_size.ws_col = 0;
258 pty->pt_ttycommon.t_size.ws_xpixel = 0;
259 pty->pt_ttycommon.t_size.ws_ypixel = 0;
260 } else if ((pty->pt_ttycommon.t_flags & TS_XCLUDE) &&
261 secpolicy_excl_open(cred) != 0) {
262 mutex_exit(&pty->ptc_lock);
263 return (EBUSY);
264 }
265 if (!(flag & (FNONBLOCK|FNDELAY)) &&
266 !(pty->pt_ttycommon.t_cflag & CLOCAL)) {
267 if (!(pty->pt_flags & PF_CARR_ON)) {
268 pty->pt_flags |= PF_WOPEN;
269 if (!cv_wait_sig(&pty->pt_cv_flags, &pty->ptc_lock)) {
270 pty->pt_flags &= ~PF_WOPEN;
271 mutex_exit(&pty->ptc_lock);
272 return (EINTR);
273 }
274 goto again;
275 }
276 }
277
278 pty->pt_sdev = dev;
279 q->q_ptr = WR(q)->q_ptr = pty;
280 pty->pt_flags &= ~PF_SLAVEGONE;
281 pty->pt_ttycommon.t_readq = pty->pt_ttycommon.t_writeq = NULL;
282
283 /*
284 * Slave is ready to accept messages but master still can't send
285 * messages to the slave queue since it is not plumbed
286 * yet. So do qprocson() and finish slave initialization.
287 */
288
289 mutex_exit(&pty->ptc_lock);
290
291 qprocson(q);
292
293 /*
294 * Now it is safe to send messages to q, so wakeup master possibly
295 * waiting for slave queue to finish open.
296 */
297 mutex_enter(&pty->ptc_lock);
298 /*
299 * queue has already been setup with a pointer to
300 * the stream head that is being referenced
301 */
302 pty->pt_vnode = strq2vp(q);
303 VN_RELE(pty->pt_vnode);
304 pty->pt_ttycommon.t_readq = q;
305 pty->pt_ttycommon.t_writeq = WR(q);
306 /* tell master device that slave is ready for writing */
307 if (pty->pt_flags & PF_CARR_ON)
308 cv_broadcast(&pty->pt_cv_readq);
309 mutex_exit(&pty->ptc_lock);
310
311 return (0);
312 }
313
314 static int
315 ptslclose(queue_t *q, int flag, cred_t *cred)
316 {
317 struct pty *pty;
318 bufcall_id_t pt_wbufcid = 0;
319
320
321 if ((pty = (struct pty *)q->q_ptr) == NULL)
322 return (ENODEV); /* already been closed once */
323
324 /*
325 * Prevent the queues from being uses by master device.
326 * This should be done before qprocsoff or writer may attempt
327 * to use the slave queue after qprocsoff removed it from the stream and
328 * before entering mutex_enter().
329 */
330 mutex_enter(&pty->ptc_lock);
331 pty->pt_ttycommon.t_readq = NULL;
332 pty->pt_ttycommon.t_writeq = NULL;
333 while (pty->pt_flags & PF_IOCTL) {
334 pty->pt_flags |= PF_WAIT;
335 cv_wait(&pty->pt_cv_flags, &pty->ptc_lock);
336 }
337 pty->pt_vnode = NULL;
338 mutex_exit(&pty->ptc_lock);
339
340 qprocsoff(q);
341
342 mutex_enter(&pty->ptc_lock);
343 /*
344 * ptc_lock mutex is not dropped across
345 * the call to the routine ttycommon_close
346 */
347 ttycommon_close(&pty->pt_ttycommon);
348
349 /*
350 * Cancel outstanding "bufcall" request.
351 */
352 if (pty->pt_wbufcid) {
353 pt_wbufcid = pty->pt_wbufcid;
354 pty->pt_wbufcid = 0;
355 }
356
357 /*
358 * Clear out all the slave-side state.
359 */
360 pty->pt_flags &= ~(PF_WOPEN|PF_STOPPED|PF_NOSTOP);
361 if (pty->pt_flags & PF_CARR_ON) {
362 pty->pt_flags |= PF_SLAVEGONE; /* let the controller know */
363 ptcpollwakeup(pty, 0); /* wake up readers/selectors */
364 ptcpollwakeup(pty, FWRITE); /* wake up writers/selectors */
365 cv_broadcast(&pty->pt_cv_flags);
366 }
367 pty->pt_sdev = 0;
368 q->q_ptr = WR(q)->q_ptr = NULL;
369 mutex_exit(&pty->ptc_lock);
370
371 if (pt_wbufcid)
372 unbufcall(pt_wbufcid);
373
374 return (0);
375 }
376
377 /*
378 * Put procedure for write queue.
379 * Respond to M_STOP, M_START, M_IOCTL, and M_FLUSH messages here;
380 * queue up M_DATA messages for processing by the controller "read"
381 * routine; discard everything else.
382 */
383 static void
384 ptslwput(queue_t *q, mblk_t *mp)
385 {
386 struct pty *pty;
387 mblk_t *bp;
388
389 pty = (struct pty *)q->q_ptr;
390
391 mutex_enter(&pty->ptc_lock);
392
393 switch (mp->b_datap->db_type) {
394
395 case M_STOP:
396 if (!(pty->pt_flags & PF_STOPPED)) {
397 pty->pt_flags |= PF_STOPPED;
398 pty->pt_send |= TIOCPKT_STOP;
399 ptcpollwakeup(pty, 0);
400 }
401 freemsg(mp);
402 break;
403
404 case M_START:
405 if (pty->pt_flags & PF_STOPPED) {
406 pty->pt_flags &= ~PF_STOPPED;
407 pty->pt_send = TIOCPKT_START;
408 ptcpollwakeup(pty, 0);
409 }
410 ptcpollwakeup(pty, FREAD); /* permit controller to read */
411 freemsg(mp);
412 break;
413
414 case M_IOCTL:
415 ptslioctl(pty, q, mp);
416 break;
417
418 case M_FLUSH:
419 if (*mp->b_rptr & FLUSHW) {
420 /*
421 * Set the "flush write" flag, so that we
422 * notify the controller if they're in packet
423 * or user control mode.
424 */
425 if (!(pty->pt_send & TIOCPKT_FLUSHWRITE)) {
426 pty->pt_send |= TIOCPKT_FLUSHWRITE;
427 ptcpollwakeup(pty, 0);
428 }
429 /*
430 * Flush our write queue.
431 */
432 flushq(q, FLUSHDATA); /* XXX doesn't flush M_DELAY */
433 *mp->b_rptr &= ~FLUSHW; /* it has been flushed */
434 }
435 if (*mp->b_rptr & FLUSHR) {
436 /*
437 * Set the "flush read" flag, so that we
438 * notify the controller if they're in packet
439 * mode.
440 */
441 if (!(pty->pt_send & TIOCPKT_FLUSHREAD)) {
442 pty->pt_send |= TIOCPKT_FLUSHREAD;
443 ptcpollwakeup(pty, 0);
444 }
445 flushq(RD(q), FLUSHDATA);
446 mutex_exit(&pty->ptc_lock);
447 qreply(q, mp); /* give the read queues a crack at it */
448 return;
449 } else
450 freemsg(mp);
451 break;
452
453 case M_DATA:
454 /*
455 * Throw away any leading zero-length blocks, and queue it up
456 * for the controller to read.
457 */
458 if (pty->pt_flags & PF_CARR_ON) {
459 bp = mp;
460 while ((bp->b_wptr - bp->b_rptr) == 0) {
461 mp = bp->b_cont;
462 freeb(bp);
463 if (mp == NULL) {
464 mutex_exit(&pty->ptc_lock);
465 return; /* damp squib of a message */
466 }
467 bp = mp;
468 }
469 (void) putq(q, mp);
470 ptcpollwakeup(pty, FREAD); /* soup's on! */
471 } else
472 freemsg(mp); /* nobody listening */
473 break;
474
475 case M_CTL:
476 if ((*(int *)mp->b_rptr) == MC_CANONQUERY) {
477 /*
478 * We're being asked whether we do canonicalization
479 * or not. Send a reply back up indicating whether
480 * we do or not.
481 */
482 (void) putctl1(RD(q), M_CTL,
483 (pty->pt_flags & PF_REMOTE) ?
484 MC_NOCANON : MC_DOCANON);
485 }
486 freemsg(mp);
487 break;
488
489 default:
490 /*
491 * "No, I don't want a subscription to Chain Store Age,
492 * thank you anyway."
493 */
494 freemsg(mp);
495 break;
496 }
497 mutex_exit(&pty->ptc_lock);
498 }
499
500 /*
501 * Retry an "ioctl", now that "bufcall" claims we may be able to allocate
502 * the buffer we need.
503 */
504 static void
505 ptslreioctl(void *arg)
506 {
507 struct pty *pty = arg;
508 queue_t *q;
509 mblk_t *mp;
510
511 mutex_enter(&pty->ptc_lock);
512 /*
513 * The bufcall is no longer pending.
514 */
515 if (pty->pt_wbufcid == 0) {
516 mutex_exit(&pty->ptc_lock);
517 return;
518 }
519
520 pty->pt_wbufcid = 0;
521 if ((q = pty->pt_ttycommon.t_writeq) == NULL) {
522 mutex_exit(&pty->ptc_lock);
523 return;
524 }
525 if ((mp = pty->pt_ttycommon.t_iocpending) != NULL) {
526 /* It's not pending any more. */
527 pty->pt_ttycommon.t_iocpending = NULL;
528 ptslioctl(pty, q, mp);
529 }
530 mutex_exit(&pty->ptc_lock);
531 }
532
533 /*
534 * Process an "ioctl" message sent down to us.
535 * Drops pty's ptc_lock mutex and then reacquire
536 */
537 static void
538 ptslioctl(struct pty *pty, queue_t *q, mblk_t *mp)
539 {
540 struct iocblk *iocp;
541 int cmd;
542 size_t datasize;
543 int error = 0;
544
545 ASSERT(MUTEX_HELD(&pty->ptc_lock));
546
547 iocp = (struct iocblk *)mp->b_rptr;
548 cmd = iocp->ioc_cmd;
549
550 switch (cmd) {
551
552 case TIOCSTI: {
553 /*
554 * The permission checking has already been done at the stream
555 * head, since it has to be done in the context of the process
556 * doing the call.
557 */
558 mblk_t *bp;
559
560 error = miocpullup(mp, sizeof (char));
561 if (error != 0)
562 goto out;
563
564 /*
565 * Simulate typing of a character at the terminal.
566 */
567 if ((bp = allocb(1, BPRI_MED)) != NULL) {
568 *bp->b_wptr++ = *mp->b_cont->b_rptr;
569 if (!(pty->pt_flags & PF_REMOTE)) {
570 if (!canput(pty->pt_ttycommon.t_readq)) {
571 mutex_exit(&pty->ptc_lock);
572 ttycommon_qfull(&pty->pt_ttycommon, q);
573 mutex_enter(&pty->ptc_lock);
574 freemsg(bp);
575 error = EAGAIN;
576 goto out;
577 } else
578 (void) putq(
579 pty->pt_ttycommon.t_readq, bp);
580 } else {
581 if (pty->pt_flags & PF_UCNTL) {
582 /*
583 * XXX - flow control; don't overflow
584 * this "queue".
585 */
586 if (pty->pt_stuffqfirst != NULL) {
587 pty->pt_stuffqlast->b_next = bp;
588 bp->b_prev = pty->pt_stuffqlast;
589 } else {
590 pty->pt_stuffqfirst = bp;
591 bp->b_prev = NULL;
592 }
593 bp->b_next = NULL;
594 pty->pt_stuffqlast = bp;
595 pty->pt_stuffqlen++;
596 ptcpollwakeup(pty, 0);
597 }
598 }
599 } else {
600 error = EAGAIN;
601 goto out;
602 }
603
604 /*
605 * Turn the ioctl message into an ioctl ACK message.
606 */
607 iocp->ioc_count = 0; /* no data returned */
608 mp->b_datap->db_type = M_IOCACK;
609 goto out;
610 }
611
612 case TIOCSSIZE: {
613 tty_common_t *tc = &pty->pt_ttycommon;
614 struct ttysize *tp;
615
616 error = miocpullup(mp, sizeof (struct ttysize));
617 if (error != 0)
618 goto out;
619
620 /*
621 * Set the window size, but don't send a SIGWINCH.
622 */
623 tp = (struct ttysize *)mp->b_cont->b_rptr;
624 tc->t_size.ws_row = tp->ts_lines;
625 tc->t_size.ws_col = tp->ts_cols;
626 tc->t_size.ws_xpixel = 0;
627 tc->t_size.ws_ypixel = 0;
628
629 /*
630 * Send an ACK back.
631 */
632 iocp->ioc_count = 0; /* no data returned */
633 mp->b_datap->db_type = M_IOCACK;
634 goto out;
635 }
636
637 case TIOCGSIZE: {
638 tty_common_t *tc = &pty->pt_ttycommon;
639 mblk_t *datap;
640 struct ttysize *tp;
641
642 if ((datap = allocb(sizeof (struct ttysize),
643 BPRI_HI)) == NULL) {
644 if (pty->pt_wbufcid) {
645 if (pty->pt_ttycommon.t_iocpending)
646 freemsg(pty->pt_ttycommon.t_iocpending);
647 pty->pt_ttycommon.t_iocpending = mp;
648 return;
649 }
650 pty->pt_wbufcid = bufcall(sizeof (struct ttysize),
651 BPRI_HI, ptslreioctl, pty);
652 if (pty->pt_wbufcid == 0) {
653 error = ENOMEM;
654 goto out;
655 }
656 pty->pt_ttycommon.t_iocpending = mp;
657 return;
658 }
659 /*
660 * Return the current size.
661 */
662 tp = (struct ttysize *)datap->b_wptr;
663 tp->ts_lines = tc->t_size.ws_row;
664 tp->ts_cols = tc->t_size.ws_col;
665 datap->b_wptr += sizeof (struct ttysize);
666 iocp->ioc_count = sizeof (struct ttysize);
667
668 if (mp->b_cont != NULL)
669 freemsg(mp->b_cont);
670 mp->b_cont = datap;
671 mp->b_datap->db_type = M_IOCACK;
672 goto out;
673 }
674
675 /*
676 * Imported from ttycommon_ioctl routine
677 */
678
679 case TCSETSF: {
680 tty_common_t *tc = &pty->pt_ttycommon;
681 struct termios *cb;
682
683 error = miocpullup(mp, sizeof (struct termios));
684 if (error != 0)
685 goto out;
686
687 cb = (struct termios *)mp->b_cont->b_rptr;
688
689 flushq(RD(q), FLUSHDATA);
690 mutex_exit(&pty->ptc_lock);
691 (void) putnextctl1(RD(q), M_FLUSH, FLUSHR);
692 mutex_enter(&pty->ptc_lock);
693 mutex_enter(&tc->t_excl);
694 tc->t_iflag = cb->c_iflag;
695 tc->t_cflag = cb->c_cflag;
696 tc->t_stopc = cb->c_cc[VSTOP];
697 tc->t_startc = cb->c_cc[VSTART];
698 mutex_exit(&tc->t_excl);
699
700 /*
701 * Turn the ioctl message into an ioctl ACK message.
702 */
703 iocp->ioc_count = 0; /* no data returned */
704 mp->b_datap->db_type = M_IOCACK;
705 goto ioctldone;
706 }
707
708 case TCSETAF: {
709 tty_common_t *tc = &pty->pt_ttycommon;
710 struct termios *cb;
711
712 error = miocpullup(mp, sizeof (struct termios));
713 if (error != 0)
714 goto out;
715
716 cb = (struct termios *)mp->b_cont->b_rptr;
717
718 flushq(RD(q), FLUSHDATA);
719 mutex_exit(&pty->ptc_lock);
720 (void) putnextctl1(RD(q), M_FLUSH, FLUSHR);
721 mutex_enter(&pty->ptc_lock);
722 mutex_enter(&tc->t_excl);
723 tc->t_iflag = (tc->t_iflag & 0xffff0000 | cb->c_iflag);
724 tc->t_cflag = (tc->t_cflag & 0xffff0000 | cb->c_cflag);
725 mutex_exit(&tc->t_excl);
726
727 /*
728 * Turn the ioctl message into an ioctl ACK message.
729 */
730 iocp->ioc_count = 0; /* no data returned */
731 mp->b_datap->db_type = M_IOCACK;
732 goto ioctldone;
733 }
734
735 case TIOCSWINSZ: {
736 tty_common_t *tc = &pty->pt_ttycommon;
737 struct winsize *ws;
738
739 error = miocpullup(mp, sizeof (struct winsize));
740 if (error != 0)
741 goto out;
742
743 ws = (struct winsize *)mp->b_cont->b_rptr;
744 /*
745 * If the window size changed, send a SIGWINCH.
746 */
747 mutex_enter(&tc->t_excl);
748 if (bcmp(&tc->t_size, ws, sizeof (struct winsize))) {
749 tc->t_size = *ws;
750 mutex_exit(&tc->t_excl);
751 mutex_exit(&pty->ptc_lock);
752 (void) putnextctl1(RD(q), M_PCSIG, SIGWINCH);
753 mutex_enter(&pty->ptc_lock);
754 } else
755 mutex_exit(&tc->t_excl);
756
757 /*
758 * Turn the ioctl message into an ioctl ACK message.
759 */
760 iocp->ioc_count = 0; /* no data returned */
761 mp->b_datap->db_type = M_IOCACK;
762 goto ioctldone;
763 }
764
765 /*
766 * If they were just trying to drain output, that's OK.
767 * If they are actually trying to send a break it's an error.
768 */
769 case TCSBRK:
770 error = miocpullup(mp, sizeof (int));
771 if (error != 0)
772 goto out;
773
774 if (*(int *)mp->b_cont->b_rptr != 0) {
775 /*
776 * Turn the ioctl message into an ioctl ACK message.
777 */
778 iocp->ioc_count = 0; /* no data returned */
779 mp->b_datap->db_type = M_IOCACK;
780 } else {
781 error = ENOTTY;
782 }
783 goto out;
784 }
785
786 /*
787 * The only way in which "ttycommon_ioctl" can fail is if the "ioctl"
788 * requires a response containing data to be returned to the user,
789 * and no mblk could be allocated for the data.
790 * No such "ioctl" alters our state. Thus, we always go ahead and
791 * do any state-changes the "ioctl" calls for. If we couldn't allocate
792 * the data, "ttycommon_ioctl" has stashed the "ioctl" away safely, so
793 * we just call "bufcall" to request that we be called back when we
794 * stand a better chance of allocating the data.
795 */
796 if ((datasize =
797 ttycommon_ioctl(&pty->pt_ttycommon, q, mp, &error)) != 0) {
798 if (pty->pt_wbufcid) {
799 if (pty->pt_ttycommon.t_iocpending)
800 freemsg(pty->pt_ttycommon.t_iocpending);
801 pty->pt_ttycommon.t_iocpending = mp;
802 return;
803 }
804 pty->pt_wbufcid = bufcall(datasize, BPRI_HI, ptslreioctl, pty);
805 if (pty->pt_wbufcid == 0) {
806 error = ENOMEM;
807 goto out;
808 }
809 pty->pt_ttycommon.t_iocpending = mp;
810 return;
811 }
812
813 ioctldone:
814 if (error == 0) {
815 /*
816 * "ttycommon_ioctl" did most of the work; we just use the
817 * data it set up.
818 */
819 switch (cmd) {
820
821 case TCSETSF:
822 case TCSETAF:
823 /*
824 * Set the "flush read" flag, so that we
825 * notify the controller if they're in packet
826 * mode.
827 */
828 if (!(pty->pt_send & TIOCPKT_FLUSHREAD)) {
829 pty->pt_send |= TIOCPKT_FLUSHREAD;
830 ptcpollwakeup(pty, 0);
831 }
832 /*FALLTHROUGH*/
833
834 case TCSETSW:
835 case TCSETAW:
836 cmd = TIOCSETP; /* map backwards to old codes */
837 pt_sendstop(pty);
838 break;
839
840 case TCSETS:
841 case TCSETA:
842 cmd = TIOCSETN; /* map backwards to old codes */
843 pt_sendstop(pty);
844 break;
845 }
846 }
847
848 if (pty->pt_flags & PF_43UCNTL) {
849 if (error < 0) {
850 if ((cmd & ~0xff) == _IO('u', 0)) {
851 if (cmd & 0xff) {
852 pty->pt_ucntl = (uchar_t)cmd & 0xff;
853 ptcpollwakeup(pty, FREAD);
854 }
855 error = 0; /* XXX */
856 goto out;
857 }
858 error = ENOTTY;
859 }
860 } else {
861 if ((pty->pt_flags & PF_UCNTL) &&
862 (cmd & (IOC_INOUT | 0xff00)) == (IOC_IN|('t'<<8)) &&
863 (cmd & 0xff)) {
864 pty->pt_ucntl = (uchar_t)cmd & 0xff;
865 ptcpollwakeup(pty, FREAD);
866 goto out;
867 }
868 if (error < 0)
869 error = ENOTTY;
870 }
871
872 out:
873 if (error != 0) {
874 ((struct iocblk *)mp->b_rptr)->ioc_error = error;
875 mp->b_datap->db_type = M_IOCNAK;
876 }
877
878 mutex_exit(&pty->ptc_lock);
879 qreply(q, mp);
880 mutex_enter(&pty->ptc_lock);
881 }
882
883 /*
884 * Service routine for read queue.
885 * Just wakes the controller side up so it can write some more data
886 * to that queue.
887 */
888 static int
889 ptslrserv(queue_t *q)
890 {
891 struct pty *pty = (struct pty *)q->q_ptr;
892 mblk_t *mp;
893 mblk_t *head = NULL, *tail = NULL;
894 /*
895 * Build up the link list of messages, then drop
896 * drop the lock and do putnext()
897 */
898 mutex_enter(&pty->ptc_lock);
899
900 while ((mp = getq(q)) != NULL) {
901 if ((mp->b_datap->db_type < QPCTL) && !canputnext(q)) {
902 (void) putbq(q, mp);
903 break;
904 }
905 if (!head) {
906 head = mp;
907 tail = mp;
908 } else {
909 tail->b_next = mp;
910 tail = mp;
911 }
912 }
913
914 if (q->q_count <= q->q_lowat)
915 ptcpollwakeup((struct pty *)q->q_ptr, FWRITE);
916
917 mutex_exit(&pty->ptc_lock);
918
919 while (head) {
920 mp = head;
921 head = mp->b_next;
922 mp->b_next = NULL;
923 putnext(q, mp);
924 }
925
926 return (0);
927 }
928
929 static void
930 pt_sendstop(struct pty *pty)
931 {
932 int stop;
933
934 ASSERT(MUTEX_HELD(&pty->ptc_lock));
935
936 if ((pty->pt_ttycommon.t_cflag&CBAUD) == 0) {
937 if (pty->pt_flags & PF_CARR_ON) {
938 /*
939 * Let the controller know, then wake up
940 * readers/selectors and writers/selectors.
941 */
942 pty->pt_flags |= PF_SLAVEGONE;
943 ptcpollwakeup(pty, 0);
944 ptcpollwakeup(pty, FWRITE);
945 }
946 }
947
948 stop = (pty->pt_ttycommon.t_iflag & IXON) &&
949 pty->pt_ttycommon.t_stopc == CTRL('s') &&
950 pty->pt_ttycommon.t_startc == CTRL('q');
951
952 if (pty->pt_flags & PF_NOSTOP) {
953 if (stop) {
954 pty->pt_send &= ~TIOCPKT_NOSTOP;
955 pty->pt_send |= TIOCPKT_DOSTOP;
956 pty->pt_flags &= ~PF_NOSTOP;
957 ptcpollwakeup(pty, 0);
958 }
959 } else {
960 if (!stop) {
961 pty->pt_send &= ~TIOCPKT_DOSTOP;
962 pty->pt_send |= TIOCPKT_NOSTOP;
963 pty->pt_flags |= PF_NOSTOP;
964 ptcpollwakeup(pty, 0);
965 }
966 }
967 }
968
969 /*
970 * Wake up controller side. "flag" is 0 if a special packet or
971 * user control mode message has been queued up (this data is readable,
972 * so we also treat it as a regular data event; should we send SIGIO,
973 * though?), FREAD if regular data has been queued up, or FWRITE if
974 * the slave's read queue has drained sufficiently to allow writing.
975 */
976 static void
977 ptcpollwakeup(struct pty *pty, int flag)
978 {
979 ASSERT(MUTEX_HELD(&pty->ptc_lock));
980
981 if (flag == 0) {
982 /*
983 * "Exceptional condition" occurred. This means that
984 * a "read" is now possible, so do a "read" wakeup.
985 */
986 flag = FREAD;
987 pollwakeup(&ptcph, POLLIN | POLLRDBAND);
988 if (pty->pt_flags & PF_ASYNC)
989 gsignal(pty->pt_pgrp, SIGURG);
990 }
991 if (flag & FREAD) {
992 /*
993 * Wake up the parent process as there is regular
994 * data to read from slave's write queue
995 */
996 pollwakeup(&ptcph, POLLIN | POLLRDNORM);
997 cv_broadcast(&pty->pt_cv_writeq);
998 if (pty->pt_flags & PF_ASYNC)
999 gsignal(pty->pt_pgrp, SIGIO);
1000 }
1001 if (flag & FWRITE) {
1002 /*
1003 * Wake up the parent process to write
1004 * data into slave's read queue as the
1005 * read queue has drained enough
1006 */
1007 pollwakeup(&ptcph, POLLOUT | POLLWRNORM);
1008 cv_broadcast(&pty->pt_cv_readq);
1009 if (pty->pt_flags & PF_ASYNC)
1010 gsignal(pty->pt_pgrp, SIGIO);
1011 }
1012 }
Unleashed OS