Home | History | Annotate | Line # | Download | only in sun
ms.c revision 1.39
      1  1.39  dholland /*	$NetBSD: ms.c,v 1.39 2014/03/16 05:20:29 dholland Exp $	*/
      2   1.1       gwr 
      3   1.1       gwr /*
      4   1.1       gwr  * Copyright (c) 1992, 1993
      5   1.1       gwr  *	The Regents of the University of California.  All rights reserved.
      6   1.1       gwr  *
      7   1.1       gwr  * This software was developed by the Computer Systems Engineering group
      8   1.1       gwr  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
      9   1.1       gwr  * contributed to Berkeley.
     10   1.1       gwr  *
     11   1.1       gwr  * All advertising materials mentioning features or use of this software
     12   1.1       gwr  * must display the following acknowledgement:
     13   1.1       gwr  *	This product includes software developed by the University of
     14   1.1       gwr  *	California, Lawrence Berkeley Laboratory.
     15   1.1       gwr  *
     16   1.1       gwr  * Redistribution and use in source and binary forms, with or without
     17   1.1       gwr  * modification, are permitted provided that the following conditions
     18   1.1       gwr  * are met:
     19   1.1       gwr  * 1. Redistributions of source code must retain the above copyright
     20   1.1       gwr  *    notice, this list of conditions and the following disclaimer.
     21   1.1       gwr  * 2. Redistributions in binary form must reproduce the above copyright
     22   1.1       gwr  *    notice, this list of conditions and the following disclaimer in the
     23   1.1       gwr  *    documentation and/or other materials provided with the distribution.
     24  1.27       agc  * 3. Neither the name of the University nor the names of its contributors
     25   1.1       gwr  *    may be used to endorse or promote products derived from this software
     26   1.1       gwr  *    without specific prior written permission.
     27   1.1       gwr  *
     28   1.1       gwr  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     29   1.1       gwr  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     30   1.1       gwr  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     31   1.1       gwr  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     32   1.1       gwr  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     33   1.1       gwr  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     34   1.1       gwr  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     35   1.1       gwr  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     36   1.1       gwr  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     37   1.1       gwr  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     38   1.1       gwr  * SUCH DAMAGE.
     39   1.1       gwr  *
     40   1.1       gwr  *	@(#)ms.c	8.1 (Berkeley) 6/11/93
     41   1.1       gwr  */
     42   1.1       gwr 
     43   1.1       gwr /*
     44   1.1       gwr  * Mouse driver (/dev/mouse)
     45   1.1       gwr  */
     46   1.1       gwr 
     47   1.1       gwr /*
     48   1.1       gwr  * Zilog Z8530 Dual UART driver (mouse interface)
     49   1.1       gwr  *
     50   1.1       gwr  * This is the "slave" driver that will be attached to
     51   1.1       gwr  * the "zsc" driver for a Sun mouse.
     52   1.1       gwr  */
     53  1.21     lukem 
     54  1.21     lukem #include <sys/cdefs.h>
     55  1.39  dholland __KERNEL_RCSID(0, "$NetBSD: ms.c,v 1.39 2014/03/16 05:20:29 dholland Exp $");
     56   1.1       gwr 
     57   1.1       gwr #include <sys/param.h>
     58   1.1       gwr #include <sys/systm.h>
     59  1.11       gwr #include <sys/conf.h>
     60   1.1       gwr #include <sys/device.h>
     61   1.1       gwr #include <sys/ioctl.h>
     62   1.1       gwr #include <sys/kernel.h>
     63  1.11       gwr #include <sys/proc.h>
     64  1.11       gwr #include <sys/signal.h>
     65  1.11       gwr #include <sys/signalvar.h>
     66  1.11       gwr #include <sys/time.h>
     67   1.1       gwr #include <sys/syslog.h>
     68   1.7       mrg #include <sys/select.h>
     69   1.7       mrg #include <sys/poll.h>
     70   1.1       gwr 
     71  1.11       gwr #include <machine/vuid_event.h>
     72  1.11       gwr 
     73   1.1       gwr #include <dev/ic/z8530reg.h>
     74   1.1       gwr #include <machine/z8530var.h>
     75  1.16       mrg #include <dev/sun/event_var.h>
     76  1.16       mrg #include <dev/sun/msvar.h>
     77   1.1       gwr 
     78  1.24    petrov #include <dev/wscons/wsconsio.h>
     79  1.24    petrov #include <dev/wscons/wsmousevar.h>
     80  1.24    petrov 
     81  1.37   tsutsui #include "ioconf.h"
     82  1.12       jtk #include "locators.h"
     83  1.24    petrov #include "wsmouse.h"
     84   1.1       gwr 
     85  1.22   gehenna dev_type_open(msopen);
     86  1.22   gehenna dev_type_close(msclose);
     87  1.22   gehenna dev_type_read(msread);
     88  1.22   gehenna dev_type_ioctl(msioctl);
     89  1.22   gehenna dev_type_poll(mspoll);
     90  1.23  jdolecek dev_type_kqfilter(mskqfilter);
     91  1.22   gehenna 
     92  1.22   gehenna const struct cdevsw ms_cdevsw = {
     93  1.39  dholland 	.d_open = msopen,
     94  1.39  dholland 	.d_close = msclose,
     95  1.39  dholland 	.d_read = msread,
     96  1.39  dholland 	.d_write = nowrite,
     97  1.39  dholland 	.d_ioctl = msioctl,
     98  1.39  dholland 	.d_stop = nostop,
     99  1.39  dholland 	.d_tty = notty,
    100  1.39  dholland 	.d_poll = mspoll,
    101  1.39  dholland 	.d_mmap = nommap,
    102  1.39  dholland 	.d_kqfilter = mskqfilter,
    103  1.39  dholland 	.d_flag = D_OTHER
    104  1.22   gehenna };
    105   1.1       gwr 
    106   1.1       gwr /****************************************************************
    107   1.1       gwr  *  Entry points for /dev/mouse
    108   1.1       gwr  *  (open,close,read,write,...)
    109   1.1       gwr  ****************************************************************/
    110   1.1       gwr 
    111   1.1       gwr int
    112  1.36   tsutsui msopen(dev_t dev, int flags, int mode, struct lwp *l)
    113   1.1       gwr {
    114   1.1       gwr 	struct ms_softc *ms;
    115   1.1       gwr 
    116  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    117   1.1       gwr 	if (ms == NULL)
    118  1.37   tsutsui 		return ENXIO;
    119   1.1       gwr 
    120   1.1       gwr 	/* This is an exclusive open device. */
    121   1.1       gwr 	if (ms->ms_events.ev_io)
    122  1.37   tsutsui 		return EBUSY;
    123  1.19       eeh 
    124  1.19       eeh 	if (ms->ms_deviopen) {
    125  1.19       eeh 		int err;
    126  1.36   tsutsui 		err = (*ms->ms_deviopen)(ms->ms_dev, flags);
    127  1.29     perry 		if (err)
    128  1.37   tsutsui 			return err;
    129  1.19       eeh 	}
    130  1.30  christos 	ms->ms_events.ev_io = l->l_proc;
    131   1.1       gwr 	ev_init(&ms->ms_events);	/* may cause sleep */
    132   1.1       gwr 
    133   1.1       gwr 	ms->ms_ready = 1;		/* start accepting events */
    134  1.37   tsutsui 	return 0;
    135   1.1       gwr }
    136   1.1       gwr 
    137   1.1       gwr int
    138  1.36   tsutsui msclose(dev_t dev, int flags, int mode, struct lwp *l)
    139   1.1       gwr {
    140   1.1       gwr 	struct ms_softc *ms;
    141   1.1       gwr 
    142  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    143   1.1       gwr 	ms->ms_ready = 0;		/* stop accepting events */
    144   1.1       gwr 	ev_fini(&ms->ms_events);
    145   1.1       gwr 
    146   1.1       gwr 	ms->ms_events.ev_io = NULL;
    147  1.19       eeh 	if (ms->ms_deviclose) {
    148  1.19       eeh 		int err;
    149  1.36   tsutsui 		err = (*ms->ms_deviclose)(ms->ms_dev, flags);
    150  1.29     perry 		if (err)
    151  1.37   tsutsui 			return err;
    152  1.19       eeh 	}
    153  1.37   tsutsui 	return 0;
    154   1.1       gwr }
    155   1.1       gwr 
    156   1.1       gwr int
    157  1.36   tsutsui msread(dev_t dev, struct uio *uio, int flags)
    158   1.1       gwr {
    159   1.1       gwr 	struct ms_softc *ms;
    160   1.1       gwr 
    161  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    162  1.37   tsutsui 	return ev_read(&ms->ms_events, uio, flags);
    163   1.1       gwr }
    164   1.1       gwr 
    165   1.1       gwr int
    166  1.36   tsutsui msioctl(dev_t dev, u_long cmd, void *data, int flag, struct lwp *l)
    167   1.1       gwr {
    168   1.1       gwr 	struct ms_softc *ms;
    169   1.1       gwr 
    170  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    171   1.1       gwr 
    172   1.1       gwr 	switch (cmd) {
    173   1.1       gwr 
    174   1.1       gwr 	case FIONBIO:		/* we will remove this someday (soon???) */
    175  1.37   tsutsui 		return 0;
    176   1.1       gwr 
    177   1.1       gwr 	case FIOASYNC:
    178   1.1       gwr 		ms->ms_events.ev_async = *(int *)data != 0;
    179  1.37   tsutsui 		return 0;
    180  1.28  jdolecek 
    181  1.28  jdolecek 	case FIOSETOWN:
    182  1.28  jdolecek 		if (-*(int *)data != ms->ms_events.ev_io->p_pgid
    183  1.28  jdolecek 		    && *(int *)data != ms->ms_events.ev_io->p_pid)
    184  1.37   tsutsui 			return EPERM;
    185  1.37   tsutsui 		return 0;
    186   1.1       gwr 
    187   1.1       gwr 	case TIOCSPGRP:
    188   1.1       gwr 		if (*(int *)data != ms->ms_events.ev_io->p_pgid)
    189  1.37   tsutsui 			return EPERM;
    190  1.37   tsutsui 		return 0;
    191   1.1       gwr 
    192   1.1       gwr 	case VUIDGFORMAT:
    193   1.1       gwr 		/* we only do firm_events */
    194   1.1       gwr 		*(int *)data = VUID_FIRM_EVENT;
    195  1.37   tsutsui 		return 0;
    196   1.1       gwr 
    197   1.1       gwr 	case VUIDSFORMAT:
    198   1.1       gwr 		if (*(int *)data != VUID_FIRM_EVENT)
    199  1.37   tsutsui 			return EINVAL;
    200  1.37   tsutsui 		return 0;
    201   1.1       gwr 	}
    202  1.37   tsutsui 	return ENOTTY;
    203   1.1       gwr }
    204   1.1       gwr 
    205   1.1       gwr int
    206  1.36   tsutsui mspoll(dev_t dev, int events, struct lwp *l)
    207   1.1       gwr {
    208   1.1       gwr 	struct ms_softc *ms;
    209   1.1       gwr 
    210  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    211  1.37   tsutsui 	return ev_poll(&ms->ms_events, events, l);
    212   1.1       gwr }
    213   1.1       gwr 
    214  1.23  jdolecek int
    215  1.36   tsutsui mskqfilter(dev_t dev, struct knote *kn)
    216  1.23  jdolecek {
    217  1.23  jdolecek 	struct ms_softc *ms;
    218  1.23  jdolecek 
    219  1.37   tsutsui 	ms = device_lookup_private(&ms_cd, minor(dev));
    220  1.37   tsutsui 	return ev_kqfilter(&ms->ms_events, kn);
    221  1.23  jdolecek }
    222   1.1       gwr 
    223   1.1       gwr /****************************************************************
    224   1.1       gwr  * Middle layer (translator)
    225   1.1       gwr  ****************************************************************/
    226   1.1       gwr 
    227   1.1       gwr /*
    228   1.1       gwr  * Called by our ms_softint() routine on input.
    229   1.1       gwr  */
    230   1.1       gwr void
    231  1.36   tsutsui ms_input(struct ms_softc *ms, int c)
    232   1.1       gwr {
    233  1.18  augustss 	struct firm_event *fe;
    234  1.18  augustss 	int mb, ub, d, get, put, any;
    235   1.1       gwr 	static const char to_one[] = { 1, 2, 2, 4, 4, 4, 4 };
    236   1.1       gwr 	static const int to_id[] = { MS_RIGHT, MS_MIDDLE, 0, MS_LEFT };
    237   1.1       gwr 
    238   1.1       gwr 	/*
    239   1.1       gwr 	 * Discard input if not ready.  Drop sync on parity or framing
    240   1.1       gwr 	 * error; gain sync on button byte.
    241   1.1       gwr 	 */
    242   1.1       gwr 	if (ms->ms_ready == 0)
    243   1.1       gwr 		return;
    244   1.1       gwr 	if (c == -1) {
    245   1.1       gwr 		ms->ms_byteno = -1;
    246   1.1       gwr 		return;
    247   1.1       gwr 	}
    248  1.31  macallan 	if ((c & 0xb0) == 0x80) {	/* if in 0x80..0x8f of 0xc0..0xcf */
    249  1.17      matt 		if (c & 8) {
    250  1.17      matt 			ms->ms_byteno = 1;	/* short form (3 bytes) */
    251  1.17      matt 		} else {
    252  1.17      matt 			ms->ms_byteno = 0;	/* long form (5 bytes) */
    253  1.17      matt 		}
    254  1.17      matt 	}
    255   1.1       gwr 
    256   1.1       gwr 	/*
    257   1.1       gwr 	 * Run the decode loop, adding to the current information.
    258   1.1       gwr 	 * We add, rather than replace, deltas, so that if the event queue
    259   1.1       gwr 	 * fills, we accumulate data for when it opens up again.
    260   1.1       gwr 	 */
    261   1.1       gwr 	switch (ms->ms_byteno) {
    262   1.1       gwr 
    263   1.1       gwr 	case -1:
    264   1.1       gwr 		return;
    265   1.1       gwr 
    266   1.1       gwr 	case 0:
    267  1.17      matt 		/* buttons (long form) */
    268  1.17      matt 		ms->ms_byteno = 2;
    269   1.1       gwr 		ms->ms_mb = (~c) & 0x7;
    270   1.1       gwr 		return;
    271   1.1       gwr 
    272   1.1       gwr 	case 1:
    273  1.17      matt 		/* buttons (short form) */
    274  1.17      matt 		ms->ms_byteno = 4;
    275  1.17      matt 		ms->ms_mb = (~c) & 0x7;
    276  1.17      matt 		return;
    277  1.17      matt 
    278  1.17      matt 	case 2:
    279   1.1       gwr 		/* first delta-x */
    280  1.17      matt 		ms->ms_byteno = 3;
    281   1.1       gwr 		ms->ms_dx += (char)c;
    282   1.1       gwr 		return;
    283   1.1       gwr 
    284  1.17      matt 	case 3:
    285   1.1       gwr 		/* first delta-y */
    286  1.17      matt 		ms->ms_byteno = 4;
    287   1.1       gwr 		ms->ms_dy += (char)c;
    288   1.1       gwr 		return;
    289   1.1       gwr 
    290  1.17      matt 	case 4:
    291   1.1       gwr 		/* second delta-x */
    292  1.17      matt 		ms->ms_byteno = 5;
    293   1.1       gwr 		ms->ms_dx += (char)c;
    294   1.1       gwr 		return;
    295   1.1       gwr 
    296  1.17      matt 	case 5:
    297  1.17      matt 		/* second delta-y */
    298   1.1       gwr 		ms->ms_byteno = -1;	/* wait for button-byte again */
    299   1.1       gwr 		ms->ms_dy += (char)c;
    300   1.1       gwr 		break;
    301   1.1       gwr 
    302   1.1       gwr 	default:
    303   1.1       gwr 		panic("ms_rint");
    304   1.1       gwr 		/* NOTREACHED */
    305   1.1       gwr 	}
    306   1.1       gwr 
    307  1.24    petrov #if NWSMOUSE > 0
    308  1.24    petrov 	if (ms->ms_wsmousedev != NULL && ms->ms_ready == 2) {
    309  1.24    petrov 		mb = ((ms->ms_mb & 4) >> 2) |
    310  1.24    petrov 			(ms->ms_mb & 2) |
    311  1.24    petrov 			((ms->ms_mb & 1) << 2);
    312  1.24    petrov 		wsmouse_input(ms->ms_wsmousedev,
    313  1.34    plunky 				mb,
    314  1.34    plunky 				ms->ms_dx, ms->ms_dy, 0, 0,
    315  1.34    plunky 				WSMOUSE_INPUT_DELTA);
    316  1.24    petrov 		ms->ms_dx = 0;
    317  1.24    petrov 		ms->ms_dy = 0;
    318  1.24    petrov 		return;
    319  1.24    petrov 	}
    320  1.24    petrov #endif
    321   1.1       gwr 	/*
    322   1.1       gwr 	 * We have at least one event (mouse button, delta-X, or
    323   1.1       gwr 	 * delta-Y; possibly all three, and possibly three separate
    324   1.1       gwr 	 * button events).  Deliver these events until we are out
    325   1.1       gwr 	 * of changes or out of room.  As events get delivered,
    326   1.1       gwr 	 * mark them `unchanged'.
    327   1.1       gwr 	 */
    328   1.1       gwr 	any = 0;
    329   1.1       gwr 	get = ms->ms_events.ev_get;
    330   1.1       gwr 	put = ms->ms_events.ev_put;
    331   1.1       gwr 	fe = &ms->ms_events.ev_q[put];
    332   1.1       gwr 
    333   1.1       gwr 	/* NEXT prepares to put the next event, backing off if necessary */
    334   1.1       gwr #define	NEXT \
    335   1.1       gwr 	if ((++put) % EV_QSIZE == get) { \
    336   1.1       gwr 		put--; \
    337   1.1       gwr 		goto out; \
    338   1.1       gwr 	}
    339   1.1       gwr 	/* ADVANCE completes the `put' of the event */
    340   1.1       gwr #define	ADVANCE \
    341   1.1       gwr 	fe++; \
    342   1.1       gwr 	if (put >= EV_QSIZE) { \
    343   1.1       gwr 		put = 0; \
    344   1.1       gwr 		fe = &ms->ms_events.ev_q[0]; \
    345   1.1       gwr 	} \
    346   1.1       gwr 	any = 1
    347   1.1       gwr 
    348   1.1       gwr 	mb = ms->ms_mb;
    349   1.1       gwr 	ub = ms->ms_ub;
    350   1.1       gwr 	while ((d = mb ^ ub) != 0) {
    351   1.1       gwr 		/*
    352   1.1       gwr 		 * Mouse button change.  Convert up to three changes
    353   1.1       gwr 		 * to the `first' change, and drop it into the event queue.
    354   1.1       gwr 		 */
    355   1.1       gwr 		NEXT;
    356   1.1       gwr 		d = to_one[d - 1];		/* from 1..7 to {1,2,4} */
    357   1.1       gwr 		fe->id = to_id[d - 1];		/* from {1,2,4} to ID */
    358   1.1       gwr 		fe->value = mb & d ? VKEY_DOWN : VKEY_UP;
    359  1.38  christos 		firm_gettime(fe);
    360   1.1       gwr 		ADVANCE;
    361   1.1       gwr 		ub ^= d;
    362   1.1       gwr 	}
    363   1.1       gwr 	if (ms->ms_dx) {
    364   1.1       gwr 		NEXT;
    365   1.1       gwr 		fe->id = LOC_X_DELTA;
    366   1.1       gwr 		fe->value = ms->ms_dx;
    367  1.38  christos 		firm_gettime(fe);
    368   1.1       gwr 		ADVANCE;
    369   1.1       gwr 		ms->ms_dx = 0;
    370   1.1       gwr 	}
    371   1.1       gwr 	if (ms->ms_dy) {
    372   1.1       gwr 		NEXT;
    373   1.1       gwr 		fe->id = LOC_Y_DELTA;
    374   1.1       gwr 		fe->value = ms->ms_dy;
    375  1.38  christos 		firm_gettime(fe);
    376   1.1       gwr 		ADVANCE;
    377   1.1       gwr 		ms->ms_dy = 0;
    378   1.1       gwr 	}
    379   1.1       gwr out:
    380   1.1       gwr 	if (any) {
    381   1.1       gwr 		ms->ms_ub = ub;
    382   1.1       gwr 		ms->ms_events.ev_put = put;
    383   1.1       gwr 		EV_WAKEUP(&ms->ms_events);
    384   1.1       gwr 	}
    385   1.1       gwr }
    386