Home | History | Annotate | Line # | Download | only in kern
tty.c revision 1.206.2.3
      1 /*	$NetBSD: tty.c,v 1.206.2.3 2007/12/26 21:39:46 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.3 2007/12/26 21:39:46 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");
    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 	/*
   1898 	 * Hang the process if it's in the background.
   1899 	 */
   1900 	p = curproc;
   1901 	if (isbackground(p, tp) &&
   1902 	    ISSET(tp->t_lflag, TOSTOP) && (p->p_sflag & PS_PPWAIT) == 0 &&
   1903 	    !sigismember(&p->p_sigctx.ps_sigignore, SIGTTOU) &&
   1904 	    !sigismember(&curlwp->l_sigmask, SIGTTOU)) {
   1905 		if (p->p_pgrp->pg_jobc == 0) {
   1906 			error = EIO;
   1907 			mutex_spin_exit(&tty_lock);
   1908 			goto out;
   1909 		}
   1910 		ttysig(tp, TTYSIG_PG1, SIGTTOU);
   1911 		error = ttysleep(tp, &lbolt, true, 0);
   1912 		mutex_spin_exit(&tty_lock);
   1913 		if (error)
   1914 			goto out;
   1915 		goto loop;
   1916 	}
   1917 	mutex_spin_exit(&tty_lock);
   1918 
   1919 	/*
   1920 	 * Process the user's data in at most OBUFSIZ chunks.  Perform any
   1921 	 * output translation.  Keep track of high water mark, sleep on
   1922 	 * overflow awaiting device aid in acquiring new space.
   1923 	 */
   1924 	while (uio->uio_resid > 0 || cc > 0) {
   1925 		if (ISSET(tp->t_lflag, FLUSHO)) {
   1926 			uio->uio_resid = 0;
   1927 			return (0);
   1928 		}
   1929 		if (tp->t_outq.c_cc > hiwat)
   1930 			goto ovhiwat;
   1931 		/*
   1932 		 * Grab a hunk of data from the user, unless we have some
   1933 		 * leftover from last time.
   1934 		 */
   1935 		if (cc == 0) {
   1936 			cc = min(uio->uio_resid, OBUFSIZ);
   1937 			cp = obuf;
   1938 			error = uiomove(cp, cc, uio);
   1939 			if (error) {
   1940 				cc = 0;
   1941 				goto out;
   1942 			}
   1943 		}
   1944 		/*
   1945 		 * If nothing fancy need be done, grab those characters we
   1946 		 * can handle without any of ttyoutput's processing and
   1947 		 * just transfer them to the output q.  For those chars
   1948 		 * which require special processing (as indicated by the
   1949 		 * bits in char_type), call ttyoutput.  After processing
   1950 		 * a hunk of data, look for FLUSHO so ^O's will take effect
   1951 		 * immediately.
   1952 		 */
   1953 		mutex_spin_enter(&tty_lock);
   1954 		while (cc > 0) {
   1955 			if (!ISSET(tp->t_oflag, OPOST))
   1956 				ce = cc;
   1957 			else {
   1958 				ce = cc - scanc((u_int)cc, cp, char_type,
   1959 				    CCLASSMASK);
   1960 				/*
   1961 				 * If ce is zero, then we're processing
   1962 				 * a special character through ttyoutput.
   1963 				 */
   1964 				if (ce == 0) {
   1965 					tp->t_rocount = 0;
   1966 					if (ttyoutput(*cp, tp) >= 0) {
   1967 						/* out of space */
   1968 						mutex_spin_exit(&tty_lock);
   1969 						goto overfull;
   1970 					}
   1971 					cp++;
   1972 					cc--;
   1973 					if (ISSET(tp->t_lflag, FLUSHO) ||
   1974 					    tp->t_outq.c_cc > hiwat) {
   1975 						mutex_spin_exit(&tty_lock);
   1976 						goto ovhiwat;
   1977 					}
   1978 					continue;
   1979 				}
   1980 			}
   1981 			/*
   1982 			 * A bunch of normal characters have been found.
   1983 			 * Transfer them en masse to the output queue and
   1984 			 * continue processing at the top of the loop.
   1985 			 * If there are any further characters in this
   1986 			 * <= OBUFSIZ chunk, the first should be a character
   1987 			 * requiring special handling by ttyoutput.
   1988 			 */
   1989 			tp->t_rocount = 0;
   1990 			i = b_to_q(cp, ce, &tp->t_outq);
   1991 			ce -= i;
   1992 			tp->t_column += ce;
   1993 			cp += ce, cc -= ce, tk_nout += ce;
   1994 			tp->t_outcc += ce;
   1995 			if (i > 0) {
   1996 				/* out of space */
   1997 				mutex_spin_exit(&tty_lock);
   1998 				goto overfull;
   1999 			}
   2000 			if (ISSET(tp->t_lflag, FLUSHO) ||
   2001 			    tp->t_outq.c_cc > hiwat)
   2002 				break;
   2003 		}
   2004 		ttstart(tp);
   2005 		mutex_spin_exit(&tty_lock);
   2006 	}
   2007 
   2008  out:
   2009 	/*
   2010 	 * If cc is nonzero, we leave the uio structure inconsistent, as the
   2011 	 * offset and iov pointers have moved forward, but it doesn't matter
   2012 	 * (the call will either return short or restart with a new uio).
   2013 	 */
   2014 	uio->uio_resid += cc;
   2015 	return (error);
   2016 
   2017  overfull:
   2018 	/*
   2019 	 * Since we are using ring buffers, if we can't insert any more into
   2020 	 * the output queue, we can assume the ring is full and that someone
   2021 	 * forgot to set the high water mark correctly.  We set it and then
   2022 	 * proceed as normal.
   2023 	 */
   2024 	hiwat = tp->t_outq.c_cc - 1;
   2025 
   2026  ovhiwat:
   2027 	mutex_spin_enter(&tty_lock);
   2028 	ttstart(tp);
   2029 	/*
   2030 	 * This can only occur if FLUSHO is set in t_lflag,
   2031 	 * or if ttstart/oproc is synchronous (or very fast).
   2032 	 */
   2033 	if (tp->t_outq.c_cc <= hiwat) {
   2034 		mutex_spin_exit(&tty_lock);
   2035 		goto loop;
   2036 	}
   2037 	if (flag & IO_NDELAY) {
   2038 		mutex_spin_exit(&tty_lock);
   2039 		error = EWOULDBLOCK;
   2040 		goto out;
   2041 	}
   2042 	error = ttysleep(tp, &tp->t_outq.c_cv, true, 0);
   2043 	mutex_spin_exit(&tty_lock);
   2044 	if (error)
   2045 		goto out;
   2046 	goto loop;
   2047 }
   2048 
   2049 /*
   2050  * Try to pull more output from the producer.  Return non-zero if
   2051  * there is output ready to be sent.
   2052  */
   2053 bool
   2054 ttypull(struct tty *tp)
   2055 {
   2056 
   2057 	/* XXXSMP not yet KASSERT(mutex_owned(&tty_lock)); */
   2058 
   2059 	if (tp->t_outq.c_cc <= tp->t_lowat) {
   2060 		clwakeup(&tp->t_outq);
   2061 		selnotify(&tp->t_wsel, NOTE_SUBMIT);
   2062 	}
   2063 	return tp->t_outq.c_cc != 0;
   2064 }
   2065 
   2066 /*
   2067  * Rubout one character from the rawq of tp
   2068  * as cleanly as possible.
   2069  * Called with tty lock held.
   2070  */
   2071 void
   2072 ttyrub(int c, struct tty *tp)
   2073 {
   2074 	u_char	*cp;
   2075 	int	savecol, tabc;
   2076 
   2077 	KASSERT(mutex_owned(&tty_lock));
   2078 
   2079 	if (!ISSET(tp->t_lflag, ECHO) || ISSET(tp->t_lflag, EXTPROC))
   2080 		return;
   2081 	CLR(tp->t_lflag, FLUSHO);
   2082 	if (ISSET(tp->t_lflag, ECHOE)) {
   2083 		if (tp->t_rocount == 0) {
   2084 			/*
   2085 			 * Screwed by ttwrite; retype
   2086 			 */
   2087 			ttyretype(tp);
   2088 			return;
   2089 		}
   2090 		if (c == ('\t' | TTY_QUOTE) || c == ('\n' | TTY_QUOTE))
   2091 			ttyrubo(tp, 2);
   2092 		else {
   2093 			CLR(c, ~TTY_CHARMASK);
   2094 			switch (CCLASS(c)) {
   2095 			case ORDINARY:
   2096 				ttyrubo(tp, 1);
   2097 				break;
   2098 			case BACKSPACE:
   2099 			case CONTROL:
   2100 			case NEWLINE:
   2101 			case RETURN:
   2102 			case VTAB:
   2103 				if (ISSET(tp->t_lflag, ECHOCTL))
   2104 					ttyrubo(tp, 2);
   2105 				break;
   2106 			case TAB:
   2107 				if (tp->t_rocount < tp->t_rawq.c_cc) {
   2108 					ttyretype(tp);
   2109 					return;
   2110 				}
   2111 				savecol = tp->t_column;
   2112 				SET(tp->t_state, TS_CNTTB);
   2113 				SET(tp->t_lflag, FLUSHO);
   2114 				tp->t_column = tp->t_rocol;
   2115 				for (cp = firstc(&tp->t_rawq, &tabc); cp;
   2116 				    cp = nextc(&tp->t_rawq, cp, &tabc))
   2117 					ttyecho(tabc, tp);
   2118 				CLR(tp->t_lflag, FLUSHO);
   2119 				CLR(tp->t_state, TS_CNTTB);
   2120 
   2121 				/* savecol will now be length of the tab. */
   2122 				savecol -= tp->t_column;
   2123 				tp->t_column += savecol;
   2124 				if (savecol > 8)
   2125 					savecol = 8;	/* overflow screw */
   2126 				while (--savecol >= 0)
   2127 					(void)ttyoutput('\b', tp);
   2128 				break;
   2129 			default:			/* XXX */
   2130 				(void)printf("ttyrub: would panic c = %d, "
   2131 				    "val = %d\n", c, CCLASS(c));
   2132 			}
   2133 		}
   2134 	} else if (ISSET(tp->t_lflag, ECHOPRT)) {
   2135 		if (!ISSET(tp->t_state, TS_ERASE)) {
   2136 			SET(tp->t_state, TS_ERASE);
   2137 			(void)ttyoutput('\\', tp);
   2138 		}
   2139 		ttyecho(c, tp);
   2140 	} else
   2141 		ttyecho(tp->t_cc[VERASE], tp);
   2142 	--tp->t_rocount;
   2143 }
   2144 
   2145 /*
   2146  * Back over cnt characters, erasing them.
   2147  * Called with tty lock held.
   2148  */
   2149 static void
   2150 ttyrubo(struct tty *tp, int cnt)
   2151 {
   2152 
   2153 	KASSERT(mutex_owned(&tty_lock));
   2154 
   2155 	while (cnt-- > 0) {
   2156 		(void)ttyoutput('\b', tp);
   2157 		(void)ttyoutput(' ', tp);
   2158 		(void)ttyoutput('\b', tp);
   2159 	}
   2160 }
   2161 
   2162 /*
   2163  * ttyretype --
   2164  *	Reprint the rawq line.  Note, it is assumed that c_cc has already
   2165  *	been checked.
   2166  *
   2167  * Called with tty lock held.
   2168  */
   2169 void
   2170 ttyretype(struct tty *tp)
   2171 {
   2172 	u_char	*cp;
   2173 	int	c;
   2174 
   2175 	KASSERT(mutex_owned(&tty_lock));
   2176 
   2177 	/* Echo the reprint character. */
   2178 	if (tp->t_cc[VREPRINT] != _POSIX_VDISABLE)
   2179 		ttyecho(tp->t_cc[VREPRINT], tp);
   2180 
   2181 	(void)ttyoutput('\n', tp);
   2182 
   2183 	for (cp = firstc(&tp->t_canq, &c); cp; cp = nextc(&tp->t_canq, cp, &c))
   2184 		ttyecho(c, tp);
   2185 	for (cp = firstc(&tp->t_rawq, &c); cp; cp = nextc(&tp->t_rawq, cp, &c))
   2186 		ttyecho(c, tp);
   2187 	CLR(tp->t_state, TS_ERASE);
   2188 
   2189 	tp->t_rocount = tp->t_rawq.c_cc;
   2190 	tp->t_rocol = 0;
   2191 }
   2192 
   2193 /*
   2194  * Echo a typed character to the terminal.
   2195  * Called with tty lock held.
   2196  */
   2197 static void
   2198 ttyecho(int c, struct tty *tp)
   2199 {
   2200 
   2201 	KASSERT(mutex_owned(&tty_lock));
   2202 
   2203 	if (!ISSET(tp->t_state, TS_CNTTB))
   2204 		CLR(tp->t_lflag, FLUSHO);
   2205 	if ((!ISSET(tp->t_lflag, ECHO) &&
   2206 	    (!ISSET(tp->t_lflag, ECHONL) || c != '\n')) ||
   2207 	    ISSET(tp->t_lflag, EXTPROC))
   2208 		return;
   2209 	if (((ISSET(tp->t_lflag, ECHOCTL) &&
   2210 	    (ISSET(c, TTY_CHARMASK) <= 037 && c != '\t' && c != '\n')) ||
   2211 	    ISSET(c, TTY_CHARMASK) == 0177)) {
   2212 		(void)ttyoutput('^', tp);
   2213 		CLR(c, ~TTY_CHARMASK);
   2214 		if (c == 0177)
   2215 			c = '?';
   2216 		else
   2217 			c += 'A' - 1;
   2218 	}
   2219 	(void)ttyoutput(c, tp);
   2220 }
   2221 
   2222 /*
   2223  * Wake up any readers on a tty.
   2224  * Called with tty lock held.
   2225  */
   2226 void
   2227 ttwakeup(struct tty *tp)
   2228 {
   2229 
   2230 	KASSERT(mutex_owned(&tty_lock));
   2231 
   2232 	selnotify(&tp->t_rsel, NOTE_SUBMIT);
   2233 	if (ISSET(tp->t_state, TS_ASYNC))
   2234 		ttysig(tp, TTYSIG_PG2, SIGIO);
   2235 #if 0
   2236 	/* XXX tp->t_rawq.c_cv.cv_waiters dropping to zero early!? */
   2237 	clwakeup(&tp->t_rawq);
   2238 #else
   2239 	cv_wakeup(&tp->t_rawq.c_cv);
   2240 #endif
   2241 }
   2242 
   2243 /*
   2244  * Look up a code for a specified speed in a conversion table;
   2245  * used by drivers to map software speed values to hardware parameters.
   2246  */
   2247 int
   2248 ttspeedtab(int speed, const struct speedtab *table)
   2249 {
   2250 
   2251 	for (; table->sp_speed != -1; table++)
   2252 		if (table->sp_speed == speed)
   2253 			return (table->sp_code);
   2254 	return (-1);
   2255 }
   2256 
   2257 /*
   2258  * Set tty hi and low water marks.
   2259  *
   2260  * Try to arrange the dynamics so there's about one second
   2261  * from hi to low water.
   2262  */
   2263 void
   2264 ttsetwater(struct tty *tp)
   2265 {
   2266 	int	cps, x;
   2267 
   2268 	/* XXX not yet KASSERT(mutex_owned(&tty_lock)); */
   2269 
   2270 #define	CLAMP(x, h, l)	((x) > h ? h : ((x) < l) ? l : (x))
   2271 
   2272 	cps = tp->t_ospeed / 10;
   2273 	tp->t_lowat = x = CLAMP(cps / 2, TTMAXLOWAT, TTMINLOWAT);
   2274 	x += cps;
   2275 	x = CLAMP(x, TTMAXHIWAT, TTMINHIWAT);
   2276 	tp->t_hiwat = roundup(x, CBSIZE);
   2277 #undef	CLAMP
   2278 }
   2279 
   2280 /*
   2281  * Report on state of foreground process group.
   2282  * Call with tty lock held.
   2283  */
   2284 void
   2285 ttyinfo(struct tty *tp, int fromsig)
   2286 {
   2287 	struct lwp	*l;
   2288 	struct proc	*p, *pick = NULL;
   2289 	struct timeval	utime, stime;
   2290 	int		tmp;
   2291 	fixpt_t		pctcpu = 0;
   2292 	const char	*msg;
   2293 
   2294 	if (ttycheckoutq_wlock(tp, 0) == 0)
   2295 		return;
   2296 
   2297 	if (tp->t_session == NULL)
   2298 		msg = "not a controlling terminal\n";
   2299 	else if (tp->t_pgrp == NULL)
   2300 		msg = "no foreground process group\n";
   2301 	else if ((p = LIST_FIRST(&tp->t_pgrp->pg_members)) == NULL)
   2302 		msg = "empty foreground process group\n";
   2303 	else {
   2304 		/* Pick interesting process. */
   2305 		for (; p != NULL; p = LIST_NEXT(p, p_pglist))
   2306 			if (proc_compare(pick, p))
   2307 				pick = p;
   2308 		if (fromsig &&
   2309 		    (SIGACTION_PS(pick->p_sigacts, SIGINFO).sa_flags &
   2310 		    SA_NOKERNINFO))
   2311 			return;
   2312 		msg = NULL;
   2313 	}
   2314 
   2315 	/* Print load average. */
   2316 	tmp = (averunnable.ldavg[0] * 100 + FSCALE / 2) >> FSHIFT;
   2317 	ttyprintf_nolock(tp, "load: %d.%02d ", tmp / 100, tmp % 100);
   2318 
   2319 	if (pick == NULL) {
   2320 		ttyprintf_nolock(tp, msg);
   2321 		tp->t_rocount = 0; /* so pending input will be retyped if BS */
   2322 		return;
   2323 	}
   2324 
   2325 	ttyprintf_nolock(tp, " cmd: %s %d [", pick->p_comm, pick->p_pid);
   2326 	LIST_FOREACH(l, &pick->p_lwps, l_sibling) {
   2327 	    ttyprintf_nolock(tp, "%s%s",
   2328 	    l->l_stat == LSONPROC ? "running" :
   2329 	    l->l_stat == LSRUN ? "runnable" :
   2330 	    l->l_wmesg ? l->l_wmesg : "iowait",
   2331 		(LIST_NEXT(l, l_sibling) != NULL) ? " " : "] ");
   2332 	    pctcpu += l->l_pctcpu;
   2333 	}
   2334 	pctcpu += pick->p_pctcpu;
   2335 
   2336 	/* XXXXSMP order tty_lock -> p_smutex is bad */
   2337 	mutex_enter(&pick->p_smutex);
   2338 	calcru(pick, &utime, &stime, NULL, NULL);
   2339 	mutex_exit(&pick->p_smutex);
   2340 
   2341 	/* Round up and print user time. */
   2342 	utime.tv_usec += 5000;
   2343 	if (utime.tv_usec >= 1000000) {
   2344 		utime.tv_sec += 1;
   2345 		utime.tv_usec -= 1000000;
   2346 	}
   2347 	ttyprintf_nolock(tp, "%ld.%02ldu ", (long int)utime.tv_sec,
   2348 	    (long int)utime.tv_usec / 10000);
   2349 
   2350 	/* Round up and print system time. */
   2351 	stime.tv_usec += 5000;
   2352 	if (stime.tv_usec >= 1000000) {
   2353 		stime.tv_sec += 1;
   2354 		stime.tv_usec -= 1000000;
   2355 	}
   2356 	ttyprintf_nolock(tp, "%ld.%02lds ", (long int)stime.tv_sec,
   2357 	    (long int)stime.tv_usec / 10000);
   2358 
   2359 #define	pgtok(a)	(((u_long) ((a) * PAGE_SIZE) / 1024))
   2360 	/* Print percentage CPU. */
   2361 	tmp = (pctcpu * 10000 + FSCALE / 2) >> FSHIFT;
   2362 	ttyprintf_nolock(tp, "%d%% ", tmp / 100);
   2363 
   2364 	/* Print resident set size. */
   2365 	if (pick->p_stat == SIDL || P_ZOMBIE(pick))
   2366 		tmp = 0;
   2367 	else {
   2368 		struct vmspace *vm = pick->p_vmspace;
   2369 		tmp = pgtok(vm_resident_count(vm));
   2370 	}
   2371 	ttyprintf_nolock(tp, "%dk\n", tmp);
   2372 	tp->t_rocount = 0;	/* so pending input will be retyped if BS */
   2373 }
   2374 
   2375 /*
   2376  * Returns 1 if p2 is "better" than p1
   2377  *
   2378  * The algorithm for picking the "interesting" process is thus:
   2379  *
   2380  *	1) Only foreground processes are eligible - implied.
   2381  *	2) Runnable processes are favored over anything else.  The runner
   2382  *	   with the highest CPU utilization is picked (l_pctcpu).  Ties are
   2383  *	   broken by picking the highest pid.
   2384  *	3) The sleeper with the shortest sleep time is next.  With ties,
   2385  *	   we pick out just "short-term" sleepers (P_SINTR == 0).
   2386  *	4) Further ties are broken by picking the highest pid.
   2387  *
   2388  * XXXSMP
   2389  */
   2390 #define	ISRUN(p)	((p)->p_nrlwps > 0)
   2391 #define	TESTAB(a, b)	((a)<<1 | (b))
   2392 #define	ONLYA	2
   2393 #define	ONLYB	1
   2394 #define	BOTH	3
   2395 
   2396 static int
   2397 proc_compare(struct proc *p1, struct proc *p2)
   2398 {
   2399 	lwp_t *l1, *l2;
   2400 
   2401 	if (p1 == NULL)
   2402 		return (1);
   2403 	/*
   2404 	 * see if at least one of them is runnable
   2405 	 */
   2406 	switch (TESTAB(ISRUN(p1), ISRUN(p2))) {
   2407 	case ONLYA:
   2408 		return (0);
   2409 	case ONLYB:
   2410 		return (1);
   2411 	case BOTH:
   2412 		/*
   2413 		 * tie - favor one with highest recent CPU utilization
   2414 		 */
   2415 		l1 = LIST_FIRST(&p1->p_lwps);
   2416 		l2 = LIST_FIRST(&p2->p_lwps);
   2417 		if (l2->l_pctcpu > l1->l_pctcpu)
   2418 			return (1);
   2419 		return (p2->p_pid > p1->p_pid);	/* tie - return highest pid */
   2420 	}
   2421 	/*
   2422  	 * weed out zombies
   2423 	 */
   2424 	switch (TESTAB(P_ZOMBIE(p1), P_ZOMBIE(p2))) {
   2425 	case ONLYA:
   2426 		return (1);
   2427 	case ONLYB:
   2428 		return (0);
   2429 	case BOTH:
   2430 		return (p2->p_pid > p1->p_pid);	/* tie - return highest pid */
   2431 	}
   2432 #if 0 /* XXX NJWLWP */
   2433 	/*
   2434 	 * pick the one with the smallest sleep time
   2435 	 */
   2436 	if (p2->p_slptime > p1->p_slptime)
   2437 		return (0);
   2438 	if (p1->p_slptime > p2->p_slptime)
   2439 		return (1);
   2440 	/*
   2441 	 * favor one sleeping in a non-interruptible sleep
   2442 	 */
   2443 	if (p1->p_flag & P_SINTR && (p2->p_flag & P_SINTR) == 0)
   2444 		return (1);
   2445 	if (p2->p_flag & P_SINTR && (p1->p_flag & P_SINTR) == 0)
   2446 		return (0);
   2447 #endif
   2448 	return (p2->p_pid > p1->p_pid);		/* tie - return highest pid */
   2449 }
   2450 
   2451 /*
   2452  * Output char to tty; console putchar style.
   2453  * Can be called with tty lock held through kprintf() machinery..
   2454  */
   2455 int
   2456 tputchar(int c, int flags, struct tty *tp)
   2457 {
   2458 	int r = 0;
   2459 
   2460 	if ((flags & NOLOCK) == 0)
   2461 		mutex_spin_enter(&tty_lock);
   2462 	if (!CONNECTED(tp)) {
   2463 		r = -1;
   2464 		goto out;
   2465 	}
   2466 	if (c == '\n')
   2467 		(void)ttyoutput('\r', tp);
   2468 	(void)ttyoutput(c, tp);
   2469 	ttstart(tp);
   2470 out:
   2471 	if ((flags & NOLOCK) == 0)
   2472 		mutex_spin_exit(&tty_lock);
   2473 	return (r);
   2474 }
   2475 
   2476 /*
   2477  * Sleep on chan, returning ERESTART if tty changed while we napped and
   2478  * returning any errors (e.g. EINTR/ETIMEDOUT) reported by tsleep.  If
   2479  * the tty is revoked, restarting a pending call will redo validation done
   2480  * at the start of the call.
   2481  *
   2482  * Must be called with the tty lock held.
   2483  */
   2484 int
   2485 ttysleep(struct tty *tp, kcondvar_t *cv, bool catch, int timo)
   2486 {
   2487 	int	error;
   2488 	short	gen;
   2489 
   2490 	KASSERT(mutex_owned(&tty_lock));
   2491 
   2492 	gen = tp->t_gen;
   2493 	if (catch)
   2494 		error = cv_timedwait_sig(cv, &tty_lock, timo);
   2495 	else
   2496 		error = cv_timedwait(cv, &tty_lock, timo);
   2497 	if (error != 0)
   2498 		return (error);
   2499 	return (tp->t_gen == gen ? 0 : ERESTART);
   2500 }
   2501 
   2502 /*
   2503  * Attach a tty to the tty list.
   2504  *
   2505  * This should be called ONLY once per real tty (including pty's).
   2506  * eg, on the sparc, the keyboard and mouse have struct tty's that are
   2507  * distinctly NOT usable as tty's, and thus should not be attached to
   2508  * the ttylist.  This is why this call is not done from ttymalloc().
   2509  *
   2510  * Device drivers should attach tty's at a similar time that they are
   2511  * ttymalloc()'ed, or, for the case of statically allocated struct tty's
   2512  * either in the attach or (first) open routine.
   2513  */
   2514 void
   2515 tty_attach(struct tty *tp)
   2516 {
   2517 
   2518 	mutex_spin_enter(&tty_lock);
   2519 	TAILQ_INSERT_TAIL(&ttylist, tp, tty_link);
   2520 	++tty_count;
   2521 	mutex_spin_exit(&tty_lock);
   2522 }
   2523 
   2524 /*
   2525  * Remove a tty from the tty list.
   2526  */
   2527 void
   2528 tty_detach(struct tty *tp)
   2529 {
   2530 
   2531 	mutex_spin_enter(&tty_lock);
   2532 	--tty_count;
   2533 #ifdef DIAGNOSTIC
   2534 	if (tty_count < 0)
   2535 		panic("tty_detach: tty_count < 0");
   2536 #endif
   2537 	TAILQ_REMOVE(&ttylist, tp, tty_link);
   2538 	mutex_spin_exit(&tty_lock);
   2539 }
   2540 
   2541 /*
   2542  * Allocate a tty structure and its associated buffers.
   2543  */
   2544 struct tty *
   2545 ttymalloc(void)
   2546 {
   2547 	struct tty	*tp;
   2548 	int i;
   2549 
   2550 	tp = pool_get(&tty_pool, PR_WAITOK);
   2551 	memset(tp, 0, sizeof(*tp));
   2552 	callout_init(&tp->t_rstrt_ch, 0);
   2553 	callout_setfunc(&tp->t_rstrt_ch, ttrstrt, tp);
   2554 	/* XXX: default to 1024 chars for now */
   2555 	clalloc(&tp->t_rawq, 1024, 1);
   2556 	clalloc(&tp->t_canq, 1024, 1);
   2557 	/* output queue doesn't need quoting */
   2558 	clalloc(&tp->t_outq, 1024, 0);
   2559 	/* Set default line discipline. */
   2560 	tp->t_linesw = ttyldisc_default();
   2561 	selinit(&tp->t_rsel);
   2562 	selinit(&tp->t_wsel);
   2563 	for (i = 0; i < TTYSIG_COUNT; i++)
   2564 		sigemptyset(&tp->t_sigs[i]);
   2565 	return (tp);
   2566 }
   2567 
   2568 /*
   2569  * Free a tty structure and its buffers.
   2570  *
   2571  * Be sure to call tty_detach() for any tty that has been
   2572  * tty_attach()ed.
   2573  */
   2574 void
   2575 ttyfree(struct tty *tp)
   2576 {
   2577 	int i;
   2578 
   2579 	mutex_enter(&tty_lock);
   2580 	for (i = 0; i < TTYSIG_COUNT; i++)
   2581 		sigemptyset(&tp->t_sigs[i]);
   2582 	if (tp->t_sigcount != 0)
   2583 		TAILQ_REMOVE(&tty_sigqueue, tp, t_sigqueue);
   2584 	mutex_exit(&tty_lock);
   2585 
   2586 	callout_stop(&tp->t_rstrt_ch);
   2587 	ttyldisc_release(tp->t_linesw);
   2588 	clfree(&tp->t_rawq);
   2589 	clfree(&tp->t_canq);
   2590 	clfree(&tp->t_outq);
   2591 	callout_destroy(&tp->t_rstrt_ch);
   2592 	seldestroy(&tp->t_rsel);
   2593 	seldestroy(&tp->t_wsel);
   2594 	pool_put(&tty_pool, tp);
   2595 }
   2596 
   2597 /*
   2598  * ttyprintf_nolock: send a message to a specific tty, without locking.
   2599  *
   2600  * => should be used only by tty driver or anything that knows the
   2601  *    underlying tty will not be revoked(2)'d away.  [otherwise,
   2602  *    use tprintf]
   2603  */
   2604 static void
   2605 ttyprintf_nolock(struct tty *tp, const char *fmt, ...)
   2606 {
   2607 	va_list ap;
   2608 
   2609 	/* No mutex needed; going to process TTY. */
   2610 	va_start(ap, fmt);
   2611 	kprintf(fmt, TOTTY|NOLOCK, tp, NULL, ap);
   2612 	va_end(ap);
   2613 }
   2614 
   2615 /*
   2616  * Initialize the tty subsystem.
   2617  */
   2618 void
   2619 tty_init(void)
   2620 {
   2621 
   2622 	mutex_init(&tty_lock, MUTEX_DEFAULT, IPL_VM);
   2623 	tty_sigsih = softint_establish(SOFTINT_CLOCK, ttysigintr, NULL);
   2624 	KASSERT(tty_sigsih != NULL);
   2625 }
   2626 
   2627 /*
   2628  * Send a signal from a tty to its process group or session leader.
   2629  * Handoff to the target is deferred to a soft interrupt.
   2630  */
   2631 void
   2632 ttysig(struct tty *tp, enum ttysigtype st, int sig)
   2633 {
   2634 	sigset_t *sp;
   2635 
   2636 	/* XXXSMP not yet KASSERT(mutex_owned(&tty_lock)); */
   2637 
   2638 	sp = &tp->t_sigs[st];
   2639 	if (sigismember(sp, sig))
   2640 		return;
   2641 	sigaddset(sp, sig);
   2642 	if (tp->t_sigcount++ == 0)
   2643 		TAILQ_INSERT_TAIL(&tty_sigqueue, tp, t_sigqueue);
   2644 	softint_schedule(tty_sigsih);
   2645 }
   2646 
   2647 /*
   2648  * Deliver deferred signals from ttys.  Note that the process groups
   2649  * and sessions associated with the ttys may have changed from when
   2650  * the signal was originally sent, but in practice it should not matter.
   2651  * For signals produced as a result of a syscall, the soft interrupt
   2652  * will fire before the syscall returns to the user.
   2653  */
   2654 static void
   2655 ttysigintr(void *cookie)
   2656 {
   2657 	struct tty *tp;
   2658 	enum ttysigtype st;
   2659 	struct pgrp *pgrp;
   2660 	struct session *sess;
   2661 	int sig;
   2662 
   2663 	mutex_enter(&proclist_lock);
   2664 	for (;;) {
   2665 		mutex_spin_enter(&tty_lock);
   2666 		if ((tp = TAILQ_FIRST(&tty_sigqueue)) == NULL) {
   2667 			mutex_spin_exit(&tty_lock);
   2668 			break;
   2669 		}
   2670 		KASSERT(tp->t_sigcount > 0);
   2671 		for (st = 0; st < TTYSIG_COUNT; st++) {
   2672 			if ((sig = firstsig(&tp->t_sigs[st])) != 0)
   2673 				break;
   2674 		}
   2675 		KASSERT(st < TTYSIG_COUNT);
   2676 		sigdelset(&tp->t_sigs[st], sig);
   2677 		if (--tp->t_sigcount == 0)
   2678 			TAILQ_REMOVE(&tty_sigqueue, tp, t_sigqueue);
   2679 		pgrp = tp->t_pgrp;
   2680 		sess = tp->t_session;
   2681 		mutex_spin_exit(&tty_lock);
   2682 		if (sig == 0)
   2683 			panic("ttysigintr");
   2684 		mutex_enter(&proclist_mutex);
   2685 		switch (st) {
   2686 		case TTYSIG_PG1:
   2687 			if (pgrp != NULL)
   2688 				pgsignal(pgrp, sig, 1);
   2689 			break;
   2690 		case TTYSIG_PG2:
   2691 			if (pgrp != NULL)
   2692 				pgsignal(pgrp, sig, sess != NULL);
   2693 			break;
   2694 		case TTYSIG_LEADER:
   2695 			if (sess != NULL && sess->s_leader != NULL)
   2696 				psignal(sess->s_leader, sig);
   2697 			break;
   2698 		default:
   2699 			/* NOTREACHED */
   2700 			break;
   2701 		}
   2702 		mutex_exit(&proclist_mutex);
   2703 	}
   2704 	mutex_exit(&proclist_lock);
   2705 }
   2706