[apple/xnu.git] / bsd / dev / ppc / km.c

/*
 * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. The rights granted to you under the License
 * may not be used to create, or enable the creation or redistribution of,
 * unlawful or unlicensed copies of an Apple operating system, or to
 * circumvent, violate, or enable the circumvention or violation of, any
 * terms of an Apple operating system software license agreement.
 * 
 * Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
 */
/* 	Copyright (c) 1992 NeXT Computer, Inc.  All rights reserved. 
 *
 * km.m - kernel keyboard/monitor module, procedural interface.
 *
 * HISTORY
 */

#include <sys/kernel.h>
#include <sys/tty.h>

#include <dev/ppc/cons.h>
#include <sys/conf.h>
#include <sys/systm.h>
#include <sys/uio.h>
#include <sys/fcntl.h>		/* for kmopen */
#include <sys/errno.h>		
#include <sys/proc.h>		/* for kmopen */
#include <sys/msgbuf.h>
#include <sys/time.h>
#include <dev/kmreg_com.h>
#include <pexpert/pexpert.h>

/*
 * 'Global' variables, shared only by this file and conf.c.
 */
struct tty *km_tty[1] = { &cons };

/*
 * this works early on, after initialize_screen() but before autoconf (and thus
 * before we have a kmDevice).
 */
int disableConsoleOutput;

static int initialized = 0;

// Function prototypes
extern d_open_t         kmopen;
extern d_close_t        kmclose;
extern d_read_t         kmread;
extern d_write_t        kmwrite;
extern d_ioctl_t        kmioctl;
extern d_getc_t         kmgetc;
extern d_putc_t         kmputc;

extern void kminit(void);

// used by or implemented in the osfmk project
extern void cnputcusr(char);		// From osfmk
extern int  cngetc(void);		// From osfmk
extern void cons_cinput(char ch);	// Used by osfmk

static int kmoutput(struct tty *tp);
static void kmtimeout(struct tty *tp);
static void kmstart(struct tty *tp);

extern void KeyboardOpen(void);

void
kminit(void)
{
   	 cons.t_dev = makedev(12, 0);
	initialized = 1;
}
/*
 * cdevsw interface to km driver.
 */
int 
kmopen(dev_t dev, int flag, __unused int devtype, struct proc *pp)
{
	int unit;
	struct tty *tp;
	struct winsize *wp;
	int ret;
	
	unit = minor(dev);
	if(unit >= 1)
		return (ENXIO);

	tp = (struct tty *)&cons;
	tp->t_oproc = kmstart;
	tp->t_param = NULL;
	tp->t_dev = dev;
	
	if ( !(tp->t_state & TS_ISOPEN) ) {
		tp->t_iflag = TTYDEF_IFLAG;
		tp->t_oflag = TTYDEF_OFLAG;
		tp->t_cflag = (CREAD | CS8 | CLOCAL);
		tp->t_lflag = TTYDEF_LFLAG;
		tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
		termioschars(&tp->t_termios);
		ttsetwater(tp);
	} else if ((tp->t_state & TS_XCLUDE) && proc_suser(pp))
		return EBUSY;

	tp->t_state |= TS_CARR_ON; /* lie and say carrier exists and is on. */
	ret = ((*linesw[tp->t_line].l_open)(dev, tp));
	{
		PE_Video video;
		wp = &tp->t_winsize;
		/* Magic numbers.  These are CHARWIDTH and CHARHEIGHT
		 * from osfmk/ppc/POWERMAC/video_console.c
		 */
		wp->ws_xpixel = 8;
		wp->ws_ypixel = 16;

		if (flag & O_POPUP)
			PE_initialize_console(0, kPETextScreen);

		bzero(&video, sizeof(video));
		PE_current_console(&video);
		if( video.v_width != 0 && video.v_height != 0 ) {
			wp->ws_col = video.v_width / wp->ws_xpixel;
			wp->ws_row = video.v_height / wp->ws_ypixel;
		} else {
			wp->ws_col = 100;
			wp->ws_row = 36;
		}
	}
	return ret;
}

int 
kmclose(__unused dev_t dev, __unused int flag, __unused int mode,
	__unused struct proc *p)
{
	 
	struct tty *tp;

	tp = &cons;
	(*linesw[tp->t_line].l_close)(tp,flag);
	ttyclose(tp);
	return (0);
}

int 
kmread(__unused dev_t dev, struct uio *uio, int ioflag)
{
	register struct tty *tp;
 
	tp = &cons;
	return ((*linesw[tp->t_line].l_read)(tp, uio, ioflag));
}

int 
kmwrite(__unused dev_t dev, struct uio *uio, int ioflag)
{
	register struct tty *tp;
 
	tp = &cons;
	return ((*linesw[tp->t_line].l_write)(tp, uio, ioflag));
}

int 
kmioctl( __unused dev_t dev, u_long cmd, caddr_t data, int flag,
	struct proc *p)
{
	int error;
	struct tty *tp = &cons;
	struct winsize *wp;
	
	switch (cmd) {
		

	    case KMIOCSIZE:
		wp = (struct winsize *)data;
		*wp = tp->t_winsize;
		return 0;
		
	    case TIOCSWINSZ:
		/* Prevent changing of console size --
		 * this ensures that login doesn't revert to the
		 * termcap-defined size
		 */
		return EINVAL;

	    /* Bodge in the CLOCAL flag as the km device is always local */
	    case TIOCSETA:
	    case TIOCSETAW:
	    case TIOCSETAF: {
		register struct termios *t = (struct termios *)data;
		t->c_cflag |= CLOCAL;
		/* No Break */
	    }
	    default:		
		error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
		if (ENOTTY != error)
			return error;
		return ttioctl (tp, cmd, data, flag, p);
	}
}

int 
kmputc(__unused dev_t dev, char c)
{

	if( disableConsoleOutput)
		return( 0);

	if(!initialized)
		return( 0);

	if(c == '\n')
		cnputcusr('\r');

	cnputcusr(c);

	return 0;
}

int 
kmgetc(__unused dev_t dev)
{
	int c;
	
	c= cngetc();

	if (c == '\r') {
		c = '\n';
	}
	cnputcusr(c);
	return c;
}

#if 0
int 
kmgetc_silent(
	__unused dev_t dev)
{
	int c;
	
	c= cngetc();
	if (c == '\r') {
		c = '\n';
	}
	return c;
}
#endif /* 0 */

/*
 * Callouts from linesw.
 */
 
#define KM_LOWAT_DELAY	((ns_time_t)1000)

static void 
kmstart(struct tty *tp)
{
	if (tp->t_state & (TS_TIMEOUT | TS_BUSY | TS_TTSTOP))
		goto out;
	if (tp->t_outq.c_cc == 0)
		goto out;
	tp->t_state |= TS_BUSY;
	kmoutput(tp);
	return;

out:
	(*linesw[tp->t_line].l_start)(tp);
	return;
}

static void
kmtimeout(struct tty *tp)
{
	boolean_t 	funnel_state;

	funnel_state = thread_funnel_set(kernel_flock, TRUE);
	kmoutput(tp);
	(void) thread_funnel_set(kernel_flock, funnel_state);


}
static int 
kmoutput(struct tty *tp)
{
	/*
	 * FIXME - to be grokked...copied from m68k km.c.
	 */
	char 		buf[80];
	char 		*cp;
	int 		cc = -1;

	while (tp->t_outq.c_cc > 0) {
		cc = ndqb(&tp->t_outq, 0);
		if (cc == 0)
			break;
		cc = min(cc, sizeof buf);
		(void) q_to_b(&tp->t_outq, buf, cc);
		for (cp = buf; cp < &buf[cc]; cp++)
		    kmputc(tp->t_dev, *cp & 0x7f);
	}
        if (tp->t_outq.c_cc > 0) {
		timeout((timeout_fcn_t)kmtimeout, tp, hz);
	}
	tp->t_state &= ~TS_BUSY;
	(*linesw[tp->t_line].l_start)(tp);

	return 0;
}

void cons_cinput(char ch)
{
	struct tty *tp = &cons;
	
	(*linesw[tp->t_line].l_rint) (ch, tp);
}
Commit	Line	Data
1c79356b	1	/*
5d5c5d0d A	2	* Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
5d5c5d0d A	3	*
8f6c56a5	4	* @APPLE_OSREFERENCE_LICENSE_HEADER_START@
1c79356b	5	*
8f6c56a5 A	6	* This file contains Original Code and/or Modifications of Original Code
	7	* as defined in and that are subject to the Apple Public Source License
	8	* Version 2.0 (the 'License'). You may not use this file except in
	9	* compliance with the License. The rights granted to you under the License
	10	* may not be used to create, or enable the creation or redistribution of,
	11	* unlawful or unlicensed copies of an Apple operating system, or to
	12	* circumvent, violate, or enable the circumvention or violation of, any
	13	* terms of an Apple operating system software license agreement.
	14	*
	15	* Please obtain a copy of the License at
	16	* http://www.opensource.apple.com/apsl/ and read it before using this file.
	17	*
	18	* The Original Code and all software distributed under the License are
	19	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
	20	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
	21	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
	22	* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
	23	* Please see the License for the specific language governing rights and
8ad349bb	24	* limitations under the License.
8f6c56a5 A	25	*
8f6c56a5 A	26	* @APPLE_OSREFERENCE_LICENSE_HEADER_END@
1c79356b A	27	*/
	28	/* Copyright (c) 1992 NeXT Computer, Inc. All rights reserved.
	29	*
	30	* km.m - kernel keyboard/monitor module, procedural interface.
	31	*
	32	* HISTORY
	33	*/
	34
91447636	35	#include <sys/kernel.h>
1c79356b A	36	#include <sys/tty.h>
	37
	38	#include <dev/ppc/cons.h>
	39	#include <sys/conf.h>
	40	#include <sys/systm.h>
	41	#include <sys/uio.h>
	42	#include <sys/fcntl.h> /* for kmopen */
	43	#include <sys/errno.h>
	44	#include <sys/proc.h> /* for kmopen */
	45	#include <sys/msgbuf.h>
	46	#include <sys/time.h>
	47	#include <dev/kmreg_com.h>
	48	#include <pexpert/pexpert.h>
	49
	50	/*
	51	* 'Global' variables, shared only by this file and conf.c.
	52	*/
1c79356b A	53	struct tty *km_tty[1] = { &cons };
	54
	55	/*
	56	* this works early on, after initialize_screen() but before autoconf (and thus
	57	* before we have a kmDevice).
	58	*/
	59	int disableConsoleOutput;
	60
91447636 A	61	static int initialized = 0;
	62
	63	// Function prototypes
	64	extern d_open_t kmopen;
	65	extern d_close_t kmclose;
	66	extern d_read_t kmread;
	67	extern d_write_t kmwrite;
	68	extern d_ioctl_t kmioctl;
	69	extern d_getc_t kmgetc;
	70	extern d_putc_t kmputc;
	71
	72	extern void kminit(void);
	73
	74	// used by or implemented in the osfmk project
	75	extern void cnputcusr(char); // From osfmk
	76	extern int cngetc(void); // From osfmk
	77	extern void cons_cinput(char ch); // Used by osfmk
1c79356b A	78
	79	static int kmoutput(struct tty *tp);
	80	static void kmtimeout(struct tty *tp);
	81	static void kmstart(struct tty *tp);
	82
	83	extern void KeyboardOpen(void);
	84
91447636 A	85	void
91447636 A	86	kminit(void)
1c79356b A	87	{
	88	cons.t_dev = makedev(12, 0);
	89	initialized = 1;
	90	}
	91	/*
	92	* cdevsw interface to km driver.
	93	*/
	94	int
91447636	95	kmopen(dev_t dev, int flag, __unused int devtype, struct proc *pp)
1c79356b	96	{
1c79356b A	97	int unit;
	98	struct tty *tp;
	99	struct winsize *wp;
	100	int ret;
	101
	102	unit = minor(dev);
	103	if(unit >= 1)
	104	return (ENXIO);
	105
	106	tp = (struct tty *)&cons;
	107	tp->t_oproc = kmstart;
	108	tp->t_param = NULL;
	109	tp->t_dev = dev;
	110
	111	if ( !(tp->t_state & TS_ISOPEN) ) {
	112	tp->t_iflag = TTYDEF_IFLAG;
	113	tp->t_oflag = TTYDEF_OFLAG;
	114	tp->t_cflag = (CREAD \| CS8 \| CLOCAL);
	115	tp->t_lflag = TTYDEF_LFLAG;
	116	tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
	117	termioschars(&tp->t_termios);
	118	ttsetwater(tp);
91447636	119	} else if ((tp->t_state & TS_XCLUDE) && proc_suser(pp))
1c79356b A	120	return EBUSY;
	121
	122	tp->t_state \|= TS_CARR_ON; /* lie and say carrier exists and is on. */
	123	ret = ((*linesw[tp->t_line].l_open)(dev, tp));
	124	{
	125	PE_Video video;
	126	wp = &tp->t_winsize;
	127	/* Magic numbers. These are CHARWIDTH and CHARHEIGHT
	128	* from osfmk/ppc/POWERMAC/video_console.c
	129	*/
	130	wp->ws_xpixel = 8;
	131	wp->ws_ypixel = 16;
	132
	133	if (flag & O_POPUP)
	134	PE_initialize_console(0, kPETextScreen);
	135
	136	bzero(&video, sizeof(video));
	137	PE_current_console(&video);
	138	if( video.v_width != 0 && video.v_height != 0 ) {
	139	wp->ws_col = video.v_width / wp->ws_xpixel;
	140	wp->ws_row = video.v_height / wp->ws_ypixel;
	141	} else {
	142	wp->ws_col = 100;
	143	wp->ws_row = 36;
	144	}
	145	}
	146	return ret;
	147	}
	148
	149	int
91447636 A	150	kmclose(__unused dev_t dev, __unused int flag, __unused int mode,
91447636 A	151	__unused struct proc *p)
1c79356b A	152	{
	153
	154	struct tty *tp;
	155
	156	tp = &cons;
	157	(*linesw[tp->t_line].l_close)(tp,flag);
	158	ttyclose(tp);
	159	return (0);
	160	}
	161
	162	int
91447636	163	kmread(__unused dev_t dev, struct uio *uio, int ioflag)
1c79356b A	164	{
	165	register struct tty *tp;
	166
	167	tp = &cons;
	168	return ((*linesw[tp->t_line].l_read)(tp, uio, ioflag));
	169	}
	170
	171	int
91447636	172	kmwrite(__unused dev_t dev, struct uio *uio, int ioflag)
1c79356b A	173	{
	174	register struct tty *tp;
	175
	176	tp = &cons;
	177	return ((*linesw[tp->t_line].l_write)(tp, uio, ioflag));
	178	}
	179
	180	int
91447636	181	kmioctl( __unused dev_t dev, u_long cmd, caddr_t data, int flag,
1c79356b A	182	struct proc *p)
	183	{
	184	int error;
	185	struct tty *tp = &cons;
	186	struct winsize *wp;
	187
	188	switch (cmd) {
	189
	190
	191
	192	case KMIOCSIZE:
	193	wp = (struct winsize *)data;
	194	*wp = tp->t_winsize;
	195	return 0;
	196
	197	case TIOCSWINSZ:
	198	/* Prevent changing of console size --
	199	* this ensures that login doesn't revert to the
	200	* termcap-defined size
	201	*/
	202	return EINVAL;
	203
	204	/* Bodge in the CLOCAL flag as the km device is always local */
	205	case TIOCSETA:
	206	case TIOCSETAW:
	207	case TIOCSETAF: {
	208	register struct termios t = (struct termios )data;
	209	t->c_cflag \|= CLOCAL;
	210	/* No Break */
	211	}
	212	default:
	213	error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
91447636	214	if (ENOTTY != error)
1c79356b	215	return error;
91447636	216	return ttioctl (tp, cmd, data, flag, p);
1c79356b A	217	}
	218	}
	219
	220	int
91447636	221	kmputc(__unused dev_t dev, char c)
1c79356b A	222	{
	223
	224	if( disableConsoleOutput)
	225	return( 0);
	226
	227	if(!initialized)
	228	return( 0);
	229
	230	if(c == '\n')
	231	cnputcusr('\r');
	232
	233	cnputcusr(c);
	234
	235	return 0;
	236	}
	237
	238	int
91447636	239	kmgetc(__unused dev_t dev)
1c79356b A	240	{
	241	int c;
	242
	243	c= cngetc();
	244
	245	if (c == '\r') {
	246	c = '\n';
	247	}
	248	cnputcusr(c);
	249	return c;
	250	}
	251
91447636	252	#if 0
1c79356b A	253	int
1c79356b A	254	kmgetc_silent(
91447636	255	__unused dev_t dev)
1c79356b A	256	{
	257	int c;
	258
	259	c= cngetc();
	260	if (c == '\r') {
	261	c = '\n';
	262	}
	263	return c;
	264	}
91447636	265	#endif /* 0 */
1c79356b A	266
	267	/*
	268	* Callouts from linesw.
	269	*/
	270
	271	#define KM_LOWAT_DELAY ((ns_time_t)1000)
	272
	273	static void
91447636	274	kmstart(struct tty *tp)
1c79356b	275	{
1c79356b A	276	if (tp->t_state & (TS_TIMEOUT \| TS_BUSY \| TS_TTSTOP))
	277	goto out;
	278	if (tp->t_outq.c_cc == 0)
	279	goto out;
	280	tp->t_state \|= TS_BUSY;
91447636 A	281	kmoutput(tp);
	282	return;
	283
1c79356b	284	out:
91447636 A	285	(*linesw[tp->t_line].l_start)(tp);
91447636 A	286	return;
1c79356b A	287	}
	288
	289	static void
91447636	290	kmtimeout(struct tty *tp)
1c79356b A	291	{
	292	boolean_t funnel_state;
	293
	294	funnel_state = thread_funnel_set(kernel_flock, TRUE);
	295	kmoutput(tp);
9bccf70c	296	(void) thread_funnel_set(kernel_flock, funnel_state);
1c79356b A	297
	298
	299	}
	300	static int
91447636	301	kmoutput(struct tty *tp)
1c79356b A	302	{
	303	/*
	304	* FIXME - to be grokked...copied from m68k km.c.
	305	*/
	306	char buf[80];
	307	char *cp;
	308	int cc = -1;
1c79356b A	309
	310	while (tp->t_outq.c_cc > 0) {
	311	cc = ndqb(&tp->t_outq, 0);
	312	if (cc == 0)
	313	break;
	314	cc = min(cc, sizeof buf);
	315	(void) q_to_b(&tp->t_outq, buf, cc);
91447636 A	316	for (cp = buf; cp < &buf[cc]; cp++)
91447636 A	317	kmputc(tp->t_dev, *cp & 0x7f);
1c79356b A	318	}
1c79356b A	319	if (tp->t_outq.c_cc > 0) {
55e303ae	320	timeout((timeout_fcn_t)kmtimeout, tp, hz);
1c79356b A	321	}
1c79356b A	322	tp->t_state &= ~TS_BUSY;
91447636	323	(*linesw[tp->t_line].l_start)(tp);
1c79356b A	324
	325	return 0;
	326	}
91447636 A	327
91447636 A	328	void cons_cinput(char ch)
1c79356b A	329	{
1c79356b A	330	struct tty *tp = &cons;
1c79356b A	331
1c79356b A	332	(*linesw[tp->t_line].l_rint) (ch, tp);
1c79356b A	333	}
1c79356b A	334