Home | History | Annotate | Line # | Download | only in kern
tty.c revision 1.206.2.2
      1 /*	$NetBSD: tty.c,v 1.206.2.2 2007/12/21 15:27:04 ad Exp $	*/
      2 
      3 /*-
      4  * Copyright (c) 1982, 1986, 1990, 1991, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  * (c) UNIX System Laboratories, Inc.
      7  * All or some portions of this file are derived from material licensed
      8  * to the University of California by American Telephone and Telegraph
      9  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
     10  * the permission of UNIX System Laboratories, Inc.
     11  *
     12  * Redistribution and use in source and binary forms, with or without
     13  * modification, are permitted provided that the following conditions
     14  * are met:
     15  * 1. Redistributions of source code must retain the above copyright
     16  *    notice, this list of conditions and the following disclaimer.
     17  * 2. Redistributions in binary form must reproduce the above copyright
     18  *    notice, this list of conditions and the following disclaimer in the
     19  *    documentation and/or other materials provided with the distribution.
     20  * 3. Neither the name of the University nor the names of its contributors
     21  *    may be used to endorse or promote products derived from this software
     22  *    without specific prior written permission.
     23  *
     24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     34  * SUCH DAMAGE.
     35  *
     36  *	@(#)tty.c	8.13 (Berkeley) 1/9/95
     37  */
     38 
     39 #include <sys/cdefs.h>
     40 __KERNEL_RCSID(0, "$NetBSD: tty.c,v 1.206.2.2 2007/12/21 15:27:04 ad Exp $");
     41 
     42 #include <sys/param.h>
     43 #include <sys/systm.h>
     44 #include <sys/ioctl.h>
     45 #include <sys/proc.h>
     46 #define	TTYDEFCHARS
     47 #include <sys/tty.h>
     48 #undef	TTYDEFCHARS
     49 #include <sys/file.h>
     50 #include <sys/conf.h>
     51 #include <sys/dkstat.h>
     52 #include <sys/uio.h>
     53 #include <sys/kernel.h>
     54 #include <sys/vnode.h>
     55 #include <sys/syslog.h>
     56 #include <sys/malloc.h>
     57 #include <sys/pool.h>
     58 #include <sys/signalvar.h>
     59 #include <sys/resourcevar.h>
     60 #include <sys/poll.h>
     61 #include <sys/kprintf.h>
     62 #include <sys/namei.h>
     63 #include <sys/sysctl.h>
     64 #include <sys/kauth.h>
     65 #include <sys/intr.h>
     66 
     67 #include <machine/stdarg.h>
     68 
     69 static int	ttnread(struct tty *);
     70 static void	ttyblock(struct tty *);
     71 static void	ttyecho(int, struct tty *);
     72 static void	ttyrubo(struct tty *, int);
     73 static void	ttyprintf_nolock(struct tty *, const char *fmt, ...)
     74     __attribute__((__format__(__printf__,2,3)));
     75 static int	proc_compare(struct proc *, struct proc *);
     76 static void	ttysigintr(void *);
     77 
     78 /* Symbolic sleep message strings. */
     79 const char	ttclos[] = "ttycls";
     80 const char	ttopen[] = "ttyopn";
     81 const char	ttybg[] = "ttybg";
     82 const char	ttyin[] = "ttyin";
     83 const char	ttyout[] = "ttyout";
     84 
     85 /*
     86  * Used to determine whether we still have a connection.  This is true in
     87  * one of 3 cases:
     88  * 1) We have carrier.
     89  * 2) It's a locally attached terminal, and we are therefore ignoring carrier.
     90  * 3) We're using a flow control mechanism that overloads the carrier signal.
     91  */
     92 #define	CONNECTED(tp)	(ISSET(tp->t_state, TS_CARR_ON) ||	\
     93 			 ISSET(tp->t_cflag, CLOCAL | MDMBUF))
     94 
     95 /*
     96  * Table with character classes and parity. The 8th bit indicates parity,
     97  * the 7th bit indicates the character is an alphameric or underscore (for
     98  * ALTWERASE), and the low 6 bits indicate delay type.  If the low 6 bits
     99  * are 0 then the character needs no special processing on output; classes
    100  * other than 0 might be translated or (not currently) require delays.
    101  */
    102 #define	E	0x00	/* Even parity. */
    103 #define	O	0x80	/* Odd parity. */
    104 #define	PARITY(c)	(char_type[c] & O)
    105 
    106 #define	ALPHA	0x40	/* Alpha or underscore. */
    107 #define	ISALPHA(c)	(char_type[(c) & TTY_CHARMASK] & ALPHA)
    108 
    109 #define	CCLASSMASK	0x3f
    110 #define	CCLASS(c)	(char_type[c] & CCLASSMASK)
    111 
    112 #define	BS	BACKSPACE
    113 #define	CC	CONTROL
    114 #define	CR	RETURN
    115 #define	NA	ORDINARY | ALPHA
    116 #define	NL	NEWLINE
    117 #define	NO	ORDINARY
    118 #define	TB	TAB
    119 #define	VT	VTAB
    120 
    121 unsigned char const char_type[] = {
    122 	E|CC, O|CC, O|CC, E|CC, O|CC, E|CC, E|CC, O|CC,	/* nul - bel */
    123 	O|BS, E|TB, E|NL, O|CC, E|VT, O|CR, O|CC, E|CC,	/* bs - si */
    124 	O|CC, E|CC, E|CC, O|CC, E|CC, O|CC, O|CC, E|CC,	/* dle - etb */
    125 	E|CC, O|CC, O|CC, E|CC, O|CC, E|CC, E|CC, O|CC,	/* can - us */
    126 	O|NO, E|NO, E|NO, O|NO, E|NO, O|NO, O|NO, E|NO,	/* sp - ' */
    127 	E|NO, O|NO, O|NO, E|NO, O|NO, E|NO, E|NO, O|NO,	/* ( - / */
    128 	E|NA, O|NA, O|NA, E|NA, O|NA, E|NA, E|NA, O|NA,	/* 0 - 7 */
    129 	O|NA, E|NA, E|NO, O|NO, E|NO, O|NO, O|NO, E|NO,	/* 8 - ? */
    130 	O|NO, E|NA, E|NA, O|NA, E|NA, O|NA, O|NA, E|NA,	/* @ - G */
    131 	E|NA, O|NA, O|NA, E|NA, O|NA, E|NA, E|NA, O|NA,	/* H - O */
    132 	E|NA, O|NA, O|NA, E|NA, O|NA, E|NA, E|NA, O|NA,	/* P - W */
    133 	O|NA, E|NA, E|NA, O|NO, E|NO, O|NO, O|NO, O|NA,	/* X - _ */
    134 	E|NO, O|NA, O|NA, E|NA, O|NA, E|NA, E|NA, O|NA,	/* ` - g */
    135 	O|NA, E|NA, E|NA, O|NA, E|NA, O|NA, O|NA, E|NA,	/* h - o */
    136 	O|NA, E|NA, E|NA, O|NA, E|NA, O|NA, O|NA, E|NA,	/* p - w */
    137 	E|NA, O|NA, O|NA, E|NO, O|NO, E|NO, E|NO, O|CC,	/* x - del */
    138 	/*
    139 	 * Meta chars; should be settable per character set;
    140 	 * for now, treat them all as normal characters.
    141 	 */
    142 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    143 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    144 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    145 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    146 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    147 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    148 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    149 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    150 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    151 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    152 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    153 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    154 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    155 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    156 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    157 	NA,   NA,   NA,   NA,   NA,   NA,   NA,   NA,
    158 };
    159 #undef	BS
    160 #undef	CC
    161 #undef	CR
    162 #undef	NA
    163 #undef	NL
    164 #undef	NO
    165 #undef	TB
    166 #undef	VT
    167 
    168 static struct ttylist_head tty_sigqueue = TAILQ_HEAD_INITIALIZER(tty_sigqueue);
    169 static void *tty_sigsih;
    170 
    171 struct ttylist_head ttylist = TAILQ_HEAD_INITIALIZER(ttylist);
    172 int tty_count;
    173 kmutex_t tty_lock;
    174 
    175 POOL_INIT(tty_pool, sizeof(struct tty), 0, 0, 0, "ttypl",
    176     &pool_allocator_nointr, IPL_NONE);
    177 
    178 uint64_t tk_cancc;
    179 uint64_t tk_nin;
    180 uint64_t tk_nout;
    181 uint64_t tk_rawcc;
    182 
    183 SYSCTL_SETUP(sysctl_kern_tkstat_setup, "sysctl kern.tkstat subtree setup")
    184 {
    185 
    186 	sysctl_createv(clog, 0, NULL, NULL,
    187 		       CTLFLAG_PERMANENT,
    188 		       CTLTYPE_NODE, "kern", NULL,
    189 		       NULL, 0, NULL, 0,
    190 		       CTL_KERN, CTL_EOL);
    191 	sysctl_createv(clog, 0, NULL, NULL,
    192 		       CTLFLAG_PERMANENT,
    193 		       CTLTYPE_NODE, "tkstat",
    194 		       SYSCTL_DESCR("Number of characters sent and and "
    195 				    "received on ttys"),
    196 		       NULL, 0, NULL, 0,
    197 		       CTL_KERN, KERN_TKSTAT, CTL_EOL);
    198 
    199 	sysctl_createv(clog, 0, NULL, NULL,
    200 		       CTLFLAG_PERMANENT,
    201 		       CTLTYPE_QUAD, "nin",
    202 		       SYSCTL_DESCR("Total number of tty input characters"),
    203 		       NULL, 0, &tk_nin, 0,
    204 		       CTL_KERN, KERN_TKSTAT, KERN_TKSTAT_NIN, CTL_EOL);
    205 	sysctl_createv(clog, 0, NULL, NULL,
    206 		       CTLFLAG_PERMANENT,
    207 		       CTLTYPE_QUAD, "nout",
    208 		       SYSCTL_DESCR("Total number of tty output characters"),
    209 		       NULL, 0, &tk_nout, 0,
    210 		       CTL_KERN, KERN_TKSTAT, KERN_TKSTAT_NOUT, CTL_EOL);
    211 	sysctl_createv(clog, 0, NULL, NULL,
    212 		       CTLFLAG_PERMANENT,
    213 		       CTLTYPE_QUAD, "cancc",
    214 		       SYSCTL_DESCR("Number of canonical tty input characters"),
    215 		       NULL, 0, &tk_cancc, 0,
    216 		       CTL_KERN, KERN_TKSTAT, KERN_TKSTAT_CANCC, CTL_EOL);
    217 	sysctl_createv(clog, 0, NULL, NULL,
    218 		       CTLFLAG_PERMANENT,
    219 		       CTLTYPE_QUAD, "rawcc",
    220 		       SYSCTL_DESCR("Number of raw tty input characters"),
    221 		       NULL, 0, &tk_rawcc, 0,
    222 		       CTL_KERN, KERN_TKSTAT, KERN_TKSTAT_RAWCC, CTL_EOL);
    223 }
    224 
    225 int
    226 ttyopen(struct tty *tp, int dialout, int nonblock)
    227 {
    228 	int	error;
    229 
    230 	error = 0;
    231 
    232 	mutex_spin_enter(&tty_lock);
    233 
    234 	if (dialout) {
    235 		/*
    236 		 * If the device is already open for non-dialout, fail.
    237 		 * Otherwise, set TS_DIALOUT to block any pending non-dialout
    238 		 * opens.
    239 		 */
    240 		if (ISSET(tp->t_state, TS_ISOPEN) &&
    241 		    !ISSET(tp->t_state, TS_DIALOUT)) {
    242 			error = EBUSY;
    243 			goto out;
    244 		}
    245 		SET(tp->t_state, TS_DIALOUT);
    246 	} else {
    247 		if (!nonblock) {
    248 			/*
    249 			 * Wait for carrier.  Also wait for any dialout
    250 			 * processes to close the tty first.
    251 			 */
    252 			while (ISSET(tp->t_state, TS_DIALOUT) ||
    253 			       !CONNECTED(tp)) {
    254 				tp->t_wopen++;
    255 				error = ttysleep(tp, &tp->t_rawq.c_cv, true, 0);
    256 				tp->t_wopen--;
    257 				if (error)
    258 					goto out;
    259 			}
    260 		} else {
    261 			/*
    262 			 * Don't allow a non-blocking non-dialout open if the
    263 			 * device is already open for dialout.
    264 			 */
    265 			if (ISSET(tp->t_state, TS_DIALOUT)) {
    266 				error = EBUSY;
    267 				goto out;
    268 			}
    269 		}
    270 	}
    271 
    272 out:
    273 	mutex_spin_exit(&tty_lock);
    274 	return (error);
    275 }
    276 
    277 /*
    278  * Initial open of tty, or (re)entry to standard tty line discipline.
    279  */
    280 int
    281 ttylopen(dev_t device, struct tty *tp)
    282 {
    283 
    284 	mutex_spin_enter(&tty_lock);
    285 	tp->t_dev = device;
    286 	if (!ISSET(tp->t_state, TS_ISOPEN)) {
    287 		SET(tp->t_state, TS_ISOPEN);
    288 		memset(&tp->t_winsize, 0, sizeof(tp->t_winsize));
    289 #ifdef COMPAT_OLDTTY
    290 		tp->t_flags = 0;
    291 #endif
    292 	}
    293 	mutex_spin_exit(&tty_lock);
    294 	return (0);
    295 }
    296 
    297 /*
    298  * Handle close() on a tty line: flush and set to initial state,
    299  * bumping generation number so that pending read/write calls
    300  * can detect recycling of the tty.
    301  */
    302 int
    303 ttyclose(struct tty *tp)
    304 {
    305 	extern struct tty *constty;	/* Temporary virtual console. */
    306 	struct session *sess;
    307 
    308 	mutex_spin_enter(&tty_lock);
    309 
    310 	if (constty == tp)
    311 		constty = NULL;
    312 
    313 	ttyflush(tp, FREAD | FWRITE);
    314 
    315 	tp->t_gen++;
    316 	tp->t_pgrp = NULL;
    317 	tp->t_state = 0;
    318 	sess = tp->t_session;
    319 	tp->t_session = NULL;
    320 
    321 	mutex_spin_exit(&tty_lock);
    322 
    323 	mutex_enter(&proclist_lock);
    324 	if (sess != NULL)
    325 		SESSRELE(sess);
    326 	mutex_exit(&proclist_lock);
    327 
    328 	return (0);
    329 }
    330 
    331 #define	FLUSHQ(q) {							\
    332 	if ((q)->c_cc)							\
    333 		ndflush(q, (q)->c_cc);					\
    334 }
    335 
    336 /*
    337  * This macro is used in canonical mode input processing, where a read
    338  * request shall not return unless a 'line delimiter' ('\n') or 'break'
    339  * (EOF, EOL, EOL2) character (or a signal) has been received. As EOL2
    340  * is an extension to the POSIX.1 defined set of special characters,
    341  * recognize it only if IEXTEN is set in the set of local flags.
    342  */
    343 #define	TTBREAKC(c, lflg)						\
    344 	((c) == '\n' || (((c) == cc[VEOF] || (c) == cc[VEOL] ||		\
    345 	((c) == cc[VEOL2] && ISSET(lflg, IEXTEN))) && (c) != _POSIX_VDISABLE))
    346 
    347 
    348 
    349 /*
    350  * ttyinput() helper.
    351  * Call with the tty lock held.
    352  */
    353 static int
    354 ttyinput_wlock(int c, struct tty *tp)
    355 {
    356 	int	iflag, lflag, i, error;
    357 	u_char	*cc;
    358 
    359 	KASSERT(mutex_owned(&tty_lock));
    360 
    361 	/*
    362 	 * If input is pending take it first.
    363 	 */
    364 	lflag = tp->t_lflag;
    365 	if (ISSET(lflag, PENDIN))
    366 		ttypend(tp);
    367 	/*
    368 	 * Gather stats.
    369 	 */
    370 	if (ISSET(lflag, ICANON)) {
    371 		++tk_cancc;
    372 		++tp->t_cancc;
    373 	} else {
    374 		++tk_rawcc;
    375 		++tp->t_rawcc;
    376 	}
    377 	++tk_nin;
    378 
    379 	cc = tp->t_cc;
    380 
    381 	/*
    382 	 * Handle exceptional conditions (break, parity, framing).
    383 	 */
    384 	iflag = tp->t_iflag;
    385 	if ((error = (ISSET(c, TTY_ERRORMASK))) != 0) {
    386 		CLR(c, TTY_ERRORMASK);
    387 		if (ISSET(error, TTY_FE) && c == 0) {		/* Break. */
    388 			if (ISSET(iflag, IGNBRK))
    389 				return (0);
    390 			else if (ISSET(iflag, BRKINT)) {
    391 				ttyflush(tp, FREAD | FWRITE);
    392 				ttysig(tp, TTYSIG_PG1, SIGINT);
    393 				return (0);
    394 			} else if (ISSET(iflag, PARMRK))
    395 				goto parmrk;
    396 		} else if ((ISSET(error, TTY_PE) && ISSET(iflag, INPCK)) ||
    397 		    ISSET(error, TTY_FE)) {
    398 			if (ISSET(iflag, IGNPAR))
    399 				return (0);
    400 			else if (ISSET(iflag, PARMRK)) {
    401  parmrk:			(void)putc(0377 | TTY_QUOTE, &tp->t_rawq);
    402 				(void)putc(0    | TTY_QUOTE, &tp->t_rawq);
    403 				(void)putc(c    | TTY_QUOTE, &tp->t_rawq);
    404 				return (0);
    405 			} else
    406 				c = 0;
    407 		}
    408 	} else if (c == 0377 &&
    409 	    ISSET(iflag, ISTRIP|IGNPAR|INPCK|PARMRK) == (INPCK|PARMRK)) {
    410 		/* "Escape" a valid character of '\377'. */
    411 		(void)putc(0377 | TTY_QUOTE, &tp->t_rawq);
    412 		(void)putc(0377 | TTY_QUOTE, &tp->t_rawq);
    413 		goto endcase;
    414 	}
    415 
    416 	/*
    417 	 * In tandem mode, check high water mark.
    418 	 */
    419 	if (ISSET(iflag, IXOFF) || ISSET(tp->t_cflag, CHWFLOW))
    420 		ttyblock(tp);
    421 	if (!ISSET(tp->t_state, TS_TYPEN) && ISSET(iflag, ISTRIP))
    422 		CLR(c, 0x80);
    423 	if (!ISSET(lflag, EXTPROC)) {
    424 		/*
    425 		 * Check for literal nexting very first
    426 		 */
    427 		if (ISSET(tp->t_state, TS_LNCH)) {
    428 			SET(c, TTY_QUOTE);
    429 			CLR(tp->t_state, TS_LNCH);
    430 		}
    431 		/*
    432 		 * Scan for special characters.  This code
    433 		 * is really just a big case statement with
    434 		 * non-constant cases.  The bottom of the
    435 		 * case statement is labeled ``endcase'', so goto
    436 		 * it after a case match, or similar.
    437 		 */
    438 
    439 		/*
    440 		 * Control chars which aren't controlled
    441 		 * by ICANON, ISIG, or IXON.
    442 		 */
    443 		if (ISSET(lflag, IEXTEN)) {
    444 			if (CCEQ(cc[VLNEXT], c)) {
    445 				if (ISSET(lflag, ECHO)) {
    446 					if (ISSET(lflag, ECHOE)) {
    447 						(void)ttyoutput('^', tp);
    448 						(void)ttyoutput('\b', tp);
    449 					} else
    450 						ttyecho(c, tp);
    451 				}
    452 				SET(tp->t_state, TS_LNCH);
    453 				goto endcase;
    454 			}
    455 			if (CCEQ(cc[VDISCARD], c)) {
    456 				if (ISSET(lflag, FLUSHO))
    457 					CLR(tp->t_lflag, FLUSHO);
    458 				else {
    459 					ttyflush(tp, FWRITE);
    460 					ttyecho(c, tp);
    461 					if (tp->t_rawq.c_cc + tp->t_canq.c_cc)
    462 						ttyretype(tp);
    463 					SET(tp->t_lflag, FLUSHO);
    464 				}
    465 				goto startoutput;
    466 			}
    467 		}
    468 		/*
    469 		 * Signals.
    470 		 */
    471 		if (ISSET(lflag, ISIG)) {
    472 			if (CCEQ(cc[VINTR], c) || CCEQ(cc[VQUIT], c)) {
    473 				if (!ISSET(lflag, NOFLSH))
    474 					ttyflush(tp, FREAD | FWRITE);
    475 				ttyecho(c, tp);
    476 				ttysig(tp, TTYSIG_PG1, CCEQ(cc[VINTR], c) ?
    477 				    SIGINT : SIGQUIT);
    478 				goto endcase;
    479 			}
    480 			if (CCEQ(cc[VSUSP], c)) {
    481 				if (!ISSET(lflag, NOFLSH))
    482 					ttyflush(tp, FREAD);
    483 				ttyecho(c, tp);
    484 				ttysig(tp, TTYSIG_PG1, SIGTSTP);
    485 				goto endcase;
    486 			}
    487 		}
    488 		/*
    489 		 * Handle start/stop characters.
    490 		 */
    491 		if (ISSET(iflag, IXON)) {
    492 			if (CCEQ(cc[VSTOP], c)) {
    493 				if (!ISSET(tp->t_state, TS_TTSTOP)) {
    494 					SET(tp->t_state, TS_TTSTOP);
    495 					cdev_stop(tp, 0);
    496 					return (0);
    497 				}
    498 				if (!CCEQ(cc[VSTART], c))
    499 					return (0);
    500 				/*
    501 				 * if VSTART == VSTOP then toggle
    502 				 */
    503 				goto endcase;
    504 			}
    505 			if (CCEQ(cc[VSTART], c))
    506 				goto restartoutput;
    507 		}
    508 		/*
    509 		 * IGNCR, ICRNL, & INLCR
    510 		 */
    511 		if (c == '\r') {
    512 			if (ISSET(iflag, IGNCR))
    513 				goto endcase;
    514 			else if (ISSET(iflag, ICRNL))
    515 				c = '\n';
    516 		} else if (c == '\n' && ISSET(iflag, INLCR))
    517 			c = '\r';
    518 	}
    519 	if (!ISSET(lflag, EXTPROC) && ISSET(lflag, ICANON)) {
    520 		/*
    521 		 * From here on down canonical mode character
    522 		 * processing takes place.
    523 		 */
    524 		/*
    525 		 * erase (^H / ^?)
    526 		 */
    527 		if (CCEQ(cc[VERASE], c)) {
    528 			if (tp->t_rawq.c_cc)
    529 				ttyrub(unputc(&tp->t_rawq), tp);
    530 			goto endcase;
    531 		}
    532 		/*
    533 		 * kill (^U)
    534 		 */
    535 		if (CCEQ(cc[VKILL], c)) {
    536 			if (ISSET(lflag, ECHOKE) &&
    537 			    tp->t_rawq.c_cc == tp->t_rocount &&
    538 			    !ISSET(lflag, ECHOPRT))
    539 				while (tp->t_rawq.c_cc)
    540 					ttyrub(unputc(&tp->t_rawq), tp);
    541 			else {
    542 				ttyecho(c, tp);
    543 				if (ISSET(lflag, ECHOK) ||
    544 				    ISSET(lflag, ECHOKE))
    545 					ttyecho('\n', tp);
    546 				FLUSHQ(&tp->t_rawq);
    547 				tp->t_rocount = 0;
    548 			}
    549 			CLR(tp->t_state, TS_LOCAL);
    550 			goto endcase;
    551 		}
    552 		/*
    553 		 * Extensions to the POSIX.1 GTI set of functions.
    554 		 */
    555 		if (ISSET(lflag, IEXTEN)) {
    556 			/*
    557 			 * word erase (^W)
    558 			 */
    559 			if (CCEQ(cc[VWERASE], c)) {
    560 				int alt = ISSET(lflag, ALTWERASE);
    561 				int ctype;
    562 
    563 				/*
    564 				 * erase whitespace
    565 				 */
    566 				while ((c = unputc(&tp->t_rawq)) == ' ' ||
    567 				    c == '\t')
    568 					ttyrub(c, tp);
    569 				if (c == -1)
    570 					goto endcase;
    571 				/*
    572 				 * erase last char of word and remember the
    573 				 * next chars type (for ALTWERASE)
    574 				 */
    575 				ttyrub(c, tp);
    576 				c = unputc(&tp->t_rawq);
    577 				if (c == -1)
    578 					goto endcase;
    579 				if (c == ' ' || c == '\t') {
    580 					(void)putc(c, &tp->t_rawq);
    581 					goto endcase;
    582 				}
    583 				ctype = ISALPHA(c);
    584 				/*
    585 				 * erase rest of word
    586 				 */
    587 				do {
    588 					ttyrub(c, tp);
    589 					c = unputc(&tp->t_rawq);
    590 					if (c == -1)
    591 						goto endcase;
    592 				} while (c != ' ' && c != '\t' &&
    593 				    (alt == 0 || ISALPHA(c) == ctype));
    594 				(void)putc(c, &tp->t_rawq);
    595 				goto endcase;
    596 			}
    597 			/*
    598 			 * reprint line (^R)
    599 			 */
    600 			if (CCEQ(cc[VREPRINT], c)) {
    601 				ttyretype(tp);
    602 				goto endcase;
    603 			}
    604 			/*
    605 			 * ^T - kernel info and generate SIGINFO
    606 			 */
    607 			if (CCEQ(cc[VSTATUS], c)) {
    608 				if (!ISSET(lflag, NOKERNINFO))
    609 					ttyinfo(tp, 1);
    610 				if (ISSET(lflag, ISIG))
    611 					ttysig(tp, TTYSIG_PG1, SIGINFO);
    612 				goto endcase;
    613 			}
    614 		}
    615 	}
    616 	/*
    617 	 * Check for input buffer overflow
    618 	 */
    619 	if (tp->t_rawq.c_cc + tp->t_canq.c_cc >= TTYHOG) {
    620 		if (ISSET(iflag, IMAXBEL)) {
    621 			if (tp->t_outq.c_cc < tp->t_hiwat)
    622 				(void)ttyoutput(CTRL('g'), tp);
    623 		} else
    624 			ttyflush(tp, FREAD | FWRITE);
    625 		goto endcase;
    626 	}
    627 	/*
    628 	 * Put data char in q for user and
    629 	 * wakeup on seeing a line delimiter.
    630 	 */
    631 	if (putc(c, &tp->t_rawq) >= 0) {
    632 		if (!ISSET(lflag, ICANON)) {
    633 			ttwakeup(tp);
    634 			ttyecho(c, tp);
    635 			goto endcase;
    636 		}
    637 		if (TTBREAKC(c, lflag)) {
    638 			tp->t_rocount = 0;
    639 			catq(&tp->t_rawq, &tp->t_canq);
    640 			ttwakeup(tp);
    641 		} else if (tp->t_rocount++ == 0)
    642 			tp->t_rocol = tp->t_column;
    643 		if (ISSET(tp->t_state, TS_ERASE)) {
    644 			/*
    645 			 * end of prterase \.../
    646 			 */
    647 			CLR(tp->t_state, TS_ERASE);
    648 			(void)ttyoutput('/', tp);
    649 		}
    650 		i = tp->t_column;
    651 		ttyecho(c, tp);
    652 		if (CCEQ(cc[VEOF], c) && ISSET(lflag, ECHO)) {
    653 			/*
    654 			 * Place the cursor over the '^' of the ^D.
    655 			 */
    656 			i = min(2, tp->t_column - i);
    657 			while (i > 0) {
    658 				(void)ttyoutput('\b', tp);
    659 				i--;
    660 			}
    661 		}
    662 	}
    663  endcase:
    664 	/*
    665 	 * IXANY means allow any character to restart output.
    666 	 */
    667 	if (ISSET(tp->t_state, TS_TTSTOP) &&
    668 	    !ISSET(iflag, IXANY) && cc[VSTART] != cc[VSTOP]) {
    669 		return (0);
    670 	}
    671  restartoutput:
    672 	CLR(tp->t_lflag, FLUSHO);
    673 	CLR(tp->t_state, TS_TTSTOP);
    674  startoutput:
    675 	return (ttstart(tp));
    676 }
    677 
    678 /*
    679  * Process input of a single character received on a tty.
    680  *
    681  * XXX - this is a hack, all drivers must changed to acquire the
    682  *	 lock before calling linesw->l_rint()
    683  */
    684 int
    685 ttyinput(int c, struct tty *tp)
    686 {
    687 	int error;
    688 
    689 	/*
    690 	 * Unless the receiver is enabled, drop incoming data.
    691 	 */
    692 	if (!ISSET(tp->t_cflag, CREAD))
    693 		return (0);
    694 
    695 	mutex_spin_enter(&tty_lock);
    696 	error = ttyinput_wlock(c, tp);
    697 	mutex_spin_exit(&tty_lock);
    698 
    699 	return (error);
    700 }
    701 
    702 /*
    703  * Output a single character on a tty, doing output processing
    704  * as needed (expanding tabs, newline processing, etc.).
    705  * Returns < 0 if succeeds, otherwise returns char to resend.
    706  * Must be recursive.
    707  *
    708  * Call with tty lock held.
    709  */
    710 int
    711 ttyoutput(int c, struct tty *tp)
    712 {
    713 	long	oflag;
    714 	int	col, notout;
    715 
    716 	KASSERT(mutex_owned(&tty_lock));
    717 
    718 	oflag = tp->t_oflag;
    719 	if (!ISSET(oflag, OPOST)) {
    720 		tk_nout++;
    721 		tp->t_outcc++;
    722 		if (!ISSET(tp->t_lflag, FLUSHO) && putc(c, &tp->t_outq))
    723 			return (c);
    724 		return (-1);
    725 	}
    726 	/*
    727 	 * Do tab expansion if OXTABS is set.  Special case if we do external
    728 	 * processing, we don't do the tab expansion because we'll probably
    729 	 * get it wrong.  If tab expansion needs to be done, let it happen
    730 	 * externally.
    731 	 */
    732 	CLR(c, ~TTY_CHARMASK);
    733 	if (c == '\t' &&
    734 	    ISSET(oflag, OXTABS) && !ISSET(tp->t_lflag, EXTPROC)) {
    735 		c = 8 - (tp->t_column & 7);
    736 		if (ISSET(tp->t_lflag, FLUSHO)) {
    737 			notout = 0;
    738 		} else {
    739 			notout = b_to_q("        ", c, &tp->t_outq);
    740 			c -= notout;
    741 			tk_nout += c;
    742 			tp->t_outcc += c;
    743 		}
    744 		tp->t_column += c;
    745 		return (notout ? '\t' : -1);
    746 	}
    747 	if (c == CEOT && ISSET(oflag, ONOEOT))
    748 		return (-1);
    749 
    750 	/*
    751 	 * Newline translation: if ONLCR is set,
    752 	 * translate newline into "\r\n".
    753 	 */
    754 	if (c == '\n' && ISSET(tp->t_oflag, ONLCR)) {
    755 		tk_nout++;
    756 		tp->t_outcc++;
    757 		if (!ISSET(tp->t_lflag, FLUSHO) && putc('\r', &tp->t_outq))
    758 			return (c);
    759 	}
    760 	/* If OCRNL is set, translate "\r" into "\n". */
    761 	else if (c == '\r' && ISSET(tp->t_oflag, OCRNL))
    762 		c = '\n';
    763 	/* If ONOCR is set, don't transmit CRs when on column 0. */
    764 	else if (c == '\r' && ISSET(tp->t_oflag, ONOCR) && tp->t_column == 0)
    765 		return (-1);
    766 
    767 	tk_nout++;
    768 	tp->t_outcc++;
    769 	if (!ISSET(tp->t_lflag, FLUSHO) && putc(c, &tp->t_outq))
    770 		return (c);
    771 
    772 	col = tp->t_column;
    773 	switch (CCLASS(c)) {
    774 	case BACKSPACE:
    775 		if (col > 0)
    776 			--col;
    777 		break;
    778 	case CONTROL:
    779 		break;
    780 	case NEWLINE:
    781 		if (ISSET(tp->t_oflag, ONLCR | ONLRET))
    782 			col = 0;
    783 		break;
    784 	case RETURN:
    785 		col = 0;
    786 		break;
    787 	case ORDINARY:
    788 		++col;
    789 		break;
    790 	case TAB:
    791 		col = (col + 8) & ~7;
    792 		break;
    793 	}
    794 	tp->t_column = col;
    795 	return (-1);
    796 }
    797 
    798 /*
    799  * Ioctls for all tty devices.  Called after line-discipline specific ioctl
    800  * has been called to do discipline-specific functions and/or reject any
    801  * of these ioctl commands.
    802  */
    803 /* ARGSUSED */
    804 int
    805 ttioctl(struct tty *tp, u_long cmd, void *data, int flag, struct lwp *l)
    806 {
    807 	extern struct tty *constty;	/* Temporary virtual console. */
    808 	struct proc *p = l ? l->l_proc : NULL;
    809 	struct linesw	*lp;
    810 	int		s, error;
    811 	struct nameidata nd;
    812 
    813 	/* If the ioctl involves modification, hang if in the background. */
    814 	switch (cmd) {
    815 	case  TIOCFLUSH:
    816 	case  TIOCDRAIN:
    817 	case  TIOCSBRK:
    818 	case  TIOCCBRK:
    819 	case  TIOCSTART:
    820 	case  TIOCSETA:
    821 	case  TIOCSETD:
    822 	case  TIOCSLINED:
    823 	case  TIOCSETAF:
    824 	case  TIOCSETAW:
    825 #ifdef notdef
    826 	case  TIOCSPGRP:
    827 	case  FIOSETOWN:
    828 #endif
    829 	case  TIOCSTAT:
    830 	case  TIOCSTI:
    831 	case  TIOCSWINSZ:
    832 #ifdef COMPAT_OLDTTY
    833 	case  TIOCLBIC:
    834 	case  TIOCLBIS:
    835 	case  TIOCLSET:
    836 	case  TIOCSETC:
    837 	case OTIOCSETD:
    838 	case  TIOCSETN:
    839 	case  TIOCSETP:
    840 	case  TIOCSLTC:
    841 #endif
    842 		mutex_spin_enter(&tty_lock);
    843 		while (isbackground(curproc, tp) &&
    844 		    p->p_pgrp->pg_jobc && (p->p_sflag & PS_PPWAIT) == 0 &&
    845 		    !sigismasked(l, SIGTTOU)) {
    846 			ttysig(tp, TTYSIG_PG1, SIGTTOU);
    847 			error = ttysleep(tp, &lbolt, true, 0);
    848 			if (error) {
    849 				mutex_spin_exit(&tty_lock);
    850 				return (error);
    851 			}
    852 		}
    853 		mutex_spin_exit(&tty_lock);
    854 		break;
    855 	}
    856 
    857 	switch (cmd) {			/* Process the ioctl. */
    858 	case FIOASYNC:			/* set/clear async i/o */
    859 		mutex_spin_enter(&tty_lock);
    860 		if (*(int *)data)
    861 			SET(tp->t_state, TS_ASYNC);
    862 		else
    863 			CLR(tp->t_state, TS_ASYNC);
    864 		mutex_spin_exit(&tty_lock);
    865 		break;
    866 	case FIONBIO:			/* set/clear non-blocking i/o */
    867 		break;			/* XXX: delete. */
    868 	case FIONREAD:			/* get # bytes to read */
    869 		mutex_spin_enter(&tty_lock);
    870 		*(int *)data = ttnread(tp);
    871 		mutex_spin_exit(&tty_lock);
    872 		break;
    873 	case FIONWRITE:			/* get # bytes to written & unsent */
    874 		mutex_spin_enter(&tty_lock);
    875 		*(int *)data = tp->t_outq.c_cc;
    876 		mutex_spin_exit(&tty_lock);
    877 		break;
    878 	case FIONSPACE:			/* get # bytes to written & unsent */
    879 		mutex_spin_enter(&tty_lock);
    880 		*(int *)data = tp->t_outq.c_cn - tp->t_outq.c_cc;
    881 		mutex_spin_exit(&tty_lock);
    882 		break;
    883 	case TIOCEXCL:			/* set exclusive use of tty */
    884 		mutex_spin_enter(&tty_lock);
    885 		SET(tp->t_state, TS_XCLUDE);
    886 		mutex_spin_exit(&tty_lock);
    887 		break;
    888 	case TIOCFLUSH: {		/* flush buffers */
    889 		int flags = *(int *)data;
    890 
    891 		if (flags == 0)
    892 			flags = FREAD | FWRITE;
    893 		else
    894 			flags &= FREAD | FWRITE;
    895 		mutex_spin_enter(&tty_lock);
    896 		ttyflush(tp, flags);
    897 		mutex_spin_exit(&tty_lock);
    898 		break;
    899 	}
    900 	case TIOCCONS:			/* become virtual console */
    901 		if (*(int *)data) {
    902 			if (constty && constty != tp &&
    903 			    ISSET(constty->t_state, TS_CARR_ON | TS_ISOPEN) ==
    904 			    (TS_CARR_ON | TS_ISOPEN))
    905 				return EBUSY;
    906 
    907 			NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF, UIO_SYSSPACE,
    908 			    "/dev/console", l);
    909 			if ((error = namei(&nd)) != 0)
    910 				return error;
    911 			error = VOP_ACCESS(nd.ni_vp, VREAD, l->l_cred);
    912 			vput(nd.ni_vp);
    913 			if (error)
    914 				return error;
    915 
    916 			constty = tp;
    917 		} else if (tp == constty)
    918 			constty = NULL;
    919 		break;
    920 	case TIOCDRAIN:			/* wait till output drained */
    921 		if ((error = ttywait(tp)) != 0)
    922 			return (error);
    923 		break;
    924 	case TIOCGETA: {		/* get termios struct */
    925 		struct termios *t = (struct termios *)data;
    926 
    927 		memcpy(t, &tp->t_termios, sizeof(struct termios));
    928 		break;
    929 	}
    930 	case TIOCGETD:			/* get line discipline (old) */
    931 		*(int *)data = tp->t_linesw->l_no;
    932 		break;
    933 	case TIOCGLINED:		/* get line discipline (new) */
    934 		(void)strncpy((char *)data, tp->t_linesw->l_name,
    935 		    TTLINEDNAMELEN - 1);
    936 		break;
    937 	case TIOCGWINSZ:		/* get window size */
    938 		*(struct winsize *)data = tp->t_winsize;
    939 		break;
    940 	case FIOGETOWN:
    941 		if (tp->t_session != NULL && !isctty(p, tp))
    942 			return (ENOTTY);
    943 		*(int *)data = tp->t_pgrp ? -tp->t_pgrp->pg_id : 0;
    944 		break;
    945 	case TIOCGPGRP:			/* get pgrp of tty */
    946 		if (!isctty(p, tp))
    947 			return (ENOTTY);
    948 		*(int *)data = tp->t_pgrp ? tp->t_pgrp->pg_id : NO_PGID;
    949 		break;
    950 	case TIOCGSID:			/* get sid of tty */
    951 		if (!isctty(p, tp))
    952 			return (ENOTTY);
    953 		*(int *)data = tp->t_session->s_sid;
    954 		break;
    955 #ifdef TIOCHPCL
    956 	case TIOCHPCL:			/* hang up on last close */
    957 		mutex_spin_enter(&tty_lock);
    958 		SET(tp->t_cflag, HUPCL);
    959 		mutex_spin_exit(&tty_lock);
    960 		break;
    961 #endif
    962 	case TIOCNXCL:			/* reset exclusive use of tty */
    963 		mutex_spin_enter(&tty_lock);
    964 		CLR(tp->t_state, TS_XCLUDE);
    965 		mutex_spin_exit(&tty_lock);
    966 		break;
    967 	case TIOCOUTQ:			/* output queue size */
    968 		*(int *)data = tp->t_outq.c_cc;
    969 		break;
    970 	case TIOCSETA:			/* set termios struct */
    971 	case TIOCSETAW:			/* drain output, set */
    972 	case TIOCSETAF: {		/* drn out, fls in, set */
    973 		struct termios *t = (struct termios *)data;
    974 
    975 		if (cmd == TIOCSETAW || cmd == TIOCSETAF) {
    976 			if ((error = ttywait(tp)) != 0)
    977 				return (error);
    978 
    979 			if (cmd == TIOCSETAF) {
    980 				mutex_spin_enter(&tty_lock);
    981 				ttyflush(tp, FREAD);
    982 				mutex_spin_exit(&tty_lock);
    983 			}
    984 		}
    985 
    986 		s = spltty();
    987 		/*
    988 		 * XXXSMP - some drivers call back on us from t_param(), so
    989 		 *	    don't take the tty spin lock here.
    990 		 *	    require t_param() to unlock upon callback?
    991 		 */
    992 		/* wanted here: mutex_spin_enter(&tty_lock); */
    993 		if (!ISSET(t->c_cflag, CIGNORE)) {
    994 			/*
    995 			 * Set device hardware.
    996 			 */
    997 			if (tp->t_param && (error = (*tp->t_param)(tp, t))) {
    998 				/* wanted here: mutex_spin_exit(&tty_lock); */
    999 				splx(s);
   1000 				return (error);
   1001 			} else {
   1002 				tp->t_cflag = t->c_cflag;
   1003 				tp->t_ispeed = t->c_ispeed;
   1004 				tp->t_ospeed = t->c_ospeed;
   1005 				if (t->c_ospeed == 0)
   1006 					ttysig(tp, TTYSIG_LEADER, SIGHUP);
   1007 			}
   1008 			ttsetwater(tp);
   1009 		}
   1010 
   1011 		/* delayed lock acquiring */
   1012 		mutex_spin_enter(&tty_lock);
   1013 		if (cmd != TIOCSETAF) {
   1014 			if (ISSET(t->c_lflag, ICANON) !=
   1015 			    ISSET(tp->t_lflag, ICANON)) {
   1016 				if (ISSET(t->c_lflag, ICANON)) {
   1017 					SET(tp->t_lflag, PENDIN);
   1018 					ttwakeup(tp);
   1019 				} else {
   1020 					struct clist tq;
   1021 
   1022 					catq(&tp->t_rawq, &tp->t_canq);
   1023 					tq = tp->t_rawq;
   1024 					tp->t_rawq = tp->t_canq;
   1025 					tp->t_canq = tq;
   1026 					CLR(tp->t_lflag, PENDIN);
   1027 				}
   1028 			}
   1029 		}
   1030 		tp->t_iflag = t->c_iflag;
   1031 		tp->t_oflag = t->c_oflag;
   1032 		/*
   1033 		 * Make the EXTPROC bit read only.
   1034 		 */
   1035 		if (ISSET(tp->t_lflag, EXTPROC))
   1036 			SET(t->c_lflag, EXTPROC);
   1037 		else
   1038 			CLR(t->c_lflag, EXTPROC);
   1039 		tp->t_lflag = t->c_lflag | ISSET(tp->t_lflag, PENDIN);
   1040 		memcpy(tp->t_cc, t->c_cc, sizeof(t->c_cc));
   1041 		mutex_spin_exit(&tty_lock);
   1042 		splx(s);
   1043 		break;
   1044 	}
   1045 	case TIOCSETD:			/* set line discipline (old) */
   1046 		lp = ttyldisc_lookup_bynum(*(int *)data);
   1047 		goto setldisc;
   1048 
   1049 	case TIOCSLINED: {		/* set line discipline (new) */
   1050 		char *name = (char *)data;
   1051 		dev_t device;
   1052 
   1053 		/* Null terminate to prevent buffer overflow */
   1054 		name[TTLINEDNAMELEN - 1] = '\0';
   1055 		lp = ttyldisc_lookup(name);
   1056  setldisc:
   1057 		if (lp == NULL)
   1058 			return (ENXIO);
   1059 
   1060 		if (lp != tp->t_linesw) {
   1061 			device = tp->t_dev;
   1062 			s = spltty();
   1063 			(*tp->t_linesw->l_close)(tp, flag);
   1064 			error = (*lp->l_open)(device, tp);
   1065 			if (error) {
   1066 				(void)(*tp->t_linesw->l_open)(device, tp);
   1067 				splx(s);
   1068 				ttyldisc_release(lp);
   1069 				return (error);
   1070 			}
   1071 			ttyldisc_release(tp->t_linesw);
   1072 			tp->t_linesw = lp;
   1073 			splx(s);
   1074 		} else {
   1075 			/* Drop extra reference. */
   1076 			ttyldisc_release(lp);
   1077 		}
   1078 		break;
   1079 	}
   1080 	case TIOCSTART:			/* start output, like ^Q */
   1081 		mutex_spin_enter(&tty_lock);
   1082 		if (ISSET(tp->t_state, TS_TTSTOP) ||
   1083 		    ISSET(tp->t_lflag, FLUSHO)) {
   1084 			CLR(tp->t_lflag, FLUSHO);
   1085 			CLR(tp->t_state, TS_TTSTOP);
   1086 			ttstart(tp);
   1087 		}
   1088 		mutex_spin_exit(&tty_lock);
   1089 		break;
   1090 	case TIOCSTI:			/* simulate terminal input */
   1091 		if (kauth_authorize_generic(l->l_cred, KAUTH_GENERIC_ISSUSER,
   1092 		    NULL) != 0) {
   1093 			if (!ISSET(flag, FREAD))
   1094 				return (EPERM);
   1095 			if (!isctty(p, tp))
   1096 				return (EACCES);
   1097 		}
   1098 		(*tp->t_linesw->l_rint)(*(u_char *)data, tp);
   1099 		break;
   1100 	case TIOCSTOP:			/* stop output, like ^S */
   1101 	{
   1102 		mutex_spin_enter(&tty_lock);
   1103 		if (!ISSET(tp->t_state, TS_TTSTOP)) {
   1104 			SET(tp->t_state, TS_TTSTOP);
   1105 			cdev_stop(tp, 0);
   1106 		}
   1107 		mutex_spin_exit(&tty_lock);
   1108 		break;
   1109 	}
   1110 	case TIOCSCTTY:			/* become controlling tty */
   1111 		mutex_enter(&proclist_lock);
   1112 		mutex_spin_enter(&tty_lock);
   1113 
   1114 		/* Session ctty vnode pointer set in vnode layer. */
   1115 		if (!SESS_LEADER(p) ||
   1116 		    ((p->p_session->s_ttyvp || tp->t_session) &&
   1117 		    (tp->t_session != p->p_session))) {
   1118 			mutex_spin_exit(&tty_lock);
   1119 			mutex_exit(&proclist_lock);
   1120 			return (EPERM);
   1121 		}
   1122 
   1123 		/*
   1124 		 * `p_session' acquires a reference.
   1125 		 * But note that if `t_session' is set at this point,
   1126 		 * it must equal `p_session', in which case the session
   1127 		 * already has the correct reference count.
   1128 		 */
   1129 		if (tp->t_session == NULL)
   1130 			SESSHOLD(p->p_session);
   1131 
   1132 		tp->t_session = p->p_session;
   1133 		tp->t_pgrp = p->p_pgrp;
   1134 		p->p_session->s_ttyp = tp;
   1135 		p->p_lflag |= PL_CONTROLT;
   1136 		mutex_spin_exit(&tty_lock);
   1137 		mutex_exit(&proclist_lock);
   1138 		break;
   1139 	case FIOSETOWN: {		/* set pgrp of tty */
   1140 		pid_t pgid = *(int *)data;
   1141 		struct pgrp *pgrp;
   1142 
   1143 		mutex_enter(&proclist_lock);
   1144 		if (tp->t_session != NULL && !isctty(p, tp)) {
   1145 			mutex_exit(&proclist_lock);
   1146 			return (ENOTTY);
   1147 		}
   1148 
   1149 		if (pgid < 0) {
   1150 			pgrp = pg_find(-pgid, PFIND_LOCKED | PFIND_UNLOCK_FAIL);
   1151 			if (pgrp == NULL)
   1152 				return (EINVAL);
   1153 		} else {
   1154 			struct proc *p1;
   1155 			p1 = p_find(pgid, PFIND_LOCKED | PFIND_UNLOCK_FAIL);
   1156 			if (!p1)
   1157 				return (ESRCH);
   1158 			pgrp = p1->p_pgrp;
   1159 		}
   1160 
   1161 		if (pgrp->pg_session != p->p_session) {
   1162 			mutex_exit(&proclist_lock);
   1163 			return (EPERM);
   1164 		}
   1165 		mutex_spin_enter(&tty_lock);
   1166 		tp->t_pgrp = pgrp;
   1167 		mutex_spin_exit(&tty_lock);
   1168 		mutex_exit(&proclist_lock);
   1169 		break;
   1170 	}
   1171 	case TIOCSPGRP: {		/* set pgrp of tty */
   1172 		struct pgrp *pgrp;
   1173 
   1174 		mutex_enter(&proclist_lock);
   1175 		if (!isctty(p, tp)) {
   1176 			mutex_exit(&proclist_lock);
   1177 			return (ENOTTY);
   1178 		}
   1179 		pgrp = pg_find(*(int *)data, PFIND_LOCKED | PFIND_UNLOCK_FAIL);
   1180 		if (pgrp == NULL)
   1181 			return (EINVAL);
   1182 		if (pgrp->pg_session != p->p_session) {
   1183 			mutex_exit(&proclist_lock);
   1184 			return (EPERM);
   1185 		}
   1186 		mutex_spin_enter(&tty_lock);
   1187 		tp->t_pgrp = pgrp;
   1188 		mutex_spin_exit(&tty_lock);
   1189 		mutex_exit(&proclist_lock);
   1190 		break;
   1191 	}
   1192 	case TIOCSTAT:			/* get load avg stats */
   1193 		mutex_spin_enter(&tty_lock);
   1194 		ttyinfo(tp, 0);
   1195 		mutex_spin_exit(&tty_lock);
   1196 		break;
   1197 	case TIOCSWINSZ:		/* set window size */
   1198 		mutex_spin_enter(&tty_lock);
   1199 		if (memcmp((void *)&tp->t_winsize, data,
   1200 		    sizeof(struct winsize))) {
   1201 			tp->t_winsize = *(struct winsize *)data;
   1202 			ttysig(tp, TTYSIG_PG1, SIGWINCH);
   1203 		}
   1204 		mutex_spin_exit(&tty_lock);
   1205 		break;
   1206 	default:
   1207 #ifdef COMPAT_OLDTTY
   1208 		return (ttcompat(tp, cmd, data, flag, l));
   1209 #else
   1210 		return (EPASSTHROUGH);
   1211 #endif
   1212 	}
   1213 	return (0);
   1214 }
   1215 
   1216 int
   1217 ttpoll(struct tty *tp, int events, struct lwp *l)
   1218 {
   1219 	int	revents;
   1220 
   1221 	revents = 0;
   1222 	mutex_spin_enter(&tty_lock);
   1223 	if (events & (POLLIN | POLLRDNORM))
   1224 		if (ttnread(tp) > 0)
   1225 			revents |= events & (POLLIN | POLLRDNORM);
   1226 
   1227 	if (events & (POLLOUT | POLLWRNORM))
   1228 		if (tp->t_outq.c_cc <= tp->t_lowat)
   1229 			revents |= events & (POLLOUT | POLLWRNORM);
   1230 
   1231 	if (events & POLLHUP)
   1232 		if (!CONNECTED(tp))
   1233 			revents |= POLLHUP;
   1234 
   1235 	if (revents == 0) {
   1236 		if (events & (POLLIN | POLLHUP | POLLRDNORM))
   1237 			selrecord(l, &tp->t_rsel);
   1238 
   1239 		if (events & (POLLOUT | POLLWRNORM))
   1240 			selrecord(l, &tp->t_wsel);
   1241 	}
   1242 
   1243 	mutex_spin_exit(&tty_lock);
   1244 
   1245 	return (revents);
   1246 }
   1247 
   1248 static void
   1249 filt_ttyrdetach(struct knote *kn)
   1250 {
   1251 	struct tty	*tp;
   1252 
   1253 	tp = kn->kn_hook;
   1254 	mutex_spin_enter(&tty_lock);
   1255 	SLIST_REMOVE(&tp->t_rsel.sel_klist, kn, knote, kn_selnext);
   1256 	mutex_spin_exit(&tty_lock);
   1257 }
   1258 
   1259 static int
   1260 filt_ttyread(struct knote *kn, long hint)
   1261 {
   1262 	struct tty	*tp;
   1263 
   1264 	tp = kn->kn_hook;
   1265 	if ((hint & NOTE_SUBMIT) == 0)
   1266 		mutex_spin_enter(&tty_lock);
   1267 	kn->kn_data = ttnread(tp);
   1268 	if ((hint & NOTE_SUBMIT) == 0)
   1269 		mutex_spin_exit(&tty_lock);
   1270 	return (kn->kn_data > 0);
   1271 }
   1272 
   1273 static void
   1274 filt_ttywdetach(struct knote *kn)
   1275 {
   1276 	struct tty	*tp;
   1277 
   1278 	tp = kn->kn_hook;
   1279 	mutex_spin_enter(&tty_lock);
   1280 	SLIST_REMOVE(&tp->t_wsel.sel_klist, kn, knote, kn_selnext);
   1281 	mutex_spin_exit(&tty_lock);
   1282 }
   1283 
   1284 static int
   1285 filt_ttywrite(struct knote *kn, long hint)
   1286 {
   1287 	struct tty	*tp;
   1288 	int		canwrite;
   1289 
   1290 	tp = kn->kn_hook;
   1291 	if ((hint & NOTE_SUBMIT) == 0)
   1292 		mutex_spin_enter(&tty_lock);
   1293 	kn->kn_data = tp->t_outq.c_cn - tp->t_outq.c_cc;
   1294 	canwrite = (tp->t_outq.c_cc <= tp->t_lowat) && CONNECTED(tp);
   1295 	if ((hint & NOTE_SUBMIT) == 0)
   1296 		mutex_spin_exit(&tty_lock);
   1297 	return (canwrite);
   1298 }
   1299 
   1300 static const struct filterops ttyread_filtops =
   1301 	{ 1, NULL, filt_ttyrdetach, filt_ttyread };
   1302 static const struct filterops ttywrite_filtops =
   1303 	{ 1, NULL, filt_ttywdetach, filt_ttywrite };
   1304 
   1305 int
   1306 ttykqfilter(dev_t dev, struct knote *kn)
   1307 {
   1308 	struct tty	*tp;
   1309 	struct klist	*klist;
   1310 
   1311 	if ((tp = cdev_tty(dev)) == NULL)
   1312 		return (ENXIO);
   1313 
   1314 	switch (kn->kn_filter) {
   1315 	case EVFILT_READ:
   1316 		klist = &tp->t_rsel.sel_klist;
   1317 		kn->kn_fop = &ttyread_filtops;
   1318 		break;
   1319 	case EVFILT_WRITE:
   1320 		klist = &tp->t_wsel.sel_klist;
   1321 		kn->kn_fop = &ttywrite_filtops;
   1322 		break;
   1323 	default:
   1324 		return EINVAL;
   1325 	}
   1326 
   1327 	kn->kn_hook = tp;
   1328 
   1329 	mutex_spin_enter(&tty_lock);
   1330 	SLIST_INSERT_HEAD(klist, kn, kn_selnext);
   1331 	mutex_spin_exit(&tty_lock);
   1332 
   1333 	return (0);
   1334 }
   1335 
   1336 /*
   1337  * Find the number of chars ready to be read from this tty.
   1338  * Call with the tty lock held.
   1339  */
   1340 static int
   1341 ttnread(struct tty *tp)
   1342 {
   1343 	int	nread;
   1344 
   1345 	KASSERT(mutex_owned(&tty_lock));
   1346 
   1347 	if (ISSET(tp->t_lflag, PENDIN))
   1348 		ttypend(tp);
   1349 	nread = tp->t_canq.c_cc;
   1350 	if (!ISSET(tp->t_lflag, ICANON)) {
   1351 		nread += tp->t_rawq.c_cc;
   1352 		if (nread < tp->t_cc[VMIN] && !tp->t_cc[VTIME])
   1353 			nread = 0;
   1354 	}
   1355 	return (nread);
   1356 }
   1357 
   1358 /*
   1359  * Wait for output to drain.
   1360  */
   1361 int
   1362 ttywait(struct tty *tp)
   1363 {
   1364 	int	error;
   1365 
   1366 	error = 0;
   1367 
   1368 	mutex_spin_enter(&tty_lock);
   1369 	while ((tp->t_outq.c_cc || ISSET(tp->t_state, TS_BUSY)) &&
   1370 	    CONNECTED(tp) && tp->t_oproc) {
   1371 		(*tp->t_oproc)(tp);
   1372 		error = ttysleep(tp, &tp->t_outq.c_cv, true, 0);
   1373 		if (error)
   1374 			break;
   1375 	}
   1376 	mutex_spin_exit(&tty_lock);
   1377 
   1378 	return (error);
   1379 }
   1380 
   1381 /*
   1382  * Flush if successfully wait.
   1383  */
   1384 int
   1385 ttywflush(struct tty *tp)
   1386 {
   1387 	int	error;
   1388 
   1389 	if ((error = ttywait(tp)) == 0) {
   1390 		mutex_spin_enter(&tty_lock);
   1391 		ttyflush(tp, FREAD);
   1392 		mutex_spin_exit(&tty_lock);
   1393 	}
   1394 	return (error);
   1395 }
   1396 
   1397 /*
   1398  * Flush tty read and/or write queues, notifying anyone waiting.
   1399  * Call with the tty lock held.
   1400  */
   1401 void
   1402 ttyflush(struct tty *tp, int rw)
   1403 {
   1404 
   1405 	KASSERT(mutex_owned(&tty_lock));
   1406 
   1407 	if (rw & FREAD) {
   1408 		FLUSHQ(&tp->t_canq);
   1409 		FLUSHQ(&tp->t_rawq);
   1410 		tp->t_rocount = 0;
   1411 		tp->t_rocol = 0;
   1412 		CLR(tp->t_state, TS_LOCAL);
   1413 		ttwakeup(tp);
   1414 	}
   1415 	if (rw & FWRITE) {
   1416 		CLR(tp->t_state, TS_TTSTOP);
   1417 		cdev_stop(tp, rw);
   1418 		FLUSHQ(&tp->t_outq);
   1419 		clwakeup(&tp->t_outq);
   1420 		selnotify(&tp->t_wsel, NOTE_SUBMIT);
   1421 	}
   1422 }
   1423 
   1424 /*
   1425  * Copy in the default termios characters.
   1426  */
   1427 void
   1428 ttychars(struct tty *tp)
   1429 {
   1430 
   1431 	memcpy(tp->t_cc, ttydefchars, sizeof(ttydefchars));
   1432 }
   1433 
   1434 /*
   1435  * Send stop character on input overflow.
   1436  * Call with the tty lock held.
   1437  */
   1438 static void
   1439 ttyblock(struct tty *tp)
   1440 {
   1441 	int	total;
   1442 
   1443 	KASSERT(mutex_owned(&tty_lock));
   1444 
   1445 	total = tp->t_rawq.c_cc + tp->t_canq.c_cc;
   1446 	if (tp->t_rawq.c_cc > TTYHOG) {
   1447 		ttyflush(tp, FREAD | FWRITE);
   1448 		CLR(tp->t_state, TS_TBLOCK);
   1449 	}
   1450 	/*
   1451 	 * Block further input iff: current input > threshold
   1452 	 * AND input is available to user program.
   1453 	 */
   1454 	if (total >= TTYHOG / 2 &&
   1455 	    !ISSET(tp->t_state, TS_TBLOCK) &&
   1456 	    (!ISSET(tp->t_lflag, ICANON) || tp->t_canq.c_cc > 0)) {
   1457 		if (ISSET(tp->t_iflag, IXOFF) &&
   1458 		    tp->t_cc[VSTOP] != _POSIX_VDISABLE &&
   1459 		    putc(tp->t_cc[VSTOP], &tp->t_outq) == 0) {
   1460 			SET(tp->t_state, TS_TBLOCK);
   1461 			ttstart(tp);
   1462 		}
   1463 		/* Try to block remote output via hardware flow control. */
   1464 		if (ISSET(tp->t_cflag, CHWFLOW) && tp->t_hwiflow &&
   1465 		    (*tp->t_hwiflow)(tp, 1) != 0)
   1466 			SET(tp->t_state, TS_TBLOCK);
   1467 	}
   1468 }
   1469 
   1470 /*
   1471  * Delayed line discipline output
   1472  */
   1473 void
   1474 ttrstrt(void *tp_arg)
   1475 {
   1476 	struct tty	*tp;
   1477 
   1478 #ifdef DIAGNOSTIC
   1479 	if (tp_arg == NULL)
   1480 		panic("ttrstrt");
   1481 #endif
   1482 	tp = tp_arg;
   1483 	mutex_spin_enter(&tty_lock);
   1484 
   1485 	CLR(tp->t_state, TS_TIMEOUT);
   1486 	ttstart(tp); /* XXX - Shouldn't this be tp->l_start(tp)? */
   1487 
   1488 	mutex_spin_exit(&tty_lock);
   1489 }
   1490 
   1491 /*
   1492  * start a line discipline
   1493  * Always call with tty lock held?
   1494  */
   1495 int
   1496 ttstart(struct tty *tp)
   1497 {
   1498 
   1499 	if (tp->t_oproc != NULL)	/* XXX: Kludge for pty. */
   1500 		(*tp->t_oproc)(tp);
   1501 	return (0);
   1502 }
   1503 
   1504 /*
   1505  * "close" a line discipline
   1506  */
   1507 int
   1508 ttylclose(struct tty *tp, int flag)
   1509 {
   1510 
   1511 	if (flag & FNONBLOCK) {
   1512 		mutex_spin_enter(&tty_lock);
   1513 		ttyflush(tp, FREAD | FWRITE);
   1514 		mutex_spin_exit(&tty_lock);
   1515 	} else
   1516 		ttywflush(tp);
   1517 	return (0);
   1518 }
   1519 
   1520 /*
   1521  * Handle modem control transition on a tty.
   1522  * Flag indicates new state of carrier.
   1523  * Returns 0 if the line should be turned off, otherwise 1.
   1524  */
   1525 int
   1526 ttymodem(struct tty *tp, int flag)
   1527 {
   1528 
   1529 	mutex_spin_enter(&tty_lock);
   1530 	if (flag == 0) {
   1531 		if (ISSET(tp->t_state, TS_CARR_ON)) {
   1532 			/*
   1533 			 * Lost carrier.
   1534 			 */
   1535 			CLR(tp->t_state, TS_CARR_ON);
   1536 			if (ISSET(tp->t_state, TS_ISOPEN) && !CONNECTED(tp)) {
   1537 				ttysig(tp, TTYSIG_LEADER, SIGHUP);
   1538 				ttyflush(tp, FREAD | FWRITE);
   1539 				mutex_spin_exit(&tty_lock);
   1540 				return (0);
   1541 			}
   1542 		}
   1543 	} else {
   1544 		if (!ISSET(tp->t_state, TS_CARR_ON)) {
   1545 			/*
   1546 			 * Carrier now on.
   1547 			 */
   1548 			SET(tp->t_state, TS_CARR_ON);
   1549 			ttwakeup(tp);
   1550 		}
   1551 	}
   1552 	mutex_spin_exit(&tty_lock);
   1553 
   1554 	return (1);
   1555 }
   1556 
   1557 /*
   1558  * Default modem control routine (for other line disciplines).
   1559  * Return argument flag, to turn off device on carrier drop.
   1560  */
   1561 int
   1562 nullmodem(struct tty *tp, int flag)
   1563 {
   1564 
   1565 	mutex_spin_enter(&tty_lock);
   1566 	if (flag)
   1567 		SET(tp->t_state, TS_CARR_ON);
   1568 	else {
   1569 		CLR(tp->t_state, TS_CARR_ON);
   1570 		if (!CONNECTED(tp)) {
   1571 			ttysig(tp, TTYSIG_LEADER, SIGHUP);
   1572 			mutex_spin_exit(&tty_lock);
   1573 			return (0);
   1574 		}
   1575 	}
   1576 	mutex_spin_exit(&tty_lock);
   1577 
   1578 	return (1);
   1579 }
   1580 
   1581 /*
   1582  * Reinput pending characters after state switch.
   1583  */
   1584 void
   1585 ttypend(struct tty *tp)
   1586 {
   1587 	struct clist	tq;
   1588 	int		c;
   1589 
   1590 	KASSERT(mutex_owned(&tty_lock));
   1591 
   1592 	CLR(tp->t_lflag, PENDIN);
   1593 	SET(tp->t_state, TS_TYPEN);
   1594 	tq = tp->t_rawq;
   1595 	tp->t_rawq.c_cc = 0;
   1596 	tp->t_rawq.c_cf = tp->t_rawq.c_cl = 0;
   1597 	while ((c = getc(&tq)) >= 0)
   1598 		ttyinput_wlock(c, tp);
   1599 	CLR(tp->t_state, TS_TYPEN);
   1600 }
   1601 
   1602 /*
   1603  * Process a read call on a tty device.
   1604  */
   1605 int
   1606 ttread(struct tty *tp, struct uio *uio, int flag)
   1607 {
   1608 	struct clist	*qp;
   1609 	u_char		*cc;
   1610 	struct proc	*p;
   1611 	int		c, first, error, has_stime, last_cc;
   1612 	long		lflag, slp;
   1613 	struct timeval	now, stime;
   1614 
   1615 	stime.tv_usec = 0;	/* XXX gcc */
   1616 	stime.tv_sec = 0;	/* XXX gcc */
   1617 
   1618 	cc = tp->t_cc;
   1619 	p = curproc;
   1620 	error = 0;
   1621 	has_stime = 0;
   1622 	last_cc = 0;
   1623 	slp = 0;
   1624 
   1625  loop:
   1626 	mutex_spin_enter(&tty_lock);
   1627 	lflag = tp->t_lflag;
   1628 	/*
   1629 	 * take pending input first
   1630 	 */
   1631 	if (ISSET(lflag, PENDIN))
   1632 		ttypend(tp);
   1633 
   1634 	/*
   1635 	 * Hang process if it's in the background.
   1636 	 */
   1637 	if (isbackground(p, tp)) {
   1638 		if (sigismember(&p->p_sigctx.ps_sigignore, SIGTTIN) ||
   1639 		    sigismember(&curlwp->l_sigmask, SIGTTIN) ||
   1640 		    p->p_sflag & PS_PPWAIT || p->p_pgrp->pg_jobc == 0) {
   1641 			mutex_spin_exit(&tty_lock);
   1642 			return (EIO);
   1643 		}
   1644 		ttysig(tp, TTYSIG_PG1, SIGTTIN);
   1645 		error = ttysleep(tp, &lbolt, true, 0);
   1646 		mutex_spin_exit(&tty_lock);
   1647 		if (error)
   1648 			return (error);
   1649 		goto loop;
   1650 	}
   1651 
   1652 	if (!ISSET(lflag, ICANON)) {
   1653 		int m = cc[VMIN];
   1654 		long t = cc[VTIME];
   1655 
   1656 		qp = &tp->t_rawq;
   1657 		/*
   1658 		 * Check each of the four combinations.
   1659 		 * (m > 0 && t == 0) is the normal read case.
   1660 		 * It should be fairly efficient, so we check that and its
   1661 		 * companion case (m == 0 && t == 0) first.
   1662 		 * For the other two cases, we compute the target sleep time
   1663 		 * into slp.
   1664 		 */
   1665 		if (t == 0) {
   1666 			if (qp->c_cc < m)
   1667 				goto sleep;
   1668 			goto read;
   1669 		}
   1670 		t *= hz;		/* time in deca-ticks */
   1671 /*
   1672  * Time difference in deca-ticks, split division to avoid numeric overflow.
   1673  * Ok for hz < ~200kHz
   1674  */
   1675 #define	diff(t1, t2) (((t1).tv_sec - (t2).tv_sec) * 10 * hz + \
   1676 			 ((t1).tv_usec - (t2).tv_usec) / 100 * hz / 1000)
   1677 		if (m > 0) {
   1678 			if (qp->c_cc <= 0)
   1679 				goto sleep;
   1680 			if (qp->c_cc >= m)
   1681 				goto read;
   1682 			if (!has_stime) {
   1683 				/* first character, start timer */
   1684 				has_stime = 1;
   1685 				getmicrotime(&stime);
   1686 				slp = t;
   1687 			} else if (qp->c_cc > last_cc) {
   1688 				/* got a character, restart timer */
   1689 				getmicrotime(&stime);
   1690 				slp = t;
   1691 			} else {
   1692 				/* nothing, check expiration */
   1693 				getmicrotime(&now);
   1694 				slp = t - diff(now, stime);
   1695 			}
   1696 		} else {	/* m == 0 */
   1697 			if (qp->c_cc > 0)
   1698 				goto read;
   1699 			if (!has_stime) {
   1700 				has_stime = 1;
   1701 				getmicrotime(&stime);
   1702 				slp = t;
   1703 			} else {
   1704 				getmicrotime(&now);
   1705 				slp = t - diff(now, stime);
   1706 			}
   1707 		}
   1708 		last_cc = qp->c_cc;
   1709 #undef diff
   1710 		if (slp > 0) {
   1711 			/*
   1712 			 * Convert deca-ticks back to ticks.
   1713 			 * Rounding down may make us wake up just short
   1714 			 * of the target, so we round up.
   1715 			 * Maybe we should do 'slp/10 + 1' because the
   1716 			 * first tick maybe almost immediate.
   1717 			 * However it is more useful for a program that sets
   1718 			 * VTIME=10 to wakeup every second not every 1.01
   1719 			 * seconds (if hz=100).
   1720 			 */
   1721 			slp = (slp + 9)/ 10;
   1722 			goto sleep;
   1723 		}
   1724 	} else if ((qp = &tp->t_canq)->c_cc <= 0) {
   1725 		int	carrier;
   1726 
   1727  sleep:
   1728 		/*
   1729 		 * If there is no input, sleep on rawq
   1730 		 * awaiting hardware receipt and notification.
   1731 		 * If we have data, we don't need to check for carrier.
   1732 		 */
   1733 		carrier = CONNECTED(tp);
   1734 		if (!carrier && ISSET(tp->t_state, TS_ISOPEN)) {
   1735 			mutex_spin_exit(&tty_lock);
   1736 			return (0);	/* EOF */
   1737 		}
   1738 		if (flag & IO_NDELAY) {
   1739 			mutex_spin_exit(&tty_lock);
   1740 			return (EWOULDBLOCK);
   1741 		}
   1742 		error = ttysleep(tp, &tp->t_rawq.c_cv, true, slp);
   1743 		mutex_spin_exit(&tty_lock);
   1744 		/* VMIN == 0: any quantity read satisfies */
   1745 		if (cc[VMIN] == 0 && error == EWOULDBLOCK)
   1746 			return (0);
   1747 		if (error && error != EWOULDBLOCK)
   1748 			return (error);
   1749 		goto loop;
   1750 	}
   1751  read:
   1752 	mutex_spin_exit(&tty_lock);
   1753 
   1754 	/*
   1755 	 * Input present, check for input mapping and processing.
   1756 	 */
   1757 	first = 1;
   1758 	while ((c = getc(qp)) >= 0) {
   1759 		/*
   1760 		 * delayed suspend (^Y)
   1761 		 */
   1762 		if (CCEQ(cc[VDSUSP], c) &&
   1763 		    ISSET(lflag, IEXTEN|ISIG) == (IEXTEN|ISIG)) {
   1764 			mutex_spin_enter(&tty_lock);
   1765 			ttysig(tp, TTYSIG_PG1, SIGTSTP);
   1766 			if (first) {
   1767 				error = ttysleep(tp, &lbolt, true, 0);
   1768 				mutex_spin_exit(&tty_lock);
   1769 				if (error)
   1770 					break;
   1771 				goto loop;
   1772 			} else
   1773 				mutex_spin_exit(&tty_lock);
   1774 			break;
   1775 		}
   1776 		/*
   1777 		 * Interpret EOF only in canonical mode.
   1778 		 */
   1779 		if (CCEQ(cc[VEOF], c) && ISSET(lflag, ICANON))
   1780 			break;
   1781 		/*
   1782 		 * Give user character.
   1783 		 */
   1784  		error = ureadc(c, uio);
   1785 		if (error)
   1786 			break;
   1787  		if (uio->uio_resid == 0)
   1788 			break;
   1789 		/*
   1790 		 * In canonical mode check for a "break character"
   1791 		 * marking the end of a "line of input".
   1792 		 */
   1793 		if (ISSET(lflag, ICANON) && TTBREAKC(c, lflag))
   1794 			break;
   1795 		first = 0;
   1796 	}
   1797 	/*
   1798 	 * Look to unblock output now that (presumably)
   1799 	 * the input queue has gone down.
   1800 	 */
   1801 	mutex_spin_enter(&tty_lock);
   1802 	if (ISSET(tp->t_state, TS_TBLOCK) && tp->t_rawq.c_cc < TTYHOG / 5) {
   1803 		if (ISSET(tp->t_iflag, IXOFF) &&
   1804 		    cc[VSTART] != _POSIX_VDISABLE &&
   1805 		    putc(cc[VSTART], &tp->t_outq) == 0) {
   1806 			CLR(tp->t_state, TS_TBLOCK);
   1807 			ttstart(tp);
   1808 		}
   1809 		/* Try to unblock remote output via hardware flow control. */
   1810 		if (ISSET(tp->t_cflag, CHWFLOW) && tp->t_hwiflow &&
   1811 		    (*tp->t_hwiflow)(tp, 0) != 0)
   1812 			CLR(tp->t_state, TS_TBLOCK);
   1813 	}
   1814 	mutex_spin_exit(&tty_lock);
   1815 
   1816 	return (error);
   1817 }
   1818 
   1819 /*
   1820  * Check the output queue on tp for space for a kernel message (from uprintf
   1821  * or tprintf).  Allow some space over the normal hiwater mark so we don't
   1822  * lose messages due to normal flow control, but don't let the tty run amok.
   1823  * Sleeps here are not interruptible, but we return prematurely if new signals
   1824  * arrive.
   1825  * Call with tty lock held.
   1826  */
   1827 static int
   1828 ttycheckoutq_wlock(struct tty *tp, int wait)
   1829 {
   1830 	int	hiwat, error;
   1831 
   1832 	KASSERT(mutex_owned(&tty_lock));
   1833 
   1834 	hiwat = tp->t_hiwat;
   1835 	if (tp->t_outq.c_cc > hiwat + 200)
   1836 		while (tp->t_outq.c_cc > hiwat) {
   1837 			ttstart(tp);
   1838 			if (wait == 0)
   1839 				return (0);
   1840 			error = ttysleep(tp, &tp->t_outq.c_cv, true, hz);
   1841 			if (error == EINTR)
   1842 				wait = 0;
   1843 		}
   1844 
   1845 	return (1);
   1846 }
   1847 
   1848 int
   1849 ttycheckoutq(struct tty *tp, int wait)
   1850 {
   1851 	int	r;
   1852 
   1853 	mutex_spin_enter(&tty_lock);
   1854 	r = ttycheckoutq_wlock(tp, wait);
   1855 	mutex_spin_exit(&tty_lock);
   1856 
   1857 	return (r);
   1858 }
   1859 
   1860 /*
   1861  * Process a write call on a tty device.
   1862  */
   1863 int
   1864 ttwrite(struct tty *tp, struct uio *uio, int flag)
   1865 {
   1866 	u_char		*cp;
   1867 	struct proc	*p;
   1868 	int		cc, ce, i, hiwat, error;
   1869 	size_t		cnt;
   1870 	u_char		obuf[OBUFSIZ];
   1871 
   1872 	cp = NULL;
   1873 	hiwat = tp->t_hiwat;
   1874 	cnt = uio->uio_resid;
   1875 	error = 0;
   1876 	cc = 0;
   1877  loop:
   1878 	mutex_spin_enter(&tty_lock);
   1879 	if (!CONNECTED(tp)) {
   1880 		if (ISSET(tp->t_state, TS_ISOPEN)) {
   1881 			mutex_spin_exit(&tty_lock);
   1882 			return (EIO);
   1883 		} else if (flag & IO_NDELAY) {
   1884 			mutex_spin_exit(&tty_lock);
   1885 			error = EWOULDBLOCK;
   1886 			goto out;
   1887 		} else {
   1888 			/* Sleep awaiting carrier. */
   1889 			error = ttysleep(tp, &tp->t_rawq.c_cv, true, 0);
   1890 			mutex_spin_exit(&tty_lock);
   1891 			if (error)
   1892 				goto out;
   1893 			goto loop;
   1894 		}
   1895 	}
   1896 	/*
   1897 	 * Hang the process if it's in the background.
   1898 	 */
   1899 	p = curproc;
   1900 	if (isbackground(p, tp) &&
   1901 	    ISSET(tp->t_lflag, TOSTOP) && (p->p_sflag & PS_PPWAIT) == 0 &&
   1902 	    !sigismember(&p->p_sigctx.ps_sigignore, SIGTTOU) &&
   1903 	    !sigismember(&curlwp->l_sigmask, SIGTTOU)) {
   1904 		if (p->p_pgrp->pg_jobc == 0) {
   1905 			error = EIO;
   1906 			mutex_spin_exit(&tty_lock);
   1907 			goto out;
   1908 		}
   1909 		ttysig(tp, TTYSIG_PG1, SIGTTOU);
   1910 		error = ttysleep(tp, &lbolt, true, 0);
   1911 		mutex_spin_exit(&tty_lock);
   1912 		if (error)
   1913 			goto out;
   1914 		goto loop;
   1915 	}
   1916 	mutex_spin_exit(&tty_lock);
   1917 
   1918 	/*
   1919 	 * Process the user's data in at most OBUFSIZ chunks.  Perform any
   1920 	 * output translation.  Keep track of high water mark, sleep on
   1921 	 * overflow awaiting device aid in acquiring new space.
   1922 	 */
   1923 	while (uio->uio_resid > 0 || cc > 0) {
   1924 		if (ISSET(tp->t_lflag, FLUSHO)) {
   1925 			uio->uio_resid = 0;
   1926 			return (0);
   1927 		}
   1928 		if (tp->t_outq.c_cc > hiwat)
   1929 			goto ovhiwat;
   1930 		/*
   1931 		 * Grab a hunk of data from the user, unless we have some
   1932 		 * leftover from last time.
   1933 		 */
   1934 		if (cc == 0) {
   1935 			cc = min(uio->uio_resid, OBUFSIZ);
   1936 			cp = obuf;
   1937 			error = uiomove(cp, cc, uio);
   1938 			if (error) {
   1939 				cc = 0;
   1940 				goto out;
   1941 			}
   1942 		}
   1943 		/*
   1944 		 * If nothing fancy need be done, grab those characters we
   1945 		 * can handle without any of ttyoutput's processing and
   1946 		 * just transfer them to the output q.  For those chars
   1947 		 * which require special processing (as indicated by the
   1948 		 * bits in char_type), call ttyoutput.  After processing
   1949 		 * a hunk of data, look for FLUSHO so ^O's will take effect
   1950 		 * immediately.
   1951 		 */
   1952 		mutex_spin_enter(&tty_lock);
   1953 		while (cc > 0) {
   1954 			if (!ISSET(tp->t_oflag, OPOST))
   1955 				ce = cc;
   1956 			else {
   1957 				ce = cc - scanc((u_int)cc, cp, char_type,
   1958 				    CCLASSMASK);
   1959 				/*
   1960 				 * If ce is zero, then we're processing
   1961 				 * a special character through ttyoutput.
   1962 				 */
   1963 				if (ce == 0) {
   1964 					tp->t_rocount = 0;
   1965 					if (ttyoutput(*cp, tp) >= 0) {
   1966 						/* out of space */
   1967 						mutex_spin_exit(&tty_lock);
   1968 						goto overfull;
   1969 					}
   1970 					cp++;
   1971 					cc--;
   1972 					if (ISSET(tp->t_lflag, FLUSHO) ||
   1973 					    tp->t_outq.c_cc > hiwat) {
   1974 						mutex_spin_exit(&tty_lock);
   1975 						goto ovhiwat;
   1976 					}
   1977 					continue;
   1978 				}
   1979 			}
   1980 			/*
   1981 			 * A bunch of normal characters have been found.
   1982 			 * Transfer them en masse to the output queue and
   1983 			 * continue processing at the top of the loop.
   1984 			 * If there are any further characters in this
   1985 			 * <= OBUFSIZ chunk, the first should be a character
   1986 			 * requiring special handling by ttyoutput.
   1987 			 */
   1988 			tp->t_rocount = 0;
   1989 			i = b_to_q(cp, ce, &tp->t_outq);
   1990 			ce -= i;
   1991 			tp->t_column += ce;
   1992 			cp += ce, cc -= ce, tk_nout += ce;
   1993 			tp->t_outcc += ce;
   1994 			if (i > 0) {
   1995 				/* out of space */
   1996 				mutex_spin_exit(&tty_lock);
   1997 				goto overfull;
   1998 			}
   1999 			if (ISSET(tp->t_lflag, FLUSHO) ||
   2000 			    tp->t_outq.c_cc > hiwat)
   2001 				break;
   2002 		}
   2003 		ttstart(tp);
   2004 		mutex_spin_exit(&tty_lock);
   2005 	}
   2006 
   2007  out:
   2008 	/*
   2009 	 * If cc is nonzero, we leave the uio structure inconsistent, as the
   2010 	 * offset and iov pointers have moved forward, but it doesn't matter
   2011 	 * (the call will either return short or restart with a new uio).
   2012 	 */
   2013 	uio->uio_resid += cc;
   2014 	return (error);
   2015 
   2016  overfull:
   2017 	/*
   2018 	 * Since we are using ring buffers, if we can't insert any more into
   2019 	 * the output queue, we can assume the ring is full and that someone
   2020 	 * forgot to set the high water mark correctly.  We set it and then
   2021 	 * proceed as normal.
   2022 	 */
   2023 	hiwat = tp->t_outq.c_cc - 1;
   2024 
   2025  ovhiwat:
   2026 	mutex_spin_enter(&tty_lock);
   2027 	ttstart(tp);
   2028 	/*
   2029 	 * This can only occur if FLUSHO is set in t_lflag,
   2030 	 * or if ttstart/oproc is synchronous (or very fast).
   2031 	 */
   2032 	if (tp->t_outq.c_cc <= hiwat) {
   2033 		mutex_spin_exit(&tty_lock);
   2034 		goto loop;
   2035 	}
   2036 	if (flag & IO_NDELAY) {
   2037 		mutex_spin_exit(&tty_lock);
   2038 		error = EWOULDBLOCK;
   2039 		goto out;
   2040 	}
   2041 	error = ttysleep(tp, &tp->t_outq.c_cv, true, 0);
   2042 	mutex_spin_exit(&tty_lock);
   2043 	if (error)
   2044 		goto out;
   2045 	goto loop;
   2046 }
   2047 
   2048 /*
   2049  * Try to pull more output from the producer.  Return non-zero if
   2050  * there is output ready to be sent.
   2051  */
   2052 bool
   2053 ttypull(struct tty *tp)
   2054 {
   2055 
   2056 	/* XXXSMP not yet KASSERT(mutex_owned(&tty_lock)); */
   2057 
   2058 	if (tp->t_outq.c_cc <= tp->t_lowat) {
   2059 		clwakeup(&tp->t_outq);
   2060 		selnotify(&tp->t_wsel, NOTE_SUBMIT);
   2061 	}
   2062 	return tp->t_outq.c_cc != 0;
   2063 }
   2064 
   2065 /*
   2066  * Rubout one character from the rawq of tp
   2067  * as cleanly as possible.
   2068  * Called with tty lock held.
   2069  */
   2070 void
   2071 ttyrub(int c, struct tty *tp)
   2072 {
   2073 	u_char	*cp;
   2074 	int	savecol, tabc;
   2075 
   2076 	KASSERT(mutex_owned(&tty_lock));
   2077 
   2078 	if (!ISSET(tp->t_lflag, ECHO) || ISSET(tp->t_lflag, EXTPROC))
   2079 		return;
   2080 	CLR(tp->t_lflag, FLUSHO);
   2081 	if (ISSET(tp->t_lflag, ECHOE)) {
   2082 		if (tp->t_rocount == 0) {
   2083 			/*
   2084 			 * Screwed by ttwrite; retype
   2085 			 */
   2086 			ttyretype(tp);
   2087 			return;
   2088 		}
   2089 		if (c == ('\t' | TTY_QUOTE) || c == ('\n' | TTY_QUOTE))
   2090 			ttyrubo(tp, 2);
   2091 		else {
   2092 			CLR(c, ~TTY_CHARMASK);
   2093 			switch (CCLASS(c)) {
   2094 			case ORDINARY:
   2095 				ttyrubo(tp, 1);
   2096 				break;
   2097 			case BACKSPACE:
   2098 			case CONTROL:
   2099 			case NEWLINE:
   2100 			case RETURN:
   2101 			case VTAB:
   2102 				if (ISSET(tp->t_lflag, ECHOCTL))
   2103 					ttyrubo(tp, 2);
   2104 				break;
   2105 			case TAB:
   2106 				if (tp->t_rocount < tp->t_rawq.c_cc) {
   2107 					ttyretype(tp);
   2108 					return;
   2109 				}
   2110 				savecol = tp->t_column;
   2111 				SET(tp->t_state, TS_CNTTB);
   2112 				SET(tp->t_lflag, FLUSHO);
   2113 				tp->t_column = tp->t_rocol;
   2114 				for (cp = firstc(&tp->t_rawq, &tabc); cp;
   2115 				    cp = nextc(&tp->t_rawq, cp, &tabc))
   2116 					ttyecho(tabc, tp);
   2117 				CLR(tp->t_lflag, FLUSHO);
   2118 				CLR(tp->t_state, TS_CNTTB);
   2119 
   2120 				/* savecol will now be length of the tab. */
   2121 				savecol -= tp->t_column;
   2122 				tp->t_column += savecol;
   2123 				if (savecol > 8)
   2124 					savecol = 8;	/* overflow screw */
   2125 				while (--savecol >= 0)
   2126 					(void)ttyoutput('\b', tp);
   2127 				break;
   2128 			default:			/* XXX */
   2129 				(void)printf("ttyrub: would panic c = %d, "
   2130 				    "val = %d\n", c, CCLASS(c));
   2131 			}
   2132 		}
   2133 	} else if (ISSET(tp->t_lflag, ECHOPRT)) {
   2134 		if (!ISSET(tp->t_state, TS_ERASE)) {
   2135 			SET(tp->t_state, TS_ERASE);
   2136 			(void)ttyoutput('\\', tp);
   2137 		}
   2138 		ttyecho(c, tp);
   2139 	} else
   2140 		ttyecho(tp->t_cc[VERASE], tp);
   2141 	--tp->t_rocount;
   2142 }
   2143 
   2144 /*
   2145  * Back over cnt characters, erasing them.
   2146  * Called with tty lock held.
   2147  */
   2148 static void
   2149 ttyrubo(struct tty *tp, int cnt)
   2150 {
   2151 
   2152 	KASSERT(mutex_owned(&tty_lock));
   2153 
   2154 	while (cnt-- > 0) {
   2155 		(void)ttyoutput('\b', tp);
   2156 		(void)ttyoutput(' ', tp);
   2157 		(void)ttyoutput('\b', tp);
   2158 	}
   2159 }
   2160 
   2161 /*
   2162  * ttyretype --
   2163  *	Reprint the rawq line.  Note, it is assumed that c_cc has already
   2164  *	been checked.
   2165  *
   2166  * Called with tty lock held.
   2167  */
   2168 void
   2169 ttyretype(struct tty *tp)
   2170 {
   2171 	u_char	*cp;
   2172 	int	c;
   2173 
   2174 	KASSERT(mutex_owned(&tty_lock));
   2175 
   2176 	/* Echo the reprint character. */
   2177 	if (tp->t_cc[VREPRINT] != _POSIX_VDISABLE)
   2178 		ttyecho(tp->t_cc[VREPRINT], tp);
   2179 
   2180 	(void)ttyoutput('\n', tp);
   2181 
   2182 	for (cp = firstc(&tp->t_canq, &c); cp; cp = nextc(&tp->t_canq, cp, &c))
   2183 		ttyecho(c, tp);
   2184 	for (cp = firstc(&tp->t_rawq, &c); cp; cp = nextc(&tp->t_rawq, cp, &c))
   2185 		ttyecho(c, tp);
   2186 	CLR(tp->t_state, TS_ERASE);
   2187 
   2188 	tp->t_rocount = tp->t_rawq.c_cc;
   2189 	tp->t_rocol = 0;
   2190 }
   2191 
   2192 /*
   2193  * Echo a typed character to the terminal.
   2194  * Called with tty lock held.
   2195  */
   2196 static void
   2197 ttyecho(int c, struct tty *tp)
   2198 {
   2199 
   2200 	KASSERT(mutex_owned(&tty_lock));
   2201 
   2202 	if (!ISSET(tp->t_state, TS_CNTTB))
   2203 		CLR(tp->t_lflag, FLUSHO);
   2204 	if ((!ISSET(tp->t_lflag, ECHO) &&
   2205 	    (!ISSET(tp->t_lflag, ECHONL) || c != '\n')) ||
   2206 	    ISSET(tp->t_lflag, EXTPROC))
   2207 		return;
   2208 	if (((ISSET(tp->t_lflag, ECHOCTL) &&
   2209 	    (ISSET(c, TTY_CHARMASK) <= 037 && c != '\t' && c != '\n')) ||
   2210 	    ISSET(c, TTY_CHARMASK) == 0177)) {
   2211 		(void)ttyoutput('^', tp);
   2212 		CLR(c, ~TTY_CHARMASK);
   2213 		if (c == 0177)
   2214 			c = '?';
   2215 		else
   2216 			c += 'A' - 1;
   2217 	}
   2218 	(void)ttyoutput(c, tp);
   2219 }
   2220 
   2221 /*
   2222  * Wake up any readers on a tty.
   2223  * Called with tty lock held.
   2224  */
   2225 void
   2226 ttwakeup(struct tty *tp)
   2227 {
   2228 
   2229 	KASSERT(mutex_owned(&tty_lock));
   2230 
   2231 	selnotify(&tp->t_rsel, NOTE_SUBMIT);
   2232 	if (ISSET(tp->t_state, TS_ASYNC))
   2233 		ttysig(tp, TTYSIG_PG2, SIGIO);
   2234 #if 0
   2235 	/* XXX tp->t_rawq.c_cv.cv_waiters dropping to zero early!? */
   2236 	clwakeup(&tp->t_rawq);
   2237 #else
   2238 	cv_wakeup(&tp->t_rawq.c_cv);
   2239 #endif
   2240 }
   2241 
   2242 /*
   2243  * Look up a code for a specified speed in a conversion table;
   2244  * used by drivers to map software speed values to hardware parameters.
   2245  */
   2246 int
   2247 ttspeedtab(int speed, const struct speedtab *table)
   2248 {
   2249 
   2250 	for (; table->sp_speed != -1; table++)
   2251 		if (table->sp_speed == speed)
   2252 			return (table->sp_code);
   2253 	return (-1);
   2254 }
   2255 
   2256 /*
   2257  * Set tty hi and low water marks.
   2258  *
   2259  * Try to arrange the dynamics so there's about one second
   2260  * from hi to low water.
   2261  */
   2262 void
   2263 ttsetwater(struct tty *tp)
   2264 {
   2265 	int	cps, x;
   2266 
   2267 	/* XXX not yet KASSERT(mutex_owned(&tty_lock)); */
   2268 
   2269 #define	CLAMP(x, h, l)	((x) > h ? h : ((x) < l) ? l : (x))
   2270 
   2271 	cps = tp->t_ospeed / 10;
   2272 	tp->t_lowat = x = CLAMP(cps / 2, TTMAXLOWAT, TTMINLOWAT);
   2273 	x += cps;
   2274 	x = CLAMP(x, TTMAXHIWAT, TTMINHIWAT);
   2275 	tp->t_hiwat = roundup(x, CBSIZE);
   2276 #undef	CLAMP
   2277 }
   2278 
   2279 /*
   2280  * Report on state of foreground process group.
   2281  * Call with tty lock held.
   2282  */
   2283 void
   2284 ttyinfo(struct tty *tp, int fromsig)
   2285 {
   2286 	struct lwp	*l;
   2287 	struct proc	*p, *pick = NULL;
   2288 	struct timeval	utime, stime;
   2289 	int		tmp;
   2290 	fixpt_t		pctcpu = 0;
   2291 	const char	*msg;
   2292 
   2293 	if (ttycheckoutq_wlock(tp, 0) == 0)
   2294 		return;
   2295 
   2296 	if (tp->t_session == NULL)
   2297 		msg = "not a controlling terminal\n";
   2298 	else if (tp->t_pgrp == NULL)
   2299 		msg = "no foreground process group\n";
   2300 	else if ((p = LIST_FIRST(&tp->t_pgrp->pg_members)) == NULL)
   2301 		msg = "empty foreground process group\n";
   2302 	else {
   2303 		/* Pick interesting process. */
   2304 		for (; p != NULL; p = LIST_NEXT(p, p_pglist))
   2305 			if (proc_compare(pick, p))
   2306 				pick = p;
   2307 		if (fromsig &&
   2308 		    (SIGACTION_PS(pick->p_sigacts, SIGINFO).sa_flags &
   2309 		    SA_NOKERNINFO))
   2310 			return;
   2311 		msg = NULL;
   2312 	}
   2313 
   2314 	/* Print load average. */
   2315 	tmp = (averunnable.ldavg[0] * 100 + FSCALE / 2) >> FSHIFT;
   2316 	ttyprintf_nolock(tp, "load: %d.%02d ", tmp / 100, tmp % 100);
   2317 
   2318 	if (pick == NULL) {
   2319 		ttyprintf_nolock(tp, msg);
   2320 		tp->t_rocount = 0; /* so pending input will be retyped if BS */
   2321 		return;
   2322 	}
   2323 
   2324 	ttyprintf_nolock(tp, " cmd: %s %d [", pick->p_comm, pick->p_pid);
   2325 	LIST_FOREACH(l, &pick->p_lwps, l_sibling) {
   2326 	    ttyprintf_nolock(tp, "%s%s",
   2327 	    l->l_stat == LSONPROC ? "running" :
   2328 	    l->l_stat == LSRUN ? "runnable" :
   2329 	    l->l_wmesg ? l->l_wmesg : "iowait",
   2330 		(LIST_NEXT(l, l_sibling) != NULL) ? " " : "] ");
   2331 	    pctcpu += l->l_pctcpu;
   2332 	}
   2333 	pctcpu += pick->p_pctcpu;
   2334 
   2335 	/* XXXXSMP order tty_lock -> p_smutex is bad */
   2336 	mutex_enter(&pick->p_smutex);
   2337 	calcru(pick, &utime, &stime, NULL, NULL);
   2338 	mutex_exit(&pick->p_smutex);
   2339 
   2340 	/* Round up and print user time. */
   2341 	utime.tv_usec += 5000;
   2342 	if (utime.tv_usec >= 1000000) {
   2343 		utime.tv_sec += 1;
   2344 		utime.tv_usec -= 1000000;
   2345 	}
   2346 	ttyprintf_nolock(tp, "%ld.%02ldu ", (long int)utime.tv_sec,
   2347 	    (long int)utime.tv_usec / 10000);
   2348 
   2349 	/* Round up and print system time. */
   2350 	stime.tv_usec += 5000;
   2351 	if (stime.tv_usec >= 1000000) {
   2352 		stime.tv_sec += 1;
   2353 		stime.tv_usec -= 1000000;
   2354 	}
   2355 	ttyprintf_nolock(tp, "%ld.%02lds ", (long int)stime.tv_sec,
   2356 	    (long int)stime.tv_usec / 10000);
   2357 
   2358 #define	pgtok(a)	(((u_long) ((a) * PAGE_SIZE) / 1024))
   2359 	/* Print percentage CPU. */
   2360 	tmp = (pctcpu * 10000 + FSCALE / 2) >> FSHIFT;
   2361 	ttyprintf_nolock(tp, "%d%% ", tmp / 100);
   2362 
   2363 	/* Print resident set size. */
   2364 	if (pick->p_stat == SIDL || P_ZOMBIE(pick))
   2365 		tmp = 0;
   2366 	else {
   2367 		struct vmspace *vm = pick->p_vmspace;
   2368 		tmp = pgtok(vm_resident_count(vm));
   2369 	}
   2370 	ttyprintf_nolock(tp, "%dk\n", tmp);
   2371 	tp->t_rocount = 0;	/* so pending input will be retyped if BS */
   2372 }
   2373 
   2374 /*
   2375  * Returns 1 if p2 is "better" than p1
   2376  *
   2377  * The algorithm for picking the "interesting" process is thus:
   2378  *
   2379  *	1) Only foreground processes are eligible - implied.
   2380  *	2) Runnable processes are favored over anything else.  The runner
   2381  *	   with the highest CPU utilization is picked (l_pctcpu).  Ties are
   2382  *	   broken by picking the highest pid.
   2383  *	3) The sleeper with the shortest sleep time is next.  With ties,
   2384  *	   we pick out just "short-term" sleepers (P_SINTR == 0).
   2385  *	4) Further ties are broken by picking the highest pid.
   2386  *
   2387  * XXXSMP
   2388  */
   2389 #define	ISRUN(p)	((p)->p_nrlwps > 0)
   2390 #define	TESTAB(a, b)	((a)<<1 | (b))
   2391 #define	ONLYA	2
   2392 #define	ONLYB	1
   2393 #define	BOTH	3
   2394 
   2395 static int
   2396 proc_compare(struct proc *p1, struct proc *p2)
   2397 {
   2398 	lwp_t *l1, *l2;
   2399 
   2400 	if (p1 == NULL)
   2401 		return (1);
   2402 	/*
   2403 	 * see if at least one of them is runnable
   2404 	 */
   2405 	switch (TESTAB(ISRUN(p1), ISRUN(p2))) {
   2406 	case ONLYA:
   2407 		return (0);
   2408 	case ONLYB:
   2409 		return (1);
   2410 	case BOTH:
   2411 		/*
   2412 		 * tie - favor one with highest recent CPU utilization
   2413 		 */
   2414 		l1 = LIST_FIRST(&p1->p_lwps);
   2415 		l2 = LIST_FIRST(&p2->p_lwps);
   2416 		if (l2->l_pctcpu > l1->l_pctcpu)
   2417 			return (1);
   2418 		return (p2->p_pid > p1->p_pid);	/* tie - return highest pid */
   2419 	}
   2420 	/*
   2421  	 * weed out zombies
   2422 	 */
   2423 	switch (TESTAB(P_ZOMBIE(p1), P_ZOMBIE(p2))) {
   2424 	case ONLYA:
   2425 		return (1);
   2426 	case ONLYB:
   2427 		return (0);
   2428 	case BOTH:
   2429 		return (p2->p_pid > p1->p_pid);	/* tie - return highest pid */
   2430 	}
   2431 #if 0 /* XXX NJWLWP */
   2432 	/*
   2433 	 * pick the one with the smallest sleep time
   2434 	 */
   2435 	if (p2->p_slptime > p1->p_slptime)
   2436 		return (0);
   2437 	if (p1->p_slptime > p2->p_slptime)
   2438 		return (1);
   2439 	/*
   2440 	 * favor one sleeping in a non-interruptible sleep
   2441 	 */
   2442 	if (p1->p_flag & P_SINTR && (p2->p_flag & P_SINTR) == 0)
   2443 		return (1);
   2444 	if (p2->p_flag & P_SINTR && (p1->p_flag & P_SINTR) == 0)
   2445 		return (0);
   2446 #endif
   2447 	return (p2->p_pid > p1->p_pid);		/* tie - return highest pid */
   2448 }
   2449 
   2450 /*
   2451  * Output char to tty; console putchar style.
   2452  * Can be called with tty lock held through kprintf() machinery..
   2453  */
   2454 int
   2455 tputchar(int c, int flags, struct tty *tp)
   2456 {
   2457 	int r = 0;
   2458 
   2459 	if ((flags & NOLOCK) == 0)
   2460 		mutex_spin_enter(&tty_lock);
   2461 	if (!CONNECTED(tp)) {
   2462 		r = -1;
   2463 		goto out;
   2464 	}
   2465 	if (c == '\n')
   2466 		(void)ttyoutput('\r', tp);
   2467 	(void)ttyoutput(c, tp);
   2468 	ttstart(tp);
   2469 out:
   2470 	if ((flags & NOLOCK) == 0)
   2471 		mutex_spin_exit(&tty_lock);
   2472 	return (r);
   2473 }
   2474 
   2475 /*
   2476  * Sleep on chan, returning ERESTART if tty changed while we napped and
   2477  * returning any errors (e.g. EINTR/ETIMEDOUT) reported by tsleep.  If
   2478  * the tty is revoked, restarting a pending call will redo validation done
   2479  * at the start of the call.
   2480  *
   2481  * Must be called with the tty lock held.
   2482  */
   2483 int
   2484 ttysleep(struct tty *tp, kcondvar_t *cv, bool catch, int timo)
   2485 {
   2486 	int	error;
   2487 	short	gen;
   2488 
   2489 	KASSERT(mutex_owned(&tty_lock));
   2490 
   2491 	gen = tp->t_gen;
   2492 	if (catch)
   2493 		error = cv_timedwait_sig(cv, &tty_lock, timo);
   2494 	else
   2495 		error = cv_timedwait(cv, &tty_lock, timo);
   2496 	if (error != 0)
   2497 		return (error);
   2498 	return (tp->t_gen == gen ? 0 : ERESTART);
   2499 }
   2500 
   2501 /*
   2502  * Attach a tty to the tty list.
   2503  *
   2504  * This should be called ONLY once per real tty (including pty's).
   2505  * eg, on the sparc, the keyboard and mouse have struct tty's that are
   2506  * distinctly NOT usable as tty's, and thus should not be attached to
   2507  * the ttylist.  This is why this call is not done from ttymalloc().
   2508  *
   2509  * Device drivers should attach tty's at a similar time that they are
   2510  * ttymalloc()'ed, or, for the case of statically allocated struct tty's
   2511  * either in the attach or (first) open routine.
   2512  */
   2513 void
   2514 tty_attach(struct tty *tp)
   2515 {
   2516 
   2517 	mutex_spin_enter(&tty_lock);
   2518 	TAILQ_INSERT_TAIL(&ttylist, tp, tty_link);
   2519 	++tty_count;
   2520 	mutex_spin_exit(&tty_lock);
   2521 }
   2522 
   2523 /*
   2524  * Remove a tty from the tty list.
   2525  */
   2526 void
   2527 tty_detach(struct tty *tp)
   2528 {
   2529 
   2530 	mutex_spin_enter(&tty_lock);
   2531 	--tty_count;
   2532 #ifdef DIAGNOSTIC
   2533 	if (tty_count < 0)
   2534 		panic("tty_detach: tty_count < 0");
   2535 #endif
   2536 	TAILQ_REMOVE(&ttylist, tp, tty_link);
   2537 	mutex_spin_exit(&tty_lock);
   2538 }
   2539 
   2540 /*
   2541  * Allocate a tty structure and its associated buffers.
   2542  */
   2543 struct tty *
   2544 ttymalloc(void)
   2545 {
   2546 	struct tty	*tp;
   2547 	int i;
   2548 
   2549 	tp = pool_get(&tty_pool, PR_WAITOK);
   2550 	memset(tp, 0, sizeof(*tp));
   2551 	callout_init(&tp->t_rstrt_ch, 0);
   2552 	callout_setfunc(&tp->t_rstrt_ch, ttrstrt, tp);
   2553 	/* XXX: default to 1024 chars for now */
   2554 	clalloc(&tp->t_rawq, 1024, 1);
   2555 	clalloc(&tp->t_canq, 1024, 1);
   2556 	/* output queue doesn't need quoting */
   2557 	clalloc(&tp->t_outq, 1024, 0);
   2558 	/* Set default line discipline. */
   2559 	tp->t_linesw = ttyldisc_default();
   2560 	selinit(&tp->t_rsel);
   2561 	selinit(&tp->t_wsel);
   2562 	for (i = 0; i < TTYSIG_COUNT; i++)
   2563 		sigemptyset(&tp->t_sigs[i]);
   2564 	return (tp);
   2565 }
   2566 
   2567 /*
   2568  * Free a tty structure and its buffers.
   2569  *
   2570  * Be sure to call tty_detach() for any tty that has been
   2571  * tty_attach()ed.
   2572  */
   2573 void
   2574 ttyfree(struct tty *tp)
   2575 {
   2576 	int i;
   2577 
   2578 	mutex_enter(&tty_lock);
   2579 	for (i = 0; i < TTYSIG_COUNT; i++)
   2580 		sigemptyset(&tp->t_sigs[i]);
   2581 	if (tp->t_sigcount != 0)
   2582 		TAILQ_REMOVE(&tty_sigqueue, tp, t_sigqueue);
   2583 	mutex_exit(&tty_lock);
   2584 
   2585 	callout_stop(&tp->t_rstrt_ch);
   2586 	ttyldisc_release(tp->t_linesw);
   2587 	clfree(&tp->t_rawq);
   2588 	clfree(&tp->t_canq);
   2589 	clfree(&tp->t_outq);
   2590 	callout_destroy(&tp->t_rstrt_ch);
   2591 	seldestroy(&tp->t_rsel);
   2592 	seldestroy(&tp->t_wsel);
   2593 	pool_put(&tty_pool, tp);
   2594 }
   2595 
   2596 /*
   2597  * ttyprintf_nolock: send a message to a specific tty, without locking.
   2598  *
   2599  * => should be used only by tty driver or anything that knows the
   2600  *    underlying tty will not be revoked(2)'d away.  [otherwise,
   2601  *    use tprintf]
   2602  */
   2603 static void
   2604 ttyprintf_nolock(struct tty *tp, const char *fmt, ...)
   2605 {
   2606 	va_list ap;
   2607 
   2608 	/* No mutex needed; going to process TTY. */
   2609 	va_start(ap, fmt);
   2610 	kprintf(fmt, TOTTY|NOLOCK, tp, NULL, ap);
   2611 	va_end(ap);
   2612 }
   2613 
   2614 /*
   2615  * Initialize the tty subsystem.
   2616  */
   2617 void
   2618 tty_init(void)
   2619 {
   2620 
   2621 	mutex_init(&tty_lock, MUTEX_DEFAULT, IPL_VM);
   2622 	tty_sigsih = softint_establish(SOFTINT_CLOCK, ttysigintr, NULL);
   2623 	KASSERT(tty_sigsih != NULL);
   2624 }
   2625 
   2626 /*
   2627  * Send a signal from a tty to its process group or session leader.
   2628  * Handoff to the target is deferred to a soft interrupt.
   2629  */
   2630 void
   2631 ttysig(struct tty *tp, enum ttysigtype st, int sig)
   2632 {
   2633 	sigset_t *sp;
   2634 
   2635 	/* XXXSMP not yet KASSERT(mutex_owned(&tty_lock)); */
   2636 
   2637 	sp = &tp->t_sigs[st];
   2638 	if (sigismember(sp, sig))
   2639 		return;
   2640 	sigaddset(sp, sig);
   2641 	if (tp->t_sigcount++ == 0)
   2642 		TAILQ_INSERT_TAIL(&tty_sigqueue, tp, t_sigqueue);
   2643 	softint_schedule(tty_sigsih);
   2644 }
   2645 
   2646 /*
   2647  * Deliver deferred signals from ttys.  Note that the process groups
   2648  * and sessions associated with the ttys may have changed from when
   2649  * the signal was originally sent, but in practice it should not matter.
   2650  * For signals produced as a result of a syscall, the soft interrupt
   2651  * will fire before the syscall returns to the user.
   2652  */
   2653 static void
   2654 ttysigintr(void *cookie)
   2655 {
   2656 	struct tty *tp;
   2657 	enum ttysigtype st;
   2658 	struct pgrp *pgrp;
   2659 	struct session *sess;
   2660 	int sig;
   2661 
   2662 	mutex_enter(&proclist_lock);
   2663 	for (;;) {
   2664 		mutex_spin_enter(&tty_lock);
   2665 		if ((tp = TAILQ_FIRST(&tty_sigqueue)) == NULL) {
   2666 			mutex_spin_exit(&tty_lock);
   2667 			break;
   2668 		}
   2669 		KASSERT(tp->t_sigcount > 0);
   2670 		for (st = 0; st < TTYSIG_COUNT; st++) {
   2671 			if ((sig = firstsig(&tp->t_sigs[st])) != 0)
   2672 				break;
   2673 		}
   2674 		KASSERT(st < TTYSIG_COUNT);
   2675 		sigdelset(&tp->t_sigs[st], sig);
   2676 		if (--tp->t_sigcount == 0)
   2677 			TAILQ_REMOVE(&tty_sigqueue, tp, t_sigqueue);
   2678 		pgrp = tp->t_pgrp;
   2679 		sess = tp->t_session;
   2680 		mutex_spin_exit(&tty_lock);
   2681 		if (sig == 0)
   2682 			panic("ttysigintr");
   2683 		mutex_enter(&proclist_mutex);
   2684 		switch (st) {
   2685 		case TTYSIG_PG1:
   2686 			if (pgrp != NULL)
   2687 				pgsignal(pgrp, sig, 1);
   2688 			break;
   2689 		case TTYSIG_PG2:
   2690 			if (pgrp != NULL)
   2691 				pgsignal(pgrp, sig, sess != NULL);
   2692 			break;
   2693 		case TTYSIG_LEADER:
   2694 			if (sess != NULL && sess->s_leader != NULL)
   2695 				psignal(sess->s_leader, sig);
   2696 			break;
   2697 		default:
   2698 			/* NOTREACHED */
   2699 			break;
   2700 		}
   2701 		mutex_exit(&proclist_mutex);
   2702 	}
   2703 	mutex_exit(&proclist_lock);
   2704 }
   2705